enterprise.dpr.~2~

DELPHI+SQL数据库 源代码完全可用

program ENTERPRISE;

uses
  windows,
  Forms,
  movefrmunit1 in 'movefrmunit1.pas' {movefrm},
  mainfrmUnit2 in 'mainfrmUnit2.pas' {mainfrm},
  loginfrmUnit3 in 'loginfrmUnit3.pas' {loginfrm},
  dblinkfrmUnit4 in 'dblinkfrmUnit4.pas' {dblinkfrm},
  baseinputUnit1 in 'baseinputUnit1.pas' {baseinputfrm},
  baseholdUnit1 in 'baseholdUnit1.pas' {baseholdfrm},
  basefindUnit1 in 'basefindUnit1.pas' {basefindfrm},
  checkinput in 'checkinput.pas' {checkinputfrm},
  checkhold in 'checkhold.pas' {checkfindfrm},
  rewardpunfrm in 'rewardpunfrm.pas' {rewardfrm},
  rewardfind in 'rewardfind.pas' {rewardfindfrm},
  workageinput in 'workageinput.pas' {workagefrm},
  workagefind in 'workagefind.pas' {workagefindfrm},
  protitle in 'protitle.pas' {pro_titlefrm},
  pro_titlefind in 'pro_titlefind.pas' {pro_titlefindfrm},
  about in 'about.pas' {aboutfrm},
  useradd in 'useradd.pas' {useraddfrm},
  userhold in 'userhold.pas' {userholdfrm},
  wageinput in 'wageinput.pas' {wageinputfrm},
  wagefind in 'wagefind.pas' {wagefindfrm},
  forrep in 'forrep.pas' {forrepfrm},
  backup in 'backup.pas' {backupfrm},
  usertable_unit in 'usertable_unit.pas',
  persondatamod_unit in 'persondatamod_unit.pas' {Person_datamod: TDataModule},
  basedata_unit in 'basedata_unit.pas',
  checkinfo_unit in 'checkinfo_unit.pas',
  rewardpun_unit in 'rewardpun_unit.pas',
  workage_unit in 'workage_unit.pas',
  protitle_unit in 'protitle_unit.pas',
  wageinfo_unit in 'wageinfo_unit.pas';

{$R *.res}

begin
  Application.Initialize;
  movefrm:=tmovefrm.Create(application);
  movefrm.Show;
  movefrm.Update ;
  sleep(2000);  //调用windows函数所以要在uses里加windows
  Application.CreateForm(Tloginfrm, loginfrm);
  Application.CreateForm(Tmainfrm, mainfrm);
  Application.CreateForm(Tdblinkfrm, dblinkfrm);
  Application.CreateForm(Tbaseinputfrm, baseinputfrm);
  Application.CreateForm(Tbaseholdfrm, baseholdfrm);
  Application.CreateForm(Tbasefindfrm, basefindfrm);
  Application.CreateForm(Tcheckinputfrm, checkinputfrm);
  Application.CreateForm(Tcheckfindfrm, checkfindfrm);
  Application.CreateForm(Trewardfrm, rewardfrm);
  Application.CreateForm(Trewardfindfrm, rewardfindfrm);
  Application.CreateForm(Tworkagefrm, workagefrm);
  Application.CreateForm(Tworkagefindfrm, workagefindfrm);
  Application.CreateForm(Tpro_titlefrm, pro_titlefrm);
  Application.CreateForm(Tpro_titlefindfrm, pro_titlefindfrm);
  Application.CreateForm(Taboutfrm, aboutfrm);
  Application.CreateForm(Tuseraddfrm, useraddfrm);
  Application.CreateForm(Tuserholdfrm, userholdfrm);
  Application.CreateForm(Twageinputfrm, wageinputfrm);
  Application.CreateForm(Twagefindfrm, wagefindfrm);
  Application.CreateForm(Twagerepfrm, wagerepfrm);
  Application.CreateForm(Tforrepfrm, forrepfrm);
  Application.CreateForm(Tbackupfrm, backupfrm);
  Application.CreateForm(TPerson_datamod, Person_datamod);
  movefrm.Hide;
  movefrm.Free ;
  Application.Run;
end.