【文章內(nèi)容簡介】 是 是否可拼房 bit(1) 是 (2) 預訂單數(shù)據(jù)表 預訂單數(shù)據(jù)表主要在管理散客預定房間時使用，其中包括有預訂單號、客房類型、抵店時間、離店時 間、客房編號、客房價格、預收款、預訂人、聯(lián)系電話和操作員 。 預訂單數(shù)據(jù)表見表 22所示 。 享有工作室 為您提供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 表 22 預訂單數(shù)據(jù)表 (3) 入住單數(shù)據(jù)表 入住單數(shù)據(jù)表主要在散客入住酒店時使用，并且其信息可以由預訂單轉(zhuǎn)入 ，其中包括有入住單號、預訂單號、抵店時間、離店時間、客房編號、客 房價格、預收款、預訂人、聯(lián)系電話、操作員 和 應收賬款 入住單數(shù)據(jù)表具體見 表 23所示。 字段名稱 字段類型 主鍵 外鍵 是否為空 預定單號 varchar(36) 是 否 客房類型 Varchar(4) 是 否 抵店時間 Smalldatetime 否 離店時間 Smalldatetime 是 客房編號 Varchar(12) 是 客房價格 Money(8) 是 預收款 Money(8) 是 預訂人 Varchar(20) 是 聯(lián)系電話 Varchar(40) 是 操作員 Varchar(10) 是 會員編號 Int(4) 是 單據(jù)狀態(tài) Varchar(20) 是 入住人數(shù) Int(4) 是 入住價格 Money(8) 是 折扣 Decimal(5) 是 折扣原因 Varchar(60) 是 享有工作室 為您提供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 表 23 入住單數(shù)據(jù)表 字段名稱 字段類型 主鍵 外鍵 是否為空 入住單號 Varchar(36) 是 否 預定單號 Varchar(36) 是 是 抵店時間 Smalldatetime 是 離店時間 Smalldatetime 是 客房編號 Varchar(12) 是 是 客房價格 Money(8) 是 預收款 Money(8) 是 預訂人 Varchar(20) 是 聯(lián)系電話 Varchar(40) 是 操作員 Varchar(10) 是 應收賬款 Money(8) 是 會員編號 Int(4) 是 客房類型 Varchar(4) 是 單據(jù)狀態(tài) Varchar(20) 是 入住人數(shù) Int(4) 是 入住價格 Money(8) 是 (4) 客房類型表 客房類型表主要 用于保存酒店所有客房的類型信息 包括類型編號、類型名稱、價格和可超預訂數(shù)。 客房類型表具體見表 24所示。 享有工作室 為您提供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 表 24 客房類型表 字段名稱 字 段類型 主鍵 外鍵 是否為空 類型編號 Varchar(4) 是 否 類型名稱 Varchar(40) 是 價格 Money(8) 是 可超預訂數(shù) Decimal(5) 是 拼房價格 Money(8) 是 是否可拼房 Bit(1) 是 (5) 樓層信息表 樓層信息表主要用于保存酒店的樓層編號及其名稱，具體見表 25所示。 表 25 樓層信息 表 字段名稱 字段類型 主鍵 外鍵 是否為空 樓層編號 Int(4) 是 否 樓層名稱 Varchar(60) 是 (6) 賬單明細 表 賬單明細表用于記錄客戶消費的明細賬單，包括賬單編號、入住單號、消費內(nèi)容、消費金額、消費時間、備注 等，具體見表 26所示。 表 26 賬單明細 表 字段名稱 字段類型 主鍵 外鍵 是否為空 賬單編號 Int(4) 是 否 入住單號 Varchar(36) 是 否 消費內(nèi)容 Varchar(40) 是 消費金額 Money(8) 是 消費時間 Smalldatet(4) 是 備注 Varchar(80) 是 享有工作室 為您提供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 第三章 系統(tǒng)的詳細設(shè)計 系統(tǒng)的詳細設(shè)計主要包括系 統(tǒng)模塊功能的設(shè)計，系統(tǒng)界面的設(shè)計以及界面上控件相關(guān)代碼的實現(xiàn)。 由于程序的結(jié)構(gòu)師 MDI 多文檔窗體程序，單擊主窗體上的各相應菜單選項即可調(diào)用各個功能子窗體。 本次的酒店管理系統(tǒng)在功能上主要實現(xiàn)了客房基礎(chǔ)設(shè)置、客房信息設(shè)置、房態(tài)管理、預定管理等功能，其中客房基礎(chǔ)設(shè)置和信息設(shè)置集中到一個模塊中，房態(tài)管理和預定管理集成在一個模塊中，管理員通過客房類型設(shè)置與客房信息設(shè)置功能來設(shè)置本酒店客房的分類信息，內(nèi)容包括房類名稱、房價、房間號、房類編號、樓層、額定人數(shù)和可超預訂數(shù)等。 系統(tǒng)模塊的功能設(shè)計 總體設(shè)計中酒店管理系統(tǒng)主 要劃分為客房類型設(shè)置模塊、客房信息設(shè)置模塊、預訂管理模塊、房態(tài)管理模塊三個部分 。而在系統(tǒng)的詳細設(shè)計中，要求 對每個模塊的具體功能進行設(shè)計，為之后的界面設(shè)計及程序代碼實現(xiàn)提供依據(jù)。 創(chuàng)建工程 啟動 Delphi，利用默認的設(shè)置新建一個工程，并將其保存為“ ”。 單擊Project|Options?菜單命令，在 Application選項卡中修改工程的 Title屬性為“酒店管理系統(tǒng)”，并為項目選擇一個 .exe程序的圖標。 創(chuàng)建系統(tǒng)主窗體 (1)利用系統(tǒng)默認生成的窗體作 為主窗體，并為其添加主菜單控件和其他控件，布局 見 圖 31所示。 享有工作室 為您提供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 圖 31 酒店管理系統(tǒng)主窗體 (2)窗體及其控件的屬性設(shè)置如下表 31所示。 表 31 主窗體屬性設(shè)置 控件類型 對象 (控件 )名 屬性 取值 (說明 ) Tform Main Name Main Caption 酒店管理系統(tǒng) FormStyle fsMDIForm Position poDesktopCenter Height 620 Width 760 (3)MDI主窗體的設(shè)計主要是為了根據(jù)用戶的選擇調(diào)用不同的子窗體，該窗體代碼如下： unit MainForm。 interface uses 享有工作室 為您提供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 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)。 享有工作室 為您提供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 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)。 享有工作室 為您提供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 mdichildren[i].Enabled:=true。 mdichildren[i].Show。 mdichildren[i].SetFocus。 result:=true。 break。 end else //如窗體不存在，則返回 false，程序?qū)?chuàng)建窗體 result:=false。 end end。 //顯示【客房類型設(shè)置】窗體 procedure (Sender: TObject)。 var newform:TRoomType。 begin if FindForm(39。客房類型設(shè)置 39。)=false then newform:=(application)。 :=39?？头款愋驮O(shè)置 39。 end。 //顯示【客房信息設(shè)置】窗體 procedure (Sender: TObject)。 var newform:TRoomInfo。 begin if FindForm(39。客房信息設(shè)置 39。)=