laborage.dpr

这个工资管理系统是我今年的毕业设计

program laborage;

uses
  Forms,
  windows,
  main in 'main.pas' {Form1},
  splash in 'splash.pas' {Form2},
  login in 'login.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  ry in 'ry.pas' {Form5},
  bm in 'bm.pas' {Form6},
  lb in 'lb.pas' {Form7},
  dy in 'dy.pas' {Form8},
  card in 'card.pas' {Form9},
  gzbd in 'gzbd.pas' {Form10},
  plcl in 'plcl.pas' {Form11},
  sjdr in 'sjdr.pas' {Form12},
  jsyggz in 'jsyggz.pas' {Form13},
  cleanago in 'cleanago.pas' {Form14},
  find in 'find.pas' {Form15},
  hfind in 'hfind.pas' {Form16},
  sjjs in 'sjjs.pas' {Form17},
  mend in 'mend.pas' {Form18},
  ygzlt in 'ygzlt.pas' {Form19},
  ygzlb in 'ygzlb.pas' {Form20},
  tjfx in 'tjfx.pas' {Form21},
  gztz in 'gztz.pas' {Form22},
  gzhz in 'gzhz.pas' {Form23},
  nzjj in 'nzjj.pas' {Form24},
  qxsz in 'qxsz.pas' {Form25},
  klgg in 'klgg.pas' {Form26},
  addsup in 'addsup.pas' {Form27},
  sjbf in 'sjbf.pas' {Form28},
  sjff in 'sjff.pas' {Form29},
  datalink in 'datalink.pas' {Form30},
  jbxishowall in 'jbxishowall.pas' {ygshowall},
  dbgirda in 'dbgirda.pas',
  bumenadd in 'bumenadd.pas' {Form31},
  bumenedit in 'bumenedit.pas' {Form32},
  shuil in 'shuil.pas' {Form33},
  leibadd in 'leibadd.pas' {Form34},
  leibedit in 'leibedit.pas' {Form35},
  cardset in 'cardset.pas' {Form36},
  cardadd in 'cardadd.pas' {Form37},
  cardedit in 'cardedit.pas' {edt},
  ygxxedit in 'ygxxedit.pas' {Form38},
  xxprive in 'xxprive.pas' {prive},
  dataload in 'dataload.pas' {Loading};

{$R *.res}
var
hmutex:hwnd;
ret:integer;
begin
  Application.Initialize;
  application.Title:='工资管理系统';
  hmutex:=createmutex(nil,false,'工资管理系统');
  ret:=getlasterror;
  if ret<>error_already_exists then
  begin
  form2:=tform2.Create(application);
  form2.Show ;
  form2.Update;
  while form2.Timer1.Enabled do
  application.ProcessMessages ;
  application.Title:='工资管理系统';
  form3:=tform3.Create(application);
  form3.ShowModal ;
  Application.CreateForm(TForm1, Form1);
  application.Run;
  end
  else
  application.MessageBox('对不起，该程序只能运行一次！','系统警告',mb_ok);
  releasemutex(hmutex);
end.