quan1.dpr

职工信息管理系统的源代码

program quan1;
uses
  Forms,
  windows,
  quan in 'quan.pas' {qu},
  zgb1 in 'zgb1.pas' {zgb},
  gzb1 in 'gzb1.pas' {gzb},
  adduser1 in 'adduser1.pas' {adduser},
  deluser1 in 'deluser1.pas' {deluser},
  changpass1 in 'changpass1.pas' {changpass},
  right1 in 'right1.pas' {right},
  beifen1 in 'beifen1.pas' {beifen},
  bmb1 in 'bmb1.pas' {bmb},
  start1 in 'start1.pas' {start},
  chang1 in 'chang1.pas' {chang},
  Unit1 in 'Unit1.pas' {report},
  Unit2 in 'Unit2.pas' {report1},
  about1 in 'about1.pas' {about},
  splash1 in 'splash1.pas' {splash},
  zc in 'zc.pas' {zc1},
  reg in 'reg.pas' {Form3},
  chaxun1 in 'chaxun1.pas' {zdy},
  chaxun2 in 'chaxun2.pas' {zcx},
  dy1 in 'dy1.pas' {dy},
  step1 in 'step1.pas' {step},
  hint1 in 'hint1.pas' {hint_form},
  hint2 in 'hint2.pas' {hint_zgb};

{$R *.res}
begin
createsemaphore(nil,1,1,'my');
if getlasterror()=ERROR_ALREADY_EXISTS then
exit;

  Application.Initialize;
  splash:=Tsplash.create(application);
  splash.Show;
  splash.Refresh;
  splash.label1.Caption:='正在装入信息...';
   splash.label1.Repaint;
  splash.Bar1.Position:=1;
  Application.Title := '职工工资管理系统';
  Application.CreateForm(Tqu, qu);
  splash.Bar1.Position:=2;
  Application.CreateForm(Tstep, step);
  splash.Bar1.Position:=3;
  splash.label1.Caption:='正在装入查询表...';
  splash.label1.Repaint;
  splash.Bar1.Position:=4;
  Application.CreateForm(Tzcx, zcx);
  Application.CreateForm(Tzdy, zdy);
  splash.label1.Caption:='正在装入职称表...';
  splash.label1.Repaint;
  splash.Bar1.Position:=5;
  Application.CreateForm(Tzc1, zc1);
  splash.label1.Caption:='正在准备注册...';
  splash.label1.Refresh;
 splash.Bar1.Position:=6;
  Application.CreateForm(TForm3, Form3);
  splash.label1.Caption:='正在装入职工表...';
  splash.label1.Refresh;
  splash.Bar1.Position:=7;
  Application.CreateForm(Tzgb, zgb);
  splash.label1.Caption:='正在装入工资表...';
  splash.label1.Refresh;
   splash.Bar1.Position:=8;
  Application.CreateForm(Tgzb, gzb);
  splash.label1.Caption:='正在准备用户表...';
  splash.label1.Refresh;
  splash.Bar1.Position:=9;
  Application.CreateForm(Tadduser, adduser);
  splash.Bar1.Position:=10;
  Application.CreateForm(Tdeluser, deluser);
  splash.label1.Caption:='正在准备密码表...';
  splash.label1.Refresh;
  splash.Bar1.Position:=11;
  Application.CreateForm(Tchangpass, changpass);
  splash.label1.Caption:='正在准备权限认证...';
  splash.label1.Refresh;
  splash.Bar1.Position:=12;
  Application.CreateForm(Tright, right);
  splash.label1.Caption:='正在设置备份路径...';
  splash.label1.Refresh;
  splash.Bar1.Position:=13;
  Application.CreateForm(Tbeifen, beifen);
  splash.label1.Caption:='正在装入部门表...';
  splash.label1.Refresh;
  splash.Bar1.Position:=14;
  Application.CreateForm(Tbmb, bmb);
  Application.CreateForm(Tstart, start);
  splash.label1.Caption:='正在装入Chang表...';
  splash.label1.Refresh;
  splash.Bar1.Position:=15;
  Application.CreateForm(Tchang, chang);
  splash.label1.Caption:='正在准备职工报表...';
  splash.label1.Refresh;
  splash.Bar1.Position:=16;
   Application.CreateForm(Tdy, dy);
   splash.Bar1.Position:=17;
  Application.CreateForm(Treport, report);
  splash.label1.Caption:='正在准备工资报表...';
  splash.label1.Refresh;
   splash.Bar1.Position:=18;
  Application.CreateForm(Treport1, report1);
  splash.Bar1.Position:=19;
  Application.CreateForm(Tabout, about);
  splash.label1.Caption:='正在设置自定义报表...';
  splash.label1.Refresh;
  splash.Bar1.Position:=20;
    Application.CreateForm(Thint_form, hint_form);
    splash.Bar1.Position:=21;
     Application.CreateForm(Thint_zgb, hint_zgb);
     splash.Bar1.Position:=22;
  splash.Hide;
  splash.Free;
  Application.CreateForm(Tsplash, splash);
  Application.Run;
  
end.