【正文】 很好的結(jié)賬離店。由于 VB 簡單易學、操作方便、功能強大等特點，已經(jīng)成為普通用戶首選的程序設(shè)計語言。 Access 技術(shù)相關(guān)介紹 Access 是微軟公司推出的基于 Windows 的桌面關(guān)系數(shù)據(jù)庫管理系統(tǒng)（ RDBMS），是 Office 系列應(yīng)用軟件之一。它將一個應(yīng)用系統(tǒng)當作是由一系列對象組成的，對 每個對象它都定義一組方法和屬性，以定義該對象的行為和外國，用戶還可以按需要給對象擴展方法和屬性。系統(tǒng)還提供了表生成器、查詢生成器、報表設(shè)計器以及數(shù)據(jù)庫向?qū)?、表向?qū)А⒉樵兿驅(qū)?、窗體向?qū)?、報表向?qū)У裙ぞ撸沟貌僮骱啽?，容易使用?掌握。利用數(shù)據(jù)庫訪問頁對象生成 HTML 文件，輕松構(gòu)建 Inter/Intra 的應(yīng)用。下面是對酒店管理系統(tǒng)的可行性分析。 Access2021 不僅是一個數(shù)據(jù)庫，而且它具有強大的數(shù)據(jù)管理功能，它可以方便地利用各種數(shù)據(jù)源，生成窗體（表單），查詢，報表和應(yīng)用程序等。另外， Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。 該系統(tǒng)的設(shè)計與開發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。而且該系統(tǒng)簡單易操作，易維 護 ，減少了不必要的麻煩。因此就需要在安全方面進行設(shè)置。 本系統(tǒng)的運行可以大大的提高賓館服務(wù)人員的工作效率。 它是軟件定義時期的最后一個階段，它的基本任務(wù)是準確地回答“系統(tǒng)必須做什么？”這個問題。 需求獲取是在問題及其最終解決方案之間架設(shè)橋梁的第一步。 需求分析 需求分析是從客戶的需求中提取出軟件系統(tǒng)能夠幫助用戶解決的業(yè)務(wù)問題，通過對用戶業(yè)務(wù)問題的分析，規(guī)劃出系統(tǒng)的功能模塊，即定義用例。 系統(tǒng)運行環(huán)境需求。 ? 客房信息查詢：可以顯示所有客房信息并查詢出未滿客房的信息。 ? 帳目統(tǒng)計：統(tǒng)計所有金額。 系統(tǒng)性能需求 為了保證系統(tǒng)能夠長期、安全、穩(wěn)定、可靠、高效地運行，公交查詢系統(tǒng)應(yīng)該滿足以下性能需求： 系統(tǒng)處理的準確性和及時性 系統(tǒng)處理的準確性和及時性是系統(tǒng)的必要性能。一般操作的響應(yīng)時間應(yīng)在 12s 內(nèi)，對數(shù)據(jù)的導入、導出的操作也應(yīng)在可接受的時間內(nèi)完成。而要實現(xiàn)這一點，應(yīng)通過系統(tǒng)的開放性來完成，即系統(tǒng)應(yīng)是一個開放系統(tǒng)，只要符合一定的規(guī)范，可以簡單地加入和減少系統(tǒng)的模塊，配置系統(tǒng)的硬件。所以在系統(tǒng)開發(fā)的時候就考慮到了這一點。屬性是實體具有的 某一特性。兩個實體之間的聯(lián)系可分為三類： 一對一的聯(lián)系（ 1： 1） ； 一對多的聯(lián)系（ 1： n） ； 一對多的聯(lián)系（ 1： n） 。 接待信息實體主要包括的屬性有，客房編號，客房的種類，客房位置，顧客姓名， 性別，顧客證件號碼，證件類型，入住時間，退房時間 等。 各實體之間 ER 圖 見圖 31 所示。在實現(xiàn)各個獨立功能模塊之前，首先在數(shù)據(jù)環(huán)境設(shè)計器中創(chuàng)建訪問數(shù)據(jù)庫需要的命令對象。 開發(fā)與運行環(huán)境 開發(fā)與運行環(huán)境的選擇會影響數(shù)據(jù)庫設(shè)計 ,本系統(tǒng)開發(fā)與運行的環(huán)境為 : 系統(tǒng)運行環(huán)境需求如表 421 所示。并創(chuàng)建一個標準的 EXE 文件。 圖 52 代碼 見附錄 創(chuàng)建登陸界面 功能：單擊歡迎界面進入用戶登錄界面。 登陸窗體如圖 53 所示。 客房信息管理 設(shè)置客房信息 15 功能：賓館管理員需要對賓館的客房信息進行統(tǒng)一的設(shè)置。設(shè)置客房信息窗體如圖 55 所示： 圖 55 代碼見附錄。 圖 56 代碼見附錄。具體 完成界面如圖 58 所示 。輸入顧客身份證號后，表中就會顯示出顧客的個人信息。 18 圖 510 代碼見附錄 金額統(tǒng)計 帳目統(tǒng)計 功能：在賓館里過往的人都非常多，如果沒有系統(tǒng)的結(jié)算，對工作就會帶來好多不便，所以帳目統(tǒng)計就是對所有的金額進行統(tǒng)計瀏覽，界面如圖511 所示。先輸入要使用的新的用戶名，在輸入舊密碼以及新密碼，并且要對新密碼進行確認，確定之后在用戶表中即得到了修改，添加一個標準窗體，修改用戶的窗體如圖 514 所示： 圖 514 代碼見附錄 21 結(jié) 束 語 在這次畢業(yè)設(shè)計中，我選用了 進行開發(fā)， Visual 是新一代 Visual visual basic 基礎(chǔ)上添加了一些特性。 通過設(shè)計和開發(fā)賓館管理信息系統(tǒng)，使我學到了許多有關(guān)數(shù)據(jù)庫方面和軟件開發(fā)的知識，對軟件工程和軟件開發(fā)有了進一步的了解，通過這次畢業(yè)設(shè)計，鞏固了我所學到的課本知識，提高了我思考和解決問題的能力，做到了學以致用。在一些模塊設(shè)計中，有的設(shè)計思路沒有考慮進去，在以后的時間里還要加以補充 ， 還有的細節(jié)的地方也需要進一步修改和完善。要在酒店服務(wù)中選擇好適合自己酒店實 際情況的業(yè)務(wù)管理系統(tǒng)不僅要考慮該系統(tǒng)在酒店的實 22 用性，還要考慮酒店對該系統(tǒng)所能夠承擔費用的能力，以及這個系統(tǒng)對操作員來說的操作難易程度。 23 參考文獻 [1] 曹戈 .《 Visual Basic 使用教程》電子工業(yè)出版社 ,2021年 12月 [2]《輕松學用 VB 》 .美 Wallace Wang 電子工業(yè)出版社 ,2021年 5月 [3] 明月工作室 .《 VB 編程百例》人民郵電出版社 ,2021年 5月 [4] 王興晶 .《 》電子工業(yè)出版社 ,2021年 9月 [5]安忠 ,佟志臣 .《管理信息系統(tǒng)實用教程》中國鐵道出版社 ,2021年 9月 [6]美 《 VB 》清華大學出版 ,2021 [7]劉韜、駱娟、何旭洪 《數(shù)據(jù)庫系統(tǒng)開發(fā)實力導航》人民郵電出版社 ,2021 年 8 月 [8]黃梯云，李一軍 .管理信息系統(tǒng) (第三版 )[M].北京：高等教育出版社， 2021 注： [J]指期刊， [M]指著作， [N] 指報刊， [D]指學位論文 24 附 錄 圖 52 代碼： Private Sub Form_Click() 登錄界面 .Show Unload Me End Sub Private Sub Form_Load() = 4850 End Sub Private Sub Timer1_Timer() = 50 If = 3500 Then = 4850 End Sub 圖 53 代碼： Private Sub Command1_Click() = select * from 用戶修改 If = Then MsgBox 請輸入用戶名！ Else If = Then MsgBox 請輸入密碼！ Else If (用戶名 ) Then MsgBox 用戶名錯誤！重新輸入。 and 客房類型 =39。 End Sub Private Sub Command2_Click() = select * from 客房信息 End Sub 圖 58 代碼： Private Sub Command1_Click() = = = = Date End Sub Private Sub Command2_Click() If Text5 = Then MsgBox 請輸入顧客姓名！ Else If Text6 = Then MsgBox 請輸入顧客性別！ Else If Text7 = Then MsgBox 請輸入顧客身份證號！ Else !所需金額 = 0 !入住日期 = Date 31 !客房編號 = !客房類型 = Text1 MsgBox 記錄已保存！ !已住人數(shù) = !已住人數(shù) + 1 If !顧客上限 !已住人數(shù) = 0 Then !目前狀態(tài) = 已滿 End If End If End If End If End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub DataCombo1_Click(Area As Integer) = select * from 客 房 信 息 where 客 房 編 號 =39。 and 目前狀態(tài) =39。 Text2 amp。 Text1 amp。 Text1 amp。 Text1 amp。 = Else If = Then MsgBox 請輸入新密碼！ Else If = Then MsgBox 請確認新密碼！ Else If Then MsgBox 密碼不一致！請重新輸入。 !所需金額 = !客房單價 * (Date !入住日期 ) !退房日期 = Date !已住人數(shù) = !已住人數(shù) 1 !目前狀態(tài) = 未滿 MsgBox 退房成功！所需金額為 amp。and 所需金額 =0 = True End Sub Private Sub Command2_Click() If Or Then MsgBox 當前無記錄，請指定記錄！ Else = select * from 客房信息 where 客房編號 =39。 End Sub Private Sub Command3_Click() 32 = select * from 顧客信息 End Sub Private Sub Option2_Click() = False = True = True = False Text1 = End Sub Private Sub Option1_Click() = True = False = False = True Text2 = End Sub 圖 510 代碼： Private Sub Command1_Click() = select * from 顧客信息 where 客房編號 =39。 End Sub Private Sub Command1_Click() = select * from 顧客信息 where 顧客姓名 =39。 Text4 = !顧客上限 !已住人數(shù) End Sub 圖 59 代碼： Private Sub Command2_Click() = select * from 顧客信