history.~pas

来自「使用DELPHI6.0开发的停车场管理信息系统 使用ADO和BDE技术连接SQL」· ~PAS 代码 · 共 64 行

unit history;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids, jpeg;

type
  TPagesDlg = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    OKBtn: TButton;
    CancelBtn: TButton;
    Panel3: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    Table1: TTable;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);

  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PagesDlg: TPagesDlg;


  implementation


{$R *.dfm}

procedure TPagesDlg.OKBtnClick(Sender: TObject);
begin
with Query1 do
 begin
  Close;
   
   Prepare;
   Open;


  Query1.Active:=True;
 end;
end;

procedure TPagesDlg.CancelBtnClick(Sender: TObject);
begin
        close
end;

end.