hm_main.pas

本课题是为企业人事管理提供现代化技术支持的管理信息系统

unit hm_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls, Mask, DBCtrls, DB, ExtCtrls, jpeg,
  ADODB;

type
  Thm_mainForm = class(TForm)
    MainMenu1: TMainMenu;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    about1: TMenuItem;
    N10: TMenuItem;
    StatusBar1: TStatusBar;
    ADOConnection1: TADOConnection;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    Label4: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label2: TLabel;
    Panel3: TPanel;
    Image2: TImage;
    Label11: TLabel;
    Label12: TLabel;
    Label6: TLabel;
    Panel4: TPanel;
    Panel5: TPanel;
    Image7: TImage;
    Panel6: TPanel;
    Panel8: TPanel;
    Image3: TImage;
    Image4: TImage;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Image6: TImage;
    Image5: TImage;
    Image8: TImage;
    Label13: TLabel;
    procedure N9Click(Sender: TObject);
    procedure Label7MouseEnter(Sender: TObject);
    procedure Label7MouseLeave(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure Label8MouseEnter(Sender: TObject);
    procedure Label8MouseLeave(Sender: TObject);
    procedure Label9MouseEnter(Sender: TObject);
    procedure Label9MouseLeave(Sender: TObject);
    procedure Label9Click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure Label10MouseEnter(Sender: TObject);
    procedure Label10MouseLeave(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure about1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Label13Click(Sender: TObject);
    procedure Label13MouseEnter(Sender: TObject);
    procedure Label13MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  hm_mainForm: Thm_mainForm;

implementation

uses hm_dp, hm_pinf, hm_roll, hm_emp, hm_login, hm_user,hm_cpass,hm_About, hm_LoginOut;

{$R *.dfm}
//--------------主窗口生成时，显示用户信息；封锁不应公开的选项
procedure Thm_mainForm.FormCreate(Sender: TObject);
var
    rigstr:array[1..1,1..3] of string;
begin
    ADOConnection1.Open;
    //三种权限方式
    rigstr[1,1]:='普通';
    rigstr[1,2]:='高级';
    rigstr[1,3]:='管理员';
    //显示用户信息
    Label3.Caption:=hm_loginForm.uname+'   ';
    Label5.Caption:=rigstr[1,hm_loginForm.idright]+'   ';

    Label11.Caption:='';
    Label12.Caption:='';
    //对非管理员封闭N8用户管理选项
    if hm_loginForm.idright < 3 then
    begin
        N8.Enabled:=false;
    end;
end;

//--------------主窗口关闭，整个程序结束
procedure Thm_mainForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    hm_loginForm.Close;
end;

//-----------------菜单项-------------------------
//-----------------显示更改密码窗口---------------
procedure Thm_mainForm.N7Click(Sender: TObject);
begin
    hm_mainForm.Visible:=false;
    if not Assigned(hm_cpassForm) then
      hm_cpassForm := Thm_cpassForm.Create(nil);
    hm_cpassForm.ShowModal;
end;
//----------------显示用户管理窗口---------------
procedure Thm_mainForm.N8Click(Sender: TObject);
begin
    hm_mainForm.Visible:=false;
    hm_userForm.ShowModal;
end;
//-----------------退出---------------
procedure Thm_mainForm.N9Click(Sender: TObject);
begin
    hm_loginForm.Close;
end;
//------------------重新登录---------------
procedure Thm_mainForm.N10Click(Sender: TObject);
begin
  hm_empForm.Free;
  hm_rollForm.Free;
  hm_dpForm.Free;
  hm_pinfForm.Free;
  hm_userForm.Free;
  hm_mainForm.Visible := False;
  hm_LoginOutForm := Thm_LoginOutForm.Create(nil);
  hm_loginOutForm.ShowModal;
end;
//---------------about---------------
procedure Thm_mainForm.about1Click(Sender: TObject);
begin
  hm_AboutForm := Thm_AboutForm.Create(nil);
  try
    hm_AboutForm.ShowModal;
  finally
    FreeAndNil(hm_AboutForm);
  end;
end;

//---------------显示部门管理窗口--------------------
procedure Thm_mainForm.Label7Click(Sender: TObject);
begin
    hm_mainForm.Visible:=false;
    hm_dpForm.ShowModal;
end;
//--------------鼠标进入改变字体格式，显示说明信息-----
procedure Thm_mainForm.Label7MouseEnter(Sender: TObject);
begin
    Label7.Font.Style:=[fsItalic, fsUnderline];
    Label11.Caption:='*  查阅维护部门信息';
end;
//--------------鼠标离开恢复字体格式，取消说明信息-----
procedure Thm_mainForm.Label7MouseLeave(Sender: TObject);
begin
    Label7.Font.Style:=[];
    Label11.Caption:='';
end;

//---------------显示员工信息窗口---------------
procedure Thm_mainForm.Label8Click(Sender: TObject);
begin
    hm_mainForm.Visible:=false;
    hm_pinfForm.ShowModal;
end;
//--------------鼠标进入改变字体格式，显示说明信息-----
procedure Thm_mainForm.Label8MouseEnter(Sender: TObject);
begin
    Label8.Font.Style:=[fsItalic, fsUnderline];
    Label11.Caption:='*  查阅维护人员信息';
    Label12.Caption:='*  多种查询导引方式';
end;
//--------------鼠标离开恢复字体格式，取消说明信息-----
procedure Thm_mainForm.Label8MouseLeave(Sender: TObject);
begin
    Label8.Font.Style:=[];
    Label11.Caption:='';
    Label12.Caption:='';
end;

//---------------显示考勤管理窗口---------------
procedure Thm_mainForm.Label9Click(Sender: TObject);
begin
    hm_mainForm.Visible:=false;
    hm_rollForm.ShowModal;
end;
//--------------鼠标进入改变字体格式，显示说明信息-----
procedure Thm_mainForm.Label9MouseEnter(Sender: TObject);
begin
    Label9.Font.Style:=[fsItalic, fsUnderline];
    Label11.Caption:='*  查阅维护考勤信息';
    Label12.Caption:='*  人员日期联合查询';
end;
//--------------鼠标离开恢复字体格式，取消说明信息----
procedure Thm_mainForm.Label9MouseLeave(Sender: TObject);
begin
    Label9.Font.Style:=[];
    Label11.Caption:='';
    Label12.Caption:='';
end;

//---------------显示招聘信息窗口---------------
procedure Thm_mainForm.Label10Click(Sender: TObject);
begin
    hm_mainForm.Visible:=false;
    hm_empForm.ShowModal;
end;
//--------------鼠标进入改变字体格式，显示说明信息-----
procedure Thm_mainForm.Label10MouseEnter(Sender: TObject);
begin
    Label10.Font.Style:=[fsItalic, fsUnderline];
    Label11.Caption:='*  查阅维护招聘信息';
    Label12.Caption:='*  对应提供应聘信息';
end;
//--------------鼠标离开恢复字体格式，取消说明信息----
procedure Thm_mainForm.Label10MouseLeave(Sender: TObject);
begin
    Label10.Font.Style:=[];
    Label11.Caption:='';
    Label12.Caption:='';
end;

procedure Thm_mainForm.FormDestroy(Sender: TObject);
begin
  Application.Terminate;
end;

procedure Thm_mainForm.Label13Click(Sender: TObject);
begin
  N10Click(nil);
end;

procedure Thm_mainForm.Label13MouseEnter(Sender: TObject);
begin
  Label13.Font.Style:=[fsItalic, fsUnderline];
  Label11.Caption:='* 注销当前用户';
  Label12.Caption:=' ';
end;

procedure Thm_mainForm.Label13MouseLeave(Sender: TObject);
begin
  Label13.Font.Style:=[];
  Label11.Caption:='';
  Label12.Caption:='';
end;

end.