lklb.dpr

来自「劳保用品管理系统」· DPR 代码 · 共 41 行

program lklb;

uses
  Forms,
  windows,
  main in 'main.pas' {mainfm},
  input in 'input.pas' {inputfm},
  load in 'load.pas' {loadfm},
  adodata in 'adodata.pas' {adodm: TDataModule},
  fixdata in 'fixdata.pas' {fixdatafm},
  query in 'query.pas' {queryfm},
  fuzhu in 'fuzhu.pas' {fuzhufm},
  repairdb in 'repairdb.pas' {repair},
  flash in 'flash.pas' {flashwin},
  pass in 'pass.pas' {passfm},
  changepass in 'changepass.pas' {changepassfm},
  About in 'about.pas' {AboutBox};

var mydate: tdatetime;
{$R *.RES}

begin
  flashwin := Tflashwin.create(application);
  flashwin.show;
  flashwin.update;
  mydate := gettickcount;
  while ((GetTickCount - mydate) / 1000 < 3) do ;
  Application.Initialize;
  Application.Title := '鲁抗劳保';
  Application.CreateForm(Tmainfm, mainfm);
  Application.CreateForm(Tloadfm, loadfm);
  Application.CreateForm(Tadodm, adodm);
  Application.CreateForm(Tpassfm, passfm);
  Application.CreateForm(Tchangepassfm, changepassfm);
  Application.CreateForm(TAboutBox, AboutBox);
  flashwin.Close;
  flashwin.free;
  Application.Run;
end.