【文章內(nèi)容簡介】 設(shè)計(jì) 1．?dāng)?shù)據(jù)庫需求分析 針對酒店客房管理信息系統(tǒng)的需求，通過對酒店客房管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 客房基本信息，包括的數(shù)據(jù)項(xiàng)有：客房號碼，客房標(biāo)準(zhǔn)，客房位置，客房狀態(tài)，單價(jià)，容納人數(shù)，等。 預(yù)定基本信息，包括的數(shù)據(jù)項(xiàng)有：客房房號，客人姓名，身份證號碼，身份證地址，預(yù)定時(shí)間，操作員等。 入住客戶基本信息，包括客房房號，客人姓名，身份證號碼，身份證地址，從何處來，到何處去，住宿原因，入 住時(shí)間，操作員等。 結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：客房號碼，客戶姓名，身份證號碼，客房單價(jià)，折扣，入住時(shí)間，結(jié)算時(shí)間，備注等。 系統(tǒng)用戶信息，包括的數(shù)據(jù)項(xiàng)有 ：用戶名，用戶密碼，用戶權(quán)限。 管理自己的用戶信息 管理自己和普通用戶的用戶信息 房客管理 客房管理 消費(fèi)管理 夜審管理 讀取用戶類型 是 退出系統(tǒng) 失敗 3 次 否 開始 用戶登錄 失敗 重試 成功 普通用戶 管理員 圖 6 系統(tǒng)流程設(shè)計(jì)圖 有了上面的數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，我們就能進(jìn)行下面的數(shù)據(jù)庫設(shè)計(jì)。 2．?dāng)?shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫包含以下 5 張表：系統(tǒng)用戶表，客房狀態(tài)表，客房預(yù)定表，客人入住表，歷史客人表。 表 1 系統(tǒng)用戶表 編號 字段名稱 數(shù)據(jù)類型 說明 1 用戶名 文本，長度為 50 用戶的登錄名， 必填字段 2 密碼 文本，長度 40 密碼， 必填字段 3 權(quán)限 文本，長度 40 用戶的權(quán)限， 必填字段 表 2 客房狀態(tài)表 編號 字段名稱 數(shù)據(jù)類型 說明 1 房號 數(shù)字，整數(shù) 客房的房號 2 類別 文本，長度為 50 客房的類別 3 樓層 文本，長度 20 客房所在的樓層 4 狀態(tài) 文本，長度 50 客房的狀態(tài) 5 單價(jià) 數(shù)字，整數(shù) 客房的單價(jià) 6 容納人數(shù) 數(shù)字，整數(shù) 客房 容納的人數(shù) 表 3 客房預(yù)定表 編號 字段名稱 數(shù)據(jù)類型 說明 1 房號 數(shù)字，整數(shù) 預(yù)定客房的房號 2 姓名 文本，長度 50 預(yù)定客戶的姓名 3 類別 文本，長度 50 預(yù)定客房的類別 4 標(biāo)準(zhǔn)價(jià) 數(shù)字，整數(shù) 預(yù)定客房的標(biāo)準(zhǔn)價(jià) 5 證件號碼 文本，長度 50 預(yù)定客戶的證件號碼 6 押金 數(shù)字，整數(shù) 預(yù)定客戶交納的押金 7 聯(lián)系電話 文本，長度 50 預(yù)定客戶的聯(lián)系電話 8 操作員 文本，長度 20 預(yù)定操作的操作員 9 摘要 文本，長度 100 預(yù)定操作的摘要 表 4 客人入住表 編號 字段名稱 數(shù)據(jù)類型 說明 1 房號 數(shù)字，整數(shù) 客人入住的房號 2 客人姓名 文本，長度 50 入住客人的姓名 3 標(biāo)準(zhǔn)價(jià) 數(shù)字，整數(shù) 客人入住客房的價(jià)格 4 押金 數(shù)字，整數(shù) 客人交納的押金 5 類別 文本，長度 50 客人入住客房的類別 6 證件名稱 文本，長度 50 客人的證件名稱 7 證件號碼 文本，長度 50 客人的證件號碼 8 證件地址 文本，長度 50 客人的 證件地址 9 從何處來 文本，長度 50 客人的來源 10 到何處去 文本，長度 50 客人將要去的地方 11 住宿原因 備注 客人住宿的原因 12 操作員 文本，長度 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 歷史客 人表 編號 字段名稱 數(shù)據(jù)類型 說明 1 客人姓名 文本，長度 50 歷史客人的姓名 2 證件號碼 數(shù)字，整數(shù) 歷史客人的證件號碼 3 證件地址 文本，長度 50 歷史客人的證件地址 4 最后入住日期 日期型 歷史客人最后的入住日期 5 最后離店日期 日期型 歷史客人最后的離店日期 6 入住次數(shù) 數(shù)字型 歷史客人的入住次數(shù) （四） 運(yùn)行環(huán)境選擇 1．軟件支撐環(huán)境 本系統(tǒng)采用中文 Windows XP 平臺， Office 2021 中的 Access 為數(shù)據(jù)庫， Visual Basic 為開發(fā)工具，軟 件開發(fā)在 Windows XP 平臺下運(yùn)行，最終產(chǎn)品可脫離 Visual Basic 運(yùn)行環(huán)境，在 Windows 9X/2021/XP 平臺下運(yùn)行。 2．硬件支撐環(huán)境 CPU：賽揚(yáng) 以上 內(nèi)存： SDR 64M 以上 顯卡： VGA 16M 顯存以上 硬盤： 50M 以上硬盤剩余空間 四、系統(tǒng)實(shí)施 （一） 創(chuàng)建工程 用戶需要創(chuàng)建工程存儲的目錄，例如“ f:\酒店客房管理信息系統(tǒng)”。 運(yùn)行 主程序，并選擇新建“標(biāo)準(zhǔn) EXE”工程。新建工程后，在 VisualBasic窗口中有個缺省的窗 體 Form1,我們在此基礎(chǔ)上設(shè)計(jì)系統(tǒng)的主界面。 選擇“工程”菜單中的“工程 1 屬性”命令，在“工程屬性”對話框中，將工程名設(shè)置為“酒店客房管理信息系統(tǒng)”。單擊“保存”，將工程存儲為 酒店客房管理信息系統(tǒng) .vbp。 （二） 添加模塊 根據(jù) VisualBasic 功能模塊的劃分原則，將創(chuàng)建以下幾個模塊： Const 用來管理工程中的常量 DbFunc 用來管理工程中與數(shù)據(jù)庫操作相關(guān)的聲明，變量和函數(shù) GeneralFunc 用來管理工程中一些通用的自定義函數(shù) Variable 用來管理工程中的全局變量 添加模塊的 具體操作請參照系統(tǒng)實(shí)體，這里不再詳述。 （三） 系統(tǒng)模塊的設(shè)計(jì) 登錄模塊的設(shè)計(jì)： 用戶要使用本系統(tǒng)，首先必須通過系統(tǒng)的身份認(rèn)證，這個過程叫做登錄。登錄過程需要完成以下任務(wù)： 根據(jù)用戶名和密碼來判斷是否可能進(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 過程 當(dāng)用戶單擊“確定”按鈕是時(shí)，觸發(fā) Cmd_Ok_Click 事件，進(jìn)行身份驗(yàn)證，對應(yīng)的代碼如下： Private Sub Cmd_OK_Click() 39。數(shù)據(jù)有效性檢查 If Trim(txtUser) = Then MsgBox 請輸入用戶名 Exit Sub End If If Trim(txtPwd) = Then MsgBox 請輸入密碼 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 密碼錯誤 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ì)請參照系統(tǒng)實(shí)體，在這里不在詳細(xì)敘述。 五、系統(tǒng)運(yùn)行 （一） 系統(tǒng)登錄 單擊“酒店客房管理信息系統(tǒng)”圖標(biāo)。進(jìn)入系統(tǒng)展示畫面。 圖 8 系統(tǒng)展示窗體 經(jīng)過 5 秒鐘，自動跳轉(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ù)庫窗體 圖 28 用戶查看窗體 （七） 系統(tǒng)信息 圖 29 系統(tǒng)信息窗體 圖 30 系統(tǒng)介紹窗體 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)記錄為零時(shí)，進(jìn)入系統(tǒng)具有所有權(quán)限 If = 0 Then MsgBox (請先設(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 (操作員輸入錯誤 !) 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。密碼輸錯 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 Dim db As Database 39。定義數(shù)據(jù)庫 Dim rs As Recordset 39。定義字段 Dim connter As Integer 39。定義一個整型變量 Dim workarea(200), sql As String 39。定義字符串變量 Private Sub Form_Load() 39。自動識別數(shù)據(jù)庫路徑 = 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é)束語 這次設(shè)計(jì)，使我學(xué)到了很多書本上沒有的知識，提高了我對問題的分析能力。在這些天不分晝夜實(shí)踐 和摸索中，我受益匪淺，感觸良多。通過這次畢業(yè)設(shè)計(jì)，使我感到我的所學(xué)知識還是不夠的，還要繼續(xù)多加努力。 致謝：在這次畢業(yè)設(shè)計(jì)中，得到了陳榮華老師的精心指導(dǎo)，提出了很多建議和看法，在此，對陳老師表示我最真摯的謝意。另外，還要謝謝在此期間幫助我的同學(xué)們。同時(shí)感謝多年來關(guān)心和支持我的老師和同學(xué)們！ 參考文獻(xiàn) [1] 陳明 軟件工程 [N]，中央廣播電視大學(xué)出版社， 2021 年 [2] 陳明 Visual Basic 程序設(shè)計(jì) [N]，中央廣播電視大學(xué)出版社， 2021 年 [3] 劉韜、駱娟、何旭洪 Visual 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航 [N]，人民郵電出版社 2021 年 [4] 王利，數(shù)據(jù)庫基礎(chǔ)與應(yīng)用 [N]，中央廣播電視大學(xué)出版社， 1997年 [5] Bob Reselman , Richard Peasley , Wayne Pruchniak. Visual Basic 使用指南 [N]，電子工業(yè)出版社 酒店客房管理信息系統(tǒng) 摘 要 本文主要介紹了酒店客房管理信息系統(tǒng)的開發(fā)過程 .論文詳盡的論述了從需求分析 ,系統(tǒng)分析 ,概要設(shè)計(jì) ,詳細(xì)設(shè)計(jì) ,以及測試與調(diào)試的整個開發(fā)過 程 .總結(jié)了開發(fā)過程中的經(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 目 錄