unit3.pas

< SQL SERVER 2000 案例教程>>,冶金工业出版社,这本书的代码

unit Unit3;

interface

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

type
  TMain = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;

implementation

{$R *.dfm}
uses Unit4,Unit1,Unit8;
procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

procedure TMain.BitBtn6Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TMain.BitBtn7Click(Sender: TObject);
begin
  employee.Show();
  main.Hide;
end;

procedure TMain.BitBtn2Click(Sender: TObject);
begin
  Form8.Show();
  main.Hide;
end;

end.