main.pas

Delphi开发的人事管理系统

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, Menus, ToolWin, ActnMan, ActnCtrls, StdActns, dmRsgl, 
  XPStyleActnCtrls, Ryxxwh, jpeg, ExtCtrls, RSGLCommon, About,  Login, Jycdwh,
  Bmwh;

type
  TMainForm = class(TForm)
    atbMain: TActionToolBar;
    amMain: TActionManager;
    acRyxxwh: TAction;
    acBmwh: TAction;
    acJycdwh: TAction;
    acAbout: TAction;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure acRyxxwhExecute(Sender: TObject);
    procedure acBmwhExecute(Sender: TObject);
    procedure acJycdwhExecute(Sender: TObject);
    procedure acAboutExecute(Sender: TObject);
  private
    { Private declarations }
    FdmRsgl: TdmRsgl;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation
{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FdmRsgl := TdmRsgl.Create(self);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  FdmRsgl := nil;
end;

procedure TMainForm.acRyxxwhExecute(Sender: TObject);
begin
  if not Assigned(RyxxwhForm) then
    RyxxwhForm := TRyxxwhForm.Create(Self, FdmRsgl);
  RyxxwhForm.Show;
end;

procedure TMainForm.acBmwhExecute(Sender: TObject);
begin
  with TBmwhForm.Create(nil, FdmRsgl) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TMainForm.acJycdwhExecute(Sender: TObject);
begin
  with TJycdwhForm.Create(nil, FdmRsgl) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TMainForm.acAboutExecute(Sender: TObject);
begin
	with TAboutForm.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

end.