utransaction.~pas

飞思科技的书不错

unit UTransaction;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, DBCtrls, ToolWin, ComCtrls,
  Buttons;

type
  TFrmTransaction = class(TForm)
    ToolBar1: TToolBar;
    DBNavigator1: TDBNavigator;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    BtnStartTrans: TButton;
    BtnCommitTrans: TButton;
    BtnRollbackTrans: TButton;
    RadioGroup1: TRadioGroup;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    RadioGroup2: TRadioGroup;
    BtnReQuery: TSpeedButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    BtnClose: TSpeedButton;
    ToolButton3: TToolButton;
    procedure BtnCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmTransaction: TFrmTransaction;

implementation

{$R *.dfm}

procedure TFrmTransaction.BtnCloseClick(Sender: TObject);
begin
    Close;
end;

end.