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;
    

      

  • 相关阅读:
    Python基础-面向对象1
    Centos升级安装.Net core 1.1
    员工大规模离职事件的处理方法和启示
    React Redux学习笔记
    Tfs 2015 代理池配置笔记
    自动化测试UI Test, Performance Test, Load Test 总结整理
    [转]【长文干货】浅析分布式系统
    .Net身份验证概述
    Owin中间件搭建OAuth2.0认证授权服务体会
    使用Owin中间件搭建OAuth2.0认证授权服务器
  • 原文地址:https://www.cnblogs.com/approx/p/12198343.html
Copyright © 2011-2022 走看看