【正文】 ）＋Val（Texdhf．Text）＋Val（Texpef．Text）＋Val（Texh 江 Text）＋Val（Textef．Text）23Texthje．Text＝Val（TexyjText）一 Val（TexssjeText）EndSub6．7 酒店管理設(shè)計 客房設(shè)置模塊設(shè)計實現(xiàn)目標(biāo)程序啟動后，選擇“客房管理”菜單下的“客房設(shè)置”項，將進入客房設(shè)置模塊。在客房設(shè)置模塊中主要實現(xiàn)如下功能：完成客房基本信息的錄入、保存、修改。完成客房基本信息的查詢?？头吭O(shè)置界面如圖 671 所示。圖 671 客房設(shè)置 客房查詢模塊設(shè)計1．實現(xiàn)目標(biāo)程序啟動后，選擇“客房管理”菜單下的“客房查詢”項，將進入客房查詢模塊。在客房查詢模塊中主要實現(xiàn)如下功能：按房間號檢索所需的客房基本信息。完成客房基本信息的修改與刪除?？头坎樵兘缑嫒鐖D 672 所示24圖 672 客房查詢2．實現(xiàn)過程(1)在“酒店管理系統(tǒng)”工程中，添加一個新窗體，命名為 mainwekrcxa(2)程序代碼： = amp。 End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Text1_Change()39。查詢客房信息 = select * from kf where like + Chr(34) + + * + Chr(34) + End SubPrivate Sub Command1_Click() 39。允許修改客房信息 = TrueEnd SubPrivate Sub Command2_Click() 39。刪除客房信息 If 0 Then End If25End SubPrivate Sub Command3_Click() = True Unload MeEnd Sub 房態(tài)查看模塊設(shè)計1．實現(xiàn)目標(biāo)程序啟動后，選擇“客房管理”菜單下的“房態(tài)查看”項，將進入房態(tài)查看模塊。在房態(tài)查看模塊中主要實現(xiàn)如下功能：以圖形方式顯示入住房、空閑房、維修房。計算當(dāng)前客房入住數(shù)、空閑數(shù)、維修數(shù)、客房的使用率。點擊入住圖形的按鈕，查看客人詳細的住宿信息。房態(tài)查看界面如圖 673 所示圖 673 房態(tài)查看界面2．實現(xiàn)過程（1）在“酒店管理系統(tǒng)”工程中，添加一個新窗體，命名為 mainftcx.（2）在窗體中添加 1 個 Commandl 數(shù)組(125)、2 個 Image 控件、1 個Text 控件等。26 查詢統(tǒng)計設(shè)計 住宿查詢模塊設(shè)計1．實現(xiàn)目標(biāo)程序啟動后，選擇“查詢統(tǒng)計”菜單下的“住宿查詢”項，將進入住宿查詢模塊。在住宿查詢模塊中主要實現(xiàn)輸入客人姓名檢索住宿信息的功能。住宿查詢界面如圖 69 所示。圖 69 住宿查詢界面2．實現(xiàn)過程（1）在“客房管理系統(tǒng)”工程中，添加一個新窗體，命名為 main_zscx.（2）程序代碼：PrivateSubFormesLoed（）Datal．DatabaseName＝App．Path＆’入 KI 息 l．MD 丑” ’自動識別數(shù)據(jù)庫路徑EndSubPrivateSubFormesUnfoad（CaneelAsInteger）rnain．Enabled＝TrueEndSUbPrivateSubCommandl_cliek（） ’查詢住宿信息Datal．Reeordsource＝”seleet＊fromonldjbwhere 姓名 like”＋Chr（34）＋textl．text＋”＊”＋Chr（34）＋” “Datal．RefreshEndSllbPrlvateSubCornrnand2_Cliek（）main．Enabled＝True27UnloadMeEndSub 報表管理該部分包括客人入住報表模塊、客房信息報表模塊和客房銷售統(tǒng)計模塊。便于酒店對于業(yè)務(wù)進行管理。其中：在客人入住報表模塊中主要實現(xiàn)對客人住房信息統(tǒng)計功能。在客房銷售報表模塊中主要實現(xiàn)按任意時間匯總客人結(jié)賬后所需費用的總額的功能。圖 6111 登記預(yù)收報表界面圖 6112 客房銷售報表界面28圖 6113 酒店客房銷售統(tǒng)計界面 系統(tǒng)設(shè)置設(shè)計 操作員設(shè)置模塊設(shè)計程序啟動后，選擇“系統(tǒng)設(shè)置”菜單下的“操作員設(shè)置”項，將進入操作員設(shè)置模塊。在操作員設(shè)置模塊中主要實現(xiàn)如下功能：完成操作員及密碼的設(shè)置。支持鼠標(biāo)和鍵盤操作。操作員設(shè)置界面如圖 6121 所示。圖 6121 操作員設(shè)置界面 密碼設(shè)置模塊設(shè)計程序啟動后，選擇“系統(tǒng)設(shè)置”菜單下的“密碼設(shè)置”項，將進入密碼設(shè)置模塊。在密碼設(shè)置模塊中主要實現(xiàn)如下功能：完成操作員密碼的修改。支持鼠標(biāo)和鍵盤操作。密碼設(shè)置界面如圖 6122 所示。29圖 6122 密碼設(shè)置界面程序代碼： Private Sub label1_Click() 39。修改操作員密碼 = select * from qxsz where 操作員=39。 amp。 amp。 39。 If And And = (密碼) Then If Then (密碼) = MsgBox (密碼修改成功,退出操作員密碼修改!) = True Unload Me Else MsgBox (請輸入新密碼!!) End If Else If = Then MsgBox (請輸入操作員!) Else If (操作員) Then = MsgBox (無此操作員,請重新輸入!) End If End If If = Then30 MsgBox (請輸入操作員原密碼!) Else If Then MsgBox (原密碼錯誤,請重新輸入原密碼!) End If End If End IfEnd Sub 初始化模塊設(shè)計 初始化界面如圖 6123 所示。圖 6123 初始化界面31參考文獻[1] Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊——王春才、高春燕、李俊民，人民郵電出版社，2022[2] Visual 基礎(chǔ)培訓(xùn)百例——韓亞萍，機械工業(yè)出版社，2022[3] Visual Basic 實用培訓(xùn)教程——金英姿、鄧少鹍，人民郵電出版社，2022[4] Visual Basic 課程設(shè)計與系統(tǒng)開發(fā)案例——伍俊良，清華大學(xué)出版社，2022[5] Visual Basic 課程設(shè)計案例精編——張勇等，水利水電出版社，2022[6] Visual Basic6 數(shù)據(jù)庫處理從入門到精通——王道榮、林信成 ，中國鐵道出版社，2022[7] Visual Basic 高級編程——常曉波，清華大學(xué)出版社，2022[8] Visual Basic 數(shù)據(jù)庫開發(fā)基礎(chǔ)與應(yīng)用——張朝昆、施麗娜，人民郵電出版社，2022[9] Visual Basic 數(shù)據(jù)庫開發(fā)實例精粹——郭瑞軍,唐邦民,謝晗昕，電子工業(yè)出版社，2022[10] 軟件項目開發(fā)綜合實訓(xùn)Visual Basic 篇——王泰峰，人民郵電出版社，2022[11] Visual Basic 數(shù)據(jù)庫系統(tǒng)項目開發(fā)實踐——溫小敏，科學(xué)出版社，2022[12] Access 數(shù)據(jù)庫開發(fā)實例解析——賽奎春，機械工業(yè)出版社，2022[13] 數(shù)據(jù)庫基礎(chǔ)及 Access 應(yīng)用——劉遠東,何思文,吳斌新，機械工業(yè)出版社，2022[14] Access 數(shù)據(jù)庫系統(tǒng)項目開發(fā)實踐——蘇瑞、曹斌，科學(xué)出版社，2022[15] 深入淺出 Access 數(shù)據(jù)庫程序設(shè)計理論與實務(wù)——李淑馨，中國鐵道工業(yè)出版社，2022[16] Access 項目案例導(dǎo)航——鄭小玲、王學(xué)軍，科學(xué)出版社，2022[17] Database Management Systems，Gehrke ——Raghu Ramakrishnan,Johannes，清華大學(xué)出版社，202232致謝通過使用 VB 自己動手開發(fā)小規(guī)模的酒店管理系統(tǒng)，使我加深了對軟件的理解。學(xué)以致用，學(xué)用結(jié)合，這既是學(xué)習(xí)理論知識目的，也是檢驗學(xué)習(xí)的最好方法。這次畢業(yè)設(shè)計不盡使我了解了 VB 在數(shù)據(jù)庫方面編程的概要，更讓我知道了計算機的編程秘訣在于嚴(yán)密的思考與仔細的推敲，只有這樣，才會有一個完善的軟件生成。另外，由于本人能力有限致使該系統(tǒng)仍存在一些問題，存在系統(tǒng)的安全性、穩(wěn)定性不強，仍需認真學(xué)習(xí)，繼續(xù)改進。最后，我還要感謝支持以及幫助過我的人，尤其是我的指導(dǎo)老師—xxxx 老師，她仔細、認真、負責(zé)的態(tài)度，對我的幫助是非常大的，使得我更好地完成了《酒店管理系統(tǒng)》的設(shè)計和開發(fā)工作