rsgl.dpr

来自「一个用vb mysql实现的人事管理信息系统希望对大家有用。」· DPR 代码 · 共 44 行

program rsgl;

uses
  Forms,
  main in 'rsgz\main.pas' {MainForm},
  spash in 'rsgz\spash.pas' {SplashForm},
  dm in 'byxj\dm.pas' {dmain: TDataModule},
  about in 'gzgl\about.pas' {frm_about},
  adduser in 'byxj\adduser.pas' {Frm_adduser},
  bmxg in 'byxj\bmxg.pas' {Frm_bmxg},
  changepawd in 'byxj\changepawd.pas' {Frm_changepawd},
  dl in 'gzgl\dl.pas' {Frm_dl},
  yhgl in 'byxj\yhgl.pas' {frm_yhgl},
  llygzzxx in 'byxj\llygzzxx.pas' {Frm_llygzbxx},
  rsqkqxfs in 'byxj\rsqkqxfs.pas' {frm_rsqkqxfs},
  rybb in 'byxj\rybb.pas' {frm_ygbb},
  ygzbxxxr in 'byxj\ygzbxxxr.pas' {frm_ygzbxxsr},
  zcxg in 'byxj\zcxg.pas' {Frm_zcxg},
  zwxg in 'byxj\zwxg.pas' {Frm_zwxg},
  ygzlcx in 'byxj\ygzlcx.pas' {frm_ygzlcx},
  pub in 'byxj\pub.pas',
  wait_cx in 'byxj\wait_cx.pas' {wiat_tsForm};

{$R *.res}

begin
  Application.Initialize;
  SplashForm:=Tsplashform.Create(application);
  splashform.Show;
  splashform.Update;

  while splashform.SplashTimer.Enabled do
  application.ProcessMessages;
  Application.Title:='企业人事管理系统';

  Application.CreateForm(Tdmain, dmain);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TFrm_dl, Frm_dl);
  SplashForm.Hide;
  Frm_dl.ShowModal;
  SplashForm.Free;
  Application.Run;
end.