数据库解析delta得到sql语句的函数

'+vartosql(Cdsupdate.Fields[i-1].value); end; end; if s1>'' then begin Cmdstr:=' Insert into '+ptablename+'('+s1+') values('+s2+')'; end; end; usDeleted: begin s2:=''; for j:=1 to Keylist.Count do begin if s2='' then s2:=Keylist[j-1]+'='+vartosql(Cdsupdate[Keylist[j-1]]) ，'+Trim(Cdsupdate.Fields[i-1].FieldName)+' = '+vartosql(Cdsupdate.Fields[i-1].value); end; end; if s1>'' then begin Cmdstr:=' update '+ptablename+' set '+s1+' where '+s2; end; end; usInserted: begin s1:=''; s2:=''; for i:=1 to Cdsupdate.FieldCount do if (not Cdsupdate.Fields[i-1].isNull)and(Cdsupdate.Fields[i-1].tag=1) then begin if s1='' then begin s1:=Trim(Cdsupdate.Fields[i-1].FieldName); s2:=vartosql(Cdsupdate.Fields[i-1].value); end else begin s1:=s1+'。

pkeyfields: WideString): WideString; var i， 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:='，'+Trim(Cdsupdate.Fields[i-1].FieldName); s2:=s2+'，重庆新闻，东方头条， {解析出sql语句} function TForm1.gensqls(AdoCon:TADOConnection; pdelta: OleVariant; const ptablename， j: integer; s1， s2: string; Cmdstr: string; FieldList，'; 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[i-1])>nil then Cdsupdate.FindField(FieldList[i-1]).tag:=1; FieldList.Free; if Cdsupdate.RecordCount>0 then begin Cdsupdate.First; 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[j-1]+'='+vartosql(Cdsupdate[Keylist[j-1]]) else s2:=s2+' and '+Keylist[j-1]+'='+vartosql(Cdsupdate[Keylist[j-1]]); end; end; usModified: begin s1:=''; for i:=1 to Cdsupdate.FieldCount do begin if (not Cdsupdate.Fields[i-1].isNull)and(Cdsupdate.Fields[i-1].tag=1) then begin if s1='' then s1:=Trim(Cdsupdate.Fields[i-1].FieldName)+' = '+vartosql(Cdsupdate.Fields[i-1].value) else s1:=s1+'，东方头条，。