酒店管理系统课程设计

1、目录 TOC o 1-5 h z HYPERLINK l bookmark6 o Current Document 第1章需求分析1 HYPERLINK l bookmark9 o Current Document 1.1系统概述1 HYPERLINK l bookmark12 o Current Document 1.2系统功能需求分析 1 HYPERLINK l bookmark18 o Current Document 第2章 管理系统平台的选用2 HYPERLINK l bookmark21 o Current Document 2.1数据库系统的选择原则2 HYPERLINK l b

2、ookmark30 o Current Document 2.2系统开发工具的选择2 HYPERLINK l bookmark37 o Current Document 第3章酒店管理概述3 HYPERLINK l bookmark40 o Current Document 3.1系统数据需求3 HYPERLINK l bookmark46 o Current Document 3.2系统业务功能的需求3 HYPERLINK l bookmark55 o Current Document 3.3系统性能需求：3 HYPERLINK l bookmark62 o Current Document

3、 第4章 系统总体设计5 HYPERLINK l bookmark65 o Current Document 4.1系统功能模块设计5 HYPERLINK l bookmark76 o Current Document 4.2系统结构设计7 HYPERLINK l bookmark79 o Current Document 4.3系统数据流程图 8 HYPERLINK l bookmark82 o Current Document E-R 图9 HYPERLINK l bookmark85 o Current Document 系统的运行要求9 HYPERLINK l bookmark88 o

4、 Current Document 第5章详细设计与实现10 HYPERLINK l bookmark91 o Current Document 5.1数据库设计10 HYPERLINK l bookmark102 o Current Document 5.2创建主窗体以及主要窗体 135.3代码设计错误！未定义书签。 HYPERLINK l bookmark119 o Current Document 第6章系统评价28 HYPERLINK l bookmark122 o Current Document 6.1系统的测试28 HYPERLINK l bookmark128 o Curren

5、t Document 6.2要注意到的问题29 HYPERLINK l bookmark131 o Current Document 6.3将来可能提出的要求29结论30参考文献31第1章需求分析1.1系统概述随着社会经济的发展，酒店、宾馆在服务行业扮演着越来越重要的角色。酒 店行业的竞争表现在管理和服务水平的竞争，它影响到酒店的形象和声誉。这就 要求通过先进的管理来提高服务质量，尽可能做到让客户满意。因此，非常需要 一套酒店管理系统来对客房信息，经营情况以及客户信息进行管理。酒店管理系 统为管理者制定决策判断提供了可行依据。判断提供迅速高效的、系统化的服务， 避免手工处理的繁琐与误差，成为酒

6、店、宾馆经营的重中之重。但是目前商业性 的酒店管理软件大多数是舍用于大、中型酒店，其操作复杂，收费昂贵，还需专 业维护。这就造成了很多小型酒店以及小型宾没有客房的管理软件，对于其宾馆 的经营造成管理的繁琐与混乱。所以开发一款社用于小型酒店或小型宾馆的客房 管理软件时必须的。1.2系统功能需求分析该系统的功能需求有如下几个方面：客房管理。主要用于对客房信息进行维护。功能包括对客房信息的添加、 修改和删除已有的客户信息，对客房信息进行查询。住宿管理。主要用于对入住信息进行维护。功能包括对入住信息的添加、 修改和查询。结算管理。主要用于对客房结账和对结算历史信息的查询。功能包括结 账(计算费用、记录

7、结账信息)和结算查询。第2章管理系统平台的选用2.1数据库系统的选择原则1、数据库系统采用易于集成的，开放的技术。2、产品质量优异，可靠性高，适于长期运行，能支持关键应用。3、数据安全，保安型高。4、能提供分布式数据库功能。5、支持多种开发环境，软件开发容易。6、扩充性和升级能力强。2.2系统开发工具的选择本次系统设计选用的是Visual Basic作为开发工具，因为Visual Basic具 有以下优越的功能：简单，易学，易用快速完成应用任务使用方便的工具栏支持中英文输入法用项目管理器统一界面第3章酒店管理概述3.1系统数据需求数据录入和处理的准确性和实时性。数据的一致性与完整性。数据的共享

8、与独立性。3.2系统业务功能的需求实现客房信息管理功能实现客户信息管理功能实现预定管理功能实现入住管理功能实现消费记账功能实现收银退房功能综上，我们将系统的功能大体划分为三大模块：权限管理：包括管理员的登录前台管理：包括客户信息的录入、客户预订和入住登记以及结算 的管理等。后台报表管理：包括报表的打印3.3系统性能需求：为了保证系统能够长期、安全、稳定、可靠、高效的运行，系统应该满足以 下的性能需求：系统处理的准确性和及时性系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中， 要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应时间能 够满足用户对信息的处理。系统的开

9、放性和系统的可扩充性系统在开发过程中，应该充分考虑以后的可扩充性。例如系统权限和客房信 息设置等模块也会不断的更新和完善。所有这些都要求系统提供足够的手段进行 功能的调整和扩充。而要实现这一点，应通过系统的开放性来完成，既系统应是 一个开放系统，只要符合一定的规范，可以简单的加入和减少系统的模块，配置 系统的硬件。（3）系统的易用性本酒店客房管理系统面向的用户是酒店内工作人员，而有些使用人员往往对 计算机并不是非常熟悉，所以系统操作上要求简单、方便、快捷，便于用户使用。 这就要求系统能够提供良好的用户接口，易用的人机交互界面。（4）系统的响应速度系统设计中摒弃大量数据冗余，提出了优化数据库的解

10、决方案，大量使用存 储过程，大大提高系统响应时间和速度。第4章系统总体设计本部分主要介绍系统要实现的功能，搭好设计的总体框架，使我们对要开发 的系统有一个系统、全面、确切的认识。4.1系统功能模块设计结合前面需求分析阶段的结果进行综合处理，确定了客房管理系统需要完成 的功能，主要划分为以下模块：结算管理结账(2)结账查询客房信息管理设置客房标准添加客房标准修改客房标准删除客房标准设置客房信息添加客房信息修改客房信息添加客房类型查询客房信息住宿信息管理(1)添加入住信息(2)修改入住信息查询入住信息模块设计图如下:图4-1系统功能模块图4.2系统结构设计系统的主要结构：系统的封面以表单开始，要求

11、用户输入登录，若密码错误，则自动退出，否 则出现系统主菜单，接受用户的操作，操作完毕后用户可以从系统菜单中退出系 统，系统运行的步骤如图：4.3系统数据流程图图4-3系统数据流程图4.4 E-R 图住宿登N客房入住 信息表备注信息是否结账顾客姓名入住登记日期住宿登N客房入住 信息表备注信息是否结账顾客姓名入住登记日期4.5系统的运行要求软、硬件环境：硬件:客户机（CPU P200以上，内存：32M以上）、数据库服务器（CPU PIII800 以上，内存：256M或以上。以Microsoft windows操作系统为工作平台。以 Microsoft Visual Basic 6.0 为开发工具。

12、数据库环境是 Microsoft Office Access 2003。第5章详细设计与实现5.1数据库设计（1）数据库需求分析设计的数据库系统应用于酒店管理系统，所以必须充分满足酒店客房管理系 统的各种要求。此系统要求记录每一次酒店客户的住宿登记、调房登记和退宿结 账的操作信息，并允许系统用户对这些信息进行查询。另外，必须建立一些辅助 项目表为这些操作信息提供数据来源。通过以上的分析，数据库设计必须满足以 下几点：（1）记录酒店客户住宿登记操作的信息。（2）记录酒店客户退房结账操作的信息。（3）记录酒店客房的相关信息。（4）记录酒店客户的客房预订信息。（5）记录系统用户的用户名、密码和操作权

13、限。（2）建立Access数据库及表在一个酒店管理系统中，数据库的地位是非常重要的，是一个系统正常运 行的基础。本系统的数据库是采用Microsoft公司的Access 2003设计的。在数 据库的设计过程中，首先是收集、分析需求；再从需求抽象出一般的实体、关 系和他们的属性；再将这些实体、关系和属性按照一定的规则转化为二元表结 构。本系统中共有4数据表表3-1为Usersinfo管理员资料数据表。管理员资料数据表记录了所有管理 的基本资料，管理员可添加、删除和查询该表。该表包括管理员ID、姓名、密 码和权限等资料。表3-1为Usersinfo管理员资料数据表字段名类型大小说明姓名Text20

14、管理人员帐号（主键）密码Text20管理人员密码（主键）权限Text1管理人员权限如下图所示：JIFV J I|I-=_l-nj1丘Usersirirv慕X界 quit、姓名 一码 , 权限-单志,嗣， TOC o 1-5 h z 何苗123456Y王五14贬贸Y张三4567S9YI表3-2为add旅客入住登记表。add日主登记表记录了入住旅客的基本个人 信息、房间号、登记号等。表3-2旅客信息表为旅客的个人信息加入住客房信息数据结构表字段名类型大小说明登记号Text8旅客入住号（主键）姓名Text8旅客姓名（不为空）身份证号码Text18旅客身份证号（不为空）房间号Text3入住房间号（不为

15、空）登记日期Text日期/时间旅客入住时间（不为空）性别Text3旅客性别籍贯Text8旅客籍贯如下所示:| 含 Usersinfo j 芸 add 1 翌 roo登记号-姓名 -身僚证号箕房间号7登记日期-性别 “藉贯 -1001王蒙卫45266219760101M7/11X21男湖北100243365219970501017?ril/18 男河南1003陈柏霖42365519891402台渣100445266219970403?2017/11/6：女湖北*表3-3为room资料数据表。room料数据表记录了 room基本资料，可供查 询。该表主要包括了房间号、客房等级、客房类型、客房价格、

16、客房状态、客房 备注信息等基本资料。表3-2room资料数据表字段名类型大小说明房间号Text3房间号（主键）客房等级Text8客房等级客房类型Text8客房类型（不为空）客房价格数字单精度型客房价格（不为空）客房状态Text3客房状态（不为空）客房备注信息备注8客房备注信息如下所示:西 Usersinfo ! W 西 Usersinfo ! W add | room 艺 quit房间号客房等级T着房类型客房价乎eT客房状态 101 如_20212 Q 4206301客房备注信，卓苦寂赫：2,401幡4必404501S展5Q3504来般般 华华华华牧华统统华华-好好好豪豪豪豪荟豪总总豪豪房房

17、间间间间间房房房房房房套套房房 AI.人AI.A卷床床务fiss统统务务 单单单单单大-大商商会商总总商商空空有有空空空空空空空空空空有 .QIo o Qai，o.，Qi，Q 5 5 8 8 -H- o- o 4 4 -o A- 8 00 4# 1-1-11-12 2 2- 23 2-7 7 2 2表3-4为quit资料数据表。quit资料数据表记录了所有退房的基本资料，管 理员可添加、删除和查询该表。类型的基本资料，包括登记号、登记日期、退房 日期、付款金额、退房备注信息。字段名类型大小说明登记号Text8旅客入住号（主键）登记日期日期/时间旅客登记时间（不为空）退房时间日期/时间旅客退房时

18、间（不为空）付款金额Text单精度型付费金额（不为空）退房备注信息Text8退房备注信息表3-4为quit资料数据表如下所示:iruu x uuu ; ;J uurri |登记号 ,I登记日期，|退房时间，|付款金额，|退房备注信-单击以添花h *10012017/11M2017/11/22150 |1002-2017/11/182017/11/201S过1003.2017/11/192G17/11/2719S010042017/11/262017/11/27380米0连接数据库：由于本系统是采用ADO对象访问数据库的技术，所以在VB中需要添加 ADO库。添加的方法是在VB中选择“工程”一“引

19、用”命令，在对话框中选择 Microdoft ActiveX Data Objects 2.0 Library，单击“确定按钮。在程序设计的公共模块中，先定义ADO连接对象。语句如下：Public conn As New ADODB.connection标记连接对象Dim connection As StringConnectionString = provider=microsoft.jet.oledb.4.0; & data source=carshale.mdb”conn.Open ConnectionString5.2创建主窗体以及主要窗体建立主窗体：单击”工程”-”添加MDI窗体”菜

20、单，在弹出的对话框中单 击”打开”按钮则为当前项目添加了一个MDI窗体。设置好MDI窗体属性后，设 置此项目的属性。单击”工程”-”工程1属性”菜单，进入项目属性设置窗体。在此项目属性窗体中通用选项卡的启动对象中选择MDIfrmMain项，将这一多文 档窗体作为程序的启动窗体。备工程 1 - Microsoft Visual Basic t+ - I程 1 - MDIfrmMian (MDIForm)、文件(B编辑旧 视囹GD工程 格式(2)调试(0)运行 查询囹表(D TMCD夕圈程序 &Ge标题(P)：醵画匚名称(M):|xt索引俩厂帮助上下文ID(H):Ge标题(P)：醵画匚名称(M):

21、|xt索引俩厂帮助上下文ID(H):r复选(c)P有效(E)取消快W(S): 国舫 3 协调位置(。):|0 - Bone | p可见(V) r显示窗口列表(W)0.1图41菜单结构(1)登录模块的设计：此模块的功能是检查管理员是否有进入系统的权限。用到的主要控件为二个text、两个label和两个Button按钮。窗体界面如图4-2 所示。M 0登灵欢迎使用酒店管理系统用户名何苗膏码:*I 确定取消Iruer图4-2登录窗体的界面在此模块中管理员可以选择相应的管理员帐号进行登录，减去了忘记帐号或 帐号名输入不方便的烦恼。（2）主页面模块的设计：此模块是系统服务器端的主要控制界面，通过菜单 的

22、选择，可以控制系统的所有功能，窗体界面如图4-3,4-4所示。主界面的设计步骤：1）设计主界面控件布局：在主界面的布局中使用了工具栏（ToolBar）、时钟 控件（timer）和图象列表（ImageList）等非Vb标准控件。2）工具栏的设置：给工具栏添加按钮3）添加菜单：菜单的使用是为了更好的给用户提供功能指引。工具栏列表系统通过Timer控件在状态栏中显示系统的当前时间，Timer控件的时间间隔是 1000，也就是1秒钟，这样状态栏中的时间每秒钟都会变化，达到显示系统时钟 的目的，具体实现代码为：Private Sub Timer1_Timer（）StatusBar1.Panels（2）.

23、Text = Date & & TimeEnd Sub（4）创建系统主界面当系统运行时，首先进入登录界面，当输入帐号，密码合法时，则启动系统主界 面。奈统玫能 基本信息髀 悟息查询 窗口布局才睐辕出 帮助信息客房信息 入客房信息 入住情况 运房记录 信息查询 报表打印退昌图4-4图4-4系统主窗体的界面5）用户进入客房需要必要的登记来完成如图:房e- ! - IkxT.n嘲猝- 房e- ! - IkxT.n嘲猝- X性别女霜贯湖北图4-6已经登记的用户(6)退房信息：当旅客离开宾馆时，需要为其办理退房手续，在这过程中需要 在旅客退房信息表中添加记录信息，以及修改客房信息表，改变客房状态。旅客退

24、房信息窗体，工作界面设计情况如图：图4-7图4-7退房登记表查询住户信息：此界面用于查询房间状态如是否有所需的类型或是否为空 房或满房，可以全部浏览，也可以按照查询条件来查找，如图：奇看类别奇看81028103 8202 8301 81028103 8202 8301 6102840T S1LHBJ司司司司司可 AIArAr种轲AIAI 早算京蕾善四nr.卷住住定房房房斋AA预空屋室图4-8客房状态界面入住.3 我定：L 空闱.3 使用率42 65T1拿出查询客房：客查询窗体主要功能是实现客房信息查询显示，查询方式可以是 按旅客姓名，登记号也可以按房间号查询。工作界面如图：图4-9查询住户登记

25、表客房情况打印表:5.3代码设计一、酒店管理信息系统程序代码：Private Sub CmdOK_Click()Dim s1 As StringDim i As IntegerDim j As IntegerDim a(18) As Stringj = Len(txtUserName.Text)si = txtUserName.TextDim c As Integerc = 1For i = 1 To ja(i) = Mid(s1, i, 1)逐一判断字符的合格化If a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = T

26、henMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = , ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit Su

27、bEnd Ifc = c + 1txtUserName.SetFocusNext iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim(txtUserName.Text) = ThenMsgBox ”用户名不能为空！ ”, vbOKOnly + vbCritical,错误”Exit SubEnd Ifopentable adousers, usersinfoadousers.Refreshadousers.Recordset.Find 姓名=& & txtUserNam

28、e.Text & , , adSearchForward, 1If Not adousers.Recordset.EOF Thenstrusername = adousers.Recordset!姓名strpassword = adousers.Recordset!密码Elsestrusername =strpassword =End IfIf strusername = txtUserName.Text And strpassword = txtPassword.Text Thenadousers.Recordset.CloseUnload Me frmmdi.ShowElseMsgBox

29、用户名或密码不对！, vbOKOnly + vbInformation,提示intlogintimes = intlogintimes + 1If intlogintimes = 3 Thenadousers.Recordset.CloseEndEnd IftxtPassword.SetFocusSendKeys HOME+ENDEnd IfEnd SubPrivate Sub cmdcancel_click()Unload MeEnd SubOption ExplicitPrivate Sub Command1_Click()With frmmdi.adoroom.RecordsetIf N

30、ot txtroomno.Locked ThenIf Trim(txtroomno.Text) = ThenMsgBox 房间号不能为空！ ，vbOKOnly + vbInformation,提示txtroomno.SetFocusExit SubEnd IfEnd If!房间号 = Trim(txtroomno.Text)!客房等级=Trim(txtroomgrade.Text)!客房类型=Trim(txtroomtype.Text)!客房价格=Trim(txtroomprice.Text)!客房状态=Trim(txtroomstatus.Text) !客房备注信息=txtroominfo.

31、TextUpdateUnload MeEnd WithEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub退房登记实现代码：Private Sub CmdOK_Click()With frmmdi.adoquit.RecordsetIf Not txtbookno.Locked ThenIf Trim(txtbookno.Text) = ThenMsgBox 登记号不能为空!, vbOKOnly + vbInformation,提示txtbookno.SetFocusExit SubEnd Iffrmmdi.adoguest.Recordset

32、.Find 登记号=& Trim(txtbookno.Text) &,adSearchForward, 1If frmmdi.adoguest.Recordset.EOF ThenMsgBox 非法登记号!，vbOKOnly + vbInformation,提示txtbookno.SetFocusSendKeys HOME+ENDtxtpaymoney.Text =Exit SubEnd Iffrmmdi.adoquit.Recordset.Find 登记号=& Trim(txtbookno.Text) & , , adSearchForward, 1If Not frmmdi.adoquit

33、.Recordset.EOF Then有就提示，然后退出MsgBox 已经有相同登记号!, vbOKOnly + vbInformation,提示” txtbookno.SetFocusSendKeys HOME+ENDtxtpaymoney.Text =Exit SubEnd If.AddNew!登记号=Trim(txtbookno.Text)End If!付款金额=Val(Trim(txtpaymoney.Text)!登记日期=Trim(txtbookdate.Text)!退房时间=dtpquitdate.TextUpdateIf Trim(txtinfo.Text) = ThenMsgB

34、ox 备注不能为空!, vbOKOnly + vbInformation,提示txtinfo.SetFocusEnd If!退房备注信息=txtinfo.TextUpdateUnload Mefrmmdi.adoroom.Recordset!客房状态=空With frmmdi.adoguest.RecordsetDeleteEnd WithEnd WithEnd SubPrivate Sub Command1_Click()If optroom Thenopentable frmmdi.Adoroom1, select * from room where (room.房间号)like & Tr

35、im(txtvalue.Text)& % & )opentable frmmdi.Adorooml, select * from room where (room,客房等级)like &Trim(txtvalue.Text) & % & )Elself opttype Thenopentable frmmdi.Adorooml, select * from room where (room,客房类型)like &Trim(txtvalue.Text) & % & )End IfdtgroomqueryinforefreshEnd SubPrivate Sub CmdOK_Click()Dim

36、sl As StringDim i As IntegerDim j As IntegerDim a(18) As Stringj = Len(txtUserName.Text)sl = txtUserName.TextDim c As Integerc = 1For i = 1 To ja(i) = Mid(s1, i, 1)If a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorMsgBox Error, vbOKOnly, ErrorExit SubM

37、sgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = , ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubEnd Ifc = c + 1txtUserName.SetFocusNext iD

38、im strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim(txtUserName.Text) = ThenMsgBox ”用户名不能为空！ ”, vbOKOnly + vbCritical,错误”Exit SubEnd Ifopentable adousers, usersinfoadousers.Refreshadousers.Recordset.Find 姓名=& & txtUserName.Text & , , adSearchForward, 1If Not adous

39、ers.Recordset.EOF Thenstrusername = adousers.Recordset!姓名 strpassword = adousers.Recordset!密码Elsestrusername =strpassword =End IfIf strusername = txtUserName.Text And strpassword = txtPassword.Text Thenadousers.Recordset.CloseUnload Mefrmmdi.ShowElseMsgBox ”用户名或密码不对！”, vbOKOnly + vbInformation,提示”in

40、tlogintimes = intlogintimes + 1If intlogintimes = 3 Thenadousers.Recordset.CloseEndEnd IftxtPassword.SetFocusSendKeys HOME+ENDEnd IfEnd SubPrivate Sub cmdcancel_click()Unload MeEnd Sub二、主控制窗体代码：Option ExplicitPrivate Sub MDIForm_Load()App.Title =宾馆客房管理系统”opentable adoroom, roomopentable Adorooml, ro

41、omopentable adoguest, guestopentable Adoguestl, guestopentable adoquit, quitStatusBarl.Panels.Text =”欢迎登陆宾馆管理系统”StatusBar1.Panels(2).Text = Date & & TimeEnd SubPrivate Sub mnuCascade_Click()frmmdi.Arrange vbCascadeEnd SubPrivate Sub mnudenglu_Click()frmLogin.ShowEnd SubPrivate Sub mnuExit_Click()Unl

42、oad MeEnd SubPrivate Sub mnuGuest_Click()frmGuestInfo.ShowEnd SubPrivate Sub mnuHor_Click()frmmdi.Arrange vbTileHorizontalEnd SubPrivate Sub mnuin_Click()frmusers.ShowEnd SubPrivate Sub mnuqueryguest_Click()frmqueryinfo.ShowEnd SubPrivate Sub mnuqueryroom_Click()frmqueryroom.ShowEnd SubPrivate Sub mnuQuit_Click()frmquitinfo.ShowEnd upPrivate Sub mnuver_Click()frmmdi.Arrange vbTileVe