【文章內(nèi)容簡介】 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)。其各個表格的設(shè)計結(jié)果如下： 結(jié)算信息實體 客房編號 顧客名 結(jié)算時間 結(jié)算金額 客房標(biāo)準(zhǔn) 登記 客房 訂 房 訂房信息 結(jié)算信息 客房結(jié)算 表 1 Roomtype 客房信息表 列名 數(shù)據(jù)類型 可否為空 說明 roomNO Varchar NOT NULL 客房編號 Typename Varchar NOT NULL 標(biāo)準(zhǔn)名稱 Area Numeric NULL 房間面積 Bednum Numeric NULL 床位數(shù)量 Haircondition Varchar NULL 是否有空調(diào) Htelephone Varchar NULL 是否有電話 Htelevision Varchar NULL 是否有電視 Htoilet Varchar NULL 是否有單獨衛(wèi)生間 Price Numeric NULL 單價 Roomtype Varchar NOT NULL 客房種類 Roomposition Varchar NULL 客房位置 Putup Varchar NOT NULL 是否被預(yù)定 Roommemo Text NULL 備注 表 2 Bookin 訂房信息表 列名 數(shù)據(jù)類型 可否為空 說 明 Customname Varchar NOT NULL 顧客姓名 CustomID Varchar NOT NULL 身份證號碼 Roomno Varchar NOT NULL 客房編號 Indate Datetime NULL 入住日期 Discount Numeric NULL 折扣 Inmeno Text NULL 備注 Checkdate Datetime NULL 結(jié)算日期 Amount Numeric NULL 金額 四、系統(tǒng)實現(xiàn) 在登錄界面中，如圖主要是對用戶的身份進行確認，在界面中需要輸入用戶名和密碼，密碼用 **號顯示，確保用戶信息的安全性。同時通過登錄信息輸入來確認使用權(quán)限，管理員通過登錄系統(tǒng)后，便可進行管理和維護 。 圖 8 登錄界面圖 主要代碼如下所示： Dim TIM As Integer 39。定義一個整型變量 Dim myval As String 39。定義一個字符串變量 Private Sub Form_Load() 39。自動識別數(shù)據(jù)庫路徑 = amp。 \ = amp。 \ End Sub Private Sub Form_Activate() 39。當(dāng) 記錄為零時，進入系統(tǒng)具有所有權(quán)限 If = 0 Then MsgBox (請先設(shè)置操作員密碼和權(quán)限！ ) Load main Unload Me Else End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵， text2獲得焦點 End Sub Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵 cmd1獲得焦點 If KeyCode = vbKeyUp Then If KeyCode = vbKeyDown Then End Sub Private Sub cmd1_Click() (4).Text = 賦值給 (4).Text39。驗證操作員及密碼 If = False Then 操作員 like + Chr(34) + + Chr(34) + If Then MsgBox (操作員輸入錯誤 !) Else = select * from qxsz where 操作員 =39。 amp。 amp。 39。 If And And = (密 碼 ) Then Load main Unload Me Else If TIM = 3 Then 39。密碼輸錯 3次，退出系統(tǒng) myval = MsgBox(密碼輸入錯誤 ,請向系統(tǒng)管理員查詢 !, 0, ) If myval = vbOK Then End End If If = Then MsgBox (請輸入操作員 !) Else If (操作員 ) Then MsgBox (查無此操作員 ,請重新輸入操作員 !) Else If = Then MsgBox (請輸入操作員密碼 !) Else If (密碼 ) Then MsgBox (密碼錯誤 ,請重新輸入密碼 !) TIM = TIM + 1 End If End If End If End If End If End If End Sub Private Sub cmd2_Click() End End Sub 當(dāng)輸入用戶名和密碼正確則進入系統(tǒng)主界面 ，如圖 9 所示。 界面美觀，大方，相信會蒙受大家的喜歡。 圖 9 系統(tǒng)主界面 本功能模塊可以查看并修改客房的信息資料，可以對客房的編號，房間類型，房間價格，是否有人住等信息進行隨時更新。點擊主界面的客房管理可以看到客房查詢在點擊客房查詢會出下如圖 10 所示的客房信息圖，此模塊的功能是管理員可以通過本模塊對系統(tǒng)的進行新房間的添加，對已有房間資料的修改或刪除等操作，界面簡單，易于操作。 圖 10 客房設(shè)置 主要代碼如下所示： Private Sub Form_Load() = amp。 \ 39。自動識別數(shù)據(jù)庫路徑 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。查詢客房信 息 = select * from kf where 房間類型 =39。 amp。 amp。 39。 39。賦值給 If 0 Then = (價格 ) End Sub Private Sub texfjh_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 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。按回車鍵 Texsz獲得焦點 End Sub Private Sub texsz_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub texpz_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub texbz_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub dj_Click() 39。登記 = : = : = = : = = True: = True: = False End Sub Private Sub save_Click() 39。查找客房信息 房間號 like + Chr(34) + + Chr(34) + If Then 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。更新記錄 Else 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。更新記錄 End If 39。設(shè)置控件有效或無效 = False: = False = True: = True End Sub Private Sub cancel_Click() 39。取消操作 = : = : = = : = = False: = False: = True End Sub Private Sub end_Click() = True Unload Me End Sub 本模塊是主要是對客人模塊的資料進行操作，本模塊需要記錄客人的姓名，身份證號碼，房間號，登記日期等等資料，若發(fā)現(xiàn)錯漏，可以進行添加及修改等功能。 圖 11 客人信息 客人信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)日期、備注信息等。 圖 12 修改客人信息 主要代碼如下所示： Private Sub cmdAddNew_Click() With frmGuestInfoEdit 39。窗體標(biāo)題 .Caption = 添加新客人 . = False . = . = . = . = . = Date 39。顯示為模式窗體 .Show vbModal End With End Sub Private Sub cmdDelete_Click() If True And True Then With If MsgBox( 確 認 要 刪 除 當(dāng) 前 記 錄 嗎 ？ , vbYesNo + vbQuestion + vbDefaultButton2, 確認框 ) = vbYes Then .Find RoomNo=39。 amp。 !RoomNo amp。 39。, , adSearchForwar