毕业设计-酒店客房管理信息系统论文

酒店客房管理信息系统 摘 要 本文主要介绍了酒店客房管理信息系统的开发过程 .论文详尽的论述了从需求分析 ,系统分析 ,概要设计 ,详细设计 ,以及测试与调试的整个开发过程 .总结了开发过程中的经验及本系统今后的改进方向 . 关 键 字： 酒店客房管理信息系统 ； 功能 ； VisualBasic 6.0 ABSTRACT This thesis introduced the development process of the guest room Management information syst em. The thesis discussed in details analytical from the need , system analysis, essentials design, detailed design , and test and the whole development process that adjust to try , tallied up to develop the improvement direction process aftertime. KEY WORDS： The guest room management information； function； visualBasic 6.0 目 录 摘 要 1 ABSTRACT 1 目 录 2 一、引言 4 （一） 项目开发背景 4 （二） 项目开发目标 4 （三） 项目开发的意义 4 （四） 项目开发方法概述 4 二、系统分析 4 （一） 可行性分析 4 1. 管理上的可行性 4 2. 技术上的可行性 4 3经济上的可行性 5 （二） 组织结构分析 5 （三） 功能需求分析 5 （四） 业务流程分析 6 （五） 数据流程分析 8 （一） 系统模块设计 8 （二） 系统流程设计 9 （三） 数据库设计 10 1数据库需求分析 10 2数据库结构设计 11 （四） 运行环境选择 12 1软件支撑环境 12 2硬件支撑环境 12 四、系统实施 13 （一） 创建工程 13 （二） 添加模块 13 （三） 系统模块的设计 13 五、系统运行 15 （一） 系统登录 15 （二） 房客管理 17 （三） 客房管理 22 （四） 消费管理 24 （五） 报表管理 25 （六） 系统管理 26 （七） 系统信息 28 六、结束语 33 参考文献 33 一、引言 （一） 项目开发背景 经济的快速发展，人们的生活水平和消费意识的提高，促进了旅游业的发展。酒店行业将面临着机遇和挑战。面对快速发展的 信息产业带来的影响。将电脑技术和电脑服务引入酒店管理成为一种趋势。众多酒店企业中，中小型酒店企业由于他们的先天条件，使他们不能投入大量的资金进行这项必须的改革。因此开发一套简单，实用的中小型酒店客房管理信息系统是十分有必要的。 （二） 项目开发目标 建立酒店客房管理信息系统，采用计算机对客房信息进行管理，进一步提高酒店的经济效益和现代化水平。帮助酒店工作人员提高工作效率，实现客房信息管理工作流程的系统化，规范化和自动化。 （三） 项目开发的意义 现在我国的中小型酒店客房管理水平普遍不高，有的还停留在纸介质的 基础上，这种管理手段已不能适应时代的发展，因此它浪费了许多人力和物力。在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。如果本系统能被中小型酒店企业采用，将会改变以前靠手工管理客房信息的状况，可以树立良好的酒店形象，提高工作效率。 （四） 项目开发方法概述 酒店客房管理信息系统采用的是原型法的开发方法。本着开发人员对用户需求的的理解，通过简单的系统分析，系统设计，快速实现一个原型系统，然后通过反复修改来实现管理信息系统。 二、系统分析 （一） 可行性分析 1. 管理上的可行性 在 传统的酒店 客房 管理 中， 管理 人员不得不 花 费 大量的时间来处理顾客投诉，例如错误查询、烦琐的登记和结帐手续、旅客费用计算错误、空余客房资料不能及时提供等，从而影响 酒店的经济效益。因此酒店的管理人员迫切的需要一套酒店客房管理信息系统对日常信息进行处理和维护。 历史经验的积累使酒店行业现有的管理制度和管理方法比较科学，规章制度比较齐全，原始数据比较正确。这些为系统的建设提供了有效的制度保障。 2. 技术上的可行性 本管理信息系统将采用技术成熟的 VB6.0 做为前台开发工具。后台数据库采用微软公司的 Access 数据库， 它的灵活性，安全性，和易用性为数据库编程提供了良好的条件。因此，系统的软件开发平台已成熟可行。硬件方面，科技的飞速发展使硬件的更新速度越来越快，容量越来越大，可靠性越来越高，价格越来越低，其硬件平台完全能满足此系统的需要。 3经济上的可行性 本系统由作者自主开发，免费使用。操作人员只需简单培训即可上岗。管理和维护比较简单，除了必要的设备投资外，后期只需少量资金就可确保运转。因此对于中小型酒店在经济上完全可以接受。 本系统的使用能大大 提高员工工作效率，加速资金周转、降低各项成本及改善服务质量 。能够取得良好的 经济效益。 综上所述，本系统在管理上，在技术上和经济上是完全可行的，并且投入少，见效快。因此系统的开发完全可行的。 （二） 组织结构分析 中小型酒店企业的组织结构如下图所示： （ 三 ） 功能需求分析 本系统主要有以下功能要求： 1用户登录模块， 主要用于用户的登录。用户权限分为管理员和普通用户。当用户输入用户名和密码后经过确认，才能进入酒店客房管理信息系统，并拥有相应的权限。如果不是用户，拒绝进入。 2房客管理模块， 该模块是本系统的核心所在。主要用于用户对房客及其业务的情 况进行管理，其中包括： 预定管理模块，主要包括预定信息的登记，查看，删除等基本操作。 图 1 中小型酒店组织结构图 总 台 送餐服务部 食品采购部 洗衣房 礼宾部 房务中心 酒店总经理 前厅部 客房部 餐饮部 餐 厅 楼层服务 总机 财务部 保安部 接待管理模块，主要用于客户入住信息的登记，查看，修改，删除等基本操作。 结帐管理模块，主要用于用户退房操作。 换房管理模块，主要用于入住用户的换房操作。 押金管理模块，主要用于对入住客户押金的补交，查看等基本操作。 3客房管理模块， 该模块主要用于对客房的编辑操作和查看状态操作。客房的编辑操作主要有客房的添加，修改，删除等基本操作。 4消费管理模块， 该模块主要用于对客人在入住期间的消费进行入帐操作，包括消费入帐，话费入帐 ，餐费入帐等操作。 5审查管理模块， 主要用于该酒店管理者对酒店的基本数据信息进行查看，以便制定策略。包括客房状态报表查看，客人入住信息报表查看，历史客人报表查看等等。 （四） 业务流程分析 预订管理 餐费管理 话费管理 押金管理 客房查看 酒店客房管理系统 房客管理 客房管理 消费管理 消费管理 客房编辑 接待管理 结帐管理 换房管理 审查管理 图 2 功能需求结构图 入住报表管理 客房状态报表 系统管理 历史客人报表 酒店客房业务的基本流程主要包括： 客房的预定，客人通过电话或者其他途径向酒店进行客房预定，接待人员查询客房状态表后确定有空房则接受预定，预定成功后发给客人预定凭证，客房状态表作出相应的变化。 客房的登记，分为预定入住和散客登记 如果客人已经预定房间，则根据预定凭证进行 预定入住操作，发给客人房卡，客房状态由“预定”变为“入住”。 如果客人没有预定房间，接待人员查询客房状态表后，有空房则进行客房登记操作，发给客人房卡，客房状态由“空房”变为“入住”。 客人换房，如果客人对入住的客房条件不满意，则可进行客人换房操作。接待人员将客人的房间进行更换，并更换客人房卡，客房状态也进行相应的调整。 客房消费，客人入住期间在酒店进行了消费，如：购买商品，就餐，打电话。就要进行消费入帐操作。包括：消费入帐，餐费入帐，话费入帐。 补交押金，如果客人的押金太少，则要补交押金。客人交纳押金，接待 人员开具押金凭证。 夜审管理。酒店的管理人员要对酒店的基本信息进行了解则可以进行夜审管理，包括：客房状态报表的查看，客人入住信息的查看，历史客人报表查看。 客人退房，客人退房时，接待人员根据客人的房卡，进行退房登记。计算客人入住期间的房费，餐费，话费，各种消费和押金总额。对客人收取费用或者退回押金。客人信息转存到历史客人表中。客房状态由“入住”转为“空房”。 房卡 客人入住报表 房卡 押金凭证 房费帐单,房卡 消费帐单,押金凭证 客人换房 客房消费 补交押金 客房预定 客人 预定凭证 总台接待 客房编辑 客房状态表 客人入住表 夜审管理 客房状态报表 话费,餐费,其他消费帐单 离店客人报表 （五） 数据流程分析 本系统的后台数据库将作为整个酒店的数 据流通中心，将各个部门的数据信息连通起来，具体流程如下图所示： 三、系统设计 （一） 系统模块设计 根据上一章的分析，可以设计出系统的总体功能模块图，如图五所示。 餐饮部 信息 客房状态信息 客人就餐消费 客人入住信息 前台接待 客房部 财务部 酒店客房 MIS 客人押金消费 汇总 图 4 数据流程图 酒店客房管理信息系统 房 客 管 客房管消费管报表管系统维系统信 可以看到，本系统划分为六个功能模块，房客管理模块用于对客人及其业务情况进行管理，客房管理模块主要用于客房状态的查看和客房的编辑。消费管理模块主要用于对客人在店消费进行入帐管理。报表管理模块提供给酒店管理者用来查看酒店的基本信息，系统维护模块用来管理系统用户。系统信息模块用来查 看本系统的版权等信息。 （二） 系统流程设计 系统流程就是用户在使用系统时的工作过程。本系统是多类型用户管理信息系统，每一类用户的工作权限有所区别。多用户系统的工作流程都是从用户登录模块开始的，对用户的身份进行认证。身份认证可以分为以下两个过程： 确认用户是否是有效的系统用户。 确定用户的类型。 第一个过程决定用户能否进入系统。第二个过程根据用户的类型决定用户的操作权限。 本系统的流程分析如图六所示。 （三） 数据库设计 现在我们已经对酒店客房 管理信息系统的功能，模块划分和系统流程有了比较全面的认识，本节将介绍系统的数据库设计 1数据库需求分析 针对酒店客房管理信息系统的需求，通过对酒店客房管理工作过程的内容和数据流程分析，设计如下所示的数据项和数据结构： 客房基本信息，包括的数据项有：客房号码，客房标准，客房位置，客房状态，单价，容纳人数，等。 预定基本信息，包括的数据项有：客房房号，客人姓名，身份证号码，身份证地址，预定时间，操作员等。 入住客户基本信息，包括客房房号，客人姓名，身份证号码，身份证地址，从何处来，到何处去，住宿原因，入 住时间，操作员等。 结算信息，包括的数据项有：客房号码，客户姓名，身份证号码，客房单价，折扣，入住时间，结算时间，备注等。 系统用户信息，包括的数据项有 ：用户名，用户密码，用户权限。 管理自己的用户信息 管理自己和普通用户的用户信息 房客管理 客房管理 消费管理 夜审管理 读取用户类型 是 退出系统 失败 3 次 否 开始 用户登录 失败 重试 成功 普通用户 管理员 图 6 系统流程设计图 有了上面的数据结构，数据项和数据流程，我们就能进行下面的数据库设计。 2数据库结构设计 数据库包含以下 5 张表：系统用户表，客房状态表，客房预定表，客人入住表，历史客人表。 表 1 系统用户表 编号 字段名称 数据类型 说明 1 用户名 文本，长度为 50 用户的登录名， 必填字段 2 密码 文本，长度 40 密码， 必填字段 3 权限 文本，长度 40 用户的权限， 必填字段 表 2 客房状态表 编号 字段名称 数据类型 说明 1 房号 数字，整数 客房的房号 2 类别 文本，长度为 50 客房的类别 3 楼层 文本，长度 20 客房所在的楼层 4 状态 文本，长度 50 客房的状态 5 单价 数字，整数 客房的单价 6 容纳人数 数字，整数 客房 容纳的人数 表 3 客房预定表 编号 字段名称 数据类型 说明 1 房号 数字，整数 预定客房的房号 2 姓名 文本，长度 50 预定客户的姓名 3 类别 文本，长度 50 预定客房的类别 4 标准价 数字，整数 预定客房的标准价 5 证件号码 文本，长度 50 预定客户的证件号码 6 押金 数字，整数 预定客户交纳的押金 7 联系电话 文本，长度 50 预定客户的联系电话 8 操作员 文本，长度 20 预定操作的操作员 9 摘要 文本，长度 100 预定操作的摘要 表 4 客人入住表 编号 字段名称 数据类型 说明 1 房号 数字，整数 客人入住的房号 2 客人姓名 文本，长度 50 入住客人的姓名 3 标准价 数字，整数 客人入住客房的价格 4 押金 数字，整数 客人交纳的押金 5 类别 文本，长度 50 客人入住客房的类别 6 证件名称 文本，长度 50 客人的证件名称 7 证件号码 文本，长度 50 客人的证件号码 8 证件地址 文本，长度 50 客人的 证件地址 9 从何处来 文本，长度 50 客人的来源 10 到何处去 文本，长度 50 客人将要去的地方 11 住宿原因 备注 客人住宿的原因 12 操作员 文本，长度 50 客房登记的操作员 13 入住日期 日期型 客人入住的日期 14 入住时间 时间型 客人入住的时间 15 店内消费 数字型，整数 客人在店内消费的金额 16 餐费 数字型，整数 客人在店内的餐费金额 17 话费 数字型，整数 客人在店内的话费金额 表 5 历史客 人表 编号 字段名称 数据类型 说明 1 客人姓名 文本，长度 50 历史客人的姓名 2 证件号码 数字，整数 历史客人的证件号码 3 证件地址 文本，长度 50 历史客人的证件地址 4 最后入住日期 日期型 历史客人最后的入住日期 5 最后离店日期 日期型 历史客人最后的离店日期 6 入住次数 数字型 历史客人的入住次数 （四） 运行环境选择 1软件支撑环境 本系统采用中文 Windows XP 平台， Office 2000 中的 Access 为数据库， Visual Basic 6.0为开发工具，软 件开发在 Windows XP 平台下运行，最终产品可脱离 Visual Basic 6.0 运行环境，在 Windows 9X/2000/XP 平台下运行。 2硬件支撑环境 CPU：赛扬 1.2G 以上 内存： SDR 64M 以上 显卡： VGA 16M 显存以上 硬盘： 50M 以上硬盘剩余空间 四、系统实施 （一） 创建工程 用户需要创建工程存储的目录，例如“ f:酒店客房管理信息系统”。 运行 VisualBasic6.0 主程序，并选择新建“标准 EXE”工程。新建工程后，在 VisualBasic窗口中有个缺省的窗 体 Form1,我们在此基础上设计系统的主界面。 选择“工程”菜单中的“工程 1 属性”命令，在“工程属性”对话框中，将工程名设置为“酒店客房管理信息系统”。单击“保存”，将工程存储为 酒店客房管理信息系统 .vbp。 （二） 添加模块 根据 VisualBasic 功能模块的划分原则，将创建以下几个模块： Const 用来管理工程中的常量 DbFunc 用来管理工程中与数据库操作相关的声明，变量和函数 GeneralFunc 用来管理工程中一些通用的自定义函数 Variable 用来管理工程中的全局变量 添加模块的 具体操作请参照系统实体，这里不再详述。 （三） 系统模块的设计 登录模块的设计： 用户要使用本系统，首先必须通过系统的身份认证，这个过程叫做登录。登录过程需要完成以下任务： 根据用户名和密码来判断是否可能进入系统。 根据用户类型决定用户拥有的权限。 成功登录的用户将进入系统的主界面。 登录窗体的名称为 FrmLogin,它的界面布局如图七所示。 图 7 登录窗体的界面布局 下面介绍登录窗体的部分代码。 变量声明 登录窗体的变量 声明如下： Public PasswordKey As String Public NameKey As String Public Try_times As Integer NameKey 保存用户名， PasswordKey 保存密码， Try_times 记录尝试登录的次数 Cmd_Ok_Click 过程 当用户单击“确定”按钮是时，触发 Cmd_Ok_Click 事件，进行身份验证，对应的代码如下： Private Sub Cmd_OK_Click() 数据有效性检查 If Trim(txtUser) = Then MsgBox 请输入用户名 txtUser.SetFocus Exit Sub End If If Trim(txtPwd) = Then MsgBox 请输入密码 txtPwd.SetFocus Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 判断用户是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox 用户名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 判断密码是否正确 MyUser.GetInfo (NameKey) If MyUser.Pwd = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 登录成功，将当前用户的信息保存在 CurUser 中 CurUser.UserName = MyUser.UserName CurUser.User_type = MyUser.User_type 关闭自己 Unload Me End Sub 其他模块设计请参照系统实体，在这里不在详细叙述。 五、系统运行 （一） 系统登录 单击“酒店客房管理信息系统”图标。进入系统展示画面。 图 8 系统展示窗体 经过 5 秒钟，自动跳转到系统登录窗体。 图 9 系统登录窗体 选择 操作员名称（ admin） ,输入密码（ 111）。单击“确定”进入系统的主界面。 图 10 系统主界面 （二） 房客管理 1客房预定 单击“房客管理”，单击“预定房间”。弹出客房预定窗体。 在预定窗体中输入客户信息，单击“预定”，完成预定房间操作。 图 11 客房预定窗体 2预定入住 图 12 预定入住窗体 单击“预定入住”，弹出预定入住窗体。 在预定入住窗体中输入相关信息，单击“登记”完成预定入住操作。 3客房登记 图 13 客房登记窗体 单击“客房登记”，弹出客房登记窗体。 在客房登记窗体中输入相关信息，单击“登记”，完成客房登记操作。 4钟点房登记 单击“钟点房登记”，弹出钟点房登记窗体，输入相关信息，单击“登记”完成客房登记操作。 图 14 钟点房登记窗体 5客人换房 图 15 客人换房窗体 6补交押金 图 16 补交押金窗体 7退房登记 图 17 退房登记窗体 8在店客人表 图 18 在店客人表窗体 （三） 客房管理 1客房状态 图 19 客房状态窗体 2客房编辑 图 20 客房编辑窗体 （四） 消费管理 1消费入帐 图 21 消费入帐窗体 2餐费入帐 图 22 餐费入帐 3话费入帐 图 23 话费入帐 窗体 （五） 报表管理 图 24 报表管理窗体 （六） 系统管理 1.添加用户 图 25 添加用户窗体 2.修改密码 图 26 密码设置窗体 3.初始化数据库 图 27 初始化数据库窗体 4.用户查看 图 28 用户查看窗体 （七） 系统信息 1.版权信息 图 29 系统信息窗体 2.系统简介 图 30 系统介绍窗体 Dim TIM As Integer 定义一个整型变量 Dim myval As String 定义一个字符串变量 Private Sub Form_Load() 自动识别数据库路径 Data1.DatabaseName = App.Path & KFGL.mdb Data2.DatabaseName = App.Path & KFGL.mdb End Sub Private Sub Form_Activate() 当记录为零时，进入系统具有所有权限 If Data1.Recordset.RecordCount = 0 Then MsgBox (请先设置操作员密码和权限！ ) Load MDIForm1 MDIForm1.Show Unload Me Else text1.SetFocus End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus 按回车键， text2 获得焦点 End Sub Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Cmd1.SetFocus 按回车键 cmd1 获得焦点 If KeyCode = vbKeyUp Then text1.SetFocus If KeyCode = vbKeyDown Then Cmd1.SetFocus End Sub Private Sub cmd1_Click() 验证操作员及密码 If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst Data2.Recordset.FindFirst 操作员 like + Chr(34) + text1.BoundText + Chr(34) + If Data2.Recordset.NoMatch Then MsgBox (操作员输入错误 !) Else Data1.RecordSource = select * from qxsz where 操作员 = & text1.BoundText & Data1.Refresh If text1.BoundText And Text2.Text = Data1.Recordset.Fields(密码) Then drm = text1.Text If Data1.Recordset.Fields(角色名称 ) = 管理员 Then gly = 0 Else gly = 1 End If Load MDIForm1 MDIForm1.Show Unload Me Else If TIM = 3 Then 密码输错 3 次，退出系统 myval = MsgBox(密码输入错误 ,请向系统管理员查询 !, 0, ) If myval = vbOK Then End End If If text1.BoundText = Then MsgBox (请输入操作员 !) text1.SetFocus Else If text1.BoundText Data1.Recordset.Fields(密码 ) Then MsgBox (密码错误 ,请重新输入密码 !) TIM = TIM + 1 Text2.SetFocus End If End If End If End If End If End If End Sub Private Sub cmd2_Click() End End Sub Dim db As Database 定义数据库 Dim rs As Recordset 定义字段 Dim connter As Integer 定义一个整型变量 Dim workarea(200), sql As String 定义字符串变量 Private Sub Form_Load() 自动识别数据库路径 Data1.DatabaseName = App.Path & Kfgl.MDB End Sub Private Sub comstart_Click() Frame1.Enabled = True: Comcreat.Enabled = True End Sub Private Sub comcreat_Click() 清空选定表中的数据 ProgressBar1.Visible = True ProgressBar1.Max = UBound(workarea) ProgressBar1.Value = ProgressBar1.Min For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value & Counter ProgressBar1.Value = Counter Set db = Workspaces(0).OpenDatabase(App.Path & Kfgl.MDB) If Check1.Value = 1 Then sql = delete * from djb db.Execute sql End If If Check2.Value = 1 Then sql = delete * from kf db.Execute sql End If If Check4.Value = 1 Then sql = delete * from yd db.Execute sql End If If Check5.Value = 1 Then sql = delete * from qxsz db.Execute sql End If Next Counter ProgressBar1.Visible = False ProgressBar1.Value = ProgressBar1.Min End Sub Private Sub comend_Click() main.Enabled = True Unload Me End Sub 六、结束语 这次设计，使我学