【正文】 度 40 用戶的權(quán)限， 必填字段 表 2 客房狀態(tài)表 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 房號(hào) 數(shù)字，整數(shù) 客房的房號(hào) 2 類別 文本，長(zhǎng)度為 50 客房的類別 3 樓層 文本，長(zhǎng)度 20 客房所在的樓層 4 狀態(tài) 文本，長(zhǎng)度 50 客房的狀態(tài) 5 單價(jià) 數(shù)字，整數(shù) 客房的單價(jià) 6 容納人數(shù) 數(shù)字，整數(shù) 客房 容納的人數(shù) 表 3 客房預(yù)定表 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 房號(hào) 數(shù)字，整數(shù) 預(yù)定客房的房號(hào) 2 姓名 文本，長(zhǎng)度 50 預(yù)定客戶的姓名 3 類別 文本，長(zhǎng)度 50 預(yù)定客房的類別 4 標(biāo)準(zhǔn)價(jià) 數(shù)字，整數(shù) 預(yù)定客房的標(biāo)準(zhǔn)價(jià) 5 證件號(hào)碼 文本，長(zhǎng)度 50 預(yù)定客戶的證件號(hào)碼 6 押金 數(shù)字，整數(shù) 預(yù)定客戶交納的押金 7 聯(lián)系電話 文本，長(zhǎng)度 50 預(yù)定客戶的聯(lián)系電話 8 操作員 文本，長(zhǎng)度 20 預(yù)定操作的操作員 9 摘要 文本，長(zhǎng)度 100 預(yù)定操作的摘要 表 4 客人入住表 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 房號(hào) 數(shù)字，整數(shù) 客人入住的房號(hào) 2 客人姓名 文本，長(zhǎng)度 50 入住客人的姓名 3 標(biāo)準(zhǔn)價(jià) 數(shù)字，整數(shù) 客人入住客房的價(jià)格 4 押金 數(shù)字，整數(shù) 客人交納的押金 5 類別 文本，長(zhǎng)度 50 客人入住客房的類別 6 證件名稱 文本，長(zhǎng)度 50 客人的證件名稱 7 證件號(hào)碼 文本，長(zhǎng)度 50 客人的證件號(hào)碼 8 證件地址 文本，長(zhǎng)度 50 客人的 證件地址 9 從何處來(lái) 文本，長(zhǎng)度 50 客人的來(lái)源 10 到何處去 文本，長(zhǎng)度 50 客人將要去的地方 11 住宿原因 備注 客人住宿的原因 12 操作員 文本，長(zhǎng)度 50 客房登記的操作員 13 入住日期 日期型 客人入住的日期 14 入住時(shí)間 時(shí)間型 客人入住的時(shí)間 15 店內(nèi)消費(fèi) 數(shù)字型，整數(shù) 客人在店內(nèi)消費(fèi)的金額 16 餐費(fèi) 數(shù)字型，整數(shù) 客人在店內(nèi)的餐費(fèi)金額 17 話費(fèi) 數(shù)字型，整數(shù) 客人在店內(nèi)的話費(fèi)金額 表 5 歷史客 人表 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 客人姓名 文本，長(zhǎng)度 50 歷史客人的姓名 2 證件號(hào)碼 數(shù)字，整數(shù) 歷史客人的證件號(hào)碼 3 證件地址 文本，長(zhǎng)度 50 歷史客人的證件地址 4 最后入住日期 日期型 歷史客人最后的入住日期 5 最后離店日期 日期型 歷史客人最后的離店日期 6 入住次數(shù) 數(shù)字型 歷史客人的入住次數(shù) （四） 運(yùn)行環(huán)境選擇 1．軟件支撐環(huán)境 本系統(tǒng)采用中文 Windows XP 平臺(tái)， Office 2021 中的 Access 為數(shù)據(jù)庫(kù)， Visual Basic 為開(kāi)發(fā)工具，軟 件開(kāi)發(fā)在 Windows XP 平臺(tái)下運(yùn)行，最終產(chǎn)品可脫離 Visual Basic 運(yùn)行環(huán)境，在 Windows 9X/2021/XP 平臺(tái)下運(yùn)行。 運(yùn)行 主程序，并選擇新建“標(biāo)準(zhǔn) EXE”工程。 選擇“工程”菜單中的“工程 1 屬性”命令，在“工程屬性”對(duì)話框中，將工程名設(shè)置為“酒店客房管理信息系統(tǒng)”。 （二） 添加模塊 根據(jù) VisualBasic 功能模塊的劃分原則，將創(chuàng)建以下幾個(gè)模塊： Const 用來(lái)管理工程中的常量 DbFunc 用來(lái)管理工程中與數(shù)據(jù)庫(kù)操作相關(guān)的聲明，變量和函數(shù) GeneralFunc 用來(lái)管理工程中一些通用的自定義函數(shù) Variable 用來(lái)管理工程中的全局變量 添加模塊的 具體操作請(qǐng)參照系統(tǒng)實(shí)體，這里不再詳述。登錄過(guò)程需要完成以下任務(wù)： 根據(jù)用戶名和密碼來(lái)判斷是否可能進(jìn)入系統(tǒng)。 成功登錄的用戶將進(jìn)入系統(tǒng)的主界面。 圖 7 登錄窗體的界面布局 下面介紹登錄窗體的部分代碼。數(shù)據(jù)有效性檢查 If Trim(txtUser) = Then MsgBox 請(qǐng)輸入用戶名 Exit Sub End If If Trim(txtPwd) = Then MsgBox 請(qǐng)輸入密碼 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯(cuò)誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。關(guān)閉自己 Unload Me End Sub 其他模塊設(shè)計(jì)請(qǐng)參照系統(tǒng)實(shí)體，在這里不在詳細(xì)敘述。進(jìn)入系統(tǒng)展示畫(huà)面。 圖 9 系統(tǒng)登錄窗體 選擇 操作員名稱（ admin） ,輸入密碼（ 111）。 圖 10 系統(tǒng)主界面 （二） 房客管理 1．客房預(yù)定 單擊“房客管理”，單擊“預(yù)定房間”。 在預(yù)定窗體中輸入客戶信息，單擊“預(yù)定”，完成預(yù)定房間操作。 在預(yù)定入住窗體中輸入相關(guān)信息，單擊“登記”完成預(yù)定入住操作。 在客房登記窗體中輸入相關(guān)信息，單擊“登記”，完成客房登記操作。 圖 14 鐘點(diǎn)房登記窗體 5．客人換房 圖 15 客人換房窗體 6．補(bǔ)交押金 圖 16 補(bǔ)交押金窗體 7．退房登記 圖 17 退房登記窗體 8．在店客人表 圖 18 在店客人表窗體 （三） 客房管理 1．客房狀態(tài) 圖 19 客房狀態(tài)窗體 2．客房編輯 圖 20 客房編輯窗體 （四） 消費(fèi)管理 1．消費(fèi)入帳 圖 21 消費(fèi)入帳窗體 2．餐費(fèi)入帳 圖 22 餐費(fèi)入帳 3．話費(fèi)入帳 圖 23 話費(fèi)入帳 窗體 （五） 報(bào)表管理 圖 24 報(bào)表管理窗體 （六） 系統(tǒng)管理 圖 25 添加用戶窗體 圖 26 密碼設(shè)置窗體 圖 27 初始化數(shù)據(jù)庫(kù)窗體 圖 28 用戶查看窗體 （七） 系統(tǒng)信息 圖 29 系統(tǒng)信息窗體 圖 30 系統(tǒng)介紹窗體 Dim TIM As Integer 39。定義一個(gè)字符串變量 Private Sub Form_Load() 39。 \ = amp。當(dāng)記錄為零時(shí)，進(jìn)入系統(tǒng)具有所有權(quán)限 If = 0 Then MsgBox (請(qǐng)先設(shè)置操作員密碼和權(quán)限！ ) Load MDIForm1 Unload Me Else End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵 cmd1 獲得焦點(diǎn) If KeyCode = vbKeyUp Then If KeyCode = vbKeyDown Then End Sub Private Sub cmd1_Click() 39。 amp。 39。密碼輸錯(cuò) 3 次，退出系統(tǒng) myval = MsgBox(密碼輸入錯(cuò)誤 ,請(qǐng)向系統(tǒng)管理員查詢 !, 0, ) If myval = vbOK Then End End If If = Then MsgBox (請(qǐng)輸入操作員 !) Else If (操作員 ) Then MsgBox (查無(wú)此操作員 ,請(qǐng)重新輸入操作員 !) Else If = Then MsgBox (請(qǐng)輸入操作員密碼 !) Else If (密碼 ) Then MsgBox (密碼錯(cuò)誤 ,請(qǐng)重新輸入密碼 !) TIM = TIM + 1 End If End If End If End If End If End If End Sub Private Sub cmd2_Click() End End Sub Dim db As Database 39。定義字段 Dim connter As Integer 39。定義字符串變量 Private Sub Form_Load() 39。 \ End Sub Private Sub start_Click() = True: = True End Sub Private Sub creat_Click() 39。 Counter = Counter Set db = Workspaces(0).OpenDatabase( amp。 = True Unload Me End Sub 六、結(jié)束語(yǔ) 這次設(shè)計(jì)，使我學(xué)到了很多書(shū)本上沒(méi)有的知識(shí)，提高了我對(duì)問(wèn)題的分析能力。通過(guò)這次畢業(yè)設(shè)計(jì)，使我感到我的所學(xué)知識(shí)還是不夠的，還要繼續(xù)多加努力。另外，還要謝謝在此期間幫助我的同學(xué)們。 卓