小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

搜索

QQ空間 QQ好友新浪微博微信

Delphi三層開發(fā)小技巧:TClientDataSet的Delta妙用

aaie_ 2011-11-23

展開全文

Delphi三層開發(fā)小技巧:TClientDataSet的Delta妙用

Posted on 2011-02-15 00:39 入侵閱讀(187) 評論(0) 編輯收藏

Delphi做三層開發(fā)時,很多人都會在客戶端放一個TClientDataSet,中間層遠(yuǎn)程數(shù)據(jù)模塊就對應(yīng)放一個TDataSetProvider, 然后再連起來.其實這種方法很煩瑣,而且程序癰腫不甘,不好維護.我們都知道TClientDataSet的Delta屬性記錄了數(shù)據(jù)的所有修改,應(yīng)用它我們就可以方便的實現(xiàn)一個單表更新的通用方法.

首先,在中間層添加一個方法,就叫ApplyUpdates吧.方法定義如下:

function ApplyUpdates(const UpdateTable:String;Delta:Variant;out err:String):Boolean;

參數(shù)UpdateTable是指要更新的表名,Delta是指傳過來的TClientDataSet的Delta屬性,如果更新錯誤err返回錯誤的內(nèi)容.下面實現(xiàn)這個方法,首先在DataModule上放一個Query,Query連上Connection,然后再放一個 TDataSetProvider連Query.代碼如下:

01
function TRoDm.ApplyUpdates(const UpdateTable:String;Delta:Variant;out err:String):Boolean; 

02
  
03
const sql='select * from %s where 1<>1'; 

04
  
05
var sqlstr:string; 

06
  
07
      ErrCount:Integer; 

08
  
09
begin

10
  
11
    Result:=False; 

12
  
13
   sqlstr:=Format(sql,[UpdateTable]); 

14
  
15
   try

16
  
17
       Conn.BeginTrans; 

18
  
19
       Query.Close; 

20
  
21
       Query.sql.text:=sqlstr; 

22
  
23
       Query.open; 

24
  
25
      Provider.ApplyUpdates(Delta,-1,ErrCount); 

26
  
27
      Result:=ErrCount=0; 

28
  
29
      if Result then

30
  
31
         Conn.CommitTrans 

32
  
33
      else Conn.RollbackTrans; 

34
  
35
   except

36
  
37
       on E:Exception do

38
  
39
       begin

40
  
41
           Conn.RollbackTrans; 

42
  
43
          err:=E.Message; 

44
  
45
       end; 

46
  
47
   end; 

48
  
49
end;

到此,通用的更新方法已經(jīng)完成了.不過客戶端的ClientDataSet還不能查詢顯示數(shù)據(jù),因此,還要寫一個查詢方法:

function QuerySQL(const sqlstr:string;out Data:Variant;out err:String):Boolean;

參數(shù)sqlstr就是要持行的查詢語句,Data返回查詢結(jié)果,錯誤時err返回錯誤消息

QuerySQL實現(xiàn)代碼如下:

01
function TRoDm.QuerySQL(const sqlstr:string;out Data:Variant;out err:String):Boolean; 

02
  
03
begin

04
  
05
    Result:=False; 

06
  
07
   try

08
  
09
      Query.close; 

10
  
11
      Query.sql.text:=sqlstr; 

12
  
13
        Query.sql.Open; 

14
  
15
        Data:=Provider.Data; 

16
  
17
       Result:=True; 

18
  
19
    Except

20
  
21
         on E:Exception do

22
  
23
             err:=E.Message; 

24
  
25
    end; 

26
  
27
end;

到這里,中間層的代碼已經(jīng)完了,客戶端的調(diào)用就簡單了.比如客戶端有個數(shù)據(jù)模塊DM,上面放一個DcomConnection或者 SocketConnection,名叫Conn.例如,我們現(xiàn)在要做一個商品管理的功能,在窗體上放一個TClientDataSet叫Cds,放 DataSource,DBGrid等,設(shè)置好相應(yīng)的屬性.然后在窗體創(chuàng)建(Create事件)時查詢回所有數(shù)據(jù),代碼如下:

01
const sql='select * from xxxx'; 

02
  
03
var Data:Variant; 

04
  
05
      err:String; 

06
  
07
begin

08
  
09
   if Dm.Conn.AppServer.QuerySQL(sql,Data,err) then

10
  
11
      Cds.Data:=Data 

12
  
13
   else MessageBox(self.handle,pchar('查詢數(shù)據(jù)出錯:'+err),'錯誤',MB_OK+MB_ICONERROR);       

14
  
15
end; 

16
  
17
   然后還有"添加","修改","刪除"按扭,代碼都和我們平時操作一樣,比如"添加"按扭的代碼: 

18
  
19
   cds.append; 

20
  
21
   cds.fieldbyname('xxx').asinteger:=xxx; 

22
  
23
   //.... 

24
  
25
   cds.post;

修改,刪除也這樣寫.不過現(xiàn)在還有個小問題是,這個表的主鍵的生成問題,這里我們不能用自增主鍵,要自己自己生成主鍵,這樣你還得在中間層寫一個中間層生成主鍵的方法,在"增加"按扭時生調(diào)用生成主鍵,然后再上面的操作.這里不再多說.

增刪改完后,這時的數(shù)據(jù)還在客戶端的內(nèi)存里,想保存到遠(yuǎn)程的中間層服務(wù)器就要用到我們剛才的方法了,下面就是"保存"按扭下的代碼:

01
var err:string; 

02
  
03
begin

04
  
05
    if cds.ChangeCount=0 then exit;//數(shù)據(jù)沒改變就不用提交了 

06
  
07
    if Dm.Conn.AppServer.ApplyUpdates('xxx',cds.Delta,err) then//xxx就是表名了 

08
  
09
    begin

10
  
11
       MessageBox(self.handle,'保存成功!','提示',MB_OK+MB_ICONINFORMATION); 

12
  
13
        cds.MergeChangeLog;//合并所有改變的數(shù)據(jù) 

14
  
15
    end else MessageBox(self.handle,pchar('保存出錯:'+err),'錯誤',MB_OK+MB_ICONERROR); 

16
  
17
end;