zoukankan      html  css  js  c++  java
  • ClientDataSet中撤消与恢复操作及执行细节

    转载自:https://www.cnblogs.com/sun998/p/6513895.html

    利用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;
    

      

  • 相关阅读:
    AtCoder agc023_f
    CodeForces 1328
    洛谷 P4437
    Spark读取txt文件跳过第一行
    斯特林数学习笔记。
    hackrank subsets
    题解 CF1004F 【Sonya and Bitwise OR】
    [NOI2020]美食家
    Educational Codeforces Round 94 题解
    Delphi 与 C/C++ 数据类型对照表
  • 原文地址:https://www.cnblogs.com/approx/p/12198343.html
Copyright © 2011-2022 走看看