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;

扫描二维码关注公众号，回复： 7183930 查看本文章

连接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;