【導(dǎo)讀】的酒店相比管理依然落后。在激烈的酒店業(yè)競(jìng)爭(zhēng)中，如何能把握機(jī)會(huì)，保持自。己的優(yōu)勢(shì)，立于不敗之地呢？這就需要提供最好的服務(wù)，提供最完善的設(shè)施和。變革酒店管理模式首先應(yīng)該對(duì)酒店客房管理進(jìn)行變革。社會(huì)發(fā)展的要求。因此，在信息時(shí)代，提高酒店客房效益必須要有一個(gè)完善的。行互動(dòng)交流的客房管理的工作平臺(tái)。該平臺(tái)主要目標(biāo)是能夠及時(shí)地給客戶(hù)提供。管理員在進(jìn)行操作時(shí)，節(jié)省了時(shí)間，并且能夠很快。的知道客房的變更。Server2021數(shù)據(jù)庫(kù)，為前臺(tái)的實(shí)現(xiàn)提供了數(shù)據(jù)的支持。本系統(tǒng)使用方便，快

　　

【正文】 aReport1 數(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 所示 。 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) . 33 圖 520日?qǐng)?bào)表 全部客房消費(fèi)報(bào)表 [20]，如圖 521 所示 。 圖 521 全部客房報(bào)表 每月客房消費(fèi)操作 每月客房消費(fèi)模塊，實(shí)現(xiàn)按時(shí)間段查詢(xún)各種客房類(lèi)型的使用情況 [21]。界面 如圖 522 所示 。 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) . 34 圖 522 客房消費(fèi) 客房類(lèi)型的消費(fèi)比率圖 [22]，如 523 所示 。 圖 523 比率圖 退出操作 退出操作，退到系統(tǒng)登錄界面。 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) . 35 總結(jié) 本酒店客房管理系統(tǒng)與傳統(tǒng)客房管理系統(tǒng)相比。最大的特點(diǎn)就是便捷。在本系統(tǒng)中，通過(guò)酒店客房管理 在正常的運(yùn)營(yíng)中需要對(duì)客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信 息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理效率。 本系統(tǒng)添加報(bào)表及時(shí)以書(shū)面形式反饋客房消費(fèi)信息，同時(shí)添加的客房消費(fèi)比率圖，可以直觀的分析各客房類(lèi)型的消費(fèi)情況，為酒店對(duì)以后的擴(kuò)大規(guī)模提供參考資料。 本系統(tǒng)有機(jī)的把管理員與客戶(hù)、客房聯(lián)系起來(lái)。是管理員在對(duì)二者進(jìn)行操作時(shí)，更快捷，方便。不僅提高了效率，而且提高了信息的準(zhǔn)確性。同時(shí)實(shí)現(xiàn)了酒店與客戶(hù)之間的了解更全面。在安全方面，客戶(hù)登錄時(shí)只能夠了解酒店歷史，和房間使用情況，不會(huì)將其他的客戶(hù)信息泄漏給其他客戶(hù)。 本系統(tǒng)的后臺(tái)數(shù)據(jù)庫(kù)為 sql server 2021。 為前臺(tái)功能的實(shí)現(xiàn)提供了強(qiáng)大的數(shù)據(jù)支持。酒店客房管理系統(tǒng)的開(kāi)發(fā)，是以 與 sql server 2021 為基礎(chǔ)實(shí)現(xiàn)，是開(kāi)發(fā)軟件的基礎(chǔ)。 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) . 36 第 6 章 結(jié)束語(yǔ) 不知不覺(jué)，畢業(yè)設(shè)計(jì)已接近尾聲了。經(jīng)過(guò)這次畢業(yè)設(shè)計(jì)，我感到自己無(wú)論在專(zhuān)業(yè)知識(shí)方面，還是在動(dòng)手能力方面都有了很大的收獲。不僅接觸到了許多新的技術(shù)和知識(shí)，而且通過(guò)親手實(shí)踐，了解了如何把書(shū)本上所學(xué)的東西應(yīng)用到實(shí)踐中去。 該畢業(yè)設(shè)計(jì)給出了應(yīng)用軟件開(kāi)發(fā)的一般思想和詳細(xì)的設(shè)計(jì)方案，以及各模塊實(shí)現(xiàn)的詳細(xì)步驟，基本達(dá)到了應(yīng)用軟件開(kāi)發(fā)的要求。另外，該系統(tǒng) 的設(shè)計(jì)也體現(xiàn)了 VB 用來(lái)開(kāi)發(fā)應(yīng)用系統(tǒng)的優(yōu)點(diǎn)，從系統(tǒng)設(shè)計(jì)到系統(tǒng)實(shí)現(xiàn)完全遵循了 實(shí)際應(yīng)用 的思想，思路清晰，結(jié)構(gòu)合理。系統(tǒng)的可擴(kuò)展性強(qiáng)，便于今后進(jìn)行功能擴(kuò)展和系統(tǒng)升級(jí)。從技術(shù)方面講，本系統(tǒng)使用了 VB 與 Sql Server2021 的結(jié)合。本系統(tǒng)開(kāi)發(fā)的難點(diǎn)是 動(dòng)態(tài) 設(shè)計(jì) 報(bào)表打印與結(jié)帳功能以及實(shí)現(xiàn)各種查詢(xún)包括模糊與精確查詢(xún) 。本系統(tǒng)的功能雖然還不完善，但是幾乎涵蓋了 VB 的所有開(kāi)發(fā)技術(shù)以及本系統(tǒng)的基本功能，達(dá)到了綜合應(yīng)用所學(xué)知識(shí)的目的。 該系統(tǒng)雖然功能比較完善，但是離商業(yè)應(yīng)用還有一定的距離。我認(rèn)為可以嘗試為系統(tǒng)擴(kuò)展新的功能。因?yàn)閭€(gè) 人與企業(yè)之間的在線交流時(shí)每個(gè)求職人員與企業(yè)的需求，在線交流可以節(jié)省時(shí)間，無(wú)需讓雙方等待時(shí)間過(guò)長(zhǎng)等問(wèn)題。這些正是我今后努力的方向。由于現(xiàn)在知識(shí)淺薄，經(jīng)驗(yàn)不足以及閱歷頗淺，這些功能還不能實(shí)現(xiàn)。今后我要更加努力的學(xué)習(xí)，爭(zhēng)取實(shí)現(xiàn)這些功能，使系統(tǒng)更加完善。 參考文獻(xiàn) [1]沈祥玖 .VB 程序設(shè)計(jì) [M](第二版 ).北京 :高等教育出版社 . [2]薩師煊 ,王珊 .數(shù)據(jù)庫(kù)系統(tǒng)概論 [M].北京 :高等教育出版社 . 41163 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) . 37 [3]趙池龍 ,楊林 ,孫偉 .實(shí)用軟件工程 [M](第二版 ).北京 :電子 工業(yè)出版社 . 66153 [4]向隅 .數(shù)據(jù)庫(kù)基礎(chǔ)及應(yīng)用 [M].北京 :北京郵電出版社 . 200240 [5]趙增強(qiáng) ,楊永剛 .淺析學(xué)好 VB 程序設(shè)計(jì) [J].電腦知識(shí)與教育 . 期 [6]王道榮 ,林信成 .Visual Basic6 數(shù)據(jù)庫(kù)處理 從入門(mén)到精通 [M].北京 :中國(guó)鐵道出版社 .2021 [7]劉傳波 .SQLServer 數(shù)據(jù)庫(kù)的安全策略設(shè)計(jì)與應(yīng)用 [J].商業(yè)文化 (學(xué)術(shù)版 ).2021. [8]杜兆將等 .SQLServer 數(shù)據(jù)庫(kù)管理與開(kāi)發(fā)教程與實(shí)訓(xùn) [M].北京大學(xué)出版社 .2021. [9]王春才 ,高春燕 ,李俊民 .Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)完全手冊(cè) [M].北京 :人民郵電出版社 .2021 [10]劉炳文 .學(xué)習(xí) VB 程序設(shè)計(jì)的好教材 [J].計(jì)算機(jī)教育 . 期 1216 [11]韓亞萍 .Visual 基礎(chǔ)培訓(xùn)百例 [M].北京 :機(jī)械工業(yè)出版社 .2021 4073 [12]金英姿 ,鄧少鹍 .Visual Basic 實(shí)用培訓(xùn)教程 [M].北京 :人民郵電出版社，2021 [13]劉志嫵 .基于 VB 和 SQL 的數(shù)據(jù)庫(kù)編程技術(shù) [M].北京 :清華大學(xué)出版社 . 300384 [14]朱恩源 .VB 趣味程序集綿 [M].上海 :上海教育出版社 . 40110 [15]龐一鳴 .VB 問(wèn)答式教程 [M].北京 :清華大學(xué)出版社 . 60130 [16]伍俊良 .Visual Basic 課程設(shè)計(jì)與系統(tǒng)開(kāi)發(fā)案例 [M].北京 :清華大學(xué)出版社 .2021 345400 [17]張勇等 .Visual Basic 課程設(shè)計(jì)案例精編 [M].北京 :水利水電出版社 .2021 120223 [18]崔彥峰 .VB 網(wǎng)絡(luò)與遠(yuǎn)程控制編程實(shí)例教程編寫(xiě) [M].北京 :希望電 子出版社 . 110132 [19]Leonard Lobel,Andrew J. Brust,Stephen Microsoft SQL Server 2021[M].MICROSOFT [20]邢紅剛 .關(guān)于 SQLServer 數(shù)據(jù)庫(kù)的安全問(wèn)題的思考 [J].科技資訊 .2021. 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) . 38 [21]Lindsey VB and Die (Hotels Paperback)英文原版 [M].Arrow Books Ltd 出版社 [22]何漢華 .SQLServer 數(shù)據(jù)庫(kù)的安全措施解析與應(yīng)用 [J].軟件導(dǎo)刊 .2021. 附錄一 主要 功能的代碼實(shí)現(xiàn)： 1. 動(dòng)態(tài)鏈接數(shù)據(jù)庫(kù) 實(shí)現(xiàn)模 塊 [19]： ‘ 利用 ADO 動(dòng)態(tài)鏈接數(shù)據(jù)庫(kù) Dim Conn As New Dim rs As New Set rs = New =Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=酒店管理系統(tǒng)數(shù)據(jù)庫(kù) 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) . 39 : ‘利用 Adodc 空件實(shí)現(xiàn)查詢(xún) = select * from house where hcondition=39?？?39。 ‘利用 adodc 控件實(shí)現(xiàn)數(shù)據(jù)庫(kù)中數(shù)據(jù)的刪除 ‘ recordcount 用于記錄查詢(xún)到符合要求的數(shù)據(jù)個(gè)數(shù) If 0 Then ‘利用 adodc 控件實(shí)現(xiàn)數(shù)據(jù)庫(kù)中數(shù)據(jù)的更新 Else: = 修改 i = 0 ‘利用 datagrid 仍然顯示數(shù)據(jù)庫(kù)為更新前的數(shù)據(jù) = False ： (1)模糊查詢(xún)的實(shí)現(xiàn) ： ‘ ado 中利 用 sql 語(yǔ)言中 like 實(shí)現(xiàn)姓名的模糊查詢(xún) = select , from zk inner join dj inner join house on = on = where like (39。 amp。 amp。 39。+39。%39。) End If ‘判斷查詢(xún)條件，檢測(cè)數(shù)據(jù)庫(kù)中是否有匹配數(shù)據(jù) If = 0 Then MsgBox 對(duì)不起，沒(méi)有找到您要找的人?。?！ Else MsgBox 恭喜，記錄已找到?。。? 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) . 40 = True End If ‘清空文本框中的信息，取消選中 = = = 0 = 0 = 0 (2)精確查詢(xún)的實(shí)現(xiàn) ：必須從多選框中選擇查詢(xún)方式，再向輸入框中填寫(xiě)必要信息 ‘判斷多選框 中選中那些條件 If = 0 And = 0 And = 0 Then MsgBox 請(qǐng)選擇查詢(xún)方式！ Exit Sub End If ‘選中“姓名”查詢(xún)，文本框中必須寫(xiě)全姓名，并從數(shù)據(jù)庫(kù)中查找 If = 1 And = 0 And = 0 Then = select , from zk inner join dj inner join house on = on = where =39。 amp。 amp。 39。 End If ‘判斷輸入的信息在數(shù)據(jù)庫(kù)中是否有相應(yīng)數(shù)據(jù) If = 0 Then MsgBox 對(duì)不起，沒(méi)有找到您要找的人！??！ Else MsgBox 恭喜，記錄已找到！?。? = True End If ：根據(jù)輸入框中數(shù)據(jù)，向數(shù)據(jù)庫(kù)中插入相應(yīng)的內(nèi)容 ，其代碼如下： 39。連接客房表 基于 VB的酒店客房管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) . 41 = select * from house where hno=39。 amp。 amp。 39。 If = True Then (hcondition) = 已預(yù)訂 Else (hcondition) = 已入住 End If ‘連接客房信息表的 adodc 刷新 ‘連接客房信息表的 datagrid 刷新 ，其代碼如下： = select * from custom where intime 39。 amp。 amp。 39。 and intime 39。 amp。 amp。 39。 and outime39。 amp。 amp。 39。 = select * from hsprice If 0 Then MsgBox 找到信息 ‘將查找到的信息添加到表 hsprice 中 ， 執(zhí)行 SQL 語(yǔ)句 insert into hsprice select ,sum(price) as sprice from custom inner join house on = where intime 39。 amp。 amp。 39。 and intime 39。 amp。 amp。 39。and outime39。 amp。 amp。 39。 group by () = select * from hsprice 基于 V