【正文】 bel9: TLabel。 Label10: TLabel。 Label11: TLabel。 DBCheckBox1: TDBCheckBox。 Label12: TLabel。 Label13: TLabel。 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購(gòu)買 畢業(yè)設(shè)計(jì)論文定做 ComboBox1: TComboBox。 ComboBox2: TComboBox。 Image1: TImage。 Label14: TLabel。 procedure DataSource1DataChange(Sender: TObject。 Field: TField)。 procedure FormCreate(Sender: TObject)。 procedure ComboBox1Select(Sender: TObject)。 procedure ComboBox2Select(Sender: TObject)。 procedure ToolButton10Click(Sender: TObject)。 procedure ToolButton6Click(Sender: TObject)。 procedure ToolButton7Click(Sender: TObject)。 procedure ToolButton11Click(Sender: TObject)。 private { Private declarations } public { Public declarations } optype:string。//標(biāo)識(shí)是新增還是修改 end。 var RoomInfo: TRoomInfo。 implementation {$R *.dfm} procedure (Sender: TObject。 Field: TField)。 begin inherited。 //根據(jù)客房的類型編號(hào)顯示客房類型名稱 。 。 (39。select 類型名稱 from 客房類型 where 類型編號(hào)=39。39。39。++39。39。39。39。)。 。 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購(gòu)買 畢業(yè)設(shè)計(jì)論文定做 :=(39。類型名稱 39。).AsString。 //根據(jù)樓層的編號(hào)顯示樓層名稱 。 。 (39。select 樓層名稱 from 樓層信息 where 樓層編號(hào)=39。39。39。++39。39。39。39。)。 。 :=(39。樓層名稱 39。).AsString。 end。 //創(chuàng)建窗體時(shí)添加類型名稱和樓層名稱的下拉列表框項(xiàng) procedure (Sender: TObject)。 begin inherited。 //添加客房類型名稱下拉項(xiàng) 。 。 (39。select distinct 類型名稱 from 客房類型 39。)。 。 。 while not do begin ((39。類型名稱 39。).AsString)。 。 end。 //添加樓層名稱下拉項(xiàng) 。 。 (39。select distinct 樓層名稱 from 樓層信息 39。)。 。 。 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購(gòu)買 畢業(yè)設(shè)計(jì)論文定做 while not do begin ((39。樓層名稱 39。).AsString)。 。 end。 end。 //根據(jù)選擇的客房類型名稱反查并修改客房類型編號(hào) procedure (Sender: TObject)。 begin inherited。 。 。 (39。select 類型編號(hào) from 客房類型 where 類型名稱=39。39。39。++39。39。39。39。)。 。 :=(39。類型編號(hào) 39。).AsString。 end。 //根據(jù)選擇的樓層名稱反查并修改樓層編號(hào) procedure (Sender: TObject)。 begin inherited。 。 。 (39。select 樓層編號(hào) from 樓層信息 where 樓層名稱=39。39。39。++39。39。39。39。)。 。 :=(39。樓層編號(hào) 39。).AsString。 end； //保存對(duì)數(shù)據(jù)所做的修改，并檢查字段 procedure (Sender: TObject)。 var 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購(gòu)買 畢業(yè)設(shè)計(jì)論文定做 code:integer。 begin if optype=39。insert39。 then begin if =39。39。 then begin showmessage(39。必須輸入客房的類型編號(hào) 39。)。 exit。 end。 if =39。39。 then begin showmessage(39。必須輸入客房所處的樓層 39。)。 exit。 end。 //根據(jù)輸入的樓層，查詢?cè)摌菍拥淖畲蠓块g編號(hào)，并自動(dòng)生成新的房間 編號(hào) 。 。 (39。select max(客房編號(hào) ) 本層最大房間號(hào) from 客房信息 where 樓層編號(hào) =39。39。39。++39。39。39。39。)。 。 code:=(39。本層最大房間號(hào) 39。).AsInteger。 code:=code+1。 if code mod 10018 then//控制一層最多的房數(shù)不能大于 16 begin showmessage(39。一層最多只能有 16 間房 39。)。 。 exit。 end。 //客房編號(hào)的合成 if code999 then :=39。039。+inttostr(code) 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購(gòu)買 畢業(yè)設(shè)計(jì)論文定做 else :=inttostr(code)。 end。 inherited。 //清除標(biāo)志 optype:=39。39。 end。 //新增客房信息 procedure (Sender: TObject)。 begin inherited。 optype:=39。insert39。//表示這是新增操作調(diào)用的保存按鈕 :=39?？辗?39。 end。 //修改客房信息 procedure (Sender: TObject)。 begin inherited。 optype:=39。edit39。//表示這是新增操作調(diào)用的保存按鈕 end。 //取消操作 procedure (Sender: TObject)。 begin inherited。 //清除標(biāo)志 optype:=39。39。 end。 end. 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購(gòu)買 畢業(yè)設(shè)計(jì)論文定做 完成房態(tài)管理功能 (1)選擇 New|Form菜單命令，新建一個(gè)窗體， 并且 將其 Name屬性 改為“ RoomStatus” ,Caption屬性改為“房態(tài)管理”，并將其保存為“ ” ,選擇 Project|Option?菜單命令，將它從自動(dòng)創(chuàng)建的窗體列表中刪除，再添加如圖 34所示的控件。 圖 34 【房態(tài)管理】窗體 單擊【房態(tài)管理】菜單命令，即可顯示整個(gè)酒店的房態(tài)圖，在該窗體中，酒店現(xiàn)有的所有客房的狀態(tài)都顯示在一個(gè)表格中，房間的狀態(tài)為“空房”表示該房間可以被預(yù)定或者直接入住，“ 住房”表示該客房已經(jīng)有客人入住，“自用”表示該房間保留為酒店的自用房間，不對(duì)外營(yíng)業(yè)，“維修”表示該房間整處在維修狀態(tài)，在下面的【房態(tài)選擇】框中選中某一個(gè)單選按鈕并單擊【更改房間狀態(tài)】按鈕，就可以把某個(gè)房間改為選定的狀態(tài)，但房態(tài)一般由程序自動(dòng)修改，人工一般不可修改，除非發(fā)現(xiàn)錯(cuò)誤或者要將房間設(shè)為自用房。 (2)該窗體的屬性控件設(shè)置如表 34所示。 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購(gòu)買 畢業(yè)設(shè)計(jì)論文定做 表 34 房態(tài)管理窗體控件屬性設(shè)置 控件類型 對(duì)象名 屬性 取值（說(shuō)明） Form Parent Caption 房態(tài)管理 FormStyle fsMDIChild Position poMainFormCenter DataSouce DataSource1 FataSet ADOQuery1 ADOQuery ADOQuery1 ConnectionString 數(shù)據(jù)庫(kù)設(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)建的窗體列表中刪除 ，然后再對(duì)集成二來(lái)的窗體進(jìn)行修改，如圖 35所示。 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購(gòu)買 畢業(yè)設(shè)計(jì)論文定做 圖 35 【預(yù)訂管理】窗體 選擇【預(yù)訂管理】菜單命令可以進(jìn)入對(duì)客房的預(yù)定管理子窗體，在該窗體中，可以根據(jù)客人要求的房間類型或者是房間號(hào)對(duì)已有的客房進(jìn)行預(yù)定，或者對(duì)已有的預(yù)訂單進(jìn)行修改。 在該窗體中，單擊【新 增】按鈕，則在下面的面板【預(yù)訂單號(hào)】標(biāo)簽下面的文本框中會(huì)自動(dòng)生成新的 10位預(yù)訂單號(hào)，單擊【抵店時(shí)間】標(biāo)簽下面的下拉列表框下拉按鈕，則會(huì)彈出日歷供用戶選擇相應(yīng)的日期，如圖 36所示。 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購(gòu)買 畢業(yè)設(shè)計(jì)論文定做 圖 36 【選擇日歷】功能窗體 然后再單擊面板中的有放大鏡圖標(biāo)的按鈕，將彈出房態(tài)圖供用戶選擇房間，如果之前選擇了客房類型，則房態(tài)圖中只會(huì)顯示選定房間的類型，如果未選定客房類型，則顯示所有房間，如圖 37所示。 圖 37 【選擇預(yù)定】房間 享有工作室 為您提供最優(yōu)秀的計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計(jì)論文購(gòu)買 畢業(yè)設(shè)計(jì)論文定做 (2)窗體空間設(shè)置 如表 35所示，窗體中所有文本框都是 DBEdit