酒店管理系统课程设计Word文档下载推荐.docx

1、（4）用项目管理器统一界面第3章 酒店管理概述3.1系统数据需求1） 数据录入和处理的准确性和实时性。2） 数据的一致性与完整性。3） 数据的共享与独立性。3.2系统业务功能的需求（1） 实现客房信息管理功能（2） 实现客户信息管理功能（3） 实现预定管理功能（4） 实现入住管理功能（5） 实现消费记账功能（6） 实现收银退房功能综上，我们将系统的功能大体划分为三大模块：权限管理：包括管理员的登录前台管理：包括客户信息的录入、客户预订和入住登记以及结算的管理等。后台报表管理：包括报表的打印3.3系统性能需求：为了保证系统能够长期、安全、稳定、可靠、高效的运行，系统应该满足以下的性能需求：（1）

2、系统处理的准确性和及时性系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应时间能够满足用户对信息的处理。（2）系统的开放性和系统的可扩充性系统在开发过程中，应该充分考虑以后的可扩充性。例如系统权限和客房信息设置等模块也会不断的更新和完善。所有这些都要求系统提供足够的手段进行功能的调整和扩充。而要实现这一点，应通过系统的开放性来完成，既系统应是一个开放系统，只要符合一定的规范，可以简单的加入和减少系统的模块，配置系统的硬件。（3）系统的易用性本酒店客房管理系统面向的用户是酒店内工作人员，而有些使用人员往往对计算机并不

3、是非常熟悉，所以系统操作上要求简单、方便、快捷，便于用户使用。这就要求系统能够提供良好的用户接口，易用的人机交互界面。（4）系统的响应速度系统设计中摒弃大量数据冗余，提出了优化数据库的解决方案，大量使用存储过程，大大提高系统响应时间和速度。第4章 系统总体设计本部分主要介绍系统要实现的功能，搭好设计的总体框架，使我们对要开发的系统有一个系统、全面、确切的认识。4.1 系统功能模块设计结合前面需求分析阶段的结果进行综合处理，确定了客房管理系统需要完成的功能，主要划分为以下模块：1. 结算管理（1）结账 （2）结账查询2. 客房信息管理（1）设置客房标准添加客房标准 修改客房标准 删除客房标准（2

4、）设置客房信息添加客房信息 修改客房信息 添加客房类型 查询客房信息3. 住宿信息管理（1） 添加入住信息 （2） 修改入住信息（3） 查询入住信息模块设计图如下：图4-1系统功能模块图4.2 系统结构设计系统的主要结构：系统的封面以表单开始，要求用户输入登录，若密码错误，则自动退出，否则出现系统主菜单，接受用户的操作，操作完毕后用户可以从系统菜单中退出系统，系统运行的步骤如图：4.3系统数据流程图图4-3 系统数据流程图4.4 E-R图4.5 系统的运行要求软、硬件环境:硬件：客户机（CPU P200以上，内存：32M以上）、数据库服务器（CPU PIII800以上，内存：256M或以上。以

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

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

7、管理员ID、姓名、密码和权限等资料。表3-1为UsersInfo管理员资料数据表字段名类型大小说明姓名Text20管理人员帐号（主键）密码管理人员密码（主键）权限1管理人员权限如下图所示：表3-2为add旅客入住登记表。add日主登记表记录了入住旅客的基本个人信息、房间号、登记号等。表3-2旅客信息表为旅客的个人信息加入住客房信息数据结构表登记号8旅客入住号（主键）旅客姓名（不为空）身份证号码18旅客身份证号（不为空）房间号3入住房间号（不为空）登记日期日期/时间旅客入住时间（不为空）性别旅客性别籍贯旅客籍贯如下所示：表3-3为room资料数据表。room料数据表记录了room基本资料，可供查

8、询。该表主要包括了房间号、客房等级、客房类型、客房价格、客房状态、客房备注信息等基本资料。表3-2room资料数据表房间号（主键）客房等级客房类型客房类型（不为空）客房价格数字单精度型客房价格（不为空）客房状态客房状态（不为空）客房备注信息备注表3-4为quit资料数据表。quit资料数据表记录了所有退房的基本资料，管理员可添加、删除和查询该表。类型的基本资料,包括登记号、登记日期、退房日期、付款金额、退房备注信息。表3-4为quit资料数据表旅客登记时间（不为空）退房时间旅客退房时间（不为空）付款金额付费金额（不为空）退房备注信息连接数据库：由于本系统是采用ADO对象访问数据库的技术，所以在

9、VB中需要添加ADO库。添加的方法是在VB中选择“工程”“引用”命令，在对话框中选择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.mdbconn.Open ConnectionString5.2 创建主

10、窗体以及主要窗体建立主窗体：单击”工程”-”添加MDI窗体”菜单,在弹出的对话框中单击”打开”按钮则为当前项目添加了一个MDI窗体。设置好MDI窗体属性后,设置此项目的属性。”工程1属性”菜单,进入项目属性设置窗体。在此项目属性窗体中通用选项卡的启动对象中选择MDIfrmMain项,将这一多文档窗体作为程序的启动窗体。图41 菜单结构（1）登录模块的设计：此模块的功能是检查管理员是否有进入系统的权限。用到的主要控件为二个text、两个label和两个Button按钮。窗体界面如图4-2所示。图4-2 登录窗体的界面在此模块中管理员可以选择相应的管理员帐号进行登录，减去了忘记帐号或帐号名输入不方

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

12、Sub Timer1_Timer（） StatusBar1.Panels（2）.Text = Date & TimeEnd Sub（4）创建系统主界面当系统运行时，首先进入登录界面，当输入帐号，密码合法时，则启动系统主界面。图4-4 系统主窗体的界面5）用户进入客房需要必要的登记来完成如图：图4-5用户登记界面图4-6已经登记的用户（6）退房信息：当旅客离开宾馆时，需要为其办理退房手续，在这过程中需要在旅客退房信息表中添加记录信息，以及修改客房信息表，改变客房状态。旅客退房信息窗体，工作界面设计情况如图：图4-7退房登记表（7）查询住户信息：此界面用于查询房间状态如是否有所需的类型或是否为空房

13、或满房，可以全部浏览，也可以按照查询条件来查找，如图：图4-8 客房状态界面（8）查询客房：客查询窗体主要功能是实现客房信息查询显示，查询方式可以是按旅客姓名，登记号也可以按房间号查询。工作界面如图： 图4-9查询住户登记表（9）客房情况打印表:图4-10客房情况打印表5.3 代码设计一、酒店管理信息系统程序代码:Private Sub CmdOK_Click（） Dim s1 As StringDim i As IntegerDim j As IntegerDim a（18） As Stringj = Len（txtUserName.Text）s1 = txtUserName.TextDim

14、 c As Integerc = 1For i = 1 To ja（i） = Mid（s1, i, 1） 逐一判断字符的合格化If a（i） = ThenMsgBox Error, vbOKOnly, Exit SubElseIf a（i） = =,End Ifc = c + 1txtUserName.SetFocus Next iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim（txtUserName.Text） = 用户名不能为空！, vbOKOnly + vbC

15、ritical, 错误opentable adousers, usersinfoadousers.Refreshadousers.Recordset.Find 姓名= txtUserName.Text &, , adSearchForward, 1If Not adousers.Recordset.EOF Thenstrusername = adousers.Recordset!strpassword = adousers.Recordset!Elsestrusername = strpassword = If strusername = txtUserName.Text And strpas

16、sword = txtPassword.Text Thenadousers.Recordset.CloseUnload Me frmmdi.Show用户名或密码不对！, vbOKOnly + vbInformation, 提示intlogintimes = intlogintimes + 1If intlogintimes = 3 ThenEndtxtPassword.SetFocusSendKeys HOME+ENDPrivate Sub cmdcancel_click（）Unload MeOption ExplicitPrivate Sub Command1_Click（）With frm

17、mdi.adoroom.RecordsetIf Not txtroomno.Locked ThenIf Trim（txtroomno.Text） = 房间号不能为空！txtroomno.SetFocus!房间号 = Trim（txtroomno.Text）客房等级 = Trim（txtroomgrade.Text）客房类型 = Trim（txtroomtype.Text）客房价格 = Trim（txtroomprice.Text）客房状态 = Trim（txtroomstatus.Text）客房备注信息 = txtroominfo.TextUpdateEnd WithPrivate Sub C

18、ommand2_Click（）End Sub 退房登记实现代码：Private Sub CmdOK_Click（）With frmmdi.adoquit.RecordsetIf Not txtbookno.Locked Then If Trim（txtbookno.Text） = 登记号不能为空!txtbookno.SetFocusfrmmdi.adoguest.Recordset.Find 登记号= Trim（txtbookno.Text） &If frmmdi.adoguest.Recordset.EOF Then 非法登记号!txtpaymoney.Text = frmmdi.adoqu

19、it.Recordset.Find If Not frmmdi.adoquit.Recordset.EOF Then 有就提示,然后退出已经有相同登记号!.AddNew登记号 = Trim（txtbookno.Text）付款金额 = Val（Trim（txtpaymoney.Text）登记日期 = Trim（txtbookdate.Text）退房时间 = dtpquitdate.TextIf Trim（txtinfo.Text） = 备注不能为空!txtinfo.SetFocus退房备注信息 = txtinfo.Textfrmmdi.adoroom.Recordset!客房状态 = 空With

20、 frmmdi.adoguest.RecordsetDeleteIf optroom Thenopentable frmmdi.Adoroom1, select * from room where （room.房间号） like Trim（txtvalue.Text） &%）ElseIf optgrade Thenselect * from room where （room.客房等级） like ElseIf opttype Thenselect * from room where （room.客房类型） like dtgroomqueryinforefresha（i） = Mid（s1, i, 1）ErrorE