mainmenu.~pas

本系统是一个基于delphi7环境开发的人事管理系统

unit MainMenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,BaseImformationManager, Menus, jpeg, EmployeeStory,ExtCtrls,JobTime,QueryInformation,AccountsManager, StdCtrls,
  Buttons, ToolWin, ComCtrls;

type
  TForm3 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    Image1: TImage;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N16: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    ToolBar1: TToolBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    StatusBar1: TStatusBar;
    BitBtn9: TBitBtn;
    N8: TMenuItem;
    BitBtn5: TBitBtn;
    procedure N10Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 //   procedure N8Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn1Click10(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses WelcomePicture,LoginDailog,StatInformation, GradeManager, QueryGradeInformation, TranslateInformation, QueryTransInformation,AttendanceManager{, AccountsManager}, QueryAttendanceInformation,RealTimeCheck;
{$R *.dfm}

procedure TForm3.N10Click(Sender: TObject);
begin
close;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
//WelcomePicture.Form1.Close;
//LoginDailog.Form2.Close;
//nit3.Form3.Close;
end;


procedure TForm3.N17Click(Sender: TObject);
begin
form3.Enabled:=false;
form4.Show;
end;

procedure TForm3.N18Click(Sender: TObject);
begin
form3.Enabled:=false;
form5.show;
end;

procedure TForm3.N15Click(Sender: TObject);
begin
form3.Enabled:=false;
form6.Show;
end;

procedure TForm3.N19Click(Sender: TObject);
begin
form3.Enabled:=false;
form7.Show;
end;

procedure TForm3.N9Click(Sender: TObject);
begin
form3.Enabled:=false;
form8.Show;
end;

procedure TForm3.N12Click(Sender: TObject);
begin
form3.Enabled:=false;
form11.Show;
end;

procedure TForm3.N13Click(Sender: TObject);
begin
form3.Enabled:=false;
form12.Show;
end;

procedure TForm3.N16Click(Sender: TObject);
begin
form3.Enabled:=false;
form13.Show;
end;

procedure TForm3.N20Click(Sender: TObject);
begin
form3.Enabled:=false;
form14.Show;
end;

procedure TForm3.N21Click(Sender: TObject);
begin
form3.Enabled:=false;
form15.Show;
end;

procedure TForm3.N22Click(Sender: TObject);
begin
form3.Enabled:=false;
form16.Show;
end;

procedure TForm3.Label1Click(Sender: TObject);
begin
form3.Enabled:=false;
form4.Show;
end;

procedure TForm3.Label2Click(Sender: TObject);
begin
form3.Enabled:=false;
form11.Show;
end;

procedure TForm3.Label5Click(Sender: TObject);
begin
form3.Enabled:=false;
form13.Show;
end;

procedure TForm3.Label4Click(Sender: TObject);
begin
form3.Enabled:=false;
form15.Show;
end;

procedure TForm3.Label3Click(Sender: TObject);
begin
form3.Enabled:=false;
form17.show;
end;

procedure TForm3.Label6Click(Sender: TObject);
begin
form3.Enabled:=false;
form10.Show;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
form3.Enabled:=false;
form8.Show;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
form3.Enabled:=false;
form4.Show;
end;

procedure TForm3.BitBtn3Click(Sender: TObject);
begin
form3.Enabled:=false;
form10.Show;
end;

procedure TForm3.BitBtn4Click(Sender: TObject);
begin
form3.Enabled:=false;
form15.Show;
end;

procedure TForm3.BitBtn7Click(Sender: TObject);
begin
form3.Enabled:=false;
form11.Show;
end;

procedure TForm3.BitBtn6Click(Sender: TObject);
begin
form3.Enabled:=false;
form13.Show;
end;

procedure TForm3.BitBtn1Click10(Sender: TObject);
begin
showmessage('Good Day!');
end;

procedure TForm3.FormShow(Sender: TObject);
begin
form1.ADOQuery1.SQL.Clear;

 statusbar1.Panels[1].Text:=' 当前登陆用户：'+form2.user_name;
statusbar1.Panels[2].Text:='   今天是  :'+formatdatetime('yyyy-mm-dd',now);
if  form2.user_name<>'adm' then
begin
form3.Caption:='傻瓜人事管理系统(普通型用户)';
self.N21.Enabled:=false;  //考勤信息 按钮
//self.BitBtn5.Enabled:=false;  //考勤信息 按钮
self.N16.Enabled:=false;//调动信息 按钮
self.BitBtn6.Enabled:=false; //调动信息 按钮
self.N12.Enabled:=false;//考评信息 按钮
self.BitBtn7.Enabled:=false;  //考评信息 按钮
self.N18.Enabled:=false;//任职时间 按钮
self.N19.Enabled:=false;//员工经历 按钮
BitBtn4.Enabled:=false;    //考勤信息 按钮
self.N8.Enabled:=false; //统计信息
end
else begin
form3.Caption:='傻瓜人事管理系统(管理员用户)';
end;
end;

procedure TForm3.BitBtn9Click(Sender: TObject);//更改用户
begin
form1.ADOTable1.Active:=false;
self.N21.Enabled:=true;//考勤信息 按钮
//self.BitBtn5.Enabled:=true;  //考勤信息 按钮
self.N16.Enabled:=true;//调动信息 按钮
self.BitBtn6.Enabled:=true; //调动信息 按钮
self.N12.Enabled:=true;//考评信息 按钮
self.BitBtn7.Enabled:=true;  //考评信息 按钮
self.N18.Enabled:=true;//任职时间 按钮
self.N19.Enabled:=true;//员工经历 按钮
BitBtn4.Enabled:=true;    //考勤信息 按钮
self.N8.Enabled:=true; //统计信息
form3.Hide;
form2.Show;
end;

procedure TForm3.BitBtn8Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm3.N7Click(Sender: TObject);
begin
showmessage('傻瓜人事管理系统'+ #10+'06兴民开发小组发行');
end;

procedure TForm3.N8Click(Sender: TObject);
begin
form3.Enabled:=false;
form10.Show;
end;

procedure TForm3.BitBtn5Click(Sender: TObject);
begin
form3.Enabled:=false;
form6.Show;
end;

end.