transport1.dpr

信息管理系统

program TRANSPORT1;

uses
  Forms,
  windows,
  loginfrmUnit3 in 'loginfrmUnit3.pas' {loginfrm},
  movefrmunit1 in 'movefrmunit1.pas' {movefrm},
  mainfrmUnit2 in 'mainfrmUnit2.pas' {mainfrm},
  dblinkfrmUnit4 in 'dblinkfrmUnit4.pas' {dblinkfrm},
  persondatamod_unit in 'persondatamod_unit.pas' {Person_datamod: TDataModule},
  paichein in 'paichein.pas' {paicheinfrm},
  paichein_unit in 'paichein_unit.pas',
  paicheon in 'paicheon.pas' {paicheonfrm},
  driverin in 'driverin.pas' {driverinfrm},
  driverdata_unit in 'driverdata_unit.pas',
  tongjifrm in 'tongjifrm.pas' {tjlcfrm},
  vehicledata_unit in 'vehicledata_unit.pas',
  vehicle in 'vehicle.pas' {vehiclefrm},
  accident in 'accident.pas' {accidentfrm},
  accident_info_unit in 'accident_info_unit.pas',
  repair in 'repair.pas' {repairfrm},
  repairinfo_unit in 'repairinfo_unit.pas',
  jinricx in 'jinricx.pas' {jinricxfrm},
  riqicx in 'riqicx.pas' {riqicxfrm},
  zwcl in 'zwcl.pas' {zwclfrm},
  backup in 'backup.pas' {backupfrm},
  useradd in 'useradd.pas' {useraddfrm},
  userhold in 'userhold.pas' {userholdfrm},
  usertable_unit in 'usertable_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(TPerson_datamod, Person_datamod);
  Application.CreateForm(Tpaicheinfrm, paicheinfrm);
  Application.CreateForm(Tpaicheonfrm, paicheonfrm);
  Application.CreateForm(Tdriverinfrm, driverinfrm);
  Application.CreateForm(Ttjlcfrm, tjlcfrm);
  Application.CreateForm(Tvehiclefrm, vehiclefrm);
  Application.CreateForm(Taccidentfrm, accidentfrm);
  Application.CreateForm(Trepairfrm, repairfrm);
  Application.CreateForm(Tjinricxfrm, jinricxfrm);
  Application.CreateForm(Triqicxfrm, riqicxfrm);
  Application.CreateForm(Tzwclfrm, zwclfrm);
  Application.CreateForm(Tbackupfrm, backupfrm);
  Application.CreateForm(Tuseraddfrm, useraddfrm);
  Application.CreateForm(Tuserholdfrm, userholdfrm);
  movefrm.Hide;
  movefrm.Free ;
  Application.Run;
end.