hotel.~dpr

完成酒店管理系统

program Hotel;

uses
  Forms,
  Login in 'Login.pas' {LoginFrm},
  MainDinner in 'MainDinner.pas' {MainDinnerFrm},
  MainRoom in 'MainRoom.pas' {MainRoomFrm},
  MainSail in 'MainSail.pas' {MainSailFrm},
  Admin in 'Admin.pas' {AdminFrm},
  UserReg in 'UserReg.pas' {UserRegFrm},
  PassWd in 'PassWd.pas' {PassWdFrm},
  SaleInput in 'SaleInput.pas' {SaleInputFrm},
  DinnerInput in 'DinnerInput.pas' {DinnerInputFrm},
  RoomInput in 'RoomInput.pas' {RoomInputFrm},
  TaxSet in 'TaxSet.pas' {TaxSetFrm},
  DiscountSet in 'DiscountSet.pas' {DiscountSetFrm},
  Salequery in 'Salequery.pas' {SaleQueryFrm},
  DinnerQuery in 'DinnerQuery.pas' {DinnerQueryFrm},
  RoomQuery in 'RoomQuery.pas' {RoomQueryFrm},
  SaleChart in 'SaleChart.pas' {SaleChartFrm},
  RoomChart in 'RoomChart.pas' {RoomChartFrm},
  DinnerChart in 'DinnerChart.pas' {DinnerChartFrm},
  DinnerUser in 'DinnerUser.pas' {DinnerUserFrm},
  DinnerUserModify in 'DinnerUserModify.pas' {DinnerUserModifyFrm},
  DinnerUserDel in 'DinnerUserDel.pas' {DinnerUserDelFrm},
  DinnerMenu in 'DinnerMenu.pas' {DinnerMenuFrm},
  DinnerMenuModify in 'DinnerMenuModify.pas' {DinnerMenuModifyFrm},
  DinnerMenuDel in 'DinnerMenuDel.pas' {DinnerMenuDelFrm},
  DinnerOrder in 'DinnerOrder.pas' {DinnerOrderFrm},
  DinnerOrderModify in 'DinnerOrderModify.pas' {DinnerOrderModifyFrm},
  DinnerOrderDel in 'DinnerOrderDel.pas' {DinnerOrderDelFrm},
  DinnerUserSql in 'DinnerUserSql.pas' {DinnerUserSqlFrm},
  DinnerMenuSql in 'DinnerMenuSql.pas' {DinnerMenuSqlFrm},
  DinnerOrderSql in 'DinnerOrderSql.pas' {DinnerOrderSqlFrm},
  GuestSql in 'GuestSql.pas' {GuestSqlFrm},
  RoomState in 'RoomState.pas' {RoomStateFrm},
  GroupPay in 'GroupPay.pas' {GroupPayFrm},
  TouristPay in 'TouristPay.pas' {TouristPayFrm},
  HistorySql in 'HistorySql.pas' {HistorySqlFrm},
  tourist in 'tourist.pas' {TouristFrm},
  TouristNew in 'TouristNew.pas' {TouristNewFrm},
  ChangeNum in 'ChangeNum.pas' {ChangeNumFrm},
  RoomModify in 'RoomModify.pas' {RoomModifyFrm},
  ChangeName in 'ChangeName.pas' {ChangeNameFrm},
  RoomEdit in 'RoomEdit.pas' {RoomEditFrm},
  Group in 'Group.pas' {GroupFrm},
  UserDel in 'UserDel.pas' {UserDelFrm},
  UserModify in 'UserModify.pas' {UserModifyFrm},
  MainCheck in 'MainCheck.pas' {MainCheckFrm},
  DinnerCheck in 'DinnerCheck.pas' {DinnerCheckFrm},
  TodayDis in 'TodayDis.pas' {TodayDisFrm},
  RoomCheck in 'RoomCheck.pas' {RoomCheckFrm},
  GroupCheck in 'GroupCheck.pas' {GroupCheckFrm},
  TouristSql in 'TouristSql.pas' {TouristSqlFrm},
  GroupSql in 'GroupSql.pas' {GroupSqlFrm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TLoginFrm, LoginFrm);
  Application.CreateForm(TMainDinnerFrm, MainDinnerFrm);
  Application.CreateForm(TMainRoomFrm, MainRoomFrm);
  Application.CreateForm(TMainSailFrm, MainSailFrm);
  Application.CreateForm(TAdminFrm, AdminFrm);
  Application.CreateForm(TUserRegFrm, UserRegFrm);
  Application.CreateForm(TPassWdFrm, PassWdFrm);
  Application.CreateForm(TSaleInputFrm, SaleInputFrm);
  Application.CreateForm(TDinnerInputFrm, DinnerInputFrm);
  Application.CreateForm(TRoomInputFrm, RoomInputFrm);
  Application.CreateForm(TTaxSetFrm, TaxSetFrm);
  Application.CreateForm(TDiscountSetFrm, DiscountSetFrm);
  Application.CreateForm(TSaleQueryFrm, SaleQueryFrm);
  Application.CreateForm(TDinnerQueryFrm, DinnerQueryFrm);
  Application.CreateForm(TRoomQueryFrm, RoomQueryFrm);
  Application.CreateForm(TSaleChartFrm, SaleChartFrm);
  Application.CreateForm(TRoomChartFrm, RoomChartFrm);
  Application.CreateForm(TDinnerChartFrm, DinnerChartFrm);
  Application.CreateForm(TDinnerUserFrm, DinnerUserFrm);
  Application.CreateForm(TDinnerUserModifyFrm, DinnerUserModifyFrm);
  Application.CreateForm(TDinnerUserDelFrm, DinnerUserDelFrm);
  Application.CreateForm(TDinnerMenuFrm, DinnerMenuFrm);
  Application.CreateForm(TDinnerMenuModifyFrm, DinnerMenuModifyFrm);
  Application.CreateForm(TDinnerMenuDelFrm, DinnerMenuDelFrm);
  Application.CreateForm(TDinnerOrderFrm, DinnerOrderFrm);
  Application.CreateForm(TDinnerOrderModifyFrm, DinnerOrderModifyFrm);
  Application.CreateForm(TDinnerOrderDelFrm, DinnerOrderDelFrm);
  Application.CreateForm(TDinnerUserSqlFrm, DinnerUserSqlFrm);
  Application.CreateForm(TDinnerMenuSqlFrm, DinnerMenuSqlFrm);
  Application.CreateForm(TDinnerOrderSqlFrm, DinnerOrderSqlFrm);
  Application.CreateForm(TGuestSqlFrm, GuestSqlFrm);
  Application.CreateForm(TRoomStateFrm, RoomStateFrm);
  Application.CreateForm(TGroupPayFrm, GroupPayFrm);
  Application.CreateForm(TTouristPayFrm, TouristPayFrm);
  Application.CreateForm(THistorySqlFrm, HistorySqlFrm);
  Application.CreateForm(TTouristFrm, TouristFrm);
  Application.CreateForm(TTouristNewFrm, TouristNewFrm);
  Application.CreateForm(TChangeNumFrm, ChangeNumFrm);
  Application.CreateForm(TRoomModifyFrm, RoomModifyFrm);
  Application.CreateForm(TChangeNameFrm, ChangeNameFrm);
  Application.CreateForm(TRoomEditFrm, RoomEditFrm);
  Application.CreateForm(TGroupFrm, GroupFrm);
  Application.CreateForm(TUserDelFrm, UserDelFrm);
  Application.CreateForm(TUserModifyFrm, UserModifyFrm);
  Application.CreateForm(TMainCheckFrm, MainCheckFrm);
  Application.CreateForm(TDinnerCheckFrm, DinnerCheckFrm);
  Application.CreateForm(TTodayDisFrm, TodayDisFrm);
  Application.CreateForm(TRoomCheckFrm, RoomCheckFrm);
  Application.CreateForm(TGroupCheckFrm, GroupCheckFrm);
  Application.CreateForm(TTouristSqlFrm, TouristSqlFrm);
  Application.CreateForm(TGroupSqlFrm, GroupSqlFrm);
  Application.Run;
end.