【導讀】當今社會，酒店種類和客流的不斷增加，對于管理造成了困難。本系統(tǒng)是用于小型酒店服管理的系統(tǒng)軟件。系統(tǒng)數(shù)據(jù)的管理采用了操作系統(tǒng)的最。新管理方式，用戶操作將會更簡單、更直觀、更方便。系統(tǒng)中各業(yè)務(wù)管理模塊可以單。該系統(tǒng)應(yīng)充分利用信息技術(shù)提高小型酒店客房的管理水平、服務(wù)水平。其中宿費提醒可以在住宿費超過押金時預(yù)警，提示前臺要客人補交押金，該。功能可明顯提高對住宿人員宿費的有效管理。將動態(tài)實時的住宿登記、客房調(diào)整、追。加押金等有機地聯(lián)系在一起，對小型酒店客房進行全方位的管理。

　　

【正文】 在“憑證號碼”下拉列表框中選擇客人入住 的憑證號碼，在“追加押金”文本框中輸入客人續(xù)交的押金后，在相應(yīng)的文本框中將顯示客人的入住信息，并自動計算宿費提醒日期和時間，還可打印追加押金票據(jù)。追加押金界面如圖 所示： 圖 追加押金窗體界面 Fig. Additional Deposit form interface 在窗體的 A 事件中，主要實現(xiàn)查詢數(shù)據(jù)表中住宿客人信息，對“憑證號碼”列表框賦值。主要代碼如下： Private Sub Form_Activate() Dim i As Integer = (4).Text 39。賦值給 ，顯示當前操作員 39。查詢住宿登記信息 = select 憑證號碼 from tb_djb where 標志 = 39。139。order by 憑證號碼 DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。H KFKL DHFDKH FKDS 39。刷新記錄 If 0 Then 39。如果記錄數(shù)大于 0 For i = 1 To 39。循環(huán)從 1 到記錄數(shù)值 (憑證號碼 ).Value 39。從 Combo1 中添加項目 39。記錄下移 Next i End If End Sub 在追加押金模塊中單擊“確定”按扭，將把追加押金信息保存在數(shù)據(jù)表中，自動計算新的提醒日期，并設(shè)定其他控件的有效和無效。部分代碼如下： Private Sub Command1_Click() 39。保存追加押金信息 If And Then 39。查詢住宿登記信息 ?? (預(yù)收金額 ) = Val() + Val() 39。把已收押金和追加押金的和賦給預(yù)收金額字段 ?? 39。刷新數(shù)據(jù) 39。編 輯住宿登記預(yù)收信息 ?? MsgBox 請?zhí)顚懲暾臄?shù)據(jù) ,再保存 !, , 系統(tǒng)提示 39。如果憑證號碼為空或追加押金為空，提示消息 End If End Sub 系統(tǒng)維護模塊的具體實現(xiàn) 系統(tǒng)維護模塊包括子模塊數(shù)據(jù)備份、數(shù)據(jù)恢復和初始化。 數(shù)據(jù)備份模塊，可以將系統(tǒng)的所有數(shù)據(jù)庫內(nèi)容都備份到指定的備份文件夾DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。H KFKL DHFDKH FKDS 中。窗體如下圖 所示： 圖 數(shù)據(jù)備份界面 Fig. surface of Data backup 部分代 碼如下： Private Sub Command1_Click() A = MsgBox(確定備份數(shù)據(jù)？ , 4, 系統(tǒng)提示 ) If A = vbYes Then = False = True = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value amp。 Counter = Counter Open str1 For Binary As 1 Open str2 For Binary As 2 Do While Not EOF(1) Get 1, , char Put 2, , char Loop Close Next Counter = MsgBox 數(shù)據(jù)庫備份成功！ , , 系統(tǒng)提示 DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。H KFKL DHFDKH FKDS = True End If End Sub 數(shù)據(jù)恢復模塊，可以將備份文件夾中的數(shù)據(jù)庫內(nèi)容恢復到原來的數(shù)據(jù)庫中。如下圖 所示： 圖 數(shù)據(jù)恢復界面 Fig. The surface of Data recovery 主要代碼如下： Private Sub Command1_Click() A = MsgBox(確認恢復數(shù)據(jù)庫？ , 4, 系統(tǒng)提示 ) If A = vbYes Then = False = True 39。ProgressBar 控件通過從左到右用一些方塊填充矩形來表示一個較長操作的進度。 = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) 39。LBound 函數(shù)返回一個 Long 型數(shù)據(jù)，其值為指定數(shù)組 維可用的最小下標。 39。UBound 函數(shù)返回一個 Long 型數(shù)據(jù)，其值為指定的數(shù)組維可用的最大下標。 workarea(Counter) = initial value amp。 Counter = Counter DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。H KFKL DHFDKH FKDS Open str1 For Binary As 1 Open str2 For Binary As 2 Do While Not EOF(1) Get 1, , char Put 2, , char Loop Close Next Counter = MsgBox 數(shù)據(jù)庫恢復成功！ , , 系統(tǒng)提示 = True End If End Sub 初始化模塊，對系統(tǒng)數(shù)據(jù)進行初始化即刪除數(shù)據(jù)庫中的數(shù)據(jù)，用戶在使用本系統(tǒng)之前，需要先對本系統(tǒng)進行初始化操作，但是在使用過程中則要謹慎初始化，因為執(zhí)行初始化后原有的數(shù)據(jù)將被刪除。如下圖 所示： 圖 初始化界面 Fig. The surface of Data initialization 主要代碼如下： Private Sub creat_Click() 39。清空選定表中的數(shù)據(jù) A = MsgBox(確認初始化該數(shù)據(jù)？ , 4, 系統(tǒng) 提示 ) If A = vbYes Then ?? If = 1 Then DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。H KFKL DHFDKH FKDS sql = delete * from tb_tfd Set rs = ESQL(sql) 39。調(diào)用模塊中的自定義函數(shù) End If If = 1 Then = select * from tb_kf where 房態(tài) =39。入住 39。ADO Data 控件 ADO Data 控件與內(nèi)部 Data 控件以及 Remote Data 控件 (RDC) 相似。 ADO Data 控件使您能使用 Microsoft ActiveX Data Objects (ADO) 快速地創(chuàng)建一個到數(shù)據(jù)庫的連接。 If 0 Then ?? MsgBox 初始化完成 !, , 系統(tǒng)提示 = False = End Sub 結(jié)束語 全文研究了小型酒店管理系統(tǒng)的設(shè)計與實現(xiàn)，該系統(tǒng)是運用 Microsoft Office Access2021 數(shù)據(jù)庫系統(tǒng)和 Visual Basic 編程語言開發(fā)實現(xiàn)的。 根據(jù)酒店行業(yè)的現(xiàn)實 狀況和發(fā)展，該系統(tǒng)具有實現(xiàn)多點操作的信息共享，相互之間的信息傳遞準確、快捷和順暢，服務(wù)管理信息化，可隨時掌握客人住宿、客房狀態(tài)等情況，系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便，數(shù)據(jù)存儲安全。通過該系統(tǒng)的實施，可逐步提高酒店的管理水平，提升員工的素質(zhì)。系統(tǒng)維護方便可靠，有較高的安全性，滿足實用性的要求。 在這次做畢業(yè)設(shè)計的過程中我學到了很多。從一開始的設(shè)計選題到論文的最終截稿，我親身感受到了要做好一個畢業(yè)設(shè)計其中的知識含量光靠我們原先的學習是不夠的，因此，我查閱了許多與該選題相關(guān)的文獻并且通過互聯(lián)網(wǎng)也查詢 了該選題的發(fā)展情況，但由于我的能力有限本系統(tǒng)在功能設(shè)計方面還是有些不足之處，比如在設(shè)計模塊中的功能就設(shè)計得較為單一，還有就是在信息排版方面做得還不夠。但是通過這次的實踐我自身的能力確實得到了一定程度的提升，同時也DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。H KFKL DHFDKH FKDS 了解了寫論文的格式，所以說這次的經(jīng)驗是很值得我牢記于心的。 致謝 在這里，首先感謝我的指導老師周培春老師。從我的論文選題到論文的撰寫完成，周老師細心、嚴謹?shù)囊蠛椭笇?，給了我非常大的幫助與支持。我還要感謝我的同學們給我的幫助和指導，使我能較好的掌握相關(guān)的開發(fā)技術(shù)上，這是我完成本次畢業(yè)設(shè)計和畢業(yè)論文的 保障。 參考文獻 [1] 劉韜 ,駱娟 ,何旭洪 .Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航 [M].北京 :人民郵電出版社 ,2021 [2] 張玲 ,劉玉玫 . Access 數(shù)據(jù)庫技術(shù)實訓教程 .[M].北京 :清華大學出版社 ,2021 [3] 薩師煊 ,王珊 . 數(shù)據(jù)庫系統(tǒng)概論 [M]. 北京 :高等教育出版社 ,1983 [4] 李敏業(yè) ,王穎 .Visual Basic +Access 數(shù)據(jù)庫應(yīng)用實例完全解析 [M].北京 :人民郵電出版社 ,2021 [5] 譚浩強 . Visual basic 中文版 .[M].北京 :清華大學出版社 ,1998 [6] 沈煒 ,郭偉偉編著 .Visual Basic 編程從基礎(chǔ)到實踐 .[M].北京 :電子工業(yè)出版社 ,2021 [7] 彭波 . Visual Basic 編程技術(shù)全接觸 .[M].北京 :清華大學出版社 ,2021 [8] 白曉勇 ,余健等 . Visual Basic 課程設(shè)計案例精編 .[M].北京 :清華大學出版社 ,2021 [9] 陳紫紅 ,安劍 ,孫秀梅 .Visual Basic 項目開發(fā)全程實錄 [M].北京 :高等教育出版社 ,2021 [10] 匡松 ,呂峻閩 .Visual Basic 程序設(shè)計及應(yīng) 用 .[M].北京 :清華大學出版社 ,2021 [11] 劉彬彬 . Visual Basic 項目開發(fā)實例自學手冊 .[M].北京 :人民郵電出版社 ,2021 [12] 安劍 ,孫秀梅 . Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)自學手冊 .[M].北京 :人民郵電出版社 ,2021 [13] 張瀚文 ,齊錦剛 . Visual Basic 數(shù)據(jù)庫 開發(fā) 開發(fā)與解析 .[M].北京 :高等教育 出版社 ,2021 DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。H KFKL DHFDKH FKDS [14] 劉彬彬 . Visual Basic 控件參考大全 .[M].北京 :人民郵電出版社 ,2021 [15] 劉韜 ,駱娟 .Visual Basic 數(shù)據(jù)通用模塊及典型系統(tǒng)開發(fā)實例導航 .[M].北京 :人民郵電出版社 ,2021 [16] 李春葆 ,曾平編 . Access 數(shù)據(jù)庫程序設(shè)計 .[M].北京 :清華大學出版社 ,2021