【正文】 Grade). = 標(biāo)準(zhǔn)間 .Sections(Section1).Controls(txtRoomGrade). = 豪華間 .Sections(Section1).Controls(txtRoomGrade). = 未知 .Sections(Section1).Controls(txtRoomType).DataField = RoomType .Sections(Section1).Controls(txtRoomType). = 5 .Sections(Section1).Controls(txtRoomType). = 單人間 .Sections(Section1).Controls(txtRoomType). = 雙人間 .Sections(Section1).Controls(txtRoomType). = 未知 .Sections(Section1).Controls(txtRoomRate).DataField = RoomRate .Sections(Section1).Controls(txtRoomStatus).DataField = RoomStatus .Sections(Section1).Controls(txtRoomStatus). = 5 .Sections(Section1).Controls(txtRoomStatus). = 在住 .Sections(Section1).Controls(txtRoomStatus). = 空房 .Sections(Section1).Controls(txtRoomStatus). = 未知 39。實施報表數(shù)據(jù)源綁定 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。自動識別數(shù)據(jù)庫路徑 = amp。顯示為模式窗體 .Show vbModal End With End If End Sub （ 1）客房查詢模塊 本模塊可以對客房進(jìn)行查詢，房間標(biāo)準(zhǔn) 、 單價 、房間是否空閑， 可以通過客房查詢功能輸入房間號讓管理員一目了然清楚整個的酒店日程運作，方便管理。有就提示，然后退出 !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。窗體標(biāo)題 .Caption = 添加新客人 . = False . = . = . = . = . = Date 39。 圖 11 客人信息 客人信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)日期、備注信息等。設(shè)置控件有效或無效 = 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 (使用設(shè)置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標(biāo)志 ) = 0 39。添加客房 If Then (房間號 ) = If Then (房間類型 ) = If Then (房態(tài) ) = If Then (價格 ) = If Then (營業(yè)日期 ) = If Then (使用設(shè)置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標(biāo)志 ) = 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 所示的客房信息圖，此模塊的功能是管理員可以通過本模塊對系統(tǒng)的進(jìn)行新房間的添加，對已有房間資料的修改或刪除等操作，界面簡單，易于操作。 界面美觀，大方，相信會蒙受大家的喜歡。 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。自動識別數(shù)據(jù)庫路徑 = amp。定義一個整型變量 Dim myval As String 39。同時通過登錄信息輸入來確認(rèn)使用權(quán)限，管理員通過登錄系統(tǒng)后，便可進(jìn)行管理和維護(hù) 。各個實體具體的描述屬性圖如下： 圖 3 客房標(biāo)準(zhǔn)信息實體屬性圖 圖 4 客房信息實體屬性圖 圖 5 訂房信息實體屬性圖 訂房信息實體 客房編號 顧客名 折 扣 入住時間 身份證號 客房信息實體 客房標(biāo)準(zhǔn) 客房編號 客房位置 客房單價 客房標(biāo)準(zhǔn)信息實體 標(biāo)準(zhǔn)編號 標(biāo)準(zhǔn)名稱 床位數(shù)量 客房單價 圖 6 結(jié)算信息實體屬性圖 各個實體具體的描述 ER圖如下： 1 N N 1 1 1 圖 7 實體之間關(guān)系 ER 圖 (3)數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計 首先將酒店客房管理系統(tǒng)的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為 ACCESS 數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結(jié)構(gòu)。 (2)數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 。完整性控制的主要目的是防止語義上不正確的數(shù)據(jù)進(jìn)入數(shù)據(jù)庫。如果數(shù)據(jù)庫系統(tǒng)運行中發(fā)生故障，有些事務(wù)尚未完成就被迫中斷，這些未事務(wù)對數(shù)據(jù)庫所做的修改有一部分已寫入物理數(shù)據(jù)庫，這時數(shù)據(jù)庫就處于一種不正確的狀態(tài)，或者說是不一致的狀態(tài)。 一致性：數(shù)據(jù)庫的一致性是 指事務(wù)執(zhí)行的結(jié)果必須是使數(shù)據(jù)庫從一個一致性狀態(tài)變到另一個一致性狀態(tài)。 （ 4）系統(tǒng)管理：管理員利用自己的用戶名和密碼維護(hù)本系統(tǒng)正常運行。結(jié)算 信息查詢，查詢到的信息包括登記號、 結(jié)算 日期、付款金額。 （ 2） 訂房管理： 可根據(jù)客人的基本訂房資料自動顯示該種房間類型在該客人抵達(dá)酒店期間所剩余的房間數(shù)量；客人預(yù)訂可到房間類型也可到房間號；根據(jù)已經(jīng)預(yù)訂房間客人資料進(jìn)行快速入住登記； （ 3）客房管理： 該功能可以客房信息查詢、客房結(jié)算 查詢和效益信息查詢。 流圖 圖 1 酒店客房管理系統(tǒng)數(shù)據(jù)流圖 管理員 房 間信息 登記 P1 房間，客人信息查詢 P4 入住管理P2 房間信息表 訂房信息表 結(jié)算 P3 客 人 客人信息 查 詢 房間信息 房間信息 結(jié)算清單 三、系統(tǒng)設(shè)計 按結(jié)構(gòu)化程序設(shè)計思想，分析得出如下系統(tǒng)功能模塊圖 圖 2 系統(tǒng)功能模塊圖 （ 1） 結(jié)算管理： 根據(jù)核實的客人入住情況，系統(tǒng)提供酒店應(yīng)返利的詳細(xì)報表，方便 結(jié)算部門向酒店進(jìn)行結(jié)算，并根據(jù)實際結(jié)算情況核實酒店返款情況，系統(tǒng)記錄下所有的信息，可以隨時根據(jù)酒店名稱、編號及日期對酒店結(jié)算情況進(jìn)行查詢，酒店客房管理系統(tǒng) 結(jié)算管理 訂房管理 客房管理 系統(tǒng)管理 結(jié)算信息查詢 結(jié)算信息修改 結(jié)算信息添加 訂房信息查詢 訂房信息修改 訂房信息添加 剩余客房信息查詢 設(shè)置客房信息 設(shè)