main.pas

此为一个用delphi语言编写的人事管理系统

unit Main;

interface

uses
    SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls,DB, DBTables, jpeg;

type
    TMainForm = class(TForm)
        MainMenu: TMainMenu;
        menuSystem: TMenuItem;
        menuSLogin: TMenuItem;
        menuSQuit: TMenuItem;
    menuPDepartment: TMenuItem;
        menuSRight: TMenuItem;
    menuPerson: TMenuItem;
    menuPDB: TMenuItem;
    menuPBasicSetting: TMenuItem;
        ImageBackgroud: TImage;
    btnPersonBasic: TSpeedButton;
        btnLogin: TSpeedButton;
        btnRightSetting: TSpeedButton;
    btnDepartmentSetting: TSpeedButton;
        btnQuit: TSpeedButton;
    btnDbManage: TSpeedButton;
    menuPChange: TMenuItem;
    btnChange: TSpeedButton;
    SpeedButton1: TSpeedButton;
        procedure menuSLoginClick(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure menuSRightClick(Sender: TObject);
        procedure menuSQuitClick(Sender: TObject);
        procedure menuPDepartmentClick(Sender: TObject);
        procedure btnLoginClick(Sender: TObject);
        procedure btnRightSettingClick(Sender: TObject);
        procedure btnDepartmentSettingClick(Sender: TObject);
        procedure btnQuitClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
    procedure menuPBasicSettingClick(Sender: TObject);
    procedure btnPersonBasicClick(Sender: TObject);
    procedure menuPDBClick(Sender: TObject);
    procedure btnDbManageClick(Sender: TObject);
    procedure menuPChangeClick(Sender: TObject);
    procedure btnChangeClick(Sender: TObject);
    end;

var
    MainForm: TMainForm;

implementation

uses uLogin, uRightsSetting, uDep, uStainfo,uDBadmin, uChange;

{$r *.dfm}

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin

end;

//登陆主操作界面
procedure TMainForm.btnLoginClick(Sender: TObject);
begin
    if menuSLogin.Enabled then
        menuSLoginClick(Sender) ;
end;

procedure TMainForm.menuSLoginClick(Sender: TObject);
begin
    if frmLogin = nil then
        frmLogin := TfrmLogin.Create(nil);
    frmLogin.ShowModal;
end;

//权限设置
procedure TMainForm.btnRightSettingClick(Sender: TObject);
begin
    if menuSRight.Enabled then
        menuSRightClick(Sender);
end;

procedure TMainForm.menuSRightClick(Sender: TObject);
begin
    if frmRightSetting = nil then
        frmRightSetting := TfrmRightSetting.Create(nil);
   frmRightSetting.ShowModal ;
end;

//退出系统
procedure TMainForm.btnQuitClick(Sender: TObject);
begin
    if menuSQuit.Enabled then
        menuSQuitClick(Sender);
end;

procedure TMainForm.menuSQuitClick(Sender: TObject);
begin
    close;
end;

//部门设置
procedure TMainForm.btnDepartmentSettingClick(Sender: TObject);
begin
    if menuPDepartment.Enabled then
        menuPDepartmentClick(Sender);
end;

procedure TMainForm.menuPDepartmentClick(Sender: TObject);
begin
    if frmdep=nil then
        frmdep:=Tfrmdep.create(frmdep);
    frmdep.ShowModal;
    FreeAndNil(frmdep);
end;


procedure TMainForm.FormCreate(Sender: TObject);
begin
    if frmLogin = nil then
        frmLogin := TfrmLogin.Create(nil);
    frmLogin.ShowModal;
    //if frmLogin.ShowModal = mrCancel then
    //    Application.Terminate;
end;

//基本档案设置
procedure TMainForm.menuPBasicSettingClick(Sender: TObject);
begin
    if frmStainfo = nil then
        frmStainfo := TfrmStainfo.create(frmStainfo);
    frmStainfo.ShowModal;
end;

procedure TMainForm.btnPersonBasicClick(Sender: TObject);
begin
  if menuPBasicSetting.Enabled = true then
    menuPBasicSettingClick(Sender);
end;

//数据库管理部分
procedure TMainForm.menuPDBClick(Sender: TObject);
begin
  if frmDBadmin = nil then
    frmDBadmin :=TfrmDBadmin.Create(frmDBadmin);
  frmDBadmin.ShowModal;
end;

procedure TMainForm.btnDbManageClick(Sender: TObject);
begin
  if menuPDB.Enabled = true then
      menuPDBClick(Sender);
end;

//人事变更部分
procedure TMainForm.menuPChangeClick(Sender: TObject);
begin
  if frmChange = nil then
    frmChange :=TfrmChange.Create(frmChange);
  frmChange.ShowModal;
end;

procedure TMainForm.btnChangeClick(Sender: TObject);
begin
  if menuPChange.Enabled = true then
      menuPChangeClick(Sender);
end;

end.