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;