permis.dpr

人事档案管理

program permis;

uses
  Forms,
  SysUtils,
  Windows,
  uMain in 'uMain.pas' {frmPer},
  uChgpwd in 'uChgpwd.pas' {frmChgpwd},
  uGlobal in 'uGlobal.pas',
  uLogin in 'uLogin.pas' {frmLogin},
  uAdmin in 'uAdmin.pas' {frmAdmin},
  uStainfo in 'uStainfo.pas' {frmStainfo},
  uData in 'uData.pas' {dmPer: TDataModule},
  uSearch in 'uSearch.pas' {frmFind},
  uDep in 'uDep.pas' {frmDep},
  uAbout in 'uAbout.pas' {frmAbout},
  uSet in 'uSet.pas' {frmSet},
  uPrint in 'uPrint.pas' {frmPrint},
  uOinfo in 'uOinfo.pas' {frmOInfo},
  uStadetail in 'ustadetail.pas' {fraStaDetail: TFrame},
  uDlgbase in 'uDlgbase.pas' {frmDlgBase},
  uWaiting in 'uWaiting.pas',
  uApp in 'uApp.pas',
  uLog in 'uLog.pas',
  uLogInfo in 'uLogInfo.pas' {frmLog};

var
  aHandle: THandle;

{$R *.res}

begin
  if not FileExists(App.Path + 'Data.dll') then
  begin
    MessageBox(0, PAnsiChar('数据操作文件Data.dll不存在,系统不能运行!'), '提示', MB_OK + MB_ICONINFORMATION);
    Application.Terminate;
    Application.ShowMainForm := False;
  end;

  aHandle := FindWindow('TApplication', '秋风人事档案管理系统');
  if aHandle <> 0 then
  begin
    if IsIconic(aHandle) then
      OpenIcon(aHandle);
    SetForeGroundWindow(aHandle);
    Application.Terminate;
    Exit;
  end;

  Application.Title := '秋风人事档案管理系统';
  Application.Initialize;
  Application.CreateForm(TdmPer, dmPer);
  Application.CreateForm(TfrmPer, frmPer);
  Application.Run;
end.