酒店管理系統(tǒng)課程設(shè)計(jì)

1、第 1 章 需求分析系統(tǒng)概述 隨著社會經(jīng)濟(jì)的發(fā)展，酒店、賓館在服務(wù)行業(yè)扮演著越來越重要的角色。酒 店行業(yè)的競爭表現(xiàn)在管理和服務(wù)水平的競爭， 它影響到酒店的形象和聲譽(yù)。 這就 要求通過先進(jìn)的管理來提高服務(wù)質(zhì)量，盡可能做到讓客戶滿意。因此， 非常需要 一套酒店管理系統(tǒng)來對客房信息， 經(jīng)營情況以及客戶信息進(jìn)行管理。 酒店管理系 統(tǒng)為管理者制定決策判斷提供了可行依據(jù)。 判斷提供迅速高效的、 系統(tǒng)化的服務(wù)， 避免手工處理的繁瑣與誤差，成為酒店、 賓館經(jīng)營的重中之重。 但是目前商業(yè)性 的酒店管理軟件大多數(shù)是舍用于大、中型酒店，其操作復(fù)雜，收費(fèi)昂貴，還需專 業(yè)維護(hù)。這就造成了很多小型酒店以及小型賓沒有客房的

2、管理軟件， 對于其賓館 的經(jīng)營造成管理的繁瑣與混亂。 所以開發(fā)一款社用于小型酒店或小型賓館的客房 管理軟件時必須的。系統(tǒng)功能需求分析該系統(tǒng)的功能需求有如下幾個方面：(1) 客房管理。主要用于對客房信息進(jìn)行維護(hù)。 功能包括對客房信息的添加、 修改和刪除已有的客戶信息，對客房信息進(jìn)行查詢。(2) 住宿管理。主要用于對入住信息進(jìn)行維護(hù)。 功能包括對入住信息的添加、 修改和查詢。(3) 結(jié)算管理。主要用于對客房結(jié)賬和對結(jié)算歷史信息的查詢。功能包括結(jié) 賬(計(jì)算費(fèi)用、記錄結(jié)賬信息)和結(jié)算查詢第 2 章 管理系統(tǒng)平臺的選用數(shù)據(jù)庫系統(tǒng)的選擇原則1、數(shù)據(jù)庫系統(tǒng)采用易于集成的，開放的技術(shù)。2、產(chǎn)品質(zhì)量優(yōu)異，可靠性

3、高，適于長期運(yùn)行，能支持關(guān)鍵應(yīng)用。3、數(shù)據(jù)安全，保安型高。4、能提供分布式數(shù)據(jù)庫功能。5、支持多種開發(fā)環(huán)境，軟件開發(fā)容易。6、擴(kuò)充性和升級能力強(qiáng)。系統(tǒng)開發(fā)工具的選擇本次系統(tǒng)設(shè)計(jì)選用的是 Visual Basic 作為開發(fā)工具， 因?yàn)?Visual Basic 具 有以下優(yōu)越的功能：簡單，易學(xué)，易用(1) 快速完成應(yīng)用任務(wù)(2) 使用方便的工具欄(3) 支持中英文輸入法(4) 用項(xiàng)目管理器統(tǒng)一界面第 3 章 酒店管理概述系統(tǒng)數(shù)據(jù)需求1) 數(shù)據(jù)錄入和處理的準(zhǔn)確性和實(shí)時性。2) 數(shù)據(jù)的一致性與完整性。3) 數(shù)據(jù)的共享與獨(dú)立性。系統(tǒng)業(yè)務(wù)功能的需求(1) 實(shí)現(xiàn)客房信息管理功能(2) 實(shí)現(xiàn)客戶信息管理功能

4、(3) 實(shí)現(xiàn)預(yù)定管理功能(4) 實(shí)現(xiàn)入住管理功能(5) 實(shí)現(xiàn)消費(fèi)記賬功能(6) 實(shí)現(xiàn)收銀退房功能綜上，我們將系統(tǒng)的功能大體劃分為三大模塊： 權(quán)限管理：包括管理員的登錄 前臺管理：包括客戶信息的錄入、客戶預(yù)訂和入住登記以及結(jié)算的管理等。后臺報(bào)表管理：包括報(bào)表的打印系統(tǒng)性能需求 ：為了保證系統(tǒng)能夠長期、安全、穩(wěn)定、可靠、高效的運(yùn)行，系統(tǒng)應(yīng)該滿足以下的性能需求：1）系統(tǒng)處理的準(zhǔn)確性和及時性系統(tǒng)處理的準(zhǔn)確性和及時性是系統(tǒng)的必要性能。在系統(tǒng)設(shè)計(jì)和開發(fā)過程中， 要充分考慮系統(tǒng)當(dāng)前和將來可能承受的工作量， 使系統(tǒng)的處理能力和響應(yīng)時間能 夠滿足用戶對信息的處理。（2）系統(tǒng)的開放性和系統(tǒng)的可擴(kuò)充性系統(tǒng)在開發(fā)過程

5、中， 應(yīng)該充分考慮以后的可擴(kuò)充性。 例如系統(tǒng)權(quán)限和客房信息設(shè)置等模塊也會不斷的更新和完善。 功能的調(diào)整和擴(kuò)充。而要實(shí)現(xiàn)這一點(diǎn)， 一個開放系統(tǒng)，只要符合一定的規(guī)范， 系統(tǒng)的硬件。所有這些都要求系統(tǒng)提供足夠的手段進(jìn)行 應(yīng)通過系統(tǒng)的開放性來完成， 既系統(tǒng)應(yīng)是 可以簡單的加入和減少系統(tǒng)的模塊， 配置（3）系統(tǒng)的易用性本酒店客房管理系統(tǒng)面向的用戶是酒店內(nèi)工作人員， 而有些使用人員往往對 計(jì)算機(jī)并不是非常熟悉， 所以系統(tǒng)操作上要求簡單、 方便、快捷，便于用戶使用。 這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機(jī)交互界面。（4）系統(tǒng)的響應(yīng)速度系統(tǒng)設(shè)計(jì)中摒棄大量數(shù)據(jù)冗余， 提出了優(yōu)化數(shù)據(jù)庫的解決方案， 大量使

6、用存 儲過程，大大提高系統(tǒng)響應(yīng)時間和速度。第4章系統(tǒng)總體設(shè)計(jì)本部分主要介紹系統(tǒng)要實(shí)現(xiàn)的功能， 搭好設(shè)計(jì)的總體框架，使我們對要開發(fā) 的系統(tǒng)有一個系統(tǒng)、全面、確切的認(rèn)識。系統(tǒng)功能模塊設(shè)計(jì)結(jié)合前面需求分析階段的結(jié)果進(jìn)行綜合處理，確定了客房管理系統(tǒng)需要完成的功能，主要劃分為以下模塊：1. 結(jié)算管理(1)結(jié)賬 (2)結(jié)賬查詢2. 客房信息管理(1) 設(shè)置客房標(biāo)準(zhǔn)添加客房標(biāo)準(zhǔn)修改客房標(biāo)準(zhǔn)刪除客房標(biāo)準(zhǔn)(2) 設(shè)置客房信息添加客房信息修改客房信息添加客房類型查詢客房信息3. 住宿信息管理添加入住信息修改入住信息(3)查詢?nèi)胱⌒畔⒛K設(shè)計(jì)圖如下：系統(tǒng)塊系統(tǒng)的封面以表單開始，要求用戶輸入登錄，若密碼錯誤，則自動退

7、出，否 則出現(xiàn)系統(tǒng)主菜單，接受用戶的操作，操作完畢后用戶可以從系統(tǒng)菜單中退出系 統(tǒng)，系統(tǒng)運(yùn)行的步驟如圖：圖4-3系統(tǒng)數(shù)據(jù)流程圖E-R圖系統(tǒng)的運(yùn)行要求軟、硬件環(huán)境：硬件：客戶機(jī)（CPU P200以上，內(nèi)存：32M以上）、數(shù)據(jù)庫服務(wù)器（CPU PIII800以上，內(nèi)存： 256M 或以上。以 Microsoft windows 操作系統(tǒng)為工作平臺。以 Microsoft Visual Basic 為開發(fā)工具。數(shù)據(jù)庫環(huán)境是 Microsoft Office Access 2003。第 5 章 詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)數(shù)據(jù)庫設(shè)計(jì)（ 1）數(shù)據(jù)庫需求分析設(shè)計(jì)的數(shù)據(jù)庫系統(tǒng)應(yīng)用于酒店管理系統(tǒng)， 所以必須充分滿足酒店客房

8、管理系 統(tǒng)的各種要求。 此系統(tǒng)要求記錄每一次酒店客戶的住宿登記、 調(diào)房登記和退宿結(jié) 賬的操作信息，并允許系統(tǒng)用戶對這些信息進(jìn)行查詢。另外， 必須建立一些輔助 項(xiàng)目表為這些操作信息提供數(shù)據(jù)來源。 通過以上的分析， 數(shù)據(jù)庫設(shè)計(jì)必須滿足以下幾點(diǎn)：（ 1）記錄酒店客戶住宿登記操作的信息。（ 2）記錄酒店客戶退房結(jié)賬操作的信息。（ 3）記錄酒店客房的相關(guān)信息。（ 4）記錄酒店客戶的客房預(yù)訂信息。（ 5）記錄系統(tǒng)用戶的用戶名、密碼和操作權(quán)限（ 2）建立 Access 數(shù)據(jù)庫及表在一個酒店管理系統(tǒng)中，數(shù)據(jù)庫的地位是非常重要的，是一個系統(tǒng)正常運(yùn) 行的基礎(chǔ)。本系統(tǒng)的數(shù)據(jù)庫是采用 Microsoft 公司的 Ac

9、cess 2003設(shè)計(jì)的。在數(shù) 據(jù)庫的設(shè)計(jì)過程中，首先是收集、分析需求；再從需求抽象出一般的實(shí)體、關(guān)系和他們的屬性；再將這些實(shí)體、關(guān)系和屬性按照一定的規(guī)則轉(zhuǎn)化為二元表結(jié) 構(gòu)。本系統(tǒng)中共有4數(shù)據(jù)表表3-1為Usersinfo管理員資料數(shù)據(jù)表。管理員資料數(shù)據(jù)表記錄了所有管理 的基本資料，管理員可添加、刪除和查詢該表。該表包括管理員ID、姓名、密碼和權(quán)限等資料。表3-1為Usersinfo 管理員資料數(shù)據(jù)表字段名類型大小說明姓名Text20管理人員帳號（主鍵）密碼Text20管理人員密碼（主鍵）權(quán)限Text1管理人員權(quán)限如下圖所示:3 Ufitrfiinforoom :注 quit姓名密職權(quán)限.龜擊

10、以添迪何苗123456Y干萬147258Y張三4567S9 Y表3-2為add旅客入住登記表。add日主登記表記錄了入住旅客的基本個人 信息、房間號、登記號等。表3-2旅客信息表為旅客的個人信息加入住客房信息數(shù)據(jù)結(jié)構(gòu)表字段名類型大小說明登記號Text8旅客入住號（主鍵）姓名Text8旅客姓名（不為空）身份證號碼Text18旅客身份證號（不為空）房間號Text3入住房間號（不為空）登記日期Text日期/時間旅客入住時間（不為空）性別Text3旅客性別籍貫Text8旅客籍貫如下所示:LEersir*o豊記號Add 二 room _2 quit"身儲證W鋌膚間耳登記日舉*性劃1001壬叢衛(wèi)

11、452 £.6219730 L01.1002肯石433-521刊 1B 男100242365519691 4A2201 7/11/1 91004傅苗4S2-621 9(97D 4W201 7/11/2G 玄表3-3為room資料數(shù)據(jù)表。room料數(shù)據(jù)表記錄了 room基本資料，可供查 詢。該表主要包括了房間號、客房等級、客房類型、客房價格、客房狀態(tài)、客房 備注信息等基本資料。表3-2room資料數(shù)據(jù)表字段名類型大小說明房間號Text3房間號（主鍵）客房等級Text8客房等級客房類型Text8客房類型（不為空）客房價格數(shù)字單精度型客房價格（不為空）客房狀態(tài)Text3客房狀態(tài)（不為空）客

12、房備注信息備注8客房備注信息如下所示:邑I Userainfo 口 add j 昌 room :彗 qu±房間號：i客房等扱-事劇類型客房價格|客房畑J耆屏曹注越車若觀刪何冋叵聞一IB.房廬房序施宇11宇底 AAAAA床Jt勢霽議務(wù)腕址務(wù)務(wù) 單邑單單卑大大商商會商氫總商商人人A 空空有有空空空空亠工-r-r宀工空亠工自 ooooooowwooun-w EEF-F-ECC44Gr-4-&944 111112222327722toi1022C220420®30130240140240340450151尼如 同4族腔 華華華華訟華統(tǒng)繡壟華 一一好好好豪療聶餵會彙總負(fù)麺蕓表

13、3-4為quit資料數(shù)據(jù)表。quit資料數(shù)據(jù)表記錄了所有退房的基本資料，管 理員可添加、刪除和查詢該表。類型的基本資料，包括登記號、登記日期、退房日期、付款金額、退房備注信息字段名類型大小說明登記號Text8旅客入住號（主鍵）登記日期日期/時間旅客登記時間（不為空）退房時間日期/時間旅客退房時間（不為空）付款金額Text單精度型付費(fèi)金額（不為空）退房備注信息Text8退房備注信息表3-4為quit資料數(shù)據(jù)表如下所示:1_J witrriirriiu uuu - j ruurri _j t|ui t登記號+登記日期10012017/11/21退房時間*2017/11/22何歎金額退房備注信*冋1

14、草擊以舷*10022017/11/182017/11/2015G010032017/11/192017/11/27192010042017/11/262017/11/27330漲0連接數(shù)據(jù)庫：由于本系統(tǒng)是采用ADO對象訪問數(shù)據(jù)庫的技術(shù)，所以在 VB中需要添加 ADO庫。添加的方法是在VB中選擇 工程”一 >引用”命令，在對話框中選擇 Microdoft ActiveX Data Objects Library，單擊確定”按鈕。在程序設(shè)計(jì)的公共模塊中，先定義 ADO連接對象。語句如下：Public conn As New標(biāo)記連接對象'Dim conn ecti on As Stri

15、ngConn ecti on Stri ng創(chuàng)建主窗體以及主要窗體建立主窗體：單擊”工程”-> ”添加MDI窗體”菜單，在彈出的對話框中單 擊”打開”按鈕則為當(dāng)前項(xiàng)目添加了一個 MDI窗體。設(shè)置好MDI窗體屬性后，設(shè) 置此項(xiàng)目的屬性。單擊”工程”-> ”工程1屬性”菜單,進(jìn)入項(xiàng)目屬性設(shè)置窗體。 在此項(xiàng)目屬性窗體中通用選項(xiàng)卡的啟動對象中選擇MDIfrmMain項(xiàng)，將這一多文檔窗體作為程序的啟動窗體。圖41菜單結(jié)構(gòu)(1)登錄模塊的設(shè)計(jì)：此模塊的功能是檢查管理員是否有進(jìn)入系統(tǒng)的權(quán)限。用到的主要控件為二個text、兩個label和兩個Butt on按鈕。窗體界面如圖4-2 所示。圖4-2登

16、錄窗體的界面在此模塊中管理員可以選擇相應(yīng)的管理員帳號進(jìn)行登錄， 減去了忘記帳號或 帳號名輸入不方便的煩惱。(2) 主頁面模塊的設(shè)計(jì)：此模塊是系統(tǒng)服務(wù)器端的主要控制界面，通過菜單 的選擇，可以控制系統(tǒng)的所有功能 , 窗體界面如圖 4-3,4-4 所示。主界面的設(shè)計(jì)步驟：1)設(shè)計(jì)主界面控件布局：在主界面的布局中使用了工具欄( ToolBar )、時鐘 控件(timer )和圖象列表(ImageList )等非Vb標(biāo)準(zhǔn)控件。2) 工具欄的設(shè)置： 給工具欄添加按鈕3) 添加菜單：菜單的使用是為了更好的給用戶提供功能指引。工具欄列表系統(tǒng)通過 Timer 控件在狀態(tài)欄中顯示系統(tǒng)的當(dāng)前時間， Timer 控

17、件的時間間隔是 1000，也就是 1 秒鐘，這樣狀態(tài)欄中的時間每秒鐘都會變化，達(dá)到顯示系統(tǒng)時鐘 的目的，具體實(shí)現(xiàn)代碼為：Private Sub Timer1_Timer()(2).Text = Date & " " & TimeEnd Sub( 4)創(chuàng)建系統(tǒng)主界面當(dāng)系統(tǒng)運(yùn)行時，首先進(jìn)入登錄界面，當(dāng)輸入帳號，密碼合法時，則啟動系統(tǒng)主界 面。圖 4-4 系統(tǒng)主窗體的界面5)用戶進(jìn)入客房需要必要的登記來完成如圖：圖 4-5 用戶登記界面 圖 4-6 已經(jīng)登記的用戶 (6)退房信息：當(dāng)旅客離開賓館時，需要為其辦理退房手續(xù)，在這過程中需要 在旅客退房信息表中添加記錄信

18、息，以及修改客房信息表，改變客房狀態(tài)。旅客退房信息窗體，工作界面設(shè)計(jì)情況如圖：圖 4-7 退房登記表(7) 查詢住戶信息：此界面用于查詢房間狀態(tài)如是否有所需的類型或是否為空 房或滿房，可以全部瀏覽，也可以按照查詢條件來查找，如圖：圖 4-8 客房狀態(tài)界面(8) 查詢客房：客查詢窗體主要功能是實(shí)現(xiàn)客房信息查詢顯示，查詢方式可以是 按旅客姓名，登記號也可以按房間號查詢。工作界面如圖：圖 4-9 查詢住戶登記表(9) 客房情況打印表 :圖 4-10 客房情況打印表代碼設(shè)計(jì)一、酒店管理信息系統(tǒng)程序代碼 :Private Sub CmdOK_Click()Dim s1 As StringDim i As

19、 IntegerDim j As IntegerDim a(18) As Stringj = Len s1 =Dim c As Integer c = 1For i = 1 To ja(i) = Mid(s1, i, 1)'逐一判斷字符的合格化If a(i) = "" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "<" ThenMsgBox "Error", vbOKOnly, "Error&quo

20、t;Exit SubElseIf a(i) = ">" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "=" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = " " ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a

21、(i) = "" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "," ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "'" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubEnd Ifc = c + 1Next iDim s

22、trusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim = "" Then錯誤"MsgBox " 用戶名不能為空！ ", vbOKOnly + vbCritical, "Exit SubEnd Ifopentable adousers, "usersinfo" strusername = ! 姓名 strpassword = ! 密碼Elsestrusername = ""strpas

23、sword = ""End IfIf strusername = And strpassword = ThenUnload MeElse提示 "MsgBox " 用戶名或密碼不對！ ", vbOKOnly + vbInformation, " intlogintimes = intlogintimes + 1If intlogintimes >= 3 ThenEndEnd IfSendKeys "HOME+END"End IfEnd SubPrivate Sub cmdcancel_click()Unload

24、 MeOption ExplicitPrivate Sub Command1_Click()If Not ThenIf Trim = "" ThenMsgBox " 房間號不能為空！ ", vbOKOnly + vbInformation, "提示 "Exit SubEnd IfEnd If! 房間號 = Trim! 客房等級 = Trim! 客房類型 = Trim! 客房價格 = Trim! 客房狀態(tài) = Trim! 客房備注信息 =UpdateUnload MeEnd WithEnd SubPrivate Sub Command2

25、_Click()Unload MeEnd Sub提示 "提示 "退房登記實(shí)現(xiàn)代碼：Private Sub CmdOK_Click()If Not ThenIf Trim = "" ThenMsgBox " 登記號不能為空 !", vbOKOnly + vbInformation, "Exit SubEnd If"'", , adSearchForward, 1MsgBox " 非法登記號 !", vbOKOnly + vbInformation, " 提示SendKe

26、ys "HOME+END" III!Exit SubEnd IfMsgBox " 已經(jīng)有相同登記號 !", vbOKOnly + vbInformation, "SendKeys "HOME+END" III!End IfExit Sub.AddNew !登記號 = TrimEnd If!付款金額 = Val(Trim)! 登記日期 = Trim! 退房時間 =Update提示 "If Trim = "" ThenMsgBox " 備注不能為空 !", vbOKOnly +

27、vbInformation, "End If! 退房備注信息 =UpdateUnload MeDeleteEnd WithEnd WithEnd SubPrivate Sub Command1_Click()If optroom Then opentable , "select * from room where (room. 房間號 ) like '" & Trim & "%" & "')"ElseIf optgrade Then opentable , "select *

28、 from room where (room. 客房等級 ) like '" & Trim & "%" & "')" 'ElseIf opttype Thenopentable , "select * from room where (room. 客房類型 ) like '" & Trim & "%" & "')"End IfdtgroomqueryinforefreshEnd SubPrivate

29、 Sub CmdOK_Click()Dim s1 As StringDim i As IntegerDim j As IntegerDim a(18) As Stringj = Lens1 =Dim c As Integerc = 1For i = 1 To ja(i) = Mid(s1, i, 1)If a(i) = "" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "<" ThenMsgBox "Error",

30、vbOKOnly, "Error"Exit SubElseIf a(i) = ">" ThenMsgBox "Error", vbOKOnly, "ErrorMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "=" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = " " T

31、henMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "" ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "," ThenMsgBox "Error", vbOKOnly, "Error"Exit SubElseIf a(i) = "'" ThenMsgBox "Er

32、ror", vbOKOnly, "Error"Exit SubEnd Ifc = c + 1Next iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim = "" Then錯誤"MsgBox " 用戶名不能為空！ ", vbOKOnly + vbCritical, "Exit SubEnd Ifopentable adousers, "usersinfo" s

33、trusername = ! 姓名strpassword = ! 密碼Elsestrusername = ""strpassword = ""End IfIf strusername = And strpassword = ThenUnload MeElse提示 "MsgBox " 用戶名或密碼不對！ ", vbOKOnly + vbInformation, " intlogintimes = intlogintimes + 1If intlogintimes >= 3 ThenEndEnd IfSendKe

34、ys "HOME+END"End IfEnd SubPrivate Sub cmdcancel_click()Unload MeEnd Sub二、主控制窗體代碼：Option ExplicitPrivate Sub MDIForm_Load()= " 賓館客房管理系統(tǒng) "opentable adoroom, "room" opentable Adoroom1, "room"opentable adoguest, "guest" opentable Adoguest1, "guest&q

35、uot;opentable adoquit, "quit"(1).Text = " 歡迎登陸賓館管理系統(tǒng)(2).Text = Date & " " & TimeEnd SubPrivate Sub mnuCascade_Click()vbCascadeEnd SubPrivate Sub mnudenglu_Click()End SubPrivate Sub mnuExit_Click()Unload MeEnd SubPrivate Sub mnuGuest_Click()End SubPrivate Sub mnuHor_C

36、lick()vbTileHorizontalPrivate Sub mnuin_Click()End SubPrivate Sub mnuqueryguest_Click()End SubPrivate Sub mnuqueryroom_Click()End SubPrivate Sub mnuQuit_Click()End upPrivate Sub mnuver_Click()vbTileVerticalEnd SubPrivate Sub Timer1_Timer()(2).Text = Date & " " & TimeEnd SubPrivate Sub toolbar1_buttonclick(ByVal button AsSelect Case第 6 章 系統(tǒng)評價系統(tǒng)的測試在完成了系統(tǒng)界面設(shè)計(jì)及編碼等工作后， 為了使系統(tǒng)能夠穩(wěn)定地