【文章內(nèi)容簡(jiǎn)介】 庫(kù)設(shè)計(jì) 1．?dāng)?shù)據(jù)庫(kù)需求分析 針對(duì)酒店客房管理信息系統(tǒng)的需求，通過(guò)對(duì)酒店客房管理工作過(guò)程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 客房基本信息，包括的數(shù)據(jù)項(xiàng)有：客房號(hào)碼，客房標(biāo)準(zhǔn)，客房位置，客房狀態(tài)，單價(jià)，容納人數(shù)，等。 預(yù)定基本信息，包括的數(shù)據(jù)項(xiàng)有：客房房號(hào)，客人姓名，身份證號(hào)碼，身份證地址，預(yù)定時(shí)間，操作員等。 入住客戶基本信息，包括客房房號(hào)，客人姓名，身份證號(hào)碼，身份證地址，從何處來(lái)，到何處去，住宿原因，入 住時(shí)間，操作員等。 結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：客房號(hào)碼，客戶姓名，身份證號(hào)碼，客房單價(jià)，折扣，入住時(shí)間，結(jié)算時(shí)間，備注等。 系統(tǒng)用戶信息，包括的數(shù)據(jù)項(xiàng)有 ：用戶名，用戶密碼，用戶權(quán)限。 管理自己的用戶信息 管理自己和普通用戶的用戶信息 房客管理 客房管理 消費(fèi)管理 夜審管理 讀取用戶類型 是 退出系統(tǒng) 失敗 3 次 否 開(kāi)始 用戶登錄 失敗 重試 成功 普通用戶 管理員 圖 6 系統(tǒng)流程設(shè)計(jì)圖 有了上面的數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，我們就能進(jìn)行下面的數(shù)據(jù)庫(kù)設(shè)計(jì)。 2．?dāng)?shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)包含以下 5 張表：系統(tǒng)用戶表，客房狀態(tài)表，客房預(yù)定表，客人入住表，歷史客人表。 表 1 系統(tǒng)用戶表 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 用戶名 文本，長(zhǎng)度為 50 用戶的登錄名， 必填字段 2 密碼 文本，長(zhǎng)度 40 密碼， 必填字段 3 權(quán)限 文本，長(zhǎng)度 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)行。 2．硬件支撐環(huán)境 CPU：賽揚(yáng) 以上 內(nèi)存： SDR 64M 以上 顯卡： VGA 16M 顯存以上 硬盤： 50M 以上硬盤剩余空間 四、系統(tǒng)實(shí)施 （一） 創(chuàng)建工程 用戶需要?jiǎng)?chuàng)建工程存儲(chǔ)的目錄，例如“ f:\酒店客房管理信息系統(tǒng)”。 運(yùn)行 主程序，并選擇新建“標(biāo)準(zhǔn) EXE”工程。新建工程后，在 VisualBasic窗口中有個(gè)缺省的窗 體 Form1,我們?cè)诖嘶A(chǔ)上設(shè)計(jì)系統(tǒng)的主界面。 選擇“工程”菜單中的“工程 1 屬性”命令，在“工程屬性”對(duì)話框中，將工程名設(shè)置為“酒店客房管理信息系統(tǒng)”。單擊“保存”，將工程存儲(chǔ)為 酒店客房管理信息系統(tǒng) .vbp。 （二） 添加模塊 根據(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í)體，這里不再詳述。 （三） 系統(tǒng)模塊的設(shè)計(jì) 登錄模塊的設(shè)計(jì)： 用戶要使用本系統(tǒng)，首先必須通過(guò)系統(tǒng)的身份認(rèn)證，這個(gè)過(guò)程叫做登錄。登錄過(guò)程需要完成以下任務(wù)： 根據(jù)用戶名和密碼來(lái)判斷是否可能進(jìn)入系統(tǒng)。 根據(jù)用戶類型決定用戶擁有的權(quán)限。 成功登錄的用戶將進(jìn)入系統(tǒng)的主界面。 登錄窗體的名稱為 FrmLogin,它的界面布局如圖七所示。 圖 7 登錄窗體的界面布局 下面介紹登錄窗體的部分代碼。 變量聲明 登錄窗體的變量 聲明如下： Public PasswordKey As String Public NameKey As String Public Try_times As Integer NameKey 保存用戶名， PasswordKey 保存密碼， Try_times 記錄嘗試登錄的次數(shù) Cmd_Ok_Click 過(guò)程 當(dāng)用戶單擊“確定”按鈕是時(shí)，觸發(fā) Cmd_Ok_Click 事件，進(jìn)行身份驗(yàn)證，對(duì)應(yīng)的代碼如下： Private Sub Cmd_OK_Click() 39。數(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。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 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。判斷密碼是否正確 (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。登錄成功，將當(dāng)前用戶的信息保存在 CurUser 中 = = 39。關(guān)閉自己 Unload Me End Sub 其他模塊設(shè)計(jì)請(qǐng)參照系統(tǒng)實(shí)體，在這里不在詳細(xì)敘述。 五、系統(tǒng)運(yùn)行 （一） 系統(tǒng)登錄 單擊“酒店客房管理信息系統(tǒng)”圖標(biāo)。進(jìn)入系統(tǒng)展示畫面。 圖 8 系統(tǒng)展示窗體 經(jīng)過(guò) 5 秒鐘，自動(dòng)跳轉(zhuǎn)到系統(tǒng)登錄窗體。 圖 9 系統(tǒng)登錄窗體 選擇 操作員名稱（ admin） ,輸入密碼（ 111）。單擊“確定”進(jìn)入系統(tǒng)的主界面。 圖 10 系統(tǒng)主界面 （二） 房客管理 1．客房預(yù)定 單擊“房客管理”，單擊“預(yù)定房間”。彈出客房預(yù)定窗體。 在預(yù)定窗體中輸入客戶信息，單擊“預(yù)定”，完成預(yù)定房間操作。 圖 11 客房預(yù)定窗體 2．預(yù)定入住 圖 12 預(yù)定入住窗體 單擊“預(yù)定入住”，彈出預(yù)定入住窗體。 在預(yù)定入住窗體中輸入相關(guān)信息，單擊“登記”完成預(yù)定入住操作。 3．客房登記 圖 13 客房登記窗體 單擊“客房登記”，彈出客房登記窗體。 在客房登記窗體中輸入相關(guān)信息，單擊“登記”，完成客房登記操作。 4．鐘點(diǎn)房登記 單擊“鐘點(diǎn)房登記”，彈出鐘點(diǎn)房登記窗體，輸入相關(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è)整型變量 Dim myval As String 39。定義一個(gè)字符串變量 Private Sub Form_Load() 39。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 = amp。 \ = amp。 \ End Sub Private Sub Form_Activate() 39。當(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。按回車鍵， text2 獲得焦點(diǎn) End Sub Private Sub text2_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。驗(yàn)證操作員及密碼 If = False Then 操作員 like + Chr(34) + + Chr(34) + If Then MsgBox (操作員輸入錯(cuò)誤 !) Else = select * from qxsz where 操作員 =39。 amp。 amp。 39。 If And And = (密碼) Then drm = If (角色名稱 ) = 管理員 Then gly = 0 Else gly = 1 End If Load MDIForm1 Unload Me Else If TIM = 3 Then 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。定義數(shù)據(jù)庫(kù) Dim rs As Recordset 39。定義字段 Dim connter As Integer 39。定義一個(gè)整型變量 Dim workarea(200), sql As String 39。定義字符串變量 Private Sub Form_Load() 39。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 = amp。 \ End Sub Private Sub start_Click() = True: = True End Sub Private Sub creat_Click() 39。清空選定表中的數(shù)據(jù) = True = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value amp。 Counter = Counter Set db = Workspaces(0).OpenDatabase( amp。 \) If = 1 Then sql = delete * from djb sql End If If = 1 Then sql = delete * from kf sql End If If = 1 Then sql = delete * from yd sql End If If = 1 Then sql = delete * from qxsz sql End If Next Counter = False = End Sub Private Sub end_Click() 39。 = True Unload Me End Sub 六、結(jié)束語(yǔ) 這次設(shè)計(jì)，使我學(xué)到了很多書本上沒(méi)有的知識(shí)，提高了我對(duì)問(wèn)題的分析能力。在這些天不分晝夜實(shí)踐 和摸索中，我受益匪淺，感觸良多。通過(guò)這次畢業(yè)設(shè)計(jì)，使我感到我的所學(xué)知識(shí)還是不夠的，還要繼續(xù)多加努力。 致謝：在這次畢業(yè)設(shè)計(jì)中，得到了陳榮華老師的精心指導(dǎo)，提出了很多建議和看法，在此，對(duì)陳老師表示我最真摯的謝意。另外，還要謝謝在此期間幫助我的同學(xué)們。同時(shí)感謝多年來(lái)關(guān)心和支持我的老師和同學(xué)們！ 參考文獻(xiàn) [1] 陳明 軟件工程 [N]，中央廣播電視大學(xué)出版社， 2021 年 [2] 陳明 Visual Basic 程序設(shè)計(jì) [N]，中央廣播電視大學(xué)出版社， 2021 年 [3] 劉韜、駱娟、何旭洪 Visual 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 [N]，人民郵電出版社 2021 年 [4] 王利，數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用 [N]，中央廣播電視大學(xué)出版社， 1997年 [5] Bob Reselman , Richard Peasley , Wayne Pruchniak. Visual Basic 使用指南 [N]，電子工業(yè)出版社 酒店客房管理信息系統(tǒng) 摘 要 本文主要介紹了酒店客房管理信息系統(tǒng)的開(kāi)發(fā)過(guò)程 .論文詳盡的論述了從需求分析 ,系統(tǒng)分析 ,概要設(shè)計(jì) ,詳細(xì)設(shè)計(jì) ,以及測(cè)試與調(diào)試的整個(gè)開(kāi)發(fā)過(guò) 程 .總結(jié)了開(kāi)發(fā)過(guò)程中的經(jīng)驗(yàn)及本系統(tǒng)今后的改進(jìn)方向 . 關(guān) 鍵 字： 酒店客房管理信息系統(tǒng) 。 功能 。 VisualBasic ABSTRACT This thesis introduced the development process of the guest room Management information system. The thesis discussed in details analytical from the need , system analysis, essentials design, detailed design , and test and the whole development process that adjust to try , tallied up to develop the improvement direction process aftertime. KEY WORDS： The guest room management information。 function。 visualBasic 目 錄 摘 要 1 ABSTRACT 1 目 錄 183