vb課程設(shè)計(jì)-酒店管理系統(tǒng)(完整版)
【正文】 所學(xué)知識 ,發(fā)現(xiàn) ,提出 ,分析和解決實(shí)際問題 ,鍛煉實(shí)踐能力的重要環(huán)節(jié) ,是對學(xué)生實(shí)際工作能力的具體訓(xùn)練和考察過程。 同樣，我們可以利用工具欄中的 picturebox 控件來改變窗體的背景圖案。同樣，我們可以利用工具欄中的 picturebox 控件來改變窗體的背景圖案。 如下圖 4所示。如下圖表 2 所示。在數(shù)據(jù)庫的設(shè)計(jì)過程中，首先是收集、分析需求；再從需求抽象出一般的實(shí)體、關(guān)系和他們的屬性；再將這些實(shí)體、關(guān)系和屬性按照一定的規(guī)則轉(zhuǎn)化為二元表結(jié)構(gòu)。允許高級管理員和系統(tǒng)管理員添加客房類別信息、刪除客房類別信息和維護(hù)客房類別信息。主要用于賓館旅客入住情況登記 ,包括旅客的姓名及身份證號的登記 ,以及入住房間信息 .當(dāng)旅客離開時 ,需要辦理退房結(jié)帳手續(xù) .對于一定時間沒有旅客入住情況實(shí)現(xiàn)基本查詢 ,報表打印功能 .對于賓館本身也實(shí)現(xiàn)了客房增減 ,入住情況查詢等功能 . 無論各種等級的賓館 ,使用客房管理系統(tǒng)都具有非常實(shí)用的價值 .使用該系統(tǒng)可以大大節(jié)省時間 ,提高辦公效率 ,而且非常方便的實(shí)現(xiàn)旅客信息的查詢 ,以及對賓館本身客房 入住情況及時了解 .因此 ,客房管理系統(tǒng)的開發(fā)無疑具有深遠(yuǎn)的意義 . 本系統(tǒng)是采用 Visual 高級語言進(jìn)行程序編制，以 Access 數(shù)據(jù)庫為程序數(shù)據(jù)庫。其中房間號必須是酒店客房數(shù)據(jù)表中的一種。 如下圖 1 所示，是酒店客房管理系統(tǒng)的系統(tǒng)模塊示意圖。 如下圖表 1 所示。 表 3 room 資料數(shù)據(jù)表 字段名 類型 大小 說明 房間號 Text 3 房間號 客房等級 Text 8 客房等級 客房類型 Text 8 客房類型 客房價格 Text 單精度型 客房價格 客房狀態(tài) Text 3 客房狀態(tài) 客房備注信息 備注 8 客房備注信息 （ 4） quit 資料數(shù)據(jù)表。 圖 5 創(chuàng)建表 主要窗體的創(chuàng)建 登陸頁面的創(chuàng)建 圖 6 登錄頁面的創(chuàng)建 沈 陽 大 學(xué) 課程 設(shè)計(jì)說明書 如上圖 6 所示，是登錄頁面的創(chuàng)建頁面，打開 visual basic 的窗體界面， 首先在窗體上添加 3個 label 控件，分別把 3 個 label 控件的 caption 屬性改為“歡迎進(jìn)入酒店客房管理系統(tǒng)”、“用戶名”、“密碼”；然后在窗體上添加 2 個 text 控件，分別把 2 個 text 控件的 text 屬性置空；最后在頁面上添加 2 個 mand button 控件，分別把 2 個 mand button 控件的 mand 屬性改為“ 進(jìn)入”和“退出”。我們可以根據(jù)需要為窗體添加多級菜單。如下圖 10 所示。逐一判斷字符的合格化 If a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = ~ Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = , Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = 39。 Trim() amp。 amp。 39。 Then MsgBox Error, vbOKOnly, Error Exit Sub End If c = c + 1 Next i Dim strusername As String Dim strpassword As String Static intlogintimes As Integer If Trim() = Then 沈 陽 大 學(xué) 課程 設(shè)計(jì)說明書 MsgBox 用戶名不能為空！ , vbOKOnly + vbCritical, 錯誤 Exit Sub End If opentable adousers, usersinfo 姓名 = amp。 amp。 amp。 ElseIf opttype Then opentable , select * from room where ((( ) like 39。 % amp。, , adSearchForward, 1 If Then MsgBox 非法登記號 !, vbOKOnly + vbInformation, 提示 SendKeys {HOME}+{END} = Exit Sub End If 登記號 =39。 39。 圖 11 輸入用戶名和密碼 圖 12 酒店客房管理系統(tǒng)主頁面 沈 陽 大 學(xué) 課程 設(shè)計(jì)說明書 在主頁面，可以根據(jù)需要進(jìn)行如圖 13 和 14 所示的添加 旅客信息和添加退房信息的操作。同樣， 我們將 7 個 label 控件的 caption 屬性改成“登記號”
公司管理相關(guān)推薦
鄂ICP備17016276號-1