我考网社区 › Oracle认证 › Oracle认证：delta得到sql语句的函数详解

会计考友 发表于 2012-8-4 13:41:06

Oracle认证：delta得到sql语句的函数详解

{解析出sql语句} 　　function TForm1.gensqls(AdoCon:TADOConnection; pdelta: OleVariant; const ptablename, pkeyfields: WideString): WideString;
　　var
　　i, j: integer;
　　s1, s2: string;
　　Cmdstr: string;
　　FieldList, Keylist: TstringList;
　　Cdsupdate: TClientDataSet;
　　sqlstr: WideString;
　　ado: TADOQuery;
　　begin
　　if varisnull(pdelta) then
　　Exit;
　　Cdsupdate:=TClientDataSet.Create(nil);
　　Cdsupdate.data:=pdelta;
　　if not Cdsupdate.Active then
　　Cdsupdate.Open;
　　try
　　FieldList:=TstringList.Create;
　　Keylist:=TstringList.Create;
　　Keylist.Delimiter:=',';
　　Keylist.DelimitedText:=pkeyfields;
　　ado:=TADOQuery.Create(nil);
　　ado.Connection:=AdoCon;
　　ado.sql.Text:='select * from '+ptablename+' where 1=0';
　　ado.Open;
　　ado.GetFieldNames(FieldList);
　　ado.Free;
　　for i:=1 to FieldList.Count do
　　if Cdsupdate.FindField(FieldList)nil then
　　Cdsupdate.FindField(FieldList).tag:=1;
　　FieldList.Free;
　　if Cdsupdate.RecordCount>0 then
　　begin

　　Cdsupdate.First;

会计考友 发表于 2012-8-4 13:41:07

Oracle认证：delta得到sql语句的函数详解

</p>　　s1:='';
　　s2:='';
　　while not Cdsupdate.Eof do
　　begin
　　Cmdstr:='';
　　case Cdsupdate.UpdateStatus of
　　usUnmodified: //从原数据行取得改削前提
　　begin
　　s2:='';
　　for j:=1 to Keylist.Count do
　　begin
　　if s2='' then
　　s2:=Keylist+'='+vartosql(Cdsupdate])
　　else
　　s2:=s2+' and '+Keylist+'='+vartosql(Cdsupdate]);
　　end;
　　end;
　　usModified:
　　begin
　　s1:='';
　　for i:=1 to Cdsupdate.FieldCount do
　　begin
　　if (not Cdsupdate.Fields.isNull)and(Cdsupdate.Fields.tag=1) then
　　begin
　　if s1='' then
　　s1:=Trim(Cdsupdate.Fields.FieldName)+' = '+vartosql(Cdsupdate.Fields.value)
　　else
　　s1:=s1+','+Trim(Cdsupdate.Fields.FieldName)+' = '+vartosql(Cdsupdate.Fields.value);
　　end;
　　end;

查看完整版本: Oracle认证：delta得到sql语句的函数详解