【正文】 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 End If ‘判斷輸入的信息在數(shù)據(jù)庫中是否有相應(yīng)數(shù)據(jù) If = 0 Then MsgBox 對不起，沒有找到您要找的人?。?！ Else MsgBox 恭喜，記錄已找到?。?！ = True End If ：根據(jù)輸入框中數(shù)據(jù)，向數(shù)據(jù)庫中插入相應(yīng)的內(nèi)容 ，其代碼如下： 39。 amp。) End If ‘判斷查詢條件，檢測數(shù)據(jù)庫中是否有匹配數(shù)據(jù) If = 0 Then MsgBox 對不起，沒有找到您要找的人?。?！ Else MsgBox 恭喜，記錄已找到?。?！ 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 40 = True End If ‘清空文本框中的信息，取消選中 = = = 0 = 0 = 0 (2)精確查詢的實(shí)現(xiàn) ：必須從多選框中選擇查詢方式，再向輸入框中填寫必要信息 ‘判斷多選框 中選中那些條件 If = 0 And = 0 And = 0 Then MsgBox 請選擇查詢方式！ Exit Sub End If ‘選中“姓名”查詢，文本框中必須寫全姓名，并從數(shù)據(jù)庫中查找 If = 1 And = 0 And = 0 Then = select , from zk inner join dj inner join house on = on = where =39。+39。 amp。 ‘利用 adodc 控件實(shí)現(xiàn)數(shù)據(jù)庫中數(shù)據(jù)的刪除 ‘ recordcount 用于記錄查詢到符合要求的數(shù)據(jù)個(gè)數(shù) If 0 Then ‘利用 adodc 控件實(shí)現(xiàn)數(shù)據(jù)庫中數(shù)據(jù)的更新 Else: = 修改 i = 0 ‘利用 datagrid 仍然顯示數(shù)據(jù)庫為更新前的數(shù)據(jù) = False ： (1)模糊查詢的實(shí)現(xiàn) ： ‘ ado 中利 用 sql 語言中 like 實(shí)現(xiàn)姓名的模糊查詢 = select , from zk inner join dj inner join house on = on = where like (39。Initial Catalog=酒店管理系統(tǒng)數(shù)據(jù)庫 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 39 : ‘利用 Adodc 空件實(shí)現(xiàn)查詢 = select * from house where hcondition=39。Integrated Security=SSPI。今后我要更加努力的學(xué)習(xí)，爭取實(shí)現(xiàn)這些功能，使系統(tǒng)更加完善。這些正是我今后努力的方向。我認(rèn)為可以嘗試為系統(tǒng)擴(kuò)展新的功能。本系統(tǒng)的功能雖然還不完善，但是幾乎涵蓋了 VB 的所有開發(fā)技術(shù)以及本系統(tǒng)的基本功能，達(dá)到了綜合應(yīng)用所學(xué)知識(shí)的目的。從技術(shù)方面講，本系統(tǒng)使用了 VB 與 Sql Server2021 的結(jié)合。另外，該系統(tǒng) 的設(shè)計(jì)也體現(xiàn)了 VB 用來開發(fā)應(yīng)用系統(tǒng)的優(yōu)點(diǎn)，從系統(tǒng)設(shè)計(jì)到系統(tǒng)實(shí)現(xiàn)完全遵循了 實(shí)際應(yīng)用 的思想，思路清晰，結(jié)構(gòu)合理。不僅接觸到了許多新的技術(shù)和知識(shí)，而且通過親手實(shí)踐，了解了如何把書本上所學(xué)的東西應(yīng)用到實(shí)踐中去。 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 36 第 6 章 結(jié)束語 不知不覺，畢業(yè)設(shè)計(jì)已接近尾聲了。 為前臺(tái)功能的實(shí)現(xiàn)提供了強(qiáng)大的數(shù)據(jù)支持。在安全方面，客戶登錄時(shí)只能夠了解酒店歷史，和房間使用情況，不會(huì)將其他的客戶信息泄漏給其他客戶。不僅提高了效率，而且提高了信息的準(zhǔn)確性。 本系統(tǒng)有機(jī)的把管理員與客戶、客房聯(lián)系起來。在本系統(tǒng)中，通過酒店客房管理 在正常的運(yùn)營中需要對客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信 息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理效率。 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 35 總結(jié) 本酒店客房管理系統(tǒng)與傳統(tǒng)客房管理系統(tǒng)相比。 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 34 圖 522 客房消費(fèi) 客房類型的消費(fèi)比率圖 [22]，如 523 所示 。 圖 521 全部客房報(bào)表 每月客房消費(fèi)操作 每月客房消費(fèi)模塊，實(shí)現(xiàn)按時(shí)間段查詢各種客房類型的使用情況 [21]。 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 32 圖 519客房消費(fèi)報(bào)表打印 部分代碼 實(shí)現(xiàn)如下： Private Sub Command1_Click() ‘ DataReport1 數(shù)據(jù)源連接 DataEnvironment1 Set = DataEnvironment1 delete from custom1 Else MsgBox 找不到 End If End If ‘ DataReport2 數(shù)據(jù)源連接 DataEnvironment1 Set = DataEnvironment1 End If End Sub 客房日消費(fèi)報(bào)表，如圖 520 所示 。 圖 518 修改用戶信息 報(bào)表打印操作 報(bào)表打印模塊是從客房消費(fèi)表中有選擇的 將客房的每次消費(fèi)打印出來，其中選擇打印界面 [18]。 圖 516 添加用戶 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 31 刪除模塊界面，如圖 517。 瀏覽模塊界面，如圖 515 所示 。刪除可以刪除已存在的用戶，包括管理員。 (hcondition) = 空 MsgBox 結(jié)賬成功！??！ = 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 30 = False = False = False End Sub 管理 員對 登 錄 信息操作 管理員操作模塊包括信息的瀏覽，修改，添加，刪除。 t amp。將房間狀態(tài)改為空 = select * from house where hno=39。 39。 amp。) 39。 t amp。 and hno=39。 s amp。刪除登記信息 = select * from dj where (zjbh=39。 圖 514 結(jié)帳 實(shí)現(xiàn)代碼如下： ‘“結(jié)帳”按鈕 Private Sub Command3_Click() 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 29 = False 39。 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 28 圖 513 客戶登記圖 客戶結(jié)帳 客戶結(jié)帳是客戶退房時(shí)進(jìn)行的操作， 本功能 是根據(jù)當(dāng)前時(shí)間減去客戶入住時(shí)間 所得的天數(shù)乘以房間單價(jià)得出的費(fèi)用為客戶消費(fèi) [11]，消除了過去只能用退房時(shí)間跟入住時(shí)間來結(jié)算的弊端 [12]。 登記模塊是客戶入住酒店時(shí)，需要填寫的信息，既包括酒店客房信息，還包括客戶個(gè)人信息 [11]。 If = Then MsgBox 錯(cuò)誤 Else (outtime) = End If MsgBox 修改成功 39。 amp。and outtime=39。 amp。 圖 512更改退房時(shí)間 部分代碼 實(shí)現(xiàn)如下： ‘“確定”按鈕實(shí)現(xiàn)退房時(shí)間的修改 Private Sub Command3_Click() 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 27 = select * from dj where hno=39。 圖 511 精確查詢 更改退房時(shí)間模塊是對入住酒店的客戶，因某些原因需要延長或縮短入住時(shí)間的操作 ，在客戶更改時(shí)間后，后臺(tái)會(huì)對客戶以前的信息進(jìn)行保存 [6]。)) End If ‘判斷查詢條件，檢測數(shù)據(jù)庫中是否有匹配數(shù)據(jù) If = 0 Then MsgBox 對不起，沒有找到 您要找的人?。?！ Else MsgBox 恭喜，記錄已找到?。?！ = True End If End Sub 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 26 精確查詢需要選擇查詢的方式（從多選框中選擇 ） 要求輸入的信息完整[10]。+39。 amp。 and like (39。 str() amp。) and =39。+39。 amp。 510 模糊查詢 模塊 部分代碼實(shí)現(xiàn) 如下： Private Sub Command3_Click() ‘多選框全部選中實(shí)現(xiàn)查詢 If = 1 And = 1 And = 1 Then = select , from zk inner join dj inner join house on = on = where ( like (39。模糊查詢可以根據(jù)客戶姓名中某個(gè)字進(jìn)行查詢，而顯示的是所有住客姓名中存在該字的住客 [9]。 住客信息模塊主要顯示入住酒店的客戶信息，該模塊只有管理員可以進(jìn)行操作，界面如圖 59 所示 。本模塊中包括住客信息、查詢住客、更改退房時(shí)間功能。其 查詢 模塊如圖 58 所示 。 圖 56 雙人間 57 單人間 客房中的查詢模塊可以實(shí)現(xiàn)房間編號(hào)，房間類型，房間狀態(tài)的查詢，是對所有客房的查詢。同樣包括修改、添加，此時(shí)添加的客房類型目的性更強(qiáng)。如圖 55 所示 。當(dāng)客房在進(jìn)行調(diào)整后，方便管理員及時(shí)對客房進(jìn)行相應(yīng)的操作 [6]。其中全部客房，單人間，雙人間界面均可進(jìn)行查詢，便于管理員了解客房使用情況。 圖 54系統(tǒng)功能圖 其中一級(jí)菜單中包括客房信息一覽表，住客，登記表，結(jié)帳，管理員操作，報(bào)表打印， 每月消費(fèi)情況，退出。管理員可以根據(jù)要求對其進(jìn)行相應(yīng)的操作 [5]。 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開發(fā) . 22 功能 信息 模塊 以管理員身份登錄成功后進(jìn)入系統(tǒng)功能界面。 如果有則 進(jìn)入系統(tǒng) ，否則 提示輸入錯(cuò)誤。若合法，進(jìn)入功能界面；若不合法，提示信息錯(cuò)誤，并 將 輸入框中的內(nèi)容清空，要求重新輸入。 系統(tǒng)登錄 如圖 53 所 示 。該模塊通過與用戶的交互，記錄 訪客 的 登錄信息 ，通過后臺(tái)審核 確定其信息的有效性。 表 57退房時(shí)間修改表 編號(hào) 字段名稱 數(shù)據(jù)類型 1 Hno Char(4) 2 Zjbh Char(20) 3 Xm Char(20) 4 Outime Datatime(8) 5 Telenumber Char(