project1.~dpr

来自「此为 汽车维修管理系统 采用ODBC驱动 控制面板里设置 数据库名:qcw」· ~DPR 代码 · 共 42 行

program Project1;

uses
  Forms,
  login_pass in '..\login\login_pass.pas' {pass},
  Unit1 in '..\pas\Unit1.pas' {main},
  mainboot in '..\mainboot\mainboot.pas' {list},
  Unit3 in '..\bus\Unit3.pas' {qcdj},
  Unit5 in '..\worker\Unit5.pas' {worker},
  Unit6 in '..\repair\Unit6.pas' {qcxlzc},
  Unit7 in '..\storage\Unit7.pas' {ljkcgl},
  lj_report in '..\check_report\lj_report.pas' {xcfp},
  check in '..\check\check.pas' {check_out},
  report2 in '..\report2\report2.pas' {ljdh_report2},
  report3 in '..\report3\report3.pas' {salary_report3},
  salary_win in '..\salary_win\salary_win.pas' {sal_win},
  month_report1 in '..\report1\month_report1.pas' {report1},
  mon_part in '..\month_part_win\mon_part.pas' {mon_par_win},
  change_pasw in '..\change_pasw\change_pasw.pas' {change_psw},
  use_help in '..\help\use_help.pas' {help};

{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(Tpass, pass);
  Application.CreateForm(Tmain, main);
  Application.CreateForm(Tlist, list);
  Application.CreateForm(Tqcdj, qcdj);
  Application.CreateForm(Tworker, worker);
  Application.CreateForm(Tqcxlzc, qcxlzc);
  Application.CreateForm(Tljkcgl, ljkcgl);
  Application.CreateForm(Txcfp, xcfp);
  Application.CreateForm(Tcheck_out, check_out);
  Application.CreateForm(Tljdh_report2, ljdh_report2);
  Application.CreateForm(Tsalary_report3, salary_report3);
  Application.CreateForm(Tsal_win, sal_win);
  Application.CreateForm(Treport1, report1);
  Application.CreateForm(Tmon_par_win, mon_par_win);
  Application.CreateForm(Tchange_psw, change_psw);
  Application.Run;
end.