【正文】 amp。代碼如下： Private Sub DataGrid1_MouseClick(ByVal sender As Object, ByVal e As ) Handles ZSFY = 0 39。 （ 3）代碼設(shè)計(jì) ① 添加全局?jǐn)?shù)據(jù)公共模塊和全局變量，方便事件過程間的 費(fèi)用計(jì)算。刪除選中行的記錄 End Sub 退房結(jié)賬模塊設(shè)計(jì) （ 1）窗體功能描述 當(dāng)顧客要辦理退房結(jié)賬時(shí)，操作員進(jìn)入退房結(jié)賬窗體。 amp。顯示入住單號(hào) End Sub ③ 輸入開單信息之后，點(diǎn)擊確定即添加 入住單信息。 圖 77 登記入住窗體 登記入住窗體包括以下控件：窗體（ Form），標(biāo)簽（ Label），組合框（ Combobox），文本框（ TextBox），按鈕（ Button），框架（ Panel）， GroupBox 控件 ,DataGirdview 控件和 SqlDataAdapter 控件等。 amp。 間 = amp。 圖 76 系統(tǒng)菜單欄 （ 3）代碼設(shè)計(jì) ① 主界面載入時(shí)，將數(shù)據(jù)庫中的客房信息顯示到 DataGrid表格中，并顯示酒店客房營業(yè)的總體情況。并將所有的用戶名稱添加到 Comobox 控件中。 ③ 用戶權(quán)限判定。 End If Dim sql As New SqlCommand(str, sqlcon) () () End Function End Module 23 系統(tǒng)窗體構(gòu)架 系 統(tǒng) 主 界 面登 記 入 住 窗 體客 房 預(yù) 訂 窗 體系 統(tǒng) 登 錄 界 面信 息 查 詢 窗 體更 換 房 間 窗 體信 息 查 詢 窗 體消 費(fèi) 記 帳 窗 體結(jié) 帳 退 房 窗 體營 業(yè) 統(tǒng) 計(jì) 窗 體客 房 信 息 設(shè) 置 窗 體商 品 信 息 設(shè) 置 窗 體客 房 狀 態(tài) 設(shè) 置 窗 體用 戶 管 理 窗 體數(shù) 據(jù) 庫 維 護(hù) 窗 體系 統(tǒng) 日 志 窗 體 圖 71 系統(tǒng)窗體總構(gòu)架圖 24 客 房 信 息 設(shè) 置 窗 體添 加 / 修 改 客 房 窗 體添 加 / 修 改 客 房 類 型 窗 體 圖 72 客房信息設(shè)置窗體構(gòu)架圖 商 品 信 息 設(shè) 置 窗 體添 加 / 修 改 商 品 窗 體添 加 / 修 改 商 品 類 別 窗 體 圖 73 商品信息設(shè)置窗體構(gòu)架圖 系統(tǒng)界面設(shè)計(jì) 登錄窗體設(shè)計(jì) （ 1）窗體功能描述 本窗體是系統(tǒng)的啟動(dòng)窗體，實(shí)現(xiàn)對于用戶身份的多重驗(yàn)證功能。 set amp。關(guān)閉連接 End Function Public Function DelData(ByVal str1 As String, ByVal str2 As String) As Integer () If str2 = Then str = delete from amp。 NRZY amp。 Now amp。用戶名 Dim str As String Dim sqlcon As SqlConnection = New SqlConnection(server=localhost。 通過對各個(gè)實(shí)體及其屬性的描述，我們進(jìn)一步得到各實(shí)體之間的 ER 圖，如圖 610所示。 ：入住單號(hào)、顧客姓名、性別、顧客類型、顧 客來源、顧客人數(shù)、證件類型、證件號(hào)碼、公司名稱、聯(lián)系電話、主房編號(hào)、類型名稱、客房價(jià)格、入住價(jià)格、折扣比例、預(yù)收金額、抵店時(shí)間、備注信息、離店時(shí)間。 經(jīng)過對上述系統(tǒng)功能的分析和需求總結(jié)，設(shè)計(jì)如下數(shù)據(jù)項(xiàng)： ：客房編號(hào)、類型名稱、客房位置、室內(nèi)電話、客房狀態(tài)、客房描述、據(jù)編號(hào)、備注信息。其主要功能如下： （ 1）清除指定時(shí)間段內(nèi)或所有營業(yè)數(shù)據(jù)，包括單據(jù)信息、消費(fèi)記錄和入住歷史信息等； （ 2）清空所有數(shù)據(jù)庫表，即刪除所有數(shù)據(jù)，包括客房信息； （ 3）備份和還原數(shù)據(jù)庫， 將數(shù)據(jù)庫備份到用戶指定的路徑或從指定的路徑還原數(shù)據(jù)庫。 房態(tài)管理模塊 一般系統(tǒng)可自動(dòng)管理客房狀態(tài)，而在該模塊中可查詢或 手動(dòng)修改客房狀態(tài)。輸入結(jié)賬單信息，主要包括結(jié)賬單號(hào)、入住單號(hào)、主客房間、顧客姓名、公司名稱、住 宿費(fèi)用等。 消費(fèi)記賬模塊 該模塊 記錄顧客在店內(nèi)的消費(fèi)信息，包括餐飲、娛樂及零售商品的消費(fèi)情況?？煽焖偻瓿深櫩托畔⑤斎搿⑦x擇房間（一次可選擇多個(gè)房間）、收取押金等顧客入住手續(xù)。 9 圖 51 系統(tǒng)功能模塊結(jié)構(gòu)圖 客房預(yù)訂模塊 客房預(yù)訂模塊可使顧客在抵店之前就登記好房間，待到達(dá)之后即可辦理入住手續(xù)。 圖 42 住宿費(fèi)用計(jì)算方法圖 另外，在退房結(jié)賬模塊內(nèi)，還存在如下費(fèi)用計(jì)算方法： 應(yīng)收金額 = 住宿費(fèi)用＋消費(fèi)金額；實(shí)收金額 = 應(yīng)收金額 預(yù)收押金。 系統(tǒng)數(shù)據(jù)和計(jì)算規(guī)則 數(shù)據(jù)精確度要求 產(chǎn)生顧客消費(fèi)記錄 登記入住 輸入顧客信息 預(yù)收押金 安排顧客入住 商品消費(fèi) 住宿費(fèi)用 核對消費(fèi)金額 結(jié)賬 離店 7 由于本系統(tǒng)只應(yīng)用于一般性的營業(yè)操作，對數(shù)據(jù)精確度的要求不是太高，主要涉及的還是營業(yè)中各種費(fèi)用的計(jì)算，對于金額、價(jià)格、總額這些涉及貨幣的數(shù)據(jù)要求精確到小數(shù)點(diǎn)后兩位即可。 6 圖 41 一 般酒店業(yè)務(wù)流程圖 用戶界面需求 本系統(tǒng)的用戶一般為酒店的管理和銷售人員，除了從功能上滿足他們的需求外，還應(yīng)考慮到系統(tǒng)界面設(shè)計(jì)、功能設(shè)置等方面是否適應(yīng)他們的習(xí)慣和工作方式。 操作可行性 本系統(tǒng)采用界面化設(shè)計(jì)，簡單易用，各項(xiàng)數(shù)據(jù)都用表格形式顯示出來，酒店?duì)I業(yè)情況一目了然。建立好 DataSet 對象后，可以調(diào)用數(shù)據(jù)適配器的 Fill 方法從數(shù)據(jù)庫中將數(shù)據(jù)讀入到數(shù)據(jù)集中。 對象的使用 Connection 對象 控件若要在數(shù)據(jù)存儲(chǔ)區(qū)和應(yīng)用程序之間傳遞數(shù)據(jù)，必須首先建立到該數(shù)據(jù)存儲(chǔ)區(qū)的連接。如果有 VB 和 VC的基礎(chǔ)，將極大地加快 上手的速度，而且理解其中一些較深層次的內(nèi)容也更容易。 2 操作人員只需敲擊鍵盤 ， 就可以辦理客人入住、查詢信息、結(jié)賬等各項(xiàng)手續(xù)，并準(zhǔn)確無誤地記錄客人的每筆消費(fèi)記錄， 大大 縮短 客人 辦理手續(xù)時(shí)的 等候時(shí)間，提高 了 服務(wù)質(zhì)量。 借助計(jì)算機(jī) 技術(shù) 來進(jìn)行信息管理 ， 并配合現(xiàn)代化的酒店管理經(jīng)驗(yàn)和模式，可以極大地提高酒店的服務(wù)質(zhì)量，獲得更好的經(jīng)濟(jì)效益。傳統(tǒng)的酒店管理往往令管理者花大量的人力和物力以滿足各種繁瑣的經(jīng)營活動(dòng)的需要，例如冗長的登記和結(jié)賬手續(xù)、手工記錄所有客房狀態(tài)、列表統(tǒng)計(jì)顧客消費(fèi)情況等。因此，采用全新的計(jì)算機(jī)管理系統(tǒng)，將成為提高酒店的管理效率，改善 服務(wù)水準(zhǔn)的重要手段之一。 完善的客房管理功能可防止有房不能出租或房間重訂的情況出現(xiàn)，隨時(shí)提供準(zhǔn)確和最新的房態(tài)信息，從而可提高工作效率和客房出租率。下面就針對Visual 和 SQL Server 20xx 做一些簡要介紹。 數(shù)據(jù)庫訪問技術(shù) 3 是對 Microsoft ActiveX Data Objects(ADO)一個(gè)跨時(shí)代的改進(jìn)，它提供了平臺(tái)互用性 和可伸縮的數(shù)據(jù)訪問?！?) Command 對象 Command 對象可以執(zhí)行 SQL 命令、傳遞系統(tǒng)參數(shù)以及取得數(shù)據(jù)結(jié)果等， 的Command 對象分為 DataSetCommand 和 Command。數(shù)據(jù)庫中儲(chǔ)存了所需要被處理的數(shù)據(jù)，并由 SQL Server 20xx 數(shù)據(jù)庫管理 系統(tǒng)對其進(jìn)行集中管理，應(yīng)用程序由 Visual Studio 20xx 集成開發(fā)環(huán)境中的 編程語言進(jìn)行開發(fā)。如圖 41所示，從顧客入店登記開始，到顧客在店期間的商品消費(fèi)和住宿費(fèi)用的計(jì)算，最后到收銀結(jié)賬辦理離店手續(xù)，它展示了酒店經(jīng)營活動(dòng)的一次完整的業(yè)務(wù)流程。更重要的是，它還應(yīng)具備數(shù)據(jù)庫的備份和還原功能，以便系統(tǒng)出現(xiàn)故障或數(shù)據(jù)遭到破壞時(shí)能夠及時(shí)恢復(fù)，把損失降 到最低。否則，計(jì)算時(shí)間差以天數(shù)為單位，計(jì)算公式如下： 鐘點(diǎn)房費(fèi)用 = 房價(jià)小時(shí)數(shù)；住宿費(fèi)用 = 房價(jià)天數(shù)。 例如 ： 在 20xx413，某客戶是這一天第三個(gè)登記入住，則入住單號(hào)為 RZ20xx0413003。 小型酒店管理系統(tǒng) 客房信息設(shè)置模塊 客房預(yù)訂模塊 客房信息添加 客房信息刪除 登記入住模塊 更換房間模塊 信息查詢模塊 消費(fèi)記賬模塊 用戶信息管理模塊 商品信息設(shè)置模塊 客房信息修改 在店顧客查詢 離店顧客查詢 預(yù)訂顧客查詢 添加消費(fèi)信息 消費(fèi)轉(zhuǎn)單 退出系統(tǒng) 用戶信息添加 用戶信息修改 用戶信息刪除 商品信息添加 商品信息刪除 商品信息 修改 添加預(yù)訂 取消預(yù)訂 預(yù)訂入住 營業(yè)狀況統(tǒng)計(jì)模塊 數(shù)據(jù)庫維護(hù)模塊 退房結(jié)賬模塊 消費(fèi)退單 系統(tǒng)日志模塊 客房狀態(tài)管理模塊 10 （ 4）更新客房狀態(tài)。 信息查詢模塊 在該模塊中按設(shè)定條件查詢店內(nèi)相關(guān)信息，包括入住客人信息、歷史客人信息、預(yù)訂單信息以及顧客賬單信息等，主要功能有： （ 1）查詢客人信息。 退房結(jié)賬模塊 該模塊實(shí)現(xiàn)顧客離店時(shí)的費(fèi)用結(jié)算功能。系統(tǒng)需要完成的功能主要有： （ 1）客房類型的輸入、更新和刪除，包 括類型名稱、客房價(jià)格和備注； （ 2）客房信息的輸入、更新和刪除，包括客房編號(hào)、類型名稱、客房位置、室內(nèi)電話、客房狀態(tài)、客房描述、單據(jù)編號(hào)、備注信息。只有超級(jí)用戶才能使用該模塊，普通用戶無此權(quán)限。 圖 52 系統(tǒng)流程圖 13 第六章 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫需求分析 酒店管理系統(tǒng)需要提供信息的查詢、添加、修改以及刪除等功能。 ：入住單號(hào) 、顧客姓名、顧客類型、顧客來源、證件類型、證件號(hào)碼、性別、公司名稱、聯(lián)系電話、顧客人數(shù)、主房編號(hào)、類型名稱、客房價(jià)格、入住價(jià)格、折 14 扣比例、預(yù)收金額、抵店時(shí)間、預(yù)住天數(shù)、備注。 圖 67 預(yù)訂單實(shí)體屬性圖 …… 入住單 證件類型 顧客姓名 入住價(jià)格 抵店時(shí)間 預(yù)住天數(shù) 入住單號(hào) 預(yù)訂單 顧客類型 顧客姓名 預(yù)抵時(shí)間 保留時(shí)間 預(yù)訂日期 預(yù)訂單號(hào) …… 商品信息 進(jìn)貨標(biāo)記 商品名稱 商品價(jià)格 商品類別 商品編號(hào) 庫存數(shù)量 商品類別 商品類別 是否需要服務(wù)生服務(wù) 類別編號(hào) 消費(fèi)記錄 記錄編號(hào) 顧客姓名 商品類別 商品名稱 入住單號(hào) 購買價(jià)格 購買數(shù)量 消費(fèi)金額 16 在預(yù)訂單實(shí)體中主要包括以下屬性：預(yù)訂單號(hào)、顧客姓名、顧客類型、顧客來源、公司名稱、聯(lián)系電話、預(yù)訂房數(shù)、預(yù)訂日期、預(yù)抵時(shí)間、保留時(shí)間、備注等。例如模塊 ，它可實(shí)現(xiàn)對數(shù)據(jù)庫的連接，并可對數(shù)據(jù)庫表中的數(shù)據(jù)進(jìn)行更新操作。建立連接命令 Public Function XTRZ(ByVal NRZY As String, ByVal CZNR As String) As Integer () 39。 39。 39。 str2 amp。 str2 amp。系統(tǒng)將用戶的狀態(tài)分為“可用”和“停用”。 25 圖 74 系統(tǒng)登錄窗體 登錄窗體上所用的控件包括：窗體（ Form），圖像（ PictureBox），組合框（ ComboBox），文本框 (TextBox)，標(biāo)簽（ Label）和按鈕（ Button）控件。打開窗體的界面設(shè)計(jì)，在工具箱分別選擇相應(yīng)的控件把窗體設(shè)計(jì)成如圖 75所示。 amp。 % For i = 0 To . 1 If (, .Rows(i).Item(預(yù)抵時(shí)間 ), Now()) = 0 Then JRDD += 1 End If Next = amp。最后點(diǎn)擊取消按鈕即可退出登記入住窗體。顯示空凈房信息 Dim i As Integer For i = 0 To . 1 (0, (客房信息表 ).Rows(i).Item(0), (客房信息表 ).Rows(i).Item(1), (客房信息表).Rows(i).Item(2)) Next (DataSetRZD1, 入住單表 ).AddNew() 39。入住 39。 39。 31 如果要免除某個(gè)顧客的所有費(fèi)用，只要選中“免費(fèi)”選項(xiàng)框，則實(shí)收金 額清零，且結(jié)賬單中的“結(jié)算狀態(tài)”標(biāo)記為“免費(fèi)”。 (, 0) amp。實(shí)收金額 ZL = 0 39。 33 (DataSetXFJL1) Dim i As Integer For i = 0 To 1 39。應(yīng)收金額 YSYJ = 0 39。計(jì)