酒店管理系统的设计与分析毕业论文.doc

学士学位论文（设计）Bachelors Thesis论文题目酒店管理系统的设计与分析作者姓名学号所在院系学科专业名称导师及职称论文答辩时间湖北师范学院学士学位论文（设计）诚信承诺书中文题目： 酒店管理系统的设计与分析外文题目： Hotel management system design and analysis学生姓名学生学号院系专业学生班级学 生 承 诺我承诺在学士学位论文（设计）活动中遵守学校有关规定，恪守学术规范，本人学士学位论文（设计）内容除特别注明和引用外，均为本人观点，不存在剽窃、抄袭他人学术成果，伪造、篡改实验数据的情况。如有违规行为，我愿承担一切责任，接受学校的处理。 学生（签名）：年 月 日指导教师承诺我承诺在指导学生学士学位论文（设计）活动中遵守学校有关规定，恪守学术道德规范，经过本人核查，该生学士学位论文（设计）内容除特别注明和引用外，均为该生本人观点，不存在剽窃、抄袭他人学术成果，伪造、篡改实验数据的现象。 指导教师（签名）： 年 月 日目 录1.前言. 12.系统开发环境. 12.1 Visual Basic 6.0概述22.2 SQL(Structured Query Language)概述33. 可行性分析. 43.1技术可行性43.2经济可行性53.3操作可行性53.4社会可行性53.5管理上的可行性54.系统需求分析. 54.1功能分析：64.2性能需求64.3逻辑结构设计74.4系统总体设计图如下：74.5概念结构设计图如下（E-R图）75.数据实施与维护. 85.1建立数据库85.2在酒店管理系统中创建表格85.3建立关系图106.界面设计与代码. 106.1登陆界面106.2客户登记界面126.3房间管理界面176.4客户查询界面186.5房间查询界面206.6收入统计界面226.7管理员界面237. 调试及测试. 257.1内容检查257.2易用性测试257.3功能检查267.4容错性测试268.总结. 279.参考文献. 28湖北师范学院计算机科学与技术学院酒店管理系统的设计与分析摘要：随着信息化建设的发展，酒店服务业与国际市场接轨已成为大势所趋，酒店业要迎接这场挑战，就必须提高整体竞争能力，变革酒店的管理模式，提高管理水平。实施信息化建设无疑是实现这一目的的必由之路和明智之举。目前，我国酒店服务业信息化管理的进程缓慢，跟国外的酒店相比管理依然落后。在激烈的酒店业竞争中，如何能把握机会，保持自己的优势，立于不败之地呢？这就需要提供最好的服务，提供最完善的设施和最先进的技术。在信息时代，更重要的是还必须要有一个完善的管理信息系统，便于方便客人以及更好地管理酒店。关键词：酒店管理系统；SQL Server 2005；Visual Basic HOTEL MANAGEMENT SYSTEMAbstract: As the information of the development, hotel services and standards of the international market has become the trend of the times. The hotel industry to meet this challenge, we will have to improve overall competitiveness, reform the hotel management, enhance the management level. Implementation of information technology is to achieve this purpose and the only way to a wise move. At present, Chinas hotel services in the information management process has been slow, with foreign hotel management is still backward compared. The fierce competition in the hotel industry, how to seize the opportunity to maintain their advantage invincible? This makes it necessary to provide the best service to provide the best possible facilities and the most advanced technology. In the information age, is more important is also in need of a comprehensive management information system, Guests facilitate convenience and better management of the hotel.Key words: Hotel Manager;SQL Server 2005;Visual Basic酒店管理系统的设计与分析1.前言21世纪的酒店，从内部管理到外部销售都将发生质的变化。酒店宾馆组织庞大，服务项目多，信息量大，要想提高劳动生产，降低成本，提高服务质量和管理水平，进而促进经济效益，必须借助计算机来进行现代化的信息管理，计算机进行信息管理与信息管理系统的开发密切相关，而系统的开发是系统管理的前提，酒店管理系统正是为此而设计的。酒店管理系统是根据酒店对客房管理的实际情况进行设计的，主要目的是为了方便酒店对客房的实际情况进行集中的查询与管理工作，以提高整个酒店管理的工作效率。酒店管理信息系统是各个酒店软件建设中一个重要的应用系统，它大大的改善酒店管理的基础环境。本系统是采用VB语言和SQL server数据库开发的典型的酒店管理系统。该系统的主要目标是针对酒店客房住房管理进行计算机的管理，本系统主要功能包括：房间管理、客户查询、房间查询、收入统计等。使用该酒店管理系统，将会有以下好处：1、高效的客房管理：能有效的提高房率，增加营业收入。2、提高决策依据：管理者可以随时了解经营情况，以制定相应的经营方针。3、减轻员工的工作负担：从而使员工把更多的精力放在提高为宾客服务的质量上。4、简单、方便地保存和查询历史资料。5、树立良好的酒店形象本论文主要阐述了该系统的需求分析、功能模块划分、数据库设计及主要功能的具体设计与实现，并就系统中用到的技术进行了介绍。2.系统开发环境系统设计选用Windows XP为操作系统和Visual Basic 6.0中文版作为系统开发平台与设计语言，因为它们均属Microsoft公司，彼此具有很好的兼容性，且开发出的应用系统稳定性高。2.1 Visual Basic 6.0概述Visual Basic 6.0是Microsoft公司于1998年推出，是目前最广泛的Visual Basic版本。从5.0版本开始，Visual Basic 推出了中文版，功能也在前面版本的基础上不断增强，已成为32位、支持面向对象的程序设计语言、向导、控件、数据访问以及Internet等方面增加了许多功能。Visual Basic 6.0是在Windows环境下运行的可视化的编程工具，具有“所见即所得”的设计特点。使用ADO可以轻松访问各种数据源。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。2.1.1 Visual Basic的特点 1、面向对象 VB采用了面向对象的程序设计思想。它的基本思路是把复杂的程序设计问题分解为一个个能够完成独立功能的相对简单的对象集合，所谓“对象”就是一个可操作的实体，如窗体、窗体中的命令按钮、标签、文本框等。面向对象的编程就好像搭积木一样，程序员可根据程序和界面设计要求，直接在屏幕上“画”出窗口、菜单、按钮等不同类型的对象，并为每个对象设置属性。 2、事件驱动 在Windows环境下，程序是以事件驱动方式运行的，每个对象都能响应多个不同的事件，每个事件都能驱动一段的代码事件过程，该代码决定了对象的功能。通常称这种机制为事件驱动。事件可由用户的操作触发，也可以由系统或应用程序触发。例如，单击一个命令按钮，就触发了按钮的Click(单击)事件，该事件中的代码就会被执行。若用户未进行任何操作(未触发事件)，则程序就处于等待状态。整个应用程序就是由彼此独立的事件过程构成。 3、软件的集成式开发 VB为编程提供了一个集成开发环境。在这个环境中，编程者可设计界面、编写代码、调试程序，直至把应用程序编译成可在Windows中运行的可执行文件，并为它生成安装程序。VB的集成开发环境为编程者提供了很大的方便。 4、结构化的程序设计语言 VB具有丰富的数据类型，是一种符合结构化程序设计思想的语言，而且简单易学。此外作为一种程序设计语言，VB还有许多独到之处。 5、强大的数据库访问功能 VB利用数据控件可以访问多种数据库，VB6.0提供的ADO控件，不但可以用最少的代码实现数据库操作和控制，也可以取代Data控件和RDO控件。 6、支持对象的链接与嵌入技术 VB的核心是对对象的链接与嵌入(OLE)技术的支持，它是访问所有对象的一种方法。利用OLE技术，能够开发集声音、图像、动画、字处理、Web等于一体的对象的程序。 7、多个应用程序向导VB提供了多种向导，如应用程序向导、数据对象向导和数据窗等。2.2 SQL(Structured Query Language)概述SQL Server 是一个关系数据库管理系统。它最初是由Microsoft Sybase 和Ashton-Tate三家公司共同开发的，于1988 年推出了第一个OS/2 版本 。在Windows NT 推出后，Microsoft与Sybase 在SQL Server 的开发上就分道扬镳了，Microsoft 将SQL Server 移植到Windows NT系统上，专注于开发推广SQL Server 的Windows NT 版本。Sybase 则较专注于SQL Server在UNIX 操作系统上的应SQL Server安装界面用。SQL(Structured Query Language)，意思为结构化查询语言，是一种介于关系代数与关系演算之间的结构化查询语言。它的主要功能就是同各种数据库建立联系，进行沟通。ANSI（美国国家标准协会）规定SQL是关系型数据库管理系统的标准语言。SQL语句可以用来执行各种各样的操作，例如更新数据库中的数据、从数据库中提取数据等。SQL语言之所以能够为用户和业界所接受，并成为国际标准，是因为它是一个综合的、功能极强同时又简捷易学的语言。SQL语言集数据查询、数据操纵、数据定义和数据控制功能于一体。其特点如下：1、综合统一SQL语言集数据定义语言DDL、数据操纵语言DML、数据控制语言DCL的功能于一体，语言风格统一，可以独立完成数据库生命周期中的全部活动，包括定义关系模式、建立数据库、插入数据、查询、更新、维护、数据库重构、数据库安全性控制等一系列操作要求，这就为数据库应用系统的开发提供了良好的环境。用户在数据库系统投入运行后，还可根据需要随时地逐步地修改模式，并且不影响数据库的运行，从而使系统具有良好的可扩展性。2、高度非过程化非关系数据模型的数据操纵语言是面向过程的语言，用其完成某项请求必须指定存取路径。而用SQL语言进行数据操作，只要提出“做什么”，而无须指明“怎么做” ，因此无须了解存取路径，存取路径的选择以及SQL语言句的操作过程由系统自动完成。这不但大大减轻了用户负担，而且有利于提高数据独立性。3、面向集合的操作方式非关系数据模型采用的是面向记录的操作方式，操作对象是一条记录。而SQL语言采用集合操作方式，不仅操作对象、查找结果可以是元组的集合，而且一次插入、删除、更新操作的对象也可以是元组的集合。4、以同一种语法结构提供两种使用方式SQL语言既是自含式语言，又是嵌入式语言。作为自含式语言，他能够独立地用于联机交互的使用方式，用户何以在终端键盘上直接键入SQL命令对数据库进行操作；作为嵌入式语言，SQL语句能够嵌入到高级语言中，供程序员设计程序时使用。而在两种不同的使用方式下，SQL语言的语法结构基本上是一致的。5、语言简捷，易学易用SQL语言功能极强，但由于设计巧妙，语言十分简捷，完成核心功能只用了9个动词，SQL语言接近英语口语，因此容易学习，容易使用。以前的数据库管理系统为查询数据的各类操作提供单独的语言，而SQL 将全部任务统一在一种语言中。3. 可行性分析3.1技术可行性 Visual Basic 6.0是Microsoft公司推出的可视化的开发环境，是Windows环境下优秀的程序设计工具之一。它采用面向对象程序设计技术，提供了开发Windows应用程序的最简捷、最有效的方法。Visual Basic 收入了面向对象的程序设计思想和“控件”的概念，使得代码的可重用性增强。Visual Basic的功能非常强大，它支持ActiveX控件，能实现与各种数据库的连接，使用ADO数据控件不用编写代码就可以创建数据库应用程序。基于它强大的功能，选择此语言来开发酒店点菜系统，从技术上是完全可行的。3.2经济可行性 该系统设计的目的是更好的节约人力劳动，提高酒店的运营效率，对于酒店来说是一次性投资，引入本系统会使他得到数倍的回报。所以本系统的市场前景广阔，从这点来说系统开发从经济上来说是可行的。3.3操作可行性本系统设计简单的操作使用户能轻易掌握。这一特点对于酒店来说，将会在对该软件的使用中切实的体会到。本系统的操作方式在该用户组织内将完全行得通。3.4社会可行性 现代化的计算机信息管理系统在众多酒店及娱乐服务业已得到广泛应用，满足了广大经营者的迫切需求，它不仅进一步完善了企业管理信息化的进程，更为企业管理走向科学化、规范化、网络化奠定了基础。根据大量用户的实际应用表明，采用计算机管理企业可以节省人力32%，提高服务速度及准确率68%，同时还可提升企业形象和信誉，提高顾客满意度，大大增强企业的竞争能力和管理水平，综合效益非常明显。同时提升了社会整体服务水平，有利于推动社会的发展。3.5管理上的可行性 酒店管理系统能记录酒店客人的基本信息，提供查询、删除等工作，使工作人员从烦琐的手工操作中解脱出来，同时，能为企业的运作提供提供管理和决策支持。4.系统需求分析软件需求分析是软件开发期的第一个阶段，也是关系到软件开发成败的关键步骤。需求分析阶段要解决的问题，是让用户和开发者共同明确将要开发的是一个什么样的系统。具体而言，需求分析主要有两个任务：第一是通过对问题及其环境的理解、分析和综合，建立分析模型（Analysis）；第二是在完全弄清用户对软件系统的确切要求的基础上，用“软件需求规格说明书”（简称“需求说明”）来把用户的需求表达出来。4.1功能分析：系统管理是每个系统所必须具备的功能，主要是对操作该系统的使用者进行管理（即用户管理），包括用户的增加、删除、密码的修改以及管理各用户操作该系统的权限。并且实现房间基本设置功能以及各种系统设置功能，比如说房价设置等等。系统功能是在实际开发设计过程中经过调研、分析用户需求，和用户一起共同确定下来的，是系统为满足用户需求所应完成的功能。系统主要实现对酒店的管理功能主要有管理员登陆、客户登记、房间管理、客户查询、房间查询、收入统计、管理员信息管理。主要界面说明：1、管理员登陆：该界面是酒店管理者进入系统的基础模块，只有和数据库中存入的用户名和密码相同时才可进入。2、客户登记：该界面显示了当时酒店所有房间的状态，从该界面也可以进行客户登记和客户的退房结算。3、房间管理：该界面可以修改房间信息，还可以增加房间和删除房间，便于管理者对房间的管理。4、客户查询：可以迅速而又清楚的查询到某位客户在酒店登记的信息。5、房间查询：可以看到当前酒店某个房间的状态，在酒店房间较多或是客户指定只住某个房间的情况下可以清楚而又迅速的查询到房间的信息6、收入统计：可以清楚的看到酒店的当前收入，以及各种房间在收入中所占的比例。管理者可以通过这些数据来调控酒店的房间类别，获取收入较多的房间类别可以多开几间，从而提高酒店的经济效益。7、管理员信息管理：可以查询到所有管理员的信息，当某为管理员离职或是新来了某位管理员后，可以很方便的铁甲或删除，便于人事管理。4.2性能需求1、本软件主要用于管理，不是科学计算，要求计算的精度不是很苛刻。所以输入，输出数据精度不是很高，用于计算的数用浮点数就可以了。2、本软件运行的响应时间不超过12秒，基本实现就可以。3、该系统只支持在window系统上运行，后台数据库只支持SQL Server2005。4.3逻辑结构设计将E-R图转换成关系模式：管理员（编号，账号，密码，权限）房 间（编号，类型，价格，状态，入住客户编号）客 户（编号，姓名，性别，年龄，身份证号，住址，入住时间，预计天数，房间编号，退房时间，押金，住宿费，登记人）关系规范化：均已达到第三范式4.4系统总体设计图如图4-1所示：图4-1 系统总体设计图4.5概念结构设计图如图4-2所示：图4-2 概念结构设计图5.数据实施与维护数据库设计是根据系统功能的要求和数据规模规划数据库服务器选型、数据表结构定义、分配数据库服务器端的功能实现以及创建数据库对象，是建立数据库及其应用系统的技术，是信息系统开发和建设中的核心技术，具体说，数据库设计是指对于一个给定的应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能够有效地存储数据，满足各种用户的应用需求。5.1建立数据库打开SQL Server 2000企业管理器，建立数据库酒店管理。5.2在酒店管理系统中创建表格5.2.1管理员信息表AdminInfo表设置如表5-1所示，表内容如表5-2所示表5-1管理员信息表设置表5-2 管理员信息表内容5.2.2房间信息表RoomInfo表设置如表5-3所示，表内容如表5-4所示表5-3 房间信息表设置表5-4 房间信息表内容5.2.3客户信息表GuestInfo表设置如表5-5所示，表内容如表5-6所示表5-5 客户信息表设置 表5-6 客户信息表内容5.3建立关系图 图设置如图5-7所示，图内容如图5-8所示图5-7 关系图设置图5-8 关系图内容6.界面设计与代码6.1登陆界面只有管理员才可登入，其结果界面如图6-1所示，主要实现功能代码如下： 图6-1 登陆界面Public Sub Command1_Click() '确定If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" Then Rs.Open Sql, Conn, 1, 1 Num = Rs.RecordCount If Num <> 0 Then Aid = Val(Rs("aid") End If Rs.Close If Num <> 0 Then Common.CurrentUser = mName Common.CurrentUserID = Aid FMain.Show Unload Me Else MsgBox "错误的账号或密码！", vbInformation + vbOKOnly, "错误信息" Text2.Text = "" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End IfElseIf Text1.Text = "" Then MsgBox "账号不能为空！", vbInformation + vbOKOnly, "错误信息" Text2.SetFocusElseIf Text2.Text = "" Then MsgBox "密码不能为空！", vbInformation + vbOKOnly, "错误信息" Text2.SetFocusElse MsgBox "无法预计的错误！", vbInformation + vbOKOnly, "错误信息"End IfEnd SubPrivate Sub Command2_Click() '取消Common.EndAppEnd Sub6.2客户登记界面其结果界面如图6-2所示，主要实现功能代码如下： 图6-2 客户登记结果界面Private Sub Command5_Click()FLeave.Show 1If (FLeave.isChanged = True) Then Form_LoadEnd IfEnd Sub其客户登记界面如图6-3所示，主要实现功能代码如下： 图6-3 客户登记界面Private Sub Command2_Click()If mName = "" Then MsgBox "姓名不能为空." Text1.SetFocus Exit SubEnd IfIf RoomNum = "" Then MsgBox "房间需要选择." Combo2.SetFocus Exit SubEnd IfEnd SubPrivate Sub Command3_Click()isChanged = FalseUnload MeEnd SubPrivate Sub Form_Load()'装载所有的空闲房间Dim Sql As StringFreshHF HF1End Sub其退房结算界面如图6-4所示，主要实现功能代码如下： 图6-4 退房结算界面Private Sub Command1_Click()If RoomNum = "" Then MsgBox "选择房间." cName = "" RoomNum = "" RPrice = 0 Exit SubEnd IfPrivate Sub Command2_Click()If Me.cName = "" Then MsgBox "请选择需要结账的房间." Exit SubEnd IfIf (Me.isChanged = True) Then Unload MeEnd IfEnd SubPrivate Sub Command3_Click()isChanged = FalseUnload MeEnd SubPrivate Sub Form_Load()Dim Sql As StringSql = "select * from roominfo where rstates='满'"Rs.Open Sql, Common.Conn, 1, 1Combo1.ClearDo While Not Rs.EOF Combo1.AddItem Trim(Rs("rnum") Rs.MoveNextLoopRs.CloseEnd Sub其费用结算界面如图6-5所示，主要实现功能代码如下： 图6-5 费用结算界面Private Sub Command1_Click()Dim Sql As StringSql = "update guestinfo set couttime='" & OutTime & "',ccost=" & Cost & " where rnum='" & RoomNum & "'"Rs.Open Sql, Common.Conn, 3, 3MsgBox "结账成功！"Sql = "update roominfo set rstates='空' where rnum='" & RoomNum & "'"Rs.Open Sql, Common.Conn, 3, 3isChanged = TrueUnload MeEnd SubPrivate Sub Command2_Click()isChanged = FalseUnload MeEnd SubPublic Sub ShowMsg(str As String)Label2.Caption = strEnd Sub6.3房间管理界面可以清楚的查看所有房间的信息，其结果界面如图6-6所示，主要实现功能代码如下： 图6-6 房间管理结果界面Private Sub Command7_Click()isInsert = FalseText7.Enabled = FalseText7.BackColor = &HE0E0E0Command10_ClickEnd SubPrivate Sub Command8_Click()If r = 0 Or r = HF2.Rows - 1 Then MsgBox "请选择您需要删除的用户." Exit SubEnd IfIf MsgBox("您确定删除房间号【" & id & "】的房间吗？", vbYesNo, "提示") = vbNo Then Exit SubEnd If'开始删除用户Dim Sql As StringSql = "delete from roominfo where rnum='" & id & "'"Rs.Open Sql, Common.Conn, 3, 3RefreshRoomListEnd SubPrivate Sub Command9_Click()If isInsert = True Then Insert Rnum, Rtype, RPrice, RstatesElse Update Rnum, Rtype, RPrice, RstatesEnd IfRefreshRoomListEnd Sub6.4客户查询界面其结果界面如图6-7所示，主要实现功能代码如下： 图6-7 客户查询结果界面Private Sub Command11_Click()If Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 Then MsgBox "请选择查询条件." Exit SubEnd IfSql = "select * from guestinfo where 1=1 "If Check1.Value = 1 Then Sql = Sql & "and cname='" & Trim(Text14.Text) & "' "End IfIf Check6.Value = 1 Then Sql = Sql & "and cdeposit=" & Val(Text18.Text) & " "End IfRs.Open Sql, Common.Conn, 1, 1RefreshUser RsRs.CloseEnd SubPrivate Sub Command13_Click()If aName = "" Then MsgBox "请选择管理员." Exit SubEnd IfSql = "select top 1 * from admininfo where aname='" & aName & "'"Rs.Open Sql, Common.Conn, 1, 1If Not Rs.EOF Then Aid = Val(Rs("aid")End IfRs.CloseSql = "select * from guestinfo where aid=" & AidRs.Open Sql, Common.Conn, 1, 1RefreshUser RsRs.CloseEnd SubPrivate Sub RefreshUser(Rst As ADODB.Recordset)If Rs.EOF Then MsgBox "没有查找到数据." Exit SubEnd IfEnd Sub6.5房间查询界面其结果界面如图6-8所示，主要实现功能代码如下： 图6-8 房间查询结果界面Private Sub Command14_Click()Dim Sql As StringSql = "select * from roominfo where rstates='空'"Rs.Open Sql, Common.Conn, 1, 1RoomCount = 0Do While Not Rs.EOF RoomList(RoomCount).Rnum = Trim(Rs("rnum") RoomList(RoomCount).RPrice = Trim(Rs("rprice") RoomList(RoomCount).Rstates = Trim(Rs("rstates") RoomList(RoomCount).Rtype = Trim(Rs("rtype") RoomCount = RoomCount + 1 Rs.MoveNextLoopRs.CloseRefreshRoom2List RoomList, RoomCountEnd SubPrivate Sub Command15_Click()Dim Sql As StringSql = "select * from roominfo where rstates='满'"Rs.Open Sql, Common.Conn, 1, 1RoomCount = 0Do While Not Rs.EOF RoomList(RoomCount).Rnum = Trim(Rs("rnum") RoomList(RoomCount).RPrice = Trim(Rs("rprice") RoomList(RoomCount).Rstates = Trim(Rs("rstates") RoomList(RoomCount).Rtype = Trim(Rs("rtype") RoomCount = RoomCount + 1 Rs.MoveNextLoopRs.CloseRefreshRoom2List RoomList, RoomCountEnd SubPrivate Sub Command2_Click()Common.EndAppEnd Sub6.6收入统计界面其结果界面如图6-9所示，主要实现功能代码如下：图6-9 收入统计结果界面Private Sub Command19_Click() '修改密码-清空'总收入Sql = "select sum(ccost) from guestinfo"Rs.Open Sql, Common.Conn, 1, 1Num = Val(Rs(0)Rs.CloseLabel36.Caption = " " & Num & " 元"'普通Sql = "select * from roominfo where rtype='普通'"Rs