main.~pas

Delphi7数据库开发教程,包含该书21套实例

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IBCustomDataSet, IBUpdateSQL, DB, IBQuery, Grids, DBGrids,
  IBDatabase, StdCtrls;

type
  TForm1 = class(TForm)
    IBQuery1: TIBQuery;
    IBUpdateSQL1: TIBUpdateSQL;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    btnApplyUpdates: TButton;
    btnCancel: TButton;
    btnRefresh: TButton;
    cbxCache: TCheckBox;
    cbxIBUpdateSQL: TCheckBox;
    procedure btnApplyUpdatesClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnRefreshClick(Sender: TObject);
    procedure cbxCacheClick(Sender: TObject);
    procedure cbxIBUpdateSQLClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//更新数据
procedure TForm1.btnApplyUpdatesClick(Sender: TObject);
begin
  IBQuery1.ApplyUpdates;
end;

//取消操作
procedure TForm1.btnCancelClick(Sender: TObject);
begin
  IBQuery1.CancelUpdates;
end;

//刷新数据
procedure TForm1.btnRefreshClick(Sender: TObject);
begin
  IBQuery1.Active := False;
  IBQuery1.Active := True ;
end;


procedure TForm1.cbxCacheClick(Sender: TObject);
begin
  IBQuery1.CachedUpdates := cbxCache.Checked ;
end;

//根据复选框的状态决定是否指定TIBUpdateSQL组件
procedure TForm1.cbxIBUpdateSQLClick(Sender: TObject);
begin
  if not cbxIBUpdateSQL.Checked then
     IBQuery1.UpdateObject := nil
  else
     IBQuery1.UpdateObject := IBUpdateSQL1;
end;

end.