personmain.pas

人事工资考勤管理信息系统

unit PersonMain;

interface

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

type
  TPersonMainFrm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    C1: TMenuItem;
    E1: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Showhint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PersonMainFrm: TPersonMainFrm;

implementation
    uses  PasswordChange,Person_info,PersonWageManage, PersonAttendManage;
{$R *.dfm}

procedure TPersonMainFrm.N2Click(Sender: TObject);
begin
    if Person_infoFrm=nil then
    Application.CreateForm(TPerson_infoFrm, Person_infoFrm);
    Person_infoFrm.Show;
end;

procedure TPersonMainFrm.N3Click(Sender: TObject);
begin
    if PersonWageManageFrm=nil then
    Application.CreateForm(TPersonWageManageFrm, PersonWageManageFrm);
    PersonWageManageFrm.Show;
end;

procedure TPersonMainFrm.N4Click(Sender: TObject);
begin
     if PersonAttendManageFrm=nil then
    Application.CreateForm(TPersonAttendManageFrm, PersonAttendManageFrm);
    PersonAttendManageFrm.Show;
end;

procedure TPersonMainFrm.Timer1Timer(Sender: TObject);
begin
   statusbar1.Panels[2].text:=datetostr(date);
   statusbar1.Panels[3].text:=timetostr(time);//系统时间
end;

procedure TPersonMainFrm.Showhint(Sender: TObject);
begin
   StatusBar1.Panels[1].Text:=Application.Hint;
end;

procedure TPersonMainFrm.FormCreate(Sender: TObject);
begin
   Application.OnHint:=Showhint;
end;

procedure TPersonMainFrm.C1Click(Sender: TObject);
begin
  if PasswordChangeFrm=nil then
    Application.CreateForm(TPasswordChangeFrm, PasswordChangeFrm);
    PasswordChangeFrm.show;
end;

procedure TPersonMainFrm.E1Click(Sender: TObject);
begin
   PersonMainFrm.Close;
   Application.Terminate;
end;

end.