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

会计考友

{解析出sql语句} 　　function TForm1.gensqls(AdoCon:TADOConnection; pdelta: OleVariant; const ptablename, pkeyfields: WideString): WideString;
　　var
& Q: }& b+ ^2 @( O' p% w　　i, j: integer;
% i; a  ~- J  D9 c- M+ o　　s1, s2: string;
　　Cmdstr: string;
" f/ a! s% ]# T# y6 _: k3 P　　FieldList, Keylist: TstringList;
; h8 N. I9 I* F7 d, n& q6 Z9 a　　Cdsupdate: TClientDataSet;
3 D6 c) l5 T* I3 f' Z$ A　　sqlstr: WideString;
　　ado: TADOQuery;
　　begin
1 y! c6 h: f" R- K　　if varisnull(pdelta) then
　　Exit;
5 _- q. J- @8 \) q4 I　　Cdsupdate:=TClientDataSet.Create(nil);
　　Cdsupdate.data:=pdelta;
' I$ {' Y  k- c/ @5 M　　if not Cdsupdate.Active then
' ^' a$ E( w4 M1 a, G　　Cdsupdate.Open;
' R# A2 R* S# g& x& U　　try
+ r$ B8 `0 w6 Y( D. J$ L  h/ |3 V　　FieldList:=TstringList.Create;
* z- N" w2 T7 D1 k% c. D. i* x* t　　Keylist:=TstringList.Create;
8 e# r, s  R+ k# O0 i# J3 ^　　Keylist.Delimiter:=',';
  x  s; m) }2 Y2 f　　Keylist.DelimitedText:=pkeyfields;
　　ado:=TADOQuery.Create(nil);
　　ado.Connection:=AdoCon;
/ a6 u: V8 O9 i　　ado.sql.Text:='select * from '+ptablename+' where 1=0';
　　ado.Open;
　　ado.GetFieldNames(FieldList);
) C/ K9 Z2 E9 ^8 Y' l, z$ H0 |( \　　ado.Free;
: g6 h0 P# h8 K% |) D( f% E2 Q$ F　　for i:=1 to FieldList.Count do
- N, k; ]) J& Q3 r/ D. }4 M, z　　if Cdsupdate.FindField(FieldList[i-1])nil then
　　Cdsupdate.FindField(FieldList[i-1]).tag:=1;
　　FieldList.Free;
　　if Cdsupdate.RecordCount>0 then
; H# C0 U2 |3 v8 P5 w5 t　　begin

　　Cdsupdate.First;

会计考友

</p>　　s1:='';
　　s2:='';
　　while not Cdsupdate.Eof do
　　begin
1 b  _5 p- b2 ]　　Cmdstr:='';
　　case Cdsupdate.UpdateStatus of
　　usUnmodified: //从原数据行取得改削前提
& L! `! k0 z  \　　begin
　　s2:='';
　　for j:=1 to Keylist.Count do
# o' U; `4 I2 z# h4 P　　begin
* I" A% x/ u+ m* H7 C　　if s2='' then
　　s2:=Keylist[j-1]+'='+vartosql(Cdsupdate[Keylist[j-1]])
  Y" e8 F5 J* A7 E. F* ?　　else
　　s2:=s2+' and '+Keylist[j-1]+'='+vartosql(Cdsupdate[Keylist[j-1]]);
　　end;
8 w5 V& A3 Z1 G　　end;
6 K4 ~/ S7 ]8 ~7 [- k5 {　　usModified:
　　begin
: E. ~+ G, [5 \9 r; H" l4 g　　s1:='';
　　for i:=1 to Cdsupdate.FieldCount do
3 q3 V1 S: |8 [+ c1 k　　begin
( @0 O) ]' J  ^: q, I　　if (not Cdsupdate.Fields[i-1].isNull)and(Cdsupdate.Fields[i-1].tag=1) then
　　begin
/ b2 `8 P# n! {+ f　　if s1='' then
　　s1:=Trim(Cdsupdate.Fields[i-1].FieldName)+' = '+vartosql(Cdsupdate.Fields[i-1].value)
# {$ D/ x7 J5 X' [9 z. I+ z7 {　　else
　　s1:=s1+','+Trim(Cdsupdate.Fields[i-1].FieldName)+' = '+vartosql(Cdsupdate.Fields[i-1].value);
　　end;
　　end;