main.pas

人力资源管理系统（Delphi程序）大家学习共勉

unit main;

interface

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

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N3: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses Szdmb, szgwbz, grzl, ryxxtjfx, cxgwpz, rydl;

{$R *.dfm}

procedure TfrmMain.N2Click(Sender: TObject);
begin
  try
    frmSzdmb := TfrmSzdmb.Create(nil);//创建设置代码窗口
    frmSzdmb.showModal; //以模式方式显示设置代码窗口
  finally
    frmSzdmb.Free ;   //最后必须释放窗口
  end;
end;

procedure TfrmMain.N7Click(Sender: TObject);
var
  i,count:integer;
  exist:boolean;
begin
  exist:=false;
  i:=0;
  count := self.MDIChildCount ;
  while (i< count) and not exist do //查找是否存在类名为'TfrmGrzl'的子窗口
  begin
    if self.MDIChildren[i].ClassName = 'TfrmGrzl' then
      exist := true;
    inc(i);
  end;
  if not exist then          //不存在则创建
  begin
    frmGrzl := TfrmGrzl.Create(self);
  end;
  //以下显示该窗口
  frmGrzl.Show ;
  frmGrzl.WindowState := wsNormal;
  frmGrzl.SetFocus ;
end;

procedure TfrmMain.N12Click(Sender: TObject);
begin
 try
    frmSzgwbz := TfrmSzgwbz.Create(nil); //创建设置岗位窗口
    frmSzgwbz.showModal;                 //以模式方式显示设置窗口
  finally
    frmSzgwbz.Free ;             //必须释放窗口
  end;
end;

procedure TfrmMain.N6Click(Sender: TObject);
var
  i,count:integer;
  exist:boolean;
begin
  exist:=false;
  i:=0;
  count := self.MDIChildCount ;
  while (i< count) and not exist do      //查找系统中是否存在为'frmRyxxtjfx'的子窗口
  begin
    if self.MDIChildren[i].ClassName = 'TfrmRyxxtjfx' then
      exist := true;
    inc(i);
  end;
  if not exist then          //不存在则创建
  begin
    frmRyxxtjfx := TfrmRyxxtjfx.Create(self);
  end;
  //以下显示该窗口
  frmRyxxtjfx.Show ;
  frmRyxxtjfx.WindowState := wsNormal;
  frmRyxxtjfx.SetFocus ;
end;

procedure TfrmMain.N8Click(Sender: TObject);
var
  i,count:integer;
  exist:boolean;
begin
  exist:=false;
  i:=0;
  count := self.MDIChildCount ;
  while (i< count) and not exist do      //查找系统中是否存在为'frmCxgwpz'的子窗口
  begin
    if self.MDIChildren[i].ClassName = 'TfrmCxgwpz' then
      exist := true;
    inc(i);
  end;
  if not exist then          //不存在则创建
  begin
    frmCxgwpz := TfrmCxgwpz.Create(self);
  end;
  //以下显示该窗口
  frmCxgwpz.Show ;
  frmCxgwpz.WindowState := wsNormal;
  frmCxgwpz.SetFocus ;
end;

procedure TfrmMain.N3Click(Sender: TObject);
var
  i,count:integer;
  exist:boolean;
begin
  exist:=false;
  i:=0;
  count := self.MDIChildCount ;
  while (i< count) and not exist do      //查找系统中是否存在为'frmRydl'的子窗口
  begin
    if self.MDIChildren[i].ClassName = 'TfrmRydl' then
      exist := true;
    inc(i);
  end;
  if not exist then          //不存在则创建
  begin
    frmRydl := TfrmRydl.Create(self);
  end;
  //以下显示该窗口
  frmRydl.Show ;
  frmRydl.WindowState := wsNormal;
  frmRydl.SetFocus ;
end;

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if messageDlg('退出系统吗？',mtInformation ,
    [mbYes,mbNo],MB_YESNO) = mrYes then			//用户确认是否退出系统
    canClose := true
  else
    canClose := false; 
end;

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

end.