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;
    

      

  • 相关阅读:
    error: command 'x86_64-linux-gnu-gcc' failed with exit status 1
    Ubuntu更换python默认版本
    Ubuntu pip版本的安装,卸载,查看,更新
    android底部导航栏小结
    jdk核心库中使用到的设计模式
    行为型-责任链模式(Chain of Responsibility)
    行为型-访问者模式(Visitor)
    结构型-迭代器模式(Adapter)
    行为型-观察者模式(Observer)
    设计模式-模式目录
  • 原文地址:https://www.cnblogs.com/approx/p/12198343.html
Copyright © 2011-2022 走看看