frmmain.pas

被系统名叫生产信息管理系统

unit frmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, Menus, ToolWin, ExtCtrls, StdCtrls, Buttons,
  ActnList, jpeg;

type
  TMainForm = class(TForm)
    CoolBar1: TCoolBar;
    tlbToolBar: TToolBar;
    mnuMain: TMainMenu;
    imlMain: TImageList;
    tlbCheckWork: TToolButton;
    tlbHoliday: TToolButton;
    tlbOverTime: TToolButton;
    tlbPerson: TToolButton;
    tlbExit: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    Panel1: TPanel;
    panLeft: TPanel;
    StatusBar1: TStatusBar;
    PanWorkArea: TPanel;
    mnuOperator: TMenuItem;
    N3: TMenuItem;
    mnuExit: TMenuItem;
    spbExit: TSpeedButton;
    spbCheckTime: TSpeedButton;
    spbHoliday: TSpeedButton;
    actMain: TActionList;
    actPerson: TAction;
    actQuit: TAction;
    actOperator: TAction;
    actChangePassword: TAction;
    mnuChangePassword: TMenuItem;
    actCalc: TAction;
    mnuCalc: TMenuItem;
    actCheckWorkTime: TAction;
    mnuCheckWorkTime1: TMenuItem;
    actOverTime: TAction;
    actHoliday: TAction;
    mnuOverTime: TMenuItem;
    mnuDepartment: TMenuItem;
    mnuVocaption: TMenuItem;
    mnuSystem: TMenuItem;
    spbOverTime: TSpeedButton;
    spbPerson: TSpeedButton;
    panWelcome: TPanel;
    imgMain: TImage;
    mnuPrint: TMenuItem;
    mnuPersonPrint1: TMenuItem;
    mnuSalaryPrint: TMenuItem;
    mnuHoliday: TMenuItem;
    actPersonPrint: TAction;
    actSalaryPrint: TAction;
    actDepartment: TAction;
    actVocation: TAction;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure actQuitExecute(Sender: TObject);
    procedure actOperatorExecute(Sender: TObject);
    procedure actChangePasswordExecute(Sender: TObject);
    procedure actCalcExecute(Sender: TObject);
    procedure actCheckWorkTimeExecute(Sender: TObject);
    procedure actOverTimeExecute(Sender: TObject);
    procedure actPersonPrintExecute(Sender: TObject);
    procedure actHolidayExecute(Sender: TObject);
    procedure actVocationExecute(Sender: TObject);
    procedure actDepartmentExecute(Sender: TObject);
    procedure actSalaryPrintExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    CurrentUserName:string;
    constructor Create(Aowner:TComponent);override;
  end;

var
  MainForm: TMainForm;

implementation

uses frmLogin, Common, frmOperator, frmPassword, frmDataStatistic,
  frmSDataSave, frmTablePrint, frmOverTime, frmHoliday, frmVocation,
  frmDepartment, frmTablePrintView;

{$R *.dfm}

constructor TMainForm.Create(Aowner: TComponent);
begin
    inherited Create(Aowner);
    MainForm.Update;
    LoginForm:=TLoginForm.Create(MainForm);
    LoginForm.ShowModal;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
  Application.Terminate;
end;

procedure TMainForm.actQuitExecute(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TMainForm.actOperatorExecute(Sender: TObject);
begin
  Application.CreateForm(TOperatorForm,OperatorForm);
  ShowPanel(OperatorForm.panChild,MainForm.PanWorkArea);
end;

procedure TMainForm.actChangePasswordExecute(Sender: TObject);
begin
    Application.CreateForm(TChangePasswordForm,ChangePasswordForm);
    ChangePasswordForm.ShowModal;
end;

procedure TMainForm.actCalcExecute(Sender: TObject);
begin
    Winexec('Calc.Exe',1);
end;

procedure TMainForm.actCheckWorkTimeExecute(Sender: TObject);
begin
  Application.CreateForm(TCheckWorkTimeForm,CheckWorkTimeForm);
  CheckWorkTimeForm.ShowModal;
end;

procedure TMainForm.actOverTimeExecute(Sender: TObject);
begin
  Application.CreateForm(TOverTimeForm,OverTimeForm);
  ShowPanel(OverTimeForm.panChild,MainForm.PanWorkArea);
end;

procedure TMainForm.actPersonPrintExecute(Sender: TObject);
begin
  Application.CreateForm(TPersonPrintForm,PersonPrintForm);
  ShowPanel(PersonPrintForm.panChild,MainForm.PanWorkArea);
end;

procedure TMainForm.actHolidayExecute(Sender: TObject);
begin
  Application.CreateForm(THolidayForm,HolidayForm);
  HolidayForm.ShowModal;
end;

procedure TMainForm.actVocationExecute(Sender: TObject);
begin
  Application.CreateForm(TVocationForm,VocationForm);
  VocationForm.ShowModal;
end;

procedure TMainForm.actDepartmentExecute(Sender: TObject);
begin
  Application.CreateForm(TDepartmentForm,DepartmentForm);
  DepartmentForm.ShowModal;
end;

procedure TMainForm.actSalaryPrintExecute(Sender: TObject);
begin
  Application.CreateForm(TPersonPrintViewForm,PersonPrintViewForm);
  PersonPrintViewForm.ShowModal;
end;

end.