【正文】 自動(dòng)創(chuàng)建的窗體列表中刪除，再添加如圖34所示的控件。選擇File|New|Other菜單命令，從Parent窗體中集成新窗體，并且將其Name屬性改為“Reservation”,Caption屬性改為“預(yù)訂管理”，并將其保存為“Reservation ”,將它從自動(dòng)創(chuàng)建的窗體列表中刪除，然后再對(duì)集成二來(lái)的窗體進(jìn)行修改，如圖35所示。圖37 【選擇預(yù)定】房間(2)窗體空間設(shè)置如表35所示，窗體中所有文本框都是DBEdit控件，其中【客房類型】標(biāo)簽下的文本框處理方法與客房信息設(shè)置窗體中的相同。圖42 酒店管理系統(tǒng)操作主界面結(jié) 論本論文主要論述了一個(gè)基于Delphi開(kāi)發(fā)環(huán)境下的酒店管理系統(tǒng)的分析與設(shè)計(jì)過(guò)程。涉及到模塊具體功能的設(shè)計(jì)，系統(tǒng)界面的設(shè)計(jì)以及程序的設(shè)計(jì)。設(shè)計(jì)完成的酒店管理系統(tǒng)實(shí)現(xiàn)的是比較基本的功能，所以在此基礎(chǔ)上還有很大的擴(kuò)展空間，由于現(xiàn)在的酒店?duì)I業(yè)對(duì)客房?jī)r(jià)格的調(diào)整頻率較為頻繁，所以該系統(tǒng)稍后還可以在客房?jī)r(jià)格管理模塊上進(jìn)行增加和完善。 。在畢業(yè)設(shè)計(jì)的完成過(guò)程中，同組的xx同學(xué)對(duì)我?guī)椭艽?。本次的酒店管理系統(tǒng)在功能上主要實(shí)現(xiàn)了客房基礎(chǔ)設(shè)置、客房信息設(shè)置、房態(tài)管理、預(yù)定管理等功能，其中客房基礎(chǔ)設(shè)置和信息設(shè)置集中到一個(gè)模塊中，房態(tài)管理和預(yù)定管理集成在一個(gè)模塊中，管理員通過(guò)客房類型設(shè)置與客房信息設(shè)置功能來(lái)設(shè)置本酒店客房的分類信息，內(nèi)容包括房類名稱、房?jī)r(jià)、房間號(hào)、房類編號(hào)、樓層、額定人數(shù)和可超預(yù)訂數(shù)等。(2)利用Delphi進(jìn)行數(shù)據(jù)庫(kù)編程在需求分析的基礎(chǔ)上，進(jìn)行系統(tǒng)的整體設(shè)計(jì)，包括業(yè)務(wù)流程圖的設(shè)計(jì)﹑總體結(jié)構(gòu)的設(shè)計(jì)﹑數(shù)據(jù)庫(kù)的設(shè)計(jì)﹑模塊的劃分等內(nèi)容。第四章 系統(tǒng)的使用說(shuō)明 系統(tǒng)服務(wù)器的架設(shè)安裝好SOL Server 2000服務(wù)器后，選擇【開(kāi)始】【程序】菜單中的SOL Server 2000,選擇【企業(yè)管理器】，進(jìn)入企業(yè)管理器后載入附加數(shù)據(jù)庫(kù)文件，如圖41所示。在該窗體中，單擊【新增】按鈕，則在下面的面板【預(yù)訂單號(hào)】標(biāo)簽下面的文本框中會(huì)自動(dòng)生成新的10位預(yù)訂單號(hào)，單擊【抵店時(shí)間】標(biāo)簽下面的下拉列表框下拉按鈕，則會(huì)彈出日歷供用戶選擇相應(yīng)的日期，如圖36所示。(2)該窗體的屬性控件設(shè)置如表34所示。39。//表示這是新增操作調(diào)用的保存按鈕end。//修改客房信息procedure (Sender: TObject)。insert39。end。 end。 end。一層最多只能有16間房39。本層最大房間號(hào)39。39。39。 。)。 if =39。必須輸入客房的類型編號(hào)39。insert39。).AsString。)。++39。 (39。//根據(jù)選擇的樓層名稱反查并修改樓層編號(hào)procedure (Sender: TObject)。 :=(39。39。39。 。 end。 while not do begin ((39。select distinct 樓層名稱 from 樓層信息39。 end。 while not do begin ((39。select distinct 類型名稱 from 客房類型39。begin inherited。樓層名稱39。39。39。 。 :=(39。39。39。 //根據(jù)客房的類型編號(hào)顯示客房類型名稱 。var RoomInfo: TRoomInfo。 procedure ToolButton7Click(Sender: TObject)。 procedure ComboBox1Select(Sender: TObject)。 Label14: TLabel。 Label13: TLabel。 Label10: TLabel。 Label6: TLabel。 DBEdit5: TDBEdit。type TRoomInfo = class(TParent) DBEdit1: TDBEdit。(2)客房信息設(shè)置船體的控件屬性設(shè)置如表33所示，需要說(shuō)明的是，【類型編號(hào)】標(biāo)簽下面有兩個(gè)控件，一個(gè)是文本框?yàn)镈BEdit,另外一個(gè)下拉列表框?yàn)镃ombobox，文本框的Visible屬性被設(shè)置為false，這表示它是不可見(jiàn)的。end. 完成客房信息設(shè)置功能(1)選擇File|New|Other菜單命令，從Parent窗體中集成一個(gè)新窗體，講窗體的Name屬性設(shè)置為“RoomInfo”,Caption屬性設(shè)置為“客房信息設(shè)置”，并將其保存為“”,同時(shí)將新建的窗體從自動(dòng)創(chuàng)建列表中刪除，然后再修改窗體如圖33所示。).AsInteger。)。 //為新增的客房類型生成新的編號(hào) 。var RoomType: TRoomType。 Image3: TImage。 Label8: TLabel。 DBEdit2: TDBEdit。表中僅列出派生窗體中需要修改的空間屬性和新添加的控件的屬性。選擇【基礎(chǔ)設(shè)置】|【客房類型設(shè)置】菜單命令，可以進(jìn)入【客房類型設(shè)置】功能窗體，在其中可以管理客房類型。選擇Project|Options… 菜單命令，講RoomType窗體從自動(dòng)創(chuàng)建的窗體列表中刪除，然后再向窗體中添加新的控件并修改原有控件的屬性，如圖32所示。begin close。 :=39。varnewform:TRoomStatus。 :=39。varnewform:TReservation。 :=39。varnewform:TRoomInfo。 :=39。varnewform:TRoomType。//退出程序procedure (Sender: TObject)。)=false then newform:=(application)。//顯示【房態(tài)管理】窗體procedure (Sender: TObject)。)=false then newform:=(application)。//顯示【收銀退房】窗體procedure (Sender: TObject)。)=false then newform:=(application)。//顯示【消費(fèi)記帳】窗體procedure (Sender: TObject)。)=false then newform:=(application)。//顯示【入住管理】窗體procedure (Sender: TObject)。)=false then newform:=(application)。//顯示【預(yù)定管理】窗體procedure (Sender: TObject)。)=false then newform:=(application)。//顯示【客房信息設(shè)置】窗體procedure (Sender: TObject)。)=false then newform:=(application)。//顯示【客房類型設(shè)置】窗體procedure (Sender: TObject)。 result:=true。begin for i:=0 to do begin // 通過(guò)對(duì)窗體標(biāo)題判斷窗體是否存在 if [i].Caption=caption then begin //如果窗體已存在，則恢復(fù)窗體，并返回true SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_RESTORE, 0)。var Main: TMain。//儲(chǔ)存選擇的空房間號(hào) YDNum:string。 procedure BitBtn3Click(Sender: TObject)。 procedure N9Click(Sender: TObject)。 procedure N5Click(Sender: TObject)。 N7: TMenuItem。 BitBtn3: TBitBtn。 Image1: TImage。 N2: TMenuItem。表31 主窗體屬性設(shè)置控件類型對(duì)象(控件)名屬性取值(說(shuō)明)TformMainNameMainCaption酒店管理系統(tǒng)FormStylefsMDIFormPositionpoDesktopCenterHeight620Width760(3)MDI主窗體的設(shè)計(jì)主要是為了根據(jù)用戶的選擇調(diào)用不同的子窗體，該窗體代碼如下：unit MainForm。 創(chuàng)建工程 啟動(dòng)Delphi，利用默認(rèn)的設(shè)置新建一個(gè)工程，并將其保存為“”。由于程序的結(jié)構(gòu)師MDI多文檔窗體程序，單擊主窗體上的各相應(yīng)菜單選項(xiàng)即可調(diào)用各個(gè)功能子窗體?？头款愋捅砭唧w見(jiàn)表24所示。表21 客房信息表字段名稱字段類型主鍵外鍵是否為空客房編號(hào)varchar(12)是否類型編號(hào)varchar(4)是否樓層編號(hào)int(4)是否床數(shù)int(4)是客房描述varchar(40)是狀態(tài)varchar(4)是備注varchar(100)是額定人數(shù)int(4)是是否可拼房bit(1)是(2) 預(yù)訂單數(shù)據(jù)表預(yù)訂單數(shù)據(jù)表主要在管理散客預(yù)定房間時(shí)使用，其中包括有預(yù)訂單號(hào)、客房類型、抵店時(shí)間、離店時(shí)間、客房編號(hào)、客房?jī)r(jià)格、預(yù)收款、預(yù)訂人、聯(lián)系電話和操作員?？头款愋涂头啃畔菍有畔㈩愋途幪?hào)PK客房編號(hào)PK類型名稱價(jià)格可超預(yù)訂數(shù)樓層編號(hào)PK類型編號(hào)樓層編號(hào)床數(shù)客房描述備注FK1FK2樓層名稱入住單入住單號(hào)PK賬單明細(xì)預(yù)訂單PK預(yù)訂單號(hào)FK1FK2客房類型抵店時(shí)間離店時(shí)間客房編號(hào)客房?jī)r(jià)格預(yù)收款預(yù)訂人聯(lián)系電話操作員應(yīng)收賬款是否結(jié)賬結(jié)賬金額結(jié)賬日期賬單編號(hào)PK客房類型抵店時(shí)間離店時(shí)間客房編號(hào)客房?jī)r(jià)格預(yù)收款預(yù)訂人聯(lián)系電話操作員FK 1FK1入住單號(hào)消費(fèi)內(nèi)容消費(fèi)金額消費(fèi)時(shí)間備注