hfeis.dpr

一个不错的系统

program HFEIS;

uses
  Forms,
  Windows,
  UnitMain in 'UnitMain.pas' {FrmMain},
  UnitFlash in 'UnitFlash.pas' {FrmFlash},
  UnitPassword in 'UnitPassword.pas' {frmPassword},
  UnitDatabase in 'UnitDatabase.pas' {DMMain: TDataModule},
  UnitCommon in 'UnitCommon.pas',
  UnitRegister in 'UnitRegister.pas' {FrmRegister},
  UnitAbout in 'UnitAbout.pas' {FrmAbout},
  UnitModPass in 'UnitModPass.pas' {FrmModPass},
  UnitImport in 'UnitImport.pas' {FrmImport},
  UnitUsers in 'UnitUsers.pas' {FrmUsers},
  UnitCompany in 'UnitCompany.pas' {frmCompany},
  UnitInitialization in 'UnitInitialization.pas' {frmInitialization},
  UnitEmployee in 'UnitEmployee.pas' {FrmEmployee},
  UnitSearch in 'UnitSearch.pas' {FrmSearch},
  UnitReport in 'UnitReport.pas' {FrmReport},
  UnitDialog in 'UnitDialog.pas' {frmDialog},
  UnitDetail in 'UnitDetail.pas' {frmDetail},
  UnitExport in 'UnitExport.pas' {FrmExport};

{$R *.res}
begin
  Application.Initialize;
  Application.Title := '惠锋通用人事管理 V3.50';
  try
    FrmFlash:=TFrmFlash.Create(Application);
    FrmFlash.Show;
    FrmFlash.Update;
    Sleep(2000);
    FrmFlash.Close;
  finally
    FrmFlash.Free;
  end;
  Application.CreateForm(TDMMain, DMMain);
  Application.CreateForm(TFrmExport, FrmExport);
  try
    frmCompany:=TfrmCompany.Create(Application);
    frmCompany.ShowModal;
  finally
    frmCompany.Free;
  end;
  if Users.Rule<>'' then begin
    Application.CreateForm(TFrmMain, FrmMain);
  end;
  Application.Run;
end.