基于VB的酒店管理系统设计报告.doc

VB酒店管理系统设计报告基于VB的酒店管理系统设计报告姓 名： 学 号： 指导教师： 班 级： *年*月*日从实施课程改革以来，我反复学习有关的教育教学理论，深刻领会新课标精神，认真反思自身教学实际，研究学生，探究教法目录摘要3引言4一、系统功能设计51.1、 Visual Basic简介51.2 系统功能分析61.3 模块功能的设计61.4系统结构分析和设计7二、数据库设计82.1Microsoft office Access2003简介82.2数据库表结构设计92.2.1用户信息表（管理表）92.2.2登记信息表（入住表）92.2.3客房基础信息表（客房信息表）92.2.4退房登记信息表（退房登记表）102.2.5 客户基本信息表（客户表）10三、系统实现101.用户登录界面102.用户注册界面123.主界面144.入住信息165.退房信息196、客房信息237、报表打印239、备份数据2410、系统简介25四、存在的问题261.不能计时262.不能计费263.数据不能恢复26五心德体会26摘要当今社会，酒店种类和客流的不断增加，对于管理造成了困难。采用计算机来管理酒店和住客的信息，提高了查询的速度，节约了人力和物力资源，达到了预期的要求。本系统根据酒店管理的现状及未来的发展方向，结合有关酒店管理当中的管理学实践，设计了酒店管理系统。本系统是用于酒店服管理前台的系统软件。系统数据的管理采用了操作系统的最新管理方式，用户操作将会更简单、更直观、更方便。系统中各业务管理模块可以单机独立运行。使用本系统，可以大幅度提高酒店服务管理的工作效率。该系统应充分利用信息技术提高酒店客房的管理水平、服务水平。酒店管理系统要实现以下功能：（1）为用户提供方便、快捷的登录界面 （2）客房信息的维护与管理 （3）方便、快捷的查询 （4）库存模块管理（5）数据库管理关键词：Visual Basic语言；酒店管理系统；数据库引言酒店行业的激烈竞争似的争取客源、提高酒店满员率、制定正确营销策略已经成为一项重要的任务，而借助于当前蓬勃发展的IT工具来拓展销售能力，创造客观的经济效益已经成为许多酒店的首选。作为一有效的统计分析手段，计算机管理系统具有明显的优势，它在数据保存、数据交换等方面均能够做到快速可靠，是手工操作所不能完成的。随着我国市场经济的迅速发展，人们在生活水平有了显著提高，旅游经济和各种商务活动更促进了酒店行业的快速发展。同时，随着酒店的数量越来越多，人们的要求也越来越高，酒店行业的竞争愈演愈烈。如何在激烈的市场竞争中生存和发展，是第一个酒店必须面临的问题。作为提供多功能服务的综合场所，吸引顾客是酒店生存的重要条件。提高酒店的经营管理，为顾客提供更优质的服务，同时降低酒店的运营成本是酒店发展的关健。面对信息时代的机遇和挑战，利用科技手段提高企业管理无疑是一条行之有效的途径。计算机的智能化管理技术可以极大限度地提高服务管理水平，进行准确、快捷和高效的管理。因此，采用全新的计算机酒店管理系统，已成为提高酒店管理效率、改善服务水平的重要手段之一。酒店管理方面的信息化已成为现代化酒店的重要标志。一、系统功能设计1.1、 Visual Basic简介微软公司的Visual Basic 6.0是由微软公司于1998年推出的Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。微软公司在Visual Basic 6.0增加了ADO（ActiveX Data Objects）。ADO是一个用于存取数据源的COM组件。它提供了编程语言和统一数据访问方式OLEDB的一个中间层。开发人员通过ADO，就可以很容易地编写出同时支持多种数据库的软件了。此外，借助COM/COM+强大的功能，使用Visual Basic可以轻松地开发多层结构的分布式应用程序以及高效的Web应用程序。为什么选择Visual Basic来开发本系统呢？下面来介绍一下Visual Basic的独到之处：(1) Visual Basic主要特性1易于学习和使用。Visual Basic的中心思想就是便于程序员使用，无论是新手还是专家，都能轻松上手并很快掌握它。Visual Basic基于图形界面的开发环境使开发者对各种功能一目了然、容易理解。用户仅仅通过鼠标的简单操作就可以构建出一个复杂的软件图形界面。2 开发高效，功能强大。Visual Basic提供的图形用户界面和快速应用程序开发系统，使程序员可以轻松使用Visual Basic提供的各种功能的组件快速搭建一个应用程序。在数据库编程方面，使用微软提供的DAO、RDO、ADO等控件可以直观、高效地完成各种数据库操作。虽然Visual Basic易于使用，但这并不表明Visual Basic的功能薄弱，使用Visual Basic不仅可以开发简单的应用程序，还可以编写出商业级的客户端/服务器程序，以及强大的数据库应用程序。使用Visual Basic开发面向终端用户的具有良好界面的程序更是得以就手。3支持多种数据库访问机制。Visual Basic 6.0具有强大的数据库管理功能。利用其提供的ADO访问机制和ODBC数据库连接机制，可以访问多种数据库，如Access、SQL Server等。1.2 系统功能分析 通过对用户需求的分析，得出该系统大致可分为九个功能：酒店管理、客房管理、客户管理、报表打印、备份数据、帮助和退出。系统的功能框图如图1.1所示。酒店管理系统客房管理酒店管理备份数据报表打印客户管理退出帮助1.3 模块功能的设计总模块操作员登录主界面酒店管理帮助退出报表打印客户管理备份数据客房管理系统简介入住管理退房管理客户表打印退房表打印入住表打印客房表打印客房删除客房查询客房登记客房浏览价位标准客户查询客户登记客户浏览客房删除客户查询酒店管理模块酒店管理入住管理退房管理客房删除客户登记客户浏览客户浏览客户登记客房删除客户查询1.4系统结构分析和设计在开发小型酒店管理系统时，对客户的信息的管理必不可少，通过对系统进行的需求分析、业务流程设计以及系统功能结构的确定，规划出系统中使用的数据库实体对象及实体E-R图。 客房入住需要以客人信息及入住信息进行登记，这就存在一个登记信息实体，其实体如图所示：登记号性别登记信息楼层号客房等级登记日期预交定金客房价格客房类型房间号姓名客人退房时需要对退房信息进行登记，退房登记实体包含人的基本信息以及对房费进行结算登记的信息，退房登记实体图如图所示：退房记录房间号登记号楼层号退房日期付款金额退房注信息登记日期二、数据库设计2.1Microsoft office Access2003简介Microsoft Access是一种关系式数据库，是由微软公司开发的。关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。表(Table)是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。查询(Query)可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。窗体(Form) 提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。报表(Report) 的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。宏(Macro) 相当于DOS中的批处理，用来自动执行一系列操作。模块(Module) 的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。2.2数据库表结构设计该系统使用了Access数据库，名称为data.mdb，其各表的功能和具体设计结构如下：2.2.1用户信息表（管理表）功能是保存系统的用户数据，表如下所示：字段名称数据类型字段大小姓名文本20密码文本202.2.2登记信息表（入住表）功能是用来保存客人住宿时的住宿登记信息，表如下所示：字段名称数据类型字段大小登记号文本8楼层号文本2房间号文本4姓名文本8性别文本2客房等级文本10客房类型文本14客房价格文本4预交定金文本4登记日期日期/时间2.2.3客房基础信息表（客房信息表）功能是用来保存客房基础信息，表如下所示：字段名称数据类型字段大小楼层号文本2房间号文本5客房等级文本8客房类型文本8客房价格文本50客房状态文本10客房备注信息文本102.2.4退房登记信息表（退房登记表）功能是用来保存客人退宿登记信息，表如下所示：字段名称数据类型字段大小登记号文本8楼层号文本4房间号文本4登记日期日期/时间退房日期日期/时间付款金额文本4房间备注信息文本122.2.5 客户基本信息表（客户表）功能是用来保存客户的基本信息，表如下所示：字段名称数据类型字段大小登记号文本8姓名文本8身份证号码文本18楼层号文本2房间号文本3登记日期日期/时间性别文本2籍贯文本8三、系统实现1.用户登录界面如果你有用户名，那你就登录，它可以识别用户合不合法，如果合法，就登录成功，进入到下一个界面；如果不合法，就登录失败，重新登录。如果你没有用户名，你也可以在这里点击注册新用户。界面如下：代码如下：Dim sql As StringDim rs_login As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & data.mdb If Trim(Text1.Text) = Then MsgBox 用户名不能为空，请重新输入！ Text1.SetFocus Else sql = select * from 管理表 where 姓名= & Trim(Text1.Text) & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户,请重输入！, vbOKOnly + vbExclamation, Text1.Text = Text1.SetFocus Else username = Text1.Text If Trim(rs_login.Fields(1) = Trim(Text2.Text) Then Unload Me Form2.Show Form1.Hide Else MsgBox 密码不正确,请重输入！, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End If2.用户注册界面新用户在这里注册，如果你所输入的用户名己存在，它就会提示“用户名己存在，请重新注册！”密码和确认密码要一致，否则就会提示“两次密码不一致，请重新输入！”。界面如下：代码如下：Dim rs_bookstyle As New ADODB.Recordset Dim conn As New ADODB.Connection Dim sql As String findform = False sql = select * from 管理表 where 姓名= & Text1.Text & conn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & data.mdb rs_bookstyle.CursorLocation = adUseClient rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimistic If Text1.Text = Then MsgBox 用户名不能为空，请输入用户名！, vbOK0nly + vbExclamation, Text1.SetFocus ElseIf Text2.Text = Then MsgBox 密码不能为空，请输入密码！, vbOK0nly + vbExclamation, Text2.SetFocus ElseIf rs_bookstyle.EOF Then Dim hh hh = MsgBox(确信要注册新用户吗?, vbYesNo, ) If hh = vbYes Then rs_bookstyle.AddNew rs_bookstyle(姓名) = Trim(Text1.Text) rs_bookstyle(密码) = Trim(Text2.Text) If Text2.Text = Text3.Text Then rs_bookstyle.Update MsgBox 恭喜，您已经注册成功！ & 您的用户名是： & Text1.Text & ，密码是 & Text2.Text & ，请牢记！, vbOKOnly, Text1.Text = Text2.Text = Text3.Text = Else MsgBox 两次密码不一致，请重新输入！ End If Else MsgBox 已取消注册!, vbOKOnly, Text1.Text = Text2.Text = Text3.Text = End If Else MsgBox 用户名已存在，请重新注册！, vbOKOnly + vbExclamation, End If3.主界面本界面是系统的主界面，主要有菜单栏和工具栏。点击菜单栏或工具栏的任何一个选项，都可以进入到相关界面，有更详细的介绍或功能。界面如下：菜单栏的设置按钮的设置按钮功能代码如下：Select Case Button.IndexCase 1Form14.ShowForm2.Hide 调出客户信息Case 2Form13.ShowForm2.Hide 调出入住信息Case 3Form15.ShowForm2.Hide 调出退房信息Case 4Form19.ShowForm2.Hide 调出客房信息Case 5Form23.ShowForm2.Hide 调出入住信息浏览Case 6Form24.ShowForm2.Hide 调出退房信息浏览Case 7Form22.ShowForm2.Hide 调出客户信息浏览Case ElseForm25.ShowForm2.Hide 调出客房信息浏览End Select4.入住信息可以查询用户的入住信息，增加用户入住的信息，修改用户的入住信息，删除用户的入住信息，更新用户的入住信息。如果你在增加、修改、删除用户的入住信息，先点击上面的按钮，然后在表里进行增加、修改、删除，最后保存的时候你就点击更新就可以保存了。代码如下：全局变量Dim rs_tushu As New ADODB.RecordsetLoad事件Private Sub Form_Load() Dim conn As New ADODB.Connection Dim sql As String sql = select * from 入住表 conn.Open provider=microsoft.jet.oledb.4.0;data source= & App.Path & data.mdb rs_tushu.CursorLocation = adUseClient rs_tushu.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = False Set DataGrid1.DataSource = rs_tushuEnd Sub4.0.1增加信息提示框增加的代码Dim answer As String answer = MsgBox(真的增加吗？, vbYesNo, 增加) If answer = vbYes Then DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = Truers_tushu.AddNew MsgBox 真的增加吗？, 1 + 48, 增加ElseExit SubEnd If4.0.2修改信息提示框修改的代码Dim answer As String answer = MsgBox(真的修改吗？, vbYesNo, 修改) If answer = vbYes Then DataGrid1.AllowUpdate = Truers_tushu.UpdateDataGrid1.RefreshElseExit SubEnd If4.0.3查询的代码Dim rs_book As New ADODB.Recordset Dim conn As New ADODB.Connection Dim sql As String sql = select * from 入住表 where 登记号= & Text1.Text & conn.Open provider=microsoft.jet.oledb.4.0;data source= & App.Path & data.mdb rs_book.CursorLocation = adUseClient rs_book.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_book.EOF = True Then MsgBox 没有这个用户，请重新输入！, vbOKOnly + vbExclamation, Text1.Text = Text1.SetFocus Else Set DataGrid1.DataSource = rs_book DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = False End If4.0.4删除信息提示框删除的代码 Dim answer As String answer = MsgBox(真的删除吗？, vbYesNo, 删除) If answer = vbYes Then DataGrid1.AllowDelete = Truers_tushu.Deleters_tushu.UpdateDataGrid1.RefreshElseExit SubEnd If4.0.5更新的代码rs_tushu.UpdateDataGrid1.Refresh5.退房信息界面如下：代码如下：Dim sql As StringDim conn As New ADODB.ConnectionDim rs_bookstyle As New ADODB.RecordsetIf Trim(Text1.Text) = ThenMsgBox 登记号不能为空, vbOKOnly + vbExclamation, Text1.SetFocusExit SubEnd IfIf Trim(Text2.Text) = ThenMsgBox 房间号不能为空, vbOKOnly + vbExclamation, Text2.SetFocusExit SubEnd Ifconn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & data.mdb sql = select * from 退房登记表 where 登记号= & Trim(Text1.Text) & rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_bookstyle.EOF Then rs_bookstyle.AddNew rs_bookstyle.Fields(0) = Trim(Text1.Text) rs_bookstyle.Fields(1) = Trim(Text7.Text) rs_bookstyle.Fields(2) = Trim(Text2.Text) rs_bookstyle.Fields(3) = Trim(Text3.Text) rs_bookstyle.Fields(4) = Trim(Text4.Text) rs_bookstyle.Fields(5) = Trim(Text5.Text) rs_bookstyle.Fields(6) = Trim(Text6.Text) rs_bookstyle.Update MsgBox 退房成功！, vbOKOnly, Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text1.SetFocusElseMsgBox 信息重复！, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = rs_bookstyle.CloseExit SubEnd If5.1、退房查询可以查看有那一些房间已经退房了。5.2.退房浏览代码好下：5.3. 退房信息删除数据保存有一定的保存期限，如果过了那一个期限，就把数据删除。界面如下：代码如下：Dim rs_tushu As New ADODB.Recordset Dim conn As New ADODB.Connection Dim sql As String findform = False sql = select * from 退房登记表 where 登记号 = & Text1.Text & conn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= &