main_unit.pas

来自「DELPHI 编写的人事管理系统,根据职工查询各种信息」· PAS 代码 · 共 223 行

unit Main_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, ImgList, ToolWin, Menus;

type
  TMain_Form = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    Image1: TImage;
    N10: TMenuItem;
    N24: TMenuItem;
    Timer1: TTimer;
    N25: TMenuItem;
    N9: TMenuItem;
    N26: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton2Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main_Form: TMain_Form;
  l:boolean;
implementation
  uses Login_Unit,User_Unit,ModPW_Unit,RS_InUnit,RS_DocUnit,RS_AmendUnit,GZ_InUnit,RS_SynthUnit,GZ_AmendUnit,GZ_DocUnit,GZ_SynthUnit,Data_BakUnit,RS_PrintUnit,GZ_PrintUnit,Open_Unit,System_HelpUnit;
{$R *.dfm}

procedure TMain_Form.Timer1Timer(Sender: TObject);
begin
 statusbar1.Panels[1].Text:='时间日期:'+timetostr(time)+'   '+datetostr(date);
end;

procedure TMain_Form.ToolButton1Click(Sender: TObject);
begin
   User_Form:=TUser_Form.Create(nil);
   User_Form.ShowModal;
end;

procedure TMain_Form.ToolButton5Click(Sender: TObject);
begin
    Application.Terminate;
end;

procedure TMain_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Application.Terminate;
end;

procedure TMain_Form.ToolButton2Click(Sender: TObject);
begin
    ModPW_Form:=TModPW_Form.Create(nil);
    ModPW_Form.ShowModal;
end;

procedure TMain_Form.N12Click(Sender: TObject);
begin
   RS_InForm:=TRS_InForm.Create(nil);
   RS_InForm.ShowModal;
end;

procedure TMain_Form.N19Click(Sender: TObject);
begin
   l:=false;
   Login_Form.Show;
end;

procedure TMain_Form.N13Click(Sender: TObject);
begin
   RS_DocForm:=TRS_DocForm.Create(nil);
   RS_DocForm.ShowModal;
end;

procedure TMain_Form.N11Click(Sender: TObject);
begin
   RS_AmendForm:=TRS_AmendForm.Create(nil);
   RS_AmendForm.ShowModal;
end;

procedure TMain_Form.N3Click(Sender: TObject);
begin
   GZ_InForm:=TGZ_InForm.Create(nil);
   GZ_InForm.ShowModal;
end;

procedure TMain_Form.N5Click(Sender: TObject);
begin
   User_Form:=TUser_Form.Create(nil);
   User_Form.ShowModal;
end;

procedure TMain_Form.N18Click(Sender: TObject);
begin
   ModPW_Form:=TModPW_Form.Create(nil);
   ModPW_Form.ShowModal;
end;

procedure TMain_Form.N15Click(Sender: TObject);
begin
   RS_SynthForm:=TRS_SynthForm.Create(nil);
   RS_SynthForm.ShowModal;
end;

procedure TMain_Form.N25Click(Sender: TObject);
begin
   GZ_AmendForm:=TGZ_AmendForm.Create(nil);
   GZ_AmendForm.ShowModal;
end;

procedure TMain_Form.N14Click(Sender: TObject);
begin
   GZ_DocForm:=TGZ_DocForm.Create(nil);
   GZ_DocForm.ShowModal;
end;

procedure TMain_Form.N16Click(Sender: TObject);
begin
   GZ_SynthForm:=TGZ_SynthForm.Create(nil);
   GZ_SynthForm.ShowModal;
end;

procedure TMain_Form.N17Click(Sender: TObject);
begin
   Data_BakForm:=TData_BakForm.Create(nil);
   Data_BakForm.ShowModal;
end;

procedure TMain_Form.N20Click(Sender: TObject);
begin
RS_PrintForm.QuickRep1.Preview;
end;

procedure TMain_Form.N21Click(Sender: TObject);
begin
GZ_PrintForm.QuickRep1.Preview;
end;

procedure TMain_Form.ToolButton3Click(Sender: TObject);
begin
   Data_BakForm:=TData_BakForm.Create(nil);
   Data_BakForm.ShowModal;
end;

procedure TMain_Form.ToolButton4Click(Sender: TObject);
begin
   l:=false;
   Login_Form.Show;
end;

procedure TMain_Form.N23Click(Sender: TObject);
begin
   Open_Form:=TOpen_Form.Create(nil);
   Open_Form.ShowModal;
end;

procedure TMain_Form.N22Click(Sender: TObject);
begin
   System_HelpForm:=TSystem_HelpForm.Create(nil);
   System_HelpForm.ShowModal;
end;

end.