rsgl.~dpr

人事管理

program rsgl;

uses
  Forms,
  Controls,
  iniFiles,
  SysUtils,
  Windows,
  mainform in 'mainform.pas' {frmmain},
  company in 'company.pas' {frmcompany},
  datarsgl in 'datarsgl.pas' {dmrsgl: TDataModule},
  login in 'login.pas' {frmlogin},
  about in 'about.pas' {frmabout},
  init in 'init.pas' {frminit},
  datarepair in 'datarepair.pas' {frmdatarepair},
  usermanager in 'usermanager.pas' {frmusermanager},
  MonthCalendar in 'MonthCalendar.pas' {frmMonthCalendar},
  employee in 'employee.pas' {frmemployee},
  kqmanage in 'kqmanage.pas' {frmkqmanage},
  find in 'find.pas' {frmfind},
  rszhgl in 'rszhgl.pas' {frmrszhgl},
  updaters in '..\image\ico\updaters.pas' {frmupdaters},
  showfindrs in 'showfindrs.pas' {frmbmzl},
  bmcoustomer in 'bmcoustomer.pas' {frmcustomerbm},
  printbm in 'printbm.pas' {frmprintbm},
  kqdj in 'kqdj.pas' {frmkqdj},
  kqjbzlgl in 'kqjbzlgl.pas' {frmkqjbzlgl},
  kqsettime in 'kqsettime.pas' {frmkqsettime},
  rpemployeer in 'rpemployeer.pas' {frmrpemployeer},
  kqtj in 'kqtj.pas' {frmkqtj},
  prtkqtj in 'prtkqtj.pas' {frmprtkqtj},
  ycfindkq in 'ycfindkq.pas' {frmycfindkq},
  gzffbz in 'gzffbz.pas' {frmgzffbz},
  txgl in 'txgl.pas' {frmtxgl},
  jzgl in 'jzgl.pas' {frmjzgl},
  monthjzgl in 'monthjzgl.pas' {frmmonthjzgl},
  yggzjs in 'yggzjs.pas' {frmyggzjs},
  monthendtj in 'monthendtj.pas' {frmmonthendtj},
  prtjdrp in 'prtjdrp.pas' {frmprtjdrp},
  jdrp in 'jdrp.pas' {frmjdrp},
  monthgzrp in 'monthgzrp.pas' {frmmonthgzrp},
  kqzlrp in 'kqzlrp.pas' {frmkqzlrp};

{$R *.res}

begin
  Application.Initialize;
  application.Title:='人事管理系统';
  Application.CreateForm(Tdmrsgl, dmrsgl);
  Application.CreateForm(Tfrmkqzlrp, frmkqzlrp);
  frmlogin:=tfrmlogin.Create(nil);
  if frmlogin.ShowModal <> mrok then
  application.Terminate  //退出系统
  else
  begin
  application.CreateForm(tfrmmain,frmmain);
  end;
  Application.Run;
  end.