【文章內(nèi)容簡介】 注 等，具體見表 26所示。 表 26 賬單明細 表 字段名稱 字段類型 主鍵 外鍵 是否為空 賬單編號 Int(4) 是 否 入住單號 Varchar(36) 是 否 消費內(nèi)容 Varchar(40) 是 消費金額 Money(8) 是 消費時間 Smalldatet(4) 是 備注 Varchar(80) 是 第三章 系統(tǒng)的詳細設計 系統(tǒng)的詳細設計主要包括系 統(tǒng)模塊功能的設計，系統(tǒng)界面的設計以及界面上控件相關代碼的實現(xiàn)。 由于程序的結構師 MDI 多文檔窗體程序，單擊主窗體上的各相應菜單選項即可調(diào)用各個功能子窗體。 本次的酒店管理系統(tǒng)在功能上主要實現(xiàn)了客房基礎設置、客房信息設置、房態(tài)管理、預定管理等功能，其中客房基礎設置和信息設置集中到一個模塊中，房態(tài)管理和預定管理集成在一個模塊中，管理員通過客房類型設置與客房信息設置功能來設置本酒店客房的分類信息，內(nèi)容包括房類名稱、房價、房間號、房類編號、樓層、額定人數(shù)和可超預訂數(shù)等。 系統(tǒng)模塊的功能設計 總體設計中酒店管理系統(tǒng)主 要劃分為客房類型設置模塊、客房信息設置模塊、預訂管理模塊、房態(tài)管理模塊三個部分 。而在系統(tǒng)的詳細設計中，要求 對每個模塊的具體功能進行設計，為之后的界面設計及程序代碼實現(xiàn)提供依據(jù)。 創(chuàng)建工程 啟動 Delphi，利用默認的設置新建一個工程，并將其保存為“ ”。 單擊Project|Options?菜單命令，在 Application選項卡中修改工程的 Title屬性為“酒店管理系統(tǒng)”，并為項目選擇一個 .exe程序的圖標。 創(chuàng)建系統(tǒng)主窗體 (1)利用系統(tǒng)默認生成的窗體作 為主窗體，并為其添加主菜單控件和其他控件，布局 見 圖 31所示。 圖 31 酒店管理系統(tǒng)主窗體 (2)窗體及其控件的屬性設置如下表 31所示。 表 31 主窗體屬性設置 控件類型 對象 (控件 )名 屬性 取值 (說明 ) Tform Main Name Main Caption 酒店管理系統(tǒng) FormStyle fsMDIForm Position poDesktopCenter Height 620 Width 760 (3)MDI主窗體的設計主要是為了根據(jù)用戶的選擇調(diào)用不同的子窗體，該窗體代碼如下： unit MainForm。 interface uses 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。//儲存選擇的空房間號 YDNum:string。//儲存選擇的預定單號 RZNum:string。//儲存選擇的入住單號 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。 var i:integer。 begin for i:=0 to do begin // 通過對窗體標題判斷窗體是否存在 if [i].Caption=caption then begin //如果窗體已存在，則恢復窗體，并返回 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，程序將創(chuàng)建窗體 result:=false。 end end。 //顯示【客房類型設置】窗體 procedure (Sender: TObject)。 var newform:TRoomType。 begin if FindForm(39?？头款愋驮O置 39。)=false then newform:=(application)。 :=39。客房類型設置 39。 end。 //顯示【客房信息設置】窗體 procedure (Sender: TObject)。 var newform:TRoomInfo。 begin if FindForm(39。客房信息設置 39。)=false then newform:=(application)。 :=39。客房信息設置 39。 end。 //顯示【預定管理】窗體 procedure (Sender: TObject)。 var newform:TReservation。 begin if FindForm(39。預定管理 39。)=false then newform:=(application)。 :=39。預定管理 39。 end。 //顯示【入住管理】窗體 procedure (Sender: TObject)。 var newform:TReside。 begin if FindForm(39。入住管理 39。)=false then newform:=(application)。 :=39。入住管理 39。 end。 //顯示【消費記帳】窗體 procedure (Sender: TObject)。 var newform:TDebt。 begin if FindForm(39。消費記帳 39。)=false then newform:=(application)。 :=39。消費記帳 39。 end。 //顯示【收銀退房】窗體 procedure (Sender: TObject)。 var newform:TCheckOut。 begin if FindForm(39。收銀退房 39。)=false then newform:=(application)。 :=39。收銀退房 39。 end。 //顯示【房態(tài)管理】窗體 procedure (Sender: TObject)。 var newform: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)。 var newform:TRoomType。 begin if FindForm(39?？头款愋驮O置 39。)=false then newform:=(application)。 :=39?？头款愋驮O置 39。 end。 procedure (Sender: TObject)。 var newform:TRoomInfo。 begin if FindForm(39?？头啃畔⒃O置 39。)=false then newform:=(application)。 :=39?？头啃畔⒃O置 39。 end。 procedure (Sender: TObject)。 var newform:TReservation。 begin if FindForm(39。預定管理 39。)=false then newform:=(application)。 :=39。預定管理 39。 end。 procedure (Sender: TObject)。 var newform:TRoomStatus。 begin if FindForm(39。房態(tài)管理 39。)=false then newform:=(application)。 :=39。房態(tài)管理 39。 end。 procedure (Sender: TObject)。 begin close。 end。 end. 完成客房類型設置功能 (1)選擇 File|New|Other菜單命令，彈出 New Items窗體，在 hotel選項卡中選擇Parent項，單擊 Ok按鈕，就可以派生一個新的子窗體。 (2)講窗體的 Name屬性設置為“ RoomType” ,Caption屬性設置