{解析出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[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+','+Trim(Cdsupdate.Fields[i-1].FieldName)+' = '+vartosql(Cdsupdate.Fields[i-1].value);

　　end;

　　end;

　　常用的SQL注射语句解析

　　Oracle提议基于开放标准的云管理API

　　修改计算机名称导致Oracle的em不能用