酒店管理系統(tǒng)的基礎(chǔ)設(shè)置預(yù)訂管理和房態(tài)管理畢業(yè)論文(編輯修改稿)
2025-07-20 20:58 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, jpeg, ExtCtrls, Buttons。type TMain = class(TForm) MainMenu1: TMainMenu。 N1: TMenuItem。 N2: TMenuItem。 N3: TMenuItem。 N4: TMenuItem。 N5: TMenuItem。 Image1: TImage。 Label1: TLabel。 BitBtn1: TBitBtn。 BitBtn2: TBitBtn。 BitBtn3: TBitBtn。 BitBtn4: TBitBtn。 BitBtn5: TBitBtn。 N6: TMenuItem。 N7: TMenuItem。 N8: TMenuItem。 procedure N2Click(Sender: TObject)。 procedure N3Click(Sender: TObject)。 procedure N5Click(Sender: TObject)。 procedure N6Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N8Click(Sender: TObject)。 procedure N9Click(Sender: TObject)。 procedure N10Click(Sender: TObject)。 procedure BitBtn1Click(Sender: TObject)。 procedure BitBtn2Click(Sender: TObject)。 procedure BitBtn3Click(Sender: TObject)。 procedure BitBtn4Click(Sender: TObject)。 procedure BitBtn5Click(Sender: TObject)。 private { Private declarations } public { Public declarations } RoomNum:integer。//儲(chǔ)存選擇的空房間號(hào) YDNum:string。//儲(chǔ)存選擇的預(yù)定單號(hào) RZNum:string。//儲(chǔ)存選擇的入住單號(hào) function FindForm(caption: string): bool。//判斷子窗體是否已經(jīng)存在 end。var Main: TMain。implementation{$R *.dfm}uses RoomTypeForm,RoomInfoForm,ReservationForm,DebtForm,RoomStatusForm,ResideForm,CheckOutForm。//通過用戶定義的函數(shù)，判斷窗體是否已存在function (caption: string): bool。vari:integer。begin for i:=0 to do begin // 通過對(duì)窗體標(biāo)題判斷窗體是否存在 if [i].Caption=caption then begin //如果窗體已存在，則恢復(fù)窗體，并返回true SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_RESTORE, 0)。 mdichildren[i].Enabled:=true。 mdichildren[i].Show。 mdichildren[i].SetFocus。 result:=true。 break。 end else //如窗體不存在，則返回false，程序?qū)?chuàng)建窗體 result:=false。 endend。//顯示【客房類型設(shè)置】窗體procedure (Sender: TObject)。varnewform:TRoomType。begin if FindForm(39?？头款愋驮O(shè)置39。)=false then newform:=(application)。 :=39?？头款愋驮O(shè)置39。end。//顯示【客房信息設(shè)置】窗體procedure (Sender: TObject)。varnewform:TRoomInfo。begin if FindForm(39。客房信息設(shè)置39。)=false then newform:=(application)。 :=39?？头啃畔⒃O(shè)置39。end。//顯示【預(yù)定管理】窗體procedure (Sender: TObject)。varnewform:TReservation。begin if FindForm(39。預(yù)定管理39。)=false then newform:=(application)。 :=39。預(yù)定管理39。end。//顯示【入住管理】窗體procedure (Sender: TObject)。varnewform:TReside。begin if FindForm(39。入住管理39。)=false then newform:=(application)。 :=39。入住管理39。end。//顯示【消費(fèi)記帳】窗體procedure (Sender: TObject)。varnewform:TDebt。begin if FindForm(39。消費(fèi)記帳39。)=false then newform:=(application)。 :=39。消費(fèi)記帳39。end。//顯示【收銀退房】窗體procedure (Sender: TObject)。varnewform:TCheckOut。begin if FindForm(39。收銀退房39。)=false then newform:=(application)。 :=39。收銀退房39。end。//顯示【房態(tài)管理】窗體procedure (Sender: TObject)。varnewform:TRoomStatus。begin if FindForm(39。房態(tài)管理39。)=false then newform:=(application)。 :=39。房態(tài)管理39。end。//退出程序procedure (Sender: TObject)。begin close。end。procedure (Sender: TObject)。varnewform:TRoomType。beginif FindForm(39?？头款愋驮O(shè)置39。)=false then newform:=(application)。 :=39。客房類型設(shè)置39。end。procedure (Sender: TObject)。varnewform:TRoomInfo。begin if FindForm(39?？头啃畔⒃O(shè)置39。)=false then newform:=(application)。 :=39?？头啃畔⒃O(shè)置39。end。procedure (Sender: TObject)。varnewform:TReservation。begin if FindForm(39。預(yù)定管理39。)=false then newform:=(application)。 :=39。預(yù)定管理39。end。procedure (Sender: TObject)。varnewform:TRoomStatus。begin if FindForm(39。房態(tài)管理39。)=false then newform:=(application)。 :=39。房態(tài)管理39。end。procedure (Sender: TObject)。begin close。end。end. 完成客房類型設(shè)置功能(1)選擇File|New|Other菜單命令，彈出New Items窗體，在hotel選項(xiàng)卡中選擇Parent項(xiàng)，單擊Ok按鈕，就可以派生一個(gè)新的子窗體。(2)講窗體的Name屬性設(shè)置為“RoomType”,Caption屬性設(shè)置為“客房類型管理”病保存為“”。選擇Project|Options… 菜單命令，講RoomType窗體從自動(dòng)創(chuàng)建的窗體列表中刪除，然后再向窗體中添加新的控件并修改原有控件的屬性，如圖32所示。圖32 【客房類型設(shè)置】窗體“客房類型設(shè)置”用于設(shè)置本酒店客房的分類信息，內(nèi)容包括房類名稱、房?jī)r(jià)、可預(yù)訂數(shù)等。 “房?jī)r(jià)設(shè)置”用于設(shè)置房?jī)r(jià)的折扣信息，內(nèi)容包括折扣名稱種類、折扣額度、房類編號(hào)、折后房?jī)r(jià)、折扣有效時(shí)間等?！跋到y(tǒng)參數(shù)設(shè)置”用于設(shè)置管理系統(tǒng)的各種參數(shù)值，例如酒店名稱，房態(tài)顯示模式等。選擇【基礎(chǔ)設(shè)置】|【客房類型設(shè)置】菜單命令，可以進(jìn)入【客房類型設(shè)置】功能窗體，在其中可以管理客房類型。這是一個(gè)非常簡(jiǎn)單的子窗體，通過單擊工具欄
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1