personnel.~dpr

来自「人事管理系统 具备了很强的功能 你看了就知道！」· ~DPR 代码 · 共 35 行

program Personnel;

uses
  Forms,
  Dialogs,
  SysUtils,
  mainwin in 'MAINWIN.PAS' {F_main},
  Childwin in 'CHILDWIN.PAS' {MDIChild},
  About in 'about.pas' {AboutBox},
  DataModule in 'DataModule.pas' {DataModule1: TDataModule},
  login in 'LOGIN.PAS' {F_login},
  crypt in 'crypt.pas',
  add in 'add.pas' {F_add},
  change in 'change.pas' {F_change},
  search in 'search.pas' {F_search},
  qd in 'qd.pas' {qdform};

{$R *.RES}
var
 time1:tdatetime;
begin
  Application.Initialize;
  Application.CreateForm(Tqdform, qdform);
  qdform.Show;
  qdform.Update;
  Application.Title:='人事管理系统';
  time1:=now;
  repeat until time1+StrtoTime('00:00:3') <= now;
  qdform.Free;
  Application.CreateForm(TF_main, F_main);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TF_login, F_login);
  Application.Run;
end.