客房管理系统设计报告.doc

客房管理系统设计报告设计人员： 09302101 崔曼爱 09302104 于超超 09302106 周丽丽 093021 李伟靖 093021 申飞 2011.12.12摘 要近年来，宾馆业迅猛发展，市场的竞争日趋激烈，全面提高宾馆的软件管理水准，已成为宾馆业发展的当务之急。尤其是对于星级宾馆，既需要完成前台的一些服务工作，还需要完成后台的管理工作。然而，传统的人工管理模式已经远远不能满足有效、快捷地处理经营中产生的大量信息数据的需要，从而使得企业决策层无法及时、准确地掌握一线资料，继而影响对市场进行正确地分析和预测。像沿海城市三星级以上宾馆引进外方管理，使小部分宾馆管理水准几乎接近或达到国际水平。但对占80%以上的广大中小型宾馆来说，是难以做到的。因此，欲在竞争中甩开对手，取得优势，必须在经营、管理、产品、服务等方面具备独到之处。而对宾馆的经营状况起决定作用的是客房的管理。简单的服务标准已不是制胜的锦囊，只有管理做到最细微之处，才能让顾客体会到宾馆服务的高标准、高质量，而准确、快速、周全往往就是最基本的成功要素。传统的管理方法已经不能适应现代社会的需要，因此采用电脑SQL数据库管理业务、财务等诸多环节已成为推动宾馆业迅速发展的先决条件，宾馆客房管理信息系统是各大中小型宾馆所需要使用的一个管理系统。1 绪论 随着计算机技术的飞速发展，计算机在客房管理中的应用越来越普及，利用计算机实现酒店各方面的管理显得越来越重要。对于现代酒店来说，利用计算机支持酒店高效率完成管理的日常事务，是适应现代酒店制度要求、推动酒店管理走向科学化、规范化的必要条件；计算机进行管理不仅能够保证个信息准确无误、快速输出，而且还可以利用计算机对有关的各种信息进行统计，服务于各部门其他方面的核算和处理，同时计算机具有手工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、成本低。2 应用系统及软件的介绍选择了WINDOWS 7中文版作为开发、测试和运行的平台。因为WINDOWS操作系统是目前应用最广的操作系统，它以全新的图形界面，简单快捷的操作方式，支持多媒体功能等特点而成为软件发展的流行趋势。本系统介绍了一种基于VB与SQL数据库的客房管理系统。Microsoft SQL Server是目前使用最广泛的数据库之一，它与Windows网络操作系统的无缝集成，智能化的内容管理，强大的功能，使它得到大量用户的喜爱。2.1 系统开发和运行环境操作系统:Windows 7。系统最低运行环境：操作系统：Win32系统 NT平台系列；内存要求至少在128MB以上。操作软件：Microsoft SQL Server 2005，VB 操作软件简介1 Microsoft SQL Server 2005Microsoft SQL Server 2005 是一个全面的数据库平台，使用集成的商业智能 (BI) 工具提供了企业级的数据管理。Microsoft SQL Server 2005 数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据应用程序。 2 VB 6.0VB 就是 Visual Basic 的意思，是一种常用的编程开发工具。它的基础是编程语言Basic ，Visual Basic 简单点来说就是微软为了更好的让人们学习编程，应用上 Basic 开发语言的一套工具，简称就是 VB。 3 系统的需求分析与初步设计1 系统需求分析宾馆管理系统是对宾馆是一个不可缺少的部分,它的内容对于宾馆的管理者来说都至关重要,所以宾馆管理系统应该能够提供充足的信息和快捷的查询手段。作为计算机应用的一部分,使用计算机对宾馆信息进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。2 初步设计(1) 本客房管理系统需要在vb 6.0的环境下配置运行，并配合使用SQL SERVER 2005数据库系统，所以数据处理功能更加强大。通过需求分析得出家庭实用管理系统要求实现功能如下：1、系统管理、重新登录、修改密码2、客房信息管理3、客户入住信息管理4、对客户资料的查询及对房间状态的查询5、注销客房等(2 ) 系统模块流程图4 系统总体设计4.1 数据库的设计4.1.1 数据库表的创建数据库表的建立是应用程序开发过程中的非常重要的一个环节，必须清楚每一模块要操纵的数据是那些，以及数据间的相互关系，然后建立数据表。宾馆管理系统数据库包含以下表：管理员表、房间信息表，客户信息表。1. 管理员表 S：字段为sno(用户名),smm（密码）。 2. 房间信息表r:字段为rno(房间号),rsta(房间状态),gno(会员编号)。 3. 客户信息表g： gno(会员编号),gname(会员名字),gshen(身份证),gsex(性别),gage(年龄),gdi(地址),gdan(单位),gfrom(来自)。 4.客户入住信息表gr：gno(会员编号),gname(会员名字),gshen(身份证),rno(房间号),rsta(房间状态),time(登记时间),day(预计天数),jiesuan(结算金额)。4.1.2 向各个表中插入数据如下 管理员表 S 房间信息表r 客户信息表g客户入住信息表gr4.1.3 四个表的关系图4.2 VB界面的设计按照设计的流程图，在工程中增添FORM，向每个FORM中加入相应的控件：command,text,label等，以及一些与数据库连接的控件:adodc.,data grid等，实现数据库SQL与VB界面的链接功能。5 系统的具体实现及代码5.1 登陆模块界面及功能通过本界面，管理员输入用户名和密码，登录到客房管理系统，用户名与密码的信息是通过VB与数据库中得表s建立连接实现的。输入用户名及密码，出现如下界面代码如下：Private Sub Label4_Click() Adodc1.RecordSource = select * from s where sno= & Text1.Text & Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox 没有这个用户，请重新输入正确的用户名, , 错误提示 Else If Text2.Text = Adodc1.Recordset.Fields(smm) Then MsgBox 登陆成功！, , 正确提示 登陆界面.Hide 管理界面.Show Else MsgBox 你的密码错误,请输入正确的用户密码！, , 错误提示 End If End IfEnd Sub5.2 客房信息管理界面通过本界面，可看到此系统设计的下拉式菜单中实现的具体功能代码如下：Private Sub a_Click()管理界面.Hide客房预约与登记.ShowEnd SubPrivate Sub b1_Click()管理界面.Hide客房预约与登记.ShowEnd SubPrivate Sub b2_Click()管理界面.Hide客户资料.ShowEnd SubPrivate Sub c1_click()管理界面.Hide客房信息.ShowEnd SubPrivate Sub c2_click()管理界面.Hide客房入住信息查询.ShowEnd SubPrivate Sub c3_click()管理界面.Hide注销客房.ShowEnd SubPrivate Sub d1_Click()管理界面.Hide管理人员.ShowEnd SubPrivate Sub d2_Click()EndEnd SubPrivate Sub Form_Load()Timer2.Interval = 50Label1.Caption = 欢迎进入客房管理系统Label1.AutoSize = TrueLabel1.FontSize = 32Label1.FontBold = TrueEnd SubPrivate Sub Timer1_Timer()Label2.FontName = Times New RomanLabel2.FontSize = 28Label2.Caption = Time$End SubPrivate Sub Timer2_Timer()If Label1.Left 0 Then 已有记录时 Adodc1.Recordset.MoveLast 移到最后一个记录 Adodc1.Recordset.MoveFirst 移到开头记录 End IfEnd SubPrivate Sub Command2_Click()客房信息.Hide管理界面.ShowEnd SubPrivate Sub Command3_Click()Adodc2.RecordSource = SELECT * FROM r Adodc2.RefreshEnd SubPrivate Sub Command4_Click()DataCombo2.Text = Text2.Text = Adodc1.RecordSource = SELECT * FROM r Adodc1.RefreshEnd Sub5.6 系统管理这是针对系统管理人员的菜单项，即包括管理人员和退出。1. 管理人员，点击进入FORM界面，可看到系统管理人员的用户名与密码均通过DataGrid显示出来，同时可直接在上面进行添加，修改或者删除。点击确定，返回管理系统。此数据记录与前面的登录系统的表的数据是一致的。2. 退出，点击退出则退出系统。代码如下：Private Sub Label1_Click()管理人员.Hide管理界面.ShowEnd SubPrivate Sub d