prohotel.~dpr

来自「自己做过的工程」· ~DPR 代码 · 共 128 行

program ProHotel;


uses
  Forms,
  Main in 'Main.pas' {formMain},
  unitsupmanage in 'unitsupmanage.pas' {formsupmanage},
  unitexitsys in 'unitexitsys.pas' {formexitsys},
  unitDMHotel in 'unitDMHotel.pas' {DMHotel: TDataModule},
  unitsysuser in 'unitsysuser.pas' {formsysuser},
  unitsysuser_data in 'unitsysuser_data.pas' {formsysuser_data},
  unitsetprice in 'unitsetprice.pas' {formsetprice},
  unitDBMessage in 'unitDBMessage.pas' {formDBMessage},
  unitsetroomprice_data in 'unitsetroomprice_data.pas' {formsetroomprice_data},
  unitsetsupprice_data in 'unitsetsupprice_data.pas' {formsetsupprice_data},
  unitdictionary in 'unitdictionary.pas' {formdictionary},
  unitsetsuptype_data in 'unitsetsuptype_data.pas' {formsetsuptype_data},
  unitsyslog in 'unitsyslog.pas' {formsyslog},
  unitsroombook in 'unitsroombook.pas' {formsroombook},
  unitsroombook_data in 'unitsroombook_data.pas' {formsroombook_data},
  unitlogging in 'unitlogging.pas' {formlogging},
  unitsupdetails in 'unitsupdetails.pas' {formsupdetails},
  unitsupconsumedetail_data in 'unitsupconsumedetail_data.pas' {formsupconsumedetail_data},
  unitsroomstop in 'unitsroomstop.pas' {formsroomstop},
  unitsroomopen in 'unitsroomopen.pas' {formsroomopen},
  unitsupdetail_data in 'unitsupdetail_data.pas' {formsupdetail_data},
  unitmodifypassword in 'unitmodifypassword.pas' {formmodifypassword},
  unitsoftinformation in 'unitsoftinformation.pas' {formsoftinformation},
  unitsroomHquery in 'unitsroomHquery.pas' {formsroomHquery},
  unitroomHquery in 'unitroomHquery.pas' {formroomHquery},
  unitsroomquery in 'unitsroomquery.pas' {formsroomquery},
  unitroomquery in 'unitroomquery.pas' {formroomquery},
  unitsroombookquery in 'unitsroombookquery.pas' {formsroombookquery},
  unitroombookquery in 'unitroombookquery.pas' {formroombookquery},
  unitsupcheck in 'unitsupcheck.pas' {formsupcheck},
  unitroom in 'unitroom.pas' {formroom},
  unitroombook in 'unitroombook.pas' {fromroomkook},
  unitinroom in 'unitinroom.pas' {forminroom},
  unitroomcheck in 'unitroomcheck.pas' {formroomcheck},
  unitquery in 'unitquery.pas' {formquery},
  unitforbid in 'unitforbid.pas' {formforbid},
  unitroomrep in 'unitroomrep.pas' {formroomrep},
  unitroomdebtrep in 'unitroomdebtrep.pas' {fromroomdebtrep},
  Unitcustomerdebt in 'Unitcustomerdebt.pas' {formcustomerdebtrep},
  unitfinancemanage in 'unitfinancemanage.pas' {formfinancemanage},
  unitsuproomstatusquery in 'unitsuproomstatusquery.pas' {formsuproomstatusquery},
  unitsupcheckCquery in 'unitsupcheckCquery.pas' {formsupcheckCquery},
  unitsupcheckSquery in 'unitsupcheckSquery.pas' {formsupcheckSquery},
  unitFsupcheckCquery in 'unitFsupcheckCquery.pas' {formFsupcheckCquery},
  unitFsupcheckSquery in 'unitFsupcheckSquery.pas' {formFsupcheckSquery},
  unitroomfeerequery in 'unitroomfeerequery.pas' {formroomfeerequery},
  unitcustomermanagerquery in 'unitcustomermanagerquery.pas' {Formcustomermanagerquery},
  unitdebtroomrequery in 'unitdebtroomrequery.pas' {formdebtroomrequery},
  unitmanagerroomquery in 'unitmanagerroomquery.pas' {formmanagerroomquery},
  unitcustomer in 'unitcustomer.pas' {formcustomerrequery},
  unitroomstatusrequery in 'unitroomstatusrequery.pas' {formroomstatusrequery},
  unitfinacebaobiao in 'unitfinacebaobiao.pas' {formfinacebaobiao},
  unitQRyearrep in 'unitQRyearrep.pas' {formQRyearrep},
  unitQRdayrep in 'unitQRdayrep.pas' {formQRdayrep},
  unitQRmonthrep in 'unitQRmonthrep.pas' {formQRmonthrep},
  unitchangeroom in 'unitchangeroom.pas' {formchangeroom},
  unitQRdayMXrep in 'unitQRdayMXrep.pas' {formQRdayMXrep};

{$R *.RES}

begin
  Application.Initialize;
  Application.HelpFile := 'D:\help\HELP.HLP';
  Application.Title := '';
  Application.CreateForm(TDMHotel, DMHotel);
  Application.CreateForm(Tformlogging, formlogging);
  Application.CreateForm(Tformfinacebaobiao, formfinacebaobiao);
  Application.CreateForm(TformQRyearrep, formQRyearrep);
  Application.CreateForm(Tformsuproomstatusquery, formsuproomstatusquery);
  Application.CreateForm(TformFsupcheckCquery, formFsupcheckCquery);
  Application.CreateForm(TformsupcheckCquery, formsupcheckCquery);
  Application.CreateForm(TformsupcheckSquery, formsupcheckSquery);
  Application.CreateForm(TformMain, formMain);
  Application.CreateForm(Tformsupmanage, formsupmanage);
  Application.CreateForm(Tformsroombookquery, formsroombookquery);
  Application.CreateForm(TformsroomHquery, formsroomHquery);
  Application.CreateForm(Tformsroomquery, formsroomquery);
  Application.CreateForm(Tformsupdetails, formsupdetails);
  Application.CreateForm(Tformsupdetail_data, formsupdetail_data);
  Application.CreateForm(Tformsupconsumedetail_data, formsupconsumedetail_data);
  Application.CreateForm(Tformsroombook, formsroombook);
  Application.CreateForm(Tformsroombook_data, formsroombook_data);
  Application.CreateForm(Tformsetprice, formsetprice);
  Application.CreateForm(Tformsetroomprice_data, formsetroomprice_data);
  Application.CreateForm(Tformsetsupprice_data, formsetsupprice_data);
  Application.CreateForm(Tformsroomopen, formsroomopen);
  Application.CreateForm(Tformsroomstop, formsroomstop);
  Application.CreateForm(Tformdictionary, formdictionary);
  Application.CreateForm(Tformsetsuptype_data, formsetsuptype_data);
  Application.CreateForm(Tformsyslog, formsyslog);
  Application.CreateForm(Tformsysuser, formsysuser);
  Application.CreateForm(Tformsysuser_data, formsysuser_data);
  Application.CreateForm(Tformexitsys, formexitsys);
  Application.CreateForm(Tformmodifypassword, formmodifypassword);
  Application.CreateForm(Tformsoftinformation, formsoftinformation);
  Application.CreateForm(Tformroomquery, formroomquery);
  Application.CreateForm(Tformroombookquery, formroombookquery);
  Application.CreateForm(Tformsupcheck, formsupcheck);
  Application.CreateForm(Tformroom, formroom);
  Application.CreateForm(Tfromroomkook, fromroomkook);
  Application.CreateForm(Tforminroom, forminroom);
  Application.CreateForm(Tformroomcheck, formroomcheck);
  Application.CreateForm(Tformquery, formquery);
  Application.CreateForm(Tformforbid, formforbid);
  Application.CreateForm(Tformroomrep, formroomrep);
  Application.CreateForm(Tfromroomdebtrep, fromroomdebtrep);
  Application.CreateForm(Tformcustomerdebtrep, formcustomerdebtrep);
  Application.CreateForm(TformroomHquery, formroomHquery);
  Application.CreateForm(Tformfinancemanage, formfinancemanage);
  Application.CreateForm(TformFsupcheckSquery, formFsupcheckSquery);
  Application.CreateForm(Tformroomfeerequery, formroomfeerequery);
  Application.CreateForm(TFormcustomermanagerquery, Formcustomermanagerquery);
  Application.CreateForm(Tformdebtroomrequery, formdebtroomrequery);
  Application.CreateForm(Tformmanagerroomquery, formmanagerroomquery);
  Application.CreateForm(Tformcustomerrequery, formcustomerrequery);
  Application.CreateForm(Tformroomstatusrequery, formroomstatusrequery);
  Application.CreateForm(TformQRdayrep, formQRdayrep);
  Application.CreateForm(TformQRmonthrep, formQRmonthrep);
  Application.CreateForm(Tformchangeroom, formchangeroom);
  Application.CreateForm(TformQRdayMXrep, formQRdayMXrep);
  Application.Run;
end.