main.pas

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

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus, DB, ADODB, Grids, DBGrids, DBTables,
  RpRave, RpDefine, RpCon, RpConDS, Buttons, ToolWin, ComCtrls;

type
  TMainFrm = class(TForm)
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    C1: TMenuItem;
    M1: TMenuItem;
    W1: TMenuItem;
    A1: TMenuItem;
    R1: TMenuItem;
    H1: TMenuItem;
    Timer1: TTimer;
    E1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    StatusBar1: TStatusBar;
    procedure Timer1Timer(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure M1Click(Sender: TObject);
    procedure W1Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Showhint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation
  uses PasswordChange,PersonnelManage,WageManage,AttendManage,PersonnelDataDM;
{$R *.dfm}

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

procedure TMainFrm.E1Click(Sender: TObject);
begin
   MainFrm.Close;
   Application.Terminate;
end;

procedure TMainFrm.C1Click(Sender: TObject);
begin
    if PasswordChangeFrm=nil then
    Application.CreateForm(TPasswordChangeFrm, PasswordChangeFrm); //创建窗口
    PasswordChangeFrm.show;
end;

procedure TMainFrm.M1Click(Sender: TObject);
begin
    if PersonnelManageFrm=nil then
    Application.CreateForm(TPersonnelManageFrm, PersonnelManageFrm); //创建窗口
    PersonnelManageFrm.show;
end;

procedure TMainFrm.W1Click(Sender: TObject);
begin
    if WageManageFrm=nil then
    Application.CreateForm(TWageManageFrm, WageManageFrm); //创建窗口
    WageManageFrm.show;
end;

procedure TMainFrm.A1Click(Sender: TObject);
begin
    if AttendManageFrm=nil then
    Application.CreateForm(TAttendManageFrm, AttendManageFrm); //创建窗口
    AttendManageFrm.show;
end;

procedure TMainFrm.N4Click(Sender: TObject);
begin
    PersonnelData.Personnel_infoRP.Execute;
end;

procedure TMainFrm.N5Click(Sender: TObject);
begin
    PersonnelData.Depart_infoRP.Execute;
end;

procedure TMainFrm.N2Click(Sender: TObject);
begin
    PersonnelData.Wage_manageRP.Execute;
end;

procedure TMainFrm.N3Click(Sender: TObject);
begin
     PersonnelData.Attend_infoRP.Execute;
end;

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

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

end.