unit4.pas

来自「是关于SQL的一些程序 很好很经典的~大家又兴趣的可以学习下」· PAS 代码 · 共 82 行

unit Unit4;

interface

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

type
  TEmployee = class(TForm)
    searchstuff: TBitBtn;
    addstuff: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    StuffData: TDBGrid;
    returnmain: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure searchstuffClick(Sender: TObject);
    procedure addstuffClick(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure returnmainClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Employee: TEmployee;

implementation

{$R *.dfm}
uses unit1,Unit2,Unit3,Unit5,Unit6,Unit7,Unit8;
procedure TEmployee.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

procedure TEmployee.searchstuffClick(Sender: TObject);
begin
  form6.Show();
  with mydata.Query1 do
  begin
    close;
    with sql do
    begin
      clear;
      Add('select * from 员工资料表');
    end;
    open;
  end;
end;

procedure TEmployee.addstuffClick(Sender: TObject);
begin
  Form5.Show();
  Form5.oninit();
end;

procedure TEmployee.BitBtn6Click(Sender: TObject);
var value:integer;
    temp:string;
begin
  Form7.Show();
  Form7.oninit();
end;

procedure TEmployee.returnmainClick(Sender: TObject);
begin
  Employee.Hide;
  main.Show();
end;

procedure TEmployee.BitBtn4Click(Sender: TObject);
begin
  application.Terminate;
end;

end.