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;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。