Delphi三层开发小技巧:TClientDataSet的Delta妙用_clientDataSet和TDataSetProvider对数据的操作 - CSDN文库

需积分: 34 100 浏览量更新于2023-03-16 评论 1 收藏 30KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

Delphi 三层开发小技巧:TClientDataSet 的 Delta 妙用

Delphi 做三层开发时,很多人都会在客户端放一个 TClientDataSet,中间层远

程数据模块就对应放一个 TDataSetProvider,然后再连起来.其实这种方法很

烦琐,而且程序痈肿不甘,不好维护.我们都知道 TClientDataSet 的 Delta 属性

记录了数据的所有修改,应用它我们就可以方便的实现一个单表更新的通用方法.

 首先,在中间层添加一个方法,就叫 ApplyUpdates 吧.方法定义如下:

 function ApplyUpdates(const UpdateTable:String;Delta:Variant;out

err:String):Boolean;

参数 UpdateTable 是指要更新的表名,Delta 是指传过来的 TClientDataSet

的 Delta 属性,如果更新错误 err 返回错误的内容.下面实现这个方法,首先在

DataModule 上放一个 Query,Query 连上 Connection,然后再放一个

TDataSetProvider 连 Query.代码如下:

function TRoDm.ApplyUpdates(const

UpdateTable:String;Delta:Variant;out err:String):Boolean;

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

var sqlstr:string;

 ErrCount:Integer;

begin

 Result:=False;

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

 try

 Conn.BeginTrans;

 Query.Close;

 Query.sql.text:=sqlstr;

 Query.open;

 Provider.ApplyUpdates(Delta,-1,ErrCount);

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余4页未读，立即下载

评论0

helin33

粉丝: 2
资源: 10

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈