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;
    

      

  • 相关阅读:
    SD_WebImage-03-多线程+下载任务放入非主线程执行
    NSOperationQueue_管理NSOperation-02-多线程
    CALayer小结-基本使用00-UI进阶
    XMPP-UI进阶-01
    XMPP总结-UI进阶-00
    UI控件总结-UI初级
    转场动画-01-day4
    暂停-开始动画-核心动画-08-day4
    核心动画-04-CALayer隐式动画
    Android开发技术周报 Issue#71
  • 原文地址:https://www.cnblogs.com/approx/p/12198343.html
Copyright © 2011-2022 走看看