1. 程式人生 > >Delphi 獲取臨時數據集 ClientDataSet

Delphi 獲取臨時數據集 ClientDataSet

price free 數據集 pan ole func ive function spec

function GetcdsAccountsData: OleVariant;
  var ASQLQuery: TSQLQuery;
      Adsp: TProvider;
  begin
    ASQLQuery:=CreateSQLQuery;
    Adsp:=TProvider.Create(nil);
    with ASQLQuery do try
      SQL.Add(Select AccID, pAccID, AccName, AccFullName, Explan, Grade, Property, Detailed, DC, SublegType
); SQL.Add(,DeptAcc, EmplAcc, CorpAcc, ItemAcc, pItemID, Fcy, FcyNo, FcyExrate); SQL.Add(,Qty, QtyUnit, QtySpecs, QtyPrice,QDigits, PDigits, FDigits); SQL.Add(from Accounts); SQL.Add(where SysID=:SysID and Status=‘‘A‘‘); SQL.Add(and accYear=:accYear); SQL.Add(
Order by AccID); ParamByName(SysID).AsInteger:=FSysID; ParamByName(accYear).AsInteger:=FLoginDate.Year; Adsp.DataSet:=ASQLQuery; Result:=Adsp.Data; finally Adsp.Free; Free; end; end; function CheckOpencdsAccounts: Boolean; begin if
FcdsAccounts=nil then FcdsAccounts:=TClientDataSet.Create(Self); with FcdsAccounts do begin if not Active then begin Data:=GetcdsAccountsData; IndexFieldNames:=AccID; end; Result:=Active; end; end;

Delphi 獲取臨時數據集 ClientDataSet