【正文】 rocedure ComboBox2Select(Sender: TObject)。 procedure ToolButton11Click(Sender: TObject)。 implementation {$R *.dfm} procedure (Sender: TObject。 。39。39。類型名稱 39。 (39。++39。)。).AsString。 //添加客房類型名稱下拉項(xiàng) 。)。類型名稱 39。 //添加樓層名稱下拉項(xiàng) 。)。樓層名稱 39。 end。 。39。39。類型編號 39。 begin inherited。select 樓層編號 from 樓層信息 where 樓層名稱=39。39。 。 end； //保存對數(shù)據(jù)所做的修改，并檢查字段 procedure (Sender: TObject)。 then begin if =39。)。39。 exit。 (39。++39。)。).AsInteger。)。 //客房編號的合成 if code999 then :=39。 inherited。 //新增客房信息 procedure (Sender: TObject)。//表示這是新增操作調(diào)用的保存按鈕 :=39。 begin inherited。 //取消操作 procedure (Sender: TObject)。 end。 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購買 畢業(yè)設(shè)計(jì)論文定做 表 34 房態(tài)管理窗體控件屬性設(shè)置 控件類型 對象名 屬性 取值（說明） Form Parent Caption 房態(tài)管理 FormStyle fsMDIChild Position poMainFormCenter DataSouce DataSource1 FataSet ADOQuery1 ADOQuery ADOQuery1 ConnectionString 數(shù)據(jù)庫設(shè)置為hotelbook ADOCommand ADOCommand1 ConnectionString 同上 StringGrid StringGrid ColCount 17 RowCount 5 FixedColor C1Background DefaultColWidth 32 DefaultRowHeight 32 ImageList ImageList1 ImageList Height 32 Width 32 Image Image1~6 Picture Button Button1 Caption 更新 Button Button2 Caption 更改房間狀態(tài) RadioButton RadioButton1~6 Caption 完成預(yù)訂管理功能 (1) 選擇 File|New|Other菜單 命令， 從 Parent窗體中集成新窗體，并且 將其 Name屬性 改為 “ Reservation” ,Caption屬性改為“預(yù)訂管理 ”，并將其保存為“ Reservation ” ,將它從自動(dòng)創(chuàng)建的窗體列表中刪除 ，然后再對集成二來的窗體進(jìn)行修改，如圖 35所示。 圖 37 【選擇預(yù)定】房間 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購買 畢業(yè)設(shè)計(jì)論文定做 (2)窗體空間設(shè)置 如表 35所示，窗體中所有文本框都是 DBEdit控件。 在該窗體中，單擊【新 增】按鈕，則在下面的面板【預(yù)訂單號】標(biāo)簽下面的文本框中會(huì)自動(dòng)生成新的 10位預(yù)訂單號，單擊【抵店時(shí)間】標(biāo)簽下面的下拉列表框下拉按鈕，則會(huì)彈出日歷供用戶選擇相應(yīng)的日期，如圖 36所示。 圖 34 【房態(tài)管理】窗體 單擊【房態(tài)管理】菜單命令，即可顯示整個(gè)酒店的房態(tài)圖，在該窗體中，酒店現(xiàn)有的所有客房的狀態(tài)都顯示在一個(gè)表格中，房間的狀態(tài)為“空房”表示該房間可以被預(yù)定或者直接入住，“ 住房”表示該客房已經(jīng)有客人入住，“自用”表示該房間保留為酒店的自用房間，不對外營業(yè)，“維修”表示該房間整處在維修狀態(tài)，在下面的【房態(tài)選擇】框中選中某一個(gè)單選按鈕并單擊【更改房間狀態(tài)】按鈕，就可以把某個(gè)房間改為選定的狀態(tài)，但房態(tài)一般由程序自動(dòng)修改，人工一般不可修改，除非發(fā)現(xiàn)錯(cuò)誤或者要將房間設(shè)為自用房。 //清除標(biāo)志 optype:=39。edit39。 end。 optype:=39。39。+inttostr(code) 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購買 畢業(yè)設(shè)計(jì)論文定做 else :=inttostr(code)。 exit。 if code mod 10018 then//控制一層最多的房數(shù)不能大于 16 begin showmessage(39。 code:=(39。39。39。 //根據(jù)輸入的樓層，查詢該樓層的最大房間編號，并自動(dòng)生成新的房間 編號 。必須輸入客房所處的樓層 39。 end。 then begin showmessage(39。 begin if optype=39。樓層編號 39。39。39。 。 end。 。39。select 類型編號 from 客房類型 where 類型名稱=39。 begin inherited。 。 。 (39。 。 。 (39。 //創(chuàng)建窗體時(shí)添加類型名稱和樓層名稱的下拉列表框項(xiàng) procedure (Sender: TObject)。 :=(39。39。39。 //根據(jù)樓層的編號顯示樓層名稱 。 。39。select 類型名稱 from 客房類型 where 類型編號=39。 begin inherited。//標(biāo)識(shí)是新增還是修改 end。 procedure ToolButton6Click(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 Image1: TImage。 Label12: TLabel。 Label9: TLabel。 DBEdit8: TDBEdit。 DBEdit4: TDBEdit。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ParentForm, ADODB, DB, ImgList, Grids, DBGrids, ComCtrls, ToolWin, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask, jpeg。并且該表中的【狀態(tài)】字段 在這個(gè)窗體中是只讀的，它由其他功能子窗體進(jìn)行設(shè)置，不能再這個(gè)窗體中對它進(jìn)行任何的修改。 end。最大編號 39。select max(類型編號 ) 最大編號 from 客房類型 39。 begin inherited。 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購買 畢業(yè)設(shè)計(jì)論文定做 private { Private declarations } public { Public declarations } end。 Image2: TImage。 Label7: TLabel。 type TRoomType = class(TParent) DBEdit1: TDBEdit。 (3)各控件的屬性如表 32所示。 “系統(tǒng)參數(shù)設(shè)置”用于設(shè)置管理系統(tǒng)的各種參數(shù)值，例如酒店名稱，房態(tài)顯示模式等。 (2)講窗體的 Name屬性設(shè)置為“ RoomType” ,Caption屬性設(shè)置為“客房類型管理”病保存為“ ”。 procedure (Sender: TObject)。)=false then newform:=(application)。 procedure (Sender: TObject)。)=false then newform:=(application)。 procedure (Sender: TObject)。)=false then 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購買 畢業(yè)設(shè)計(jì)論文定做 newform:=(application)。 procedure (Sender: TObject)。)=false then newform:=(application)。 procedure (Sender: TObject)。 end。房態(tài)管理 39。 end。收銀退房 39。 end。消費(fèi)記帳 39。 end。入住管理 39。 end。預(yù)定管理 39。 end?？头啃畔⒃O(shè)置 39。 end。客房類型設(shè)置 39。 end end。 mdichildren[i].SetFocus。 var i:integer。//判斷子窗體是否已經(jīng)存在 end。 private { Private declarations } public { Public declarations } RoomNum:integer。 procedure BitBtn2Click(Sender: TObject)。 procedure N8Click(Sender: TObject)。 procedure N3Click(Sender: TObject)。 N6: TMenuItem。 BitBtn2: TBitBtn。 N5: TMenuItem。 N1: TMenuItem。 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購買 畢業(yè)設(shè)計(jì)論文定做 圖 31 酒店管理系統(tǒng)主窗體 (2)窗體及其控件的屬性設(shè)置如下表 31所示。而在系統(tǒng)的詳細(xì)設(shè)計(jì)中，要求 對每個(gè)模塊的具體功能進(jìn)行設(shè)計(jì)，為之后的界面設(shè)計(jì)及程序代碼實(shí)現(xiàn)提供依據(jù)。 表 26 賬單明細(xì) 表 字段名稱 字段類型 主鍵 外鍵 是否為空 賬單編號 Int(4) 是 否 入住單號 Varchar(36) 是 否 消費(fèi)內(nèi)容 Varchar(40) 是 消費(fèi)金額 Money(8) 是 消費(fèi)時(shí)間 Smalldatet(4) 是 備注 Varchar(80) 是 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購買 畢業(yè)設(shè)計(jì)論文定做 第三章 系統(tǒng)的詳細(xì)設(shè)計(jì) 系統(tǒng)的詳細(xì)設(shè)計(jì)主要包括系 統(tǒng)模塊功能的設(shè)計(jì)，系統(tǒng)界面的設(shè)計(jì)以及界面上控件相關(guān)代碼的實(shí)現(xiàn)。 字段名稱 字段類型 主鍵 外鍵 是否為空 預(yù)定單號 varchar(36) 是 否 客房類型 Varchar(4) 是 否 抵店時(shí)間 Smalldatetime 否 離店時(shí)間 Smalldatetime 是 客房編號 Varchar(12) 是 客房價(jià)格 Money(8) 是 預(yù)收款 Money(8) 是 預(yù)訂人 Varchar(20) 是 聯(lián)系電話 Varchar(40) 是 操作員 Varchar(10) 是 會(huì)員編號 Int(4) 是 單據(jù)狀態(tài) Varchar(20) 是 入住人數(shù) Int(4) 是 入住價(jià)格 Money(8) 是 折扣 Decimal(5) 是 折扣原因 Varchar(60) 是 享有工作室 為您提供