ydmis.dpr

一个用vb mysql实现的人事管理信息系统希望对大家有用。

program ydmis;

uses
  windows,
  Forms,
  main in 'main.pas' {Frm_main},
  dl in 'dl.pas' {Frm_dl},
  yhgl in 'yhgl.pas' {frm_yhgl},
  changepawd in 'changepawd.pas' {Frm_changepawd},
  adduser in 'adduser.pas' {Frm_adduser},
  zcxg in 'zcxg.pas' {Frm_zcxg},
  ygzbxxxr in 'ygzbxxxr.pas' {frm_ygzbxxsr},
  start in 'start.pas' {frm_start},
  gzzmxg in 'gzzmxg.pas' {Frm_gzzmwh},
  zwxg in 'zwxg.pas' {Frm_zwxg},
  ygzbxxwh in 'ygzbxxwh.pas' {frm_ygzbxxwh},
  llygzzxx in 'llygzzxx.pas' {Frm_llygzbxx},
  ygzlcx in 'ygzlcx.pas' {frm_ygzlcx},
  pub in 'pub.pas',
  cp in 'cp.pas' {frm_cp},
  yggzjgtz in 'yggzjgtz.pas' {frm_yggzjgtz},
  gzdx in 'gzdx.pas' {frm_gzdx},
  rsqkqxfs in 'rsqkqxfs.pas' {frm_rsqkqxfs},
  bmxg in 'bmxg.pas' {Frm_bmxg},
  about in 'about.pas' {frm_about},
  rybb in 'rybb.pas' {frm_ygbb},
  dm in 'dm.pas' {dmain: TDataModule};

{$R *.RES}

begin
  Application.Initialize;
  frm_start:=tfrm_start.Create(application);
  frm_start.show;
  frm_start.update;
  Application.Title:='人事工资管理系统';
  Application.CreateForm(TFrm_main, Frm_main);
  Application.CreateForm(Tdmain, dmain);
  sleep(3000);
  frm_start.Hide;
  frm_start.free;
  Application.CreateForm(TFrm_dl, Frm_dl);
  Application.Run;
end.