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