标签：des style blog ar io color os sp on
procedure GetEmplData; var ASQLQuery:TSqlQuery; ADsp:TDatasetProvider; begin ASQLQuery:=TSqlQuery.Create(nil); ADsp:=TDatasetProvider.Create(nil); with ASQLQuery do try Close;SQL.Clear; SQLConnection:=SQLConn; SQL.Add(‘Select EmplNo, Empl From Empl‘); Adsp.DataSet:=aSqlQuery; cdsEmpl.Data:=adsp.Data; finally ADsp.Free; ASQLQuery.Free; end; end;
procedure InitLookUpSource;
var CmdText : WideString;
begin
CmdText:=‘Select Corpid, CorpNo, SName from Corps‘+#13#10
+‘where SysID=‘+IntToStr(FSysID)+#13#10
with rds_cdsCorps do begin
Data:=GetDataText(CmdText, ‘‘, [], CmdText);
AddIndex(‘Index1‘, ‘CorpID‘, [], ‘‘, ‘‘, 0);
IndexName:=‘Index1‘;
end;
end;
标签：des style blog ar io color os sp on
原文地址：http://www.cnblogs.com/CNQCJ/p/4170042.html
