fclientmethodsmain.pas

来自「就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》」· PAS 代码 · 共 73 行

unit fClientMethodsMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ExtCtrls, DBCtrls, Db, DBClient, MConnect, StdCtrls;

type
  TForm2 = class(TForm)
    ClientDataSet1: TClientDataSet;
    DCOMConnection1: TDCOMConnection;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    btnCancel: TButton;
    lbSavePoints: TListBox;
    btnCancelUpdates: TButton;
    btnRevertRecord: TButton;
    btnUndoLastChange: TButton;
    btnGetSavePoint: TButton;
    btnSetSavePoint: TButton;
    procedure btnGetSavePointClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnCancelUpdatesClick(Sender: TObject);
    procedure btnRevertRecordClick(Sender: TObject);
    procedure btnUndoLastChangeClick(Sender: TObject);
    procedure btnSetSavePointClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.btnGetSavePointClick(Sender: TObject);
begin
  lbSavePoints.Items.Add(IntToStr(ClientDataset1.SavePoint));
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  lbSavePoints.Items.Clear;
end;

procedure TForm2.btnCancelUpdatesClick(Sender: TObject);
begin
  ClientDataset1.CancelUpdates;
end;

procedure TForm2.btnRevertRecordClick(Sender: TObject);
begin
  ClientDataset1.RevertRecord;
end;

procedure TForm2.btnUndoLastChangeClick(Sender: TObject);
begin
  ClientDataset1.UndoLastChange(True);
end;

procedure TForm2.btnSetSavePointClick(Sender: TObject);
begin
  ClientDataset1.SavePoint := StrToInt(lbSavePoints.Items[lbSavePoints.ItemIndex]);
end;

end.