hotel.~dpr

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· ~DPR 代码 · 共 38 行

~DPR
38
字号
program hotel;

uses
  Forms,
  login in 'login.pas' {loginFrm},
  UserM in 'UserM.pas' {UserMFrm},
  ManageM in 'ManageM.pas' {ManageMFrm},
  About in 'About.pas' {AboutFrm},
  RoomAdd in 'RoomAdd.pas' {RoomAddFrm},
  RoomModify in 'RoomModify.pas' {RoomModifyFrm},
  Operator in 'Operator.pas' {OperatorFrm},
  Report in 'Report.pas' {ReportFrm},
  DB_Frm in 'DB_Frm.pas' {DBFrm},
  Restaurant in 'Restaurant.pas' {RestFrm},
  RoomYud in 'RoomYud.pas' {RoomYudFrm},
  RoomRuzhu in 'RoomRuzhu.pas' {RoomRuFrm},
  tuifang in 'tuifang.pas' {tuifangFrm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TloginFrm, loginFrm);
  Application.CreateForm(TDBFrm, DBFrm);
  Application.CreateForm(TUserMFrm, UserMFrm);
  Application.CreateForm(TManageMFrm, ManageMFrm);
  Application.CreateForm(TAboutFrm, AboutFrm);
  Application.CreateForm(TRoomAddFrm, RoomAddFrm);
  Application.CreateForm(TRoomModifyFrm, RoomModifyFrm);
  Application.CreateForm(TOperatorFrm, OperatorFrm);
  Application.CreateForm(TReportFrm, ReportFrm);
  Application.CreateForm(TRestFrm, RestFrm);
  Application.CreateForm(TRoomYudFrm, RoomYudFrm);
  Application.CreateForm(TRoomRuFrm, RoomRuFrm);
  Application.CreateForm(TtuifangFrm, tuifangFrm);
  Application.Run;
end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?