解析delta得到sql语句的函数

您当前所在位置：首页 → 数据库 → Oracle → 解析delta得到sql语句的函数

解析delta得到sql语句的函数 时间：2015-06-28 00:00:00 来源：绿色软件之家作者：网管联盟 我要评论(0)

　　{解析出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;

　　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;

　　if s1<>'' then

　　begin

　　Cmdstr:=' update '+ptablename+' set '+s1+' where '+s2;

　　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+','+Trim(Cdsupdate.Fields[i-1].FieldName);

　　s2:=s2+','+vartosql(Cdsupdate.Fields[i-1].value);

　　end;

　　if s1<>'' then

　　begin

　　Cmdstr:=' Insert into '+ptablename+'('+s1+') values('+s2+')';

　　end;

　　usDeleted:

　　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;

　　Cmdstr:='Delete '+ptablename+' where '+s2;

　　end;

　　if Cmdstr<>'' then

　　sqlstr:=sqlstr+Cmdstr+';'+chr(13)+chr(10);

　　Cdsupdate.Next;

　　end;

　　finally

　　Cdsupdate.close;

　　Cdsupdate.Free();

　　end;

　　Result:=sqlstr;

　　end;

关键词标签：sql语句

相关阅读

文章评论

查看所有0条评论>>