ClientDataSet中修改,删除,添加数据和Delta属性

ClientDataSet中使用Post提交变更的数据时,实际上并没有更新到后端数据库中,而是提交到了由DataSnap管理的数据缓冲区中。当使用了ClientDataSet.ApplyUpDates(MaxErrors:integer)方法才更新到数据库中。ApplyUpDates方法也只更新修改的数据,这些数据放在ClientDataSet.Delta属性中。调用AppplyUpDates更新到数据库的同时Delta中的数据也会被清空,注意最后的对话框。下面对数据进行修改,删除等操作,并查看Delta中的数据。

效果图:

**************************************************************************************

具体操作:

**************************************************************************************

连接DBGrid1:

DBGrid1.DataSource->DataSource1.DataSet->ClientDataSet1.ProviderName->DataSetProvider1.DataSet->

SQLDataset1.SQLConnection->SQLConnection1具体数据库(这里连接的是oracle中的EMP表);

SQLDataSet1.CommandText:=SELECT * FROM EMP;ClientDataSet1.Active:=true;

DBNavigator1.DataSource->DataSource1;

连接DBGrid2:

DBGrid2.DataSource->DataSource2.DataSet->ClientDataSet2;

将以上用到的控件放入一空白工程中,并按上面的设置连接好控件。

**************************************************************************************

相关CODE:

**************************************************************************************

复制代码
procedure TForm3.Button1Click(Sender: TObject);
begin
  // 删除和添加数据不触发AfterPost事件,手动赋值
  // 把ClientDataSet1的Delta中的数据给ClientDataSet2中的Data属性,让DBGrid2显示处理数据的细节
  ClientDataSet2.Data := ClientDataSet1.Delta;
  StatusBar1.Panels[0].Text := format('Delta数据计数:%d',
    [ClientDataSet2.RecordCount]);
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
    // 将修改的数据提交到数据库,0表示不允许发生错误
    ClientDataSet1.ApplyUpdates(0);
    ClientDataSet2.Data := ClientDataSet1.Delta;
end;

procedure TForm3.ClientDataSet1AfterPost(DataSet: TDataSet);
begin
  // 把ClientDataSet1的Delta中的数据给ClientDataSet2中的Data属性,让DBGrid2显示处理数据的细节
  ClientDataSet2.Data := ClientDataSet1.Delta;
  StatusBar1.Panels[0].Text := format('Delta数据计数:%d',
    [ClientDataSet2.RecordCount]);
end;
复制代码

 

posted on   癫狂编程  阅读(895)  评论(0编辑  收藏  举报

编辑推荐:
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
阅读排行:
· 全网最简单!3分钟用满血DeepSeek R1开发一款AI智能客服,零代码轻松接入微信、公众号、小程
· .NET 10 首个预览版发布,跨平台开发与性能全面提升
· 《HelloGitHub》第 107 期
· 全程使用 AI 从 0 到 1 写了个小工具
· 从文本到图像:SSE 如何助力 AI 内容实时呈现?(Typescript篇)

导航

< 2025年3月 >
23 24 25 26 27 28 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 1 2 3 4 5
好的代码像粥一样,都是用时间熬出来的
点击右上角即可分享
微信分享提示