【正文】 tatus). = 在住 .Sections(Section1).Controls(txtRoomStatus). = 空房 .Sections(Section1).Controls(txtRoomStatus). = 未知 39。實施報表數據源綁定 39。End Sub Private Sub mnuReportRoom_Click() 39。 = 客房信息 39。 圖 14 房間基本情況表 主要代碼如下所示： 39。查詢客房信息 = select * from kf where like + Chr(34) + + * + Chr(34) + End Sub Private Sub Command2_Click() 39。自動識別數據庫路徑 = amp。顯示為模式窗體 .Show vbModal End With End If End Sub （ 1）客房查詢模塊 本模塊可以對客房進行查詢，房間標準 、 單價 、房間是否空閑， 可以通過客房查詢功能輸入房間號讓管理員一目了然清楚整個的酒店日程運作，方便管理。有就提示，然后退出 !RoomStatus = False End If With .Delete End With End If End With End If End Sub Private Sub cmdEdit_Click() If True And True Then With frmGuestInfoEdit 39。 39。 amp。窗體標題 .Caption = 添加新客人 . = False . = . = . = . = . = Date 39。 圖 11 客人信息 客人信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結日期、備注信息等。設置控件有效或無效 = False: = False = True: = True End Sub Private Sub cancel_Click() 39。編輯客房信息 If Then (房間號 ) = If Then (房態(tài) ) = If Then (房間類型 ) = If Then (價格 ) = If Then (營業(yè)日期 ) = If Then (使用設置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標志 ) = 0 39。添加客房 If Then (房間號 ) = If Then (房間類型 ) = If Then (房態(tài) ) = If Then (價格 ) = If Then (營業(yè)日期 ) = If Then (使用設置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標志 ) = 0 39。登記 = : = : = = : = = True: = True: = False End Sub Private Sub save_Click() 39。按回車鍵 Combo1獲得焦點 End Sub Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub texjg_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DTP1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。 39。 amp。查詢客房信 息 = select * from kf where 房間類型 =39。 \ 39。點擊主界面的客房管理可以看到客房查詢在點擊客房查詢會出下如圖 10 所示的客房信息圖，此模塊的功能是管理員可以通過本模塊對系統的進行新房間的添加，對已有房間資料的修改或刪除等操作，界面簡單，易于操作。 界面美觀，大方，相信會蒙受大家的喜歡。 If And And = (密 碼 ) Then Load main Unload Me Else If TIM = 3 Then 39。 amp。驗證操作員及密碼 If = False Then 操作員 like + Chr(34) + + Chr(34) + If Then MsgBox (操作員輸入錯誤 !) Else = select * from qxsz where 操作員 =39。按回車鍵， text2獲得焦點 End Sub Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。 \ End Sub Private Sub Form_Activate() 39。自動識別數據庫路徑 = amp。定義一個整型變量 Dim myval As String 39。同時通過登錄信息輸入來確認使用權限，管理員通過登錄系統后，便可進行管理和維護 。各個實體具體的描述屬性圖如下： 圖 3 客房標準信息實體屬性圖 圖 4 客房信息實體屬性圖 圖 5 訂房信息實體屬性圖 訂房信息實體 客房編號 顧客名 折 扣 入住時間 身份證號 客房信息實體 客房標準 客房編號 客房位置 客房單價 客房標準信息實體 標準編號 標準名稱 床位數量 客房單價 圖 6 結算信息實體屬性圖 各個實體具體的描述 ER圖如下： 1 N N 1 1 1 圖 7 實體之間關系 ER 圖 (3)數據庫表結構設計 首先將酒店客房管理系統的數據庫概念結構轉化為 ACCESS 數據庫系統所支持的實際數據模型，即：數據庫的邏輯結構。 (2)數據庫概念結構設計 。完整性控制的主要目的是防止語義上不正確的數據進入數據庫。如果數據庫系統運行中發(fā)生故障，有些事務尚未完成就被迫中斷，這些未事務對數據庫所做的修改有一部分已寫入物理數據庫，這時數據庫就處于一種不正確的狀態(tài)，或者說是不一致的狀態(tài)。 一致性：數據庫的一致性是 指事務執(zhí)行的結果必須是使數據庫從一個一致性狀態(tài)變到另一個一致性狀態(tài)。 （ 4）系統管理：管理員利用自己的用戶名和密碼維護本系統正常運行。結算 信息查詢，查詢到的信息包括登記號、 結算 日期、付款金額。 （ 2） 訂房管理： 可根據客人的基本訂房資料自動顯示該種房間類型在該客人抵達酒店期間所剩余的房間數量；客人預訂可到房間類型也可到房間號；根據已經預訂房間客人資料進行快速入住登記； （ 3）客房管理： 該功能可以客房信息查詢、客房結算 查詢和效益信息查詢。 流圖 圖 1 酒店客房管理系統數據流圖 管理員 房 間信息 登記 P1 房間，客人信息查詢 P4 入住管理P2 房間信息表 訂房信息表 結算 P3 客 人 客人信息 查 詢 房間信息 房間信息 結算清單 三、系統設計 按結構化程序設計思想，分析得出如下系統功能模塊圖 圖 2 系統功能模塊圖 （ 1） 結算管理： 根據核實的客人入住情況，系統提供酒店應返利的詳細報表，方便 結算部門向酒店進行結算，并根據實際結算情況核實酒店返款情況，系統記錄下所有的信息，可以隨時根據酒店名稱、編號及日期對酒店結算情況進行查詢，酒店客房管理系統 結算管理 訂房管理 客房管理 系統管理 結算信息查詢 結算信息修改 結算信息添加 訂房信息查詢 訂房信息修改 訂房信息添加 剩余客房信息查詢 設置客房信息 設置客房標準 密碼管理 用戶管理 客房信息查詢 客房信息修改 客房信息添加 客房標準修改 客房標準添加 方便應收帳款的催繳。 （ 3）訂房信息，包括的數據項有：訂房編號、客房編號、客房種類、客房備注信息、顧客姓名、顧客身份證號碼、入住時間 、折扣、備注等。 針對一般酒店客房管理信息系統的需求，通過對酒店客房管理過程的內容和流程分析，設計如下面所示的數據項和數據結構 ： （ 1）客房標準信息，包括的數據項有：標準編號、標準名稱、住房單價等。 （ 4）結算管理：管理員通過對結算信息的查詢，實現對客人離開酒店的結算工作，包括查看客人所住房間的單價、入住日期、打印結算清單完成結算 功能。 （ 2）客人管理：管理員可以通過對客人信息的查詢，實現客人入住管理，登記和修改客人的信息、如客人的姓名、身份證號碼、入住日期的功能。 系統開發(fā)的總體任務是實現酒店客房各種信息的系統化、規(guī)范化和自動化。因此系統的開發(fā)完全可行的。能夠取得良好的經濟效益。因此對于中小型酒店在經濟上完全可以接受。 （ 3） 經濟上的可行性 操作人員只需簡單培訓即可上崗。因此，系統的軟件開發(fā)平臺已成熟可行。 （ 2） 技術上的可行性 本管理 信息系統將采用技術成熟的 做為前臺開發(fā)工具。因