ClientDataSet中撤消与恢复操作及执行细节

Posted 2020-09-03

利用ClientDataSet的XMLData成员是数据的XML表达，可以非常直观的观察在执行撤消恢复等操作的细节。帮助我们区分几种撤消与恢复操作的不同。

请注意下图中的 CHANGE_LOG的值ROW RowState项和程序标题ChangeCount在执行不同操作时的变化。

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

具体操作:

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

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

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

SQLDataSet1.CommandText:=SELECT * PERSONS;ClientDataSet1.Active:=true;

DBNavigator1.DataSource->DataSource1。

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

主要代码:

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

procedure TForm3.Button2Click(Sender: TObject);
begin
  //未POST前，取消操作
  ClientDataSet1.Cancel;
  ViewXMLData;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  //取消当前条记录的操作
  //会操作CHANGE_LOG，并减少ChangCount计数
  ClientDataSet1.RevertRecord;
  ViewXMLData;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
  //可连续撤消操作，直到 CHANGE_LOG为空，并减少ChangCount计数
  ClientDataSet1.UndoLastChange(true);
  ViewXMLData;
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
  //post后撤消操作,CHANGE_LOG会被清空，ChangCount被置0
  //一只撤消本地的全部操作
  ClientDataSet1.CancelUpdates;
  ViewXMLData;
end;

procedure TForm3.Button6Click(Sender: TObject);
begin
  //合并修改日志，合并后CHANGE_LOG会被清空，ChangCount被置0
  //合并后UNDO功能无效
  ClientDataSet1.MergeChangeLog;
  ViewXMLData;
end;

procedure TForm3.Button7Click(Sender: TObject);
begin
  //设置还原点
  tempPoint := ClientDataSet1.SavePoint;
  ViewXMLData;
end;

procedure TForm3.Button8Click(Sender: TObject);
begin
  //恢复还原点
  ClientDataSet1.SavePoint := tempPoint;
  ViewXMLData;
end;

procedure TForm3.ClientDataSet1AfterPost(DataSet: TDataSet);
begin
  ViewXMLData;
end;

procedure TForm3.ViewXMLData;
begin
  Text := Format(‘ChangeCount: %d‘, [ClientDataSet1.ChangeCount]);
  // uses XMLDoc单元
  Memo1.Text := FormatXMLData(ClientDataSet1.XMLData);
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  ViewXMLData;
end;

由于录制软件非常吃内存，不能录制更详细，有兴趣的可以自己做更细致的测试。

这次由于录制软件吃光了内存PC直接死机，导致第四次写代码了-_-!，提醒下大家有重要的修改还是多保存或打打IDE的History功能吧。

后来又研究了下我用的这款录制软件，发现全是截的一张张BMP图片，我就呵呵了！反正免费将就用吧-_-。