hc.~dpr

来自「该程序不能实现全程售票」· ~DPR 代码 · 共 38 行

program hc;

uses
  Forms,
  Login in 'Login.pas' {LoginFrm},
  Main in 'Main.pas' {MainFrm},
  AddUser in 'AddUser.pas' {AddUserFrm},
  DeleteUser in 'DeleteUser.pas' {DeleteUserFrm},
  ModifyPassword in 'ModifyPassword.pas' {ModifyPasswordFrm},
  DeleteTrain in 'DeleteTrain.pas' {DeleteTrainFrm},
  ModifyTrain in 'ModifyTrain.pas' {ModifyTrainFrm},
  QueryTrain in 'QueryTrain.pas' {QueryTrainFrm},
  QueryIdTrain in 'QueryIdTrain.pas' {QueryIdTrainFrm},
  reportt in 'reportt.pas' {ReportFrm},
  BuyTicket in 'BuyTicket.pas' {BuyTicketFrm},
  QueryPassenger in 'QueryPassenger.pas' {QueryPassengerFrm},
  help in 'help.pas' {helpFrm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TLoginFrm, LoginFrm);
  Application.CreateForm(TMainFrm, MainFrm);
  Application.CreateForm(TAddUserFrm, AddUserFrm);
  Application.CreateForm(TDeleteUserFrm, DeleteUserFrm);
  Application.CreateForm(TModifyPasswordFrm, ModifyPasswordFrm);
  Application.CreateForm(TDeleteTrainFrm, DeleteTrainFrm);
  Application.CreateForm(TModifyTrainFrm, ModifyTrainFrm);
  Application.CreateForm(TQueryTrainFrm, QueryTrainFrm);
  Application.CreateForm(TQueryIdTrainFrm, QueryIdTrainFrm);
  Application.CreateForm(TReportFrm, ReportFrm);
  Application.CreateForm(TBuyTicketFrm, BuyTicketFrm);
  Application.CreateForm(TQueryPassengerFrm, QueryPassengerFrm);
  Application.CreateForm(ThelpFrm, helpFrm);
  Application.Run;
end.