读取数据问题
Procedure TfrmEPPALB20.FormCreate(Sender: TObject);
Begin
cds_EPPALHED := CDS_Create(CMS);
cds_Tmp := CDS_Create(CMS);
End;
Procedure TfrmEPPALB20.FormDestroy(Sender: TObject);
Begin
CDS_Free([cds_EPPALHED,cds_Tmp]);
End;
sSQL :=
'0SELECT ' +
' DISTINCT C021.NCMP,' +
' PHED.FORWARDER,' +
' PHED.HOSAIRBIL,' +
' C021.PGI_STATUS,' +
' PCON.CONTNO, ' +
' PHED.PACKLST, ' +
' PHED.BILLAND, ' +
' PHED.MASAIRBIL,' +
' PHED.BROKER, ' +
' PHED.ETADATE, ' +
' PHED.ETDDATE, ' +
' PHED.FLIGHTNO,' +
' PHED.FLIGHTDATE,' +
' PHED.FLIPORT, ' +
' PHED.FLIGHTNO2, ' +
' PHED.FLIGHTDATE2,' +
' PHED.FLIPORT2, ' +
' PADD.UPPOD, ' +
' PADD.POD, ' +
' PHED.APPNO, ' +
' PHED.VESLNAME, ' +
' PHED.CUSSRELDAT, ' +
' PHED.VOYAGENO, ' +
' PHED.STOAIRPDAT,' +
' IHED.SPTOCUSCO,' +
' IHED.SPINSTCO, ' +
' IHED.INVSPTOCO, ' +
' C021.HCUNO ' +
' FROM ' +
' EPPALHED PHED, EPPALCON PCON, EPPALADD PADD, EPINVHED IHED, EPPALINV PINV, CMPPS021 C021' +
' WHERE ' +
' PHED.PACKLST = C021.EPS_PAKNO' +
' AND PHED.PACKLST = PCON.PACKLST ' +
' AND PHED.PACKLST = PADD.PACKLST(+) ' +
' AND PHED.PACKLST = PINV.PACKLST ' +
' AND C021.NCMP = PINV.COMPNO ' +
' AND C021.NCMP = IHED.COMPID ' +
' AND PINV.INVNO = IHED.INVOICENO ' +
' AND TO_CHAR(C021.PINO) = PINV.INVNO ' +
' AND PHED.HOSAIRBIL = ' + QuotedStr(edHawbQue.Text);
End;
If CDS_Open(cds_EPPALHED, sSQL) Then
Begin
DsEPPALHED.DataSet := cds_EPPALHED;
DbEPPALHED.DataSource := DsEPPALHED;
End
Else
Begin
ShowMessage('Cannot find data!');
End;
