《小型酒店客房管理信息系统论文35877.doc》由会员分享，可在线阅读，更多相关《小型酒店客房管理信息系统论文35877.doc（27页珍藏版）》请在三一办公上搜索。
1、一、引言（一） 项目开发背景经济的快速发展，人们的生活水平和消费意识的提高，促进了旅游业的发展。酒店行业将面临着机遇和挑战。面对快速发展的信息产业带来的影响。将电脑技术和电脑服务引入酒店管理成为一种趋势。众多酒店企业中，中小型酒店企业由于他们的先天条件，使他们不能投入大量的资金进行这项必须的改革。因此开发一套简单，实用的中小型酒店客房管理信息系统是十分有必要的。（二） 项目开发目标建立酒店客房管理信息系统，采用计算机对客房信息进行管理，进一步提高酒店的经济效益和现代化水平。帮助酒店工作人员提高工作效率，实现客房信息管理工作流程的系统化，规范化和自动化。（三） 项目开发的意义现在我国的中小型酒店
2、客房管理水平普遍不高，有的还停留在纸介质的基础上，这种管理手段已不能适应时代的发展，因此它浪费了许多人力和物力。在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。如果本系统能被中小型酒店企业采用，将会改变以前靠手工管理客房信息的状况，可以树立良好的酒店形象，提高工作效率。（四） 项目开发方法概述酒店客房管理信息系统采用的是原型法的开发方法。本着开发人员对用户需求的的理解，通过简单的系统分析，系统设计，快速实现一个原型系统，然后通过反复修改来实现管理信息系统。二、系统分析（一） 可行性分析1. 管理上的可行性在传统的酒店客房管理中，管理人员不得不花费大量的时间来处理顾客投诉
3、，例如错误查询、烦琐的登记和结帐手续、旅客费用计算错误、空余客房资料不能及时提供等，从而影响酒店的经济效益。因此酒店的管理人员迫切的需要一套酒店客房管理信息系统对日常信息进行处理和维护。历史经验的积累使酒店行业现有的管理制度和管理方法比较科学，规章制度比较齐全，原始数据比较正确。这些为系统的建设提供了有效的制度保障。2. 技术上的可行性本管理信息系统将采用技术成熟的VB6.0做为前台开发工具。后台数据库采用微软公司的Access数据库，它的灵活性，安全性，和易用性为数据库编程提供了良好的条件。因此，系统的软件开发平台已成熟可行。硬件方面，科技的飞速发展使硬件的更新速度越来越快，容量越来越大，可
4、靠性越来越高，价格越来越低，其硬件平台完全能满足此系统的需要。3经济上的可行性本系统由作者自主开发，免费使用。操作人员只需简单培训即可上岗。管理和维护比较简单，除了必要的设备投资外，后期只需少量资金就可确保运转。因此对于中小型酒店在经济上完全可以接受。本系统的使用能大大提高员工工作效率，加速资金周转、降低各项成本及改善服务质量。能够取得良好的经济效益。综上所述，本系统在管理上，在技术上和经济上是完全可行的，并且投入少，见效快。因此系统的开发完全可行的。（二） 组织结构分析中小型酒店企业的组织结构如下图所示：图1 中小型酒店组织结构图总 台送餐服务部食品采购部 洗衣房礼宾部房务中心酒店总经理前厅
5、部客房部餐饮部 餐 厅楼层服务总机财务部保安部 （三） 功能需求分析本系统主要有以下功能要求：1用户登录模块，主要用于用户的登录。用户权限分为管理员和普通用户。当用户输入用户名和密码后经过确认，才能进入酒店客房管理信息系统，并拥有相应的权限。如果不是用户，拒绝进入。2房客管理模块，该模块是本系统的核心所在。主要用于用户对房客及其业务的情况进行管理，其中包括：预定管理模块，主要包括预定信息的登记，查看，删除等基本操作。接待管理模块，主要用于客户入住信息的登记，查看，修改，删除等基本操作。结帐管理模块，主要用于用户退房操作。换房管理模块，主要用于入住用户的换房操作。押金管理模块，主要用于对入住客户
6、押金的补交，查看等基本操作。3客房管理模块，该模块主要用于对客房的编辑操作和查看状态操作。客房的编辑操作主要有客房的添加，修改，删除等基本操作。4消费管理模块，该模块主要用于对客人在入住期间的消费进行入帐操作，包括消费入帐，话费入帐，餐费入帐等操作。5审查管理模块，主要用于该酒店管理者对酒店的基本数据信息进行查看，以便制定策略。包括客房状态报表查看，客人入住信息报表查看，历史客人报表查看等等。预订管理餐费管理话费管理押金管理客房查看酒店客房管理系统房客管理客房管理消费管理消费管理客房编辑接待管理结帐管理换房管理审查管理图2 功能需求结构图入住报表管理客房状态报表系统管理历史客人报表（四） 业务
7、流程分析酒店客房业务的基本流程主要包括：客房的预定，客人通过电话或者其他途径向酒店进行客房预定，接待人员查询客房状态表后确定有空房则接受预定，预定成功后发给客人预定凭证，客房状态表作出相应的变化。客房的登记，分为预定入住和散客登记如果客人已经预定房间，则根据预定凭证进行预定入住操作，发给客人房卡，客房状态由“预定”变为“入住”。如果客人没有预定房间，接待人员查询客房状态表后，有空房则进行客房登记操作，发给客人房卡，客房状态由“空房”变为“入住”。客人换房，如果客人对入住的客房条件不满意，则可进行客人换房操作。接待人员将客人的房间进行更换，并更换客人房卡，客房状态也进行相应的调整。客房消费，客人
8、入住期间在酒店进行了消费，如：购买商品，就餐，打电话。就要进行消费入帐操作。包括：消费入帐，餐费入帐，话费入帐。补交押金，如果客人的押金太少，则要补交押金。客人交纳押金，接待人员开具押金凭证。夜审管理。酒店的管理人员要对酒店的基本信息进行了解则可以进行夜审管理，包括：客房状态报表的查看，客人入住信息的查看，历史客人报表查看。客人退房，客人退房时，接待人员根据客人的房卡，进行退房登记。计算客人入住期间的房费，餐费，话费，各种消费和押金总额。对客人收取费用或者退回押金。客人信息转存到历史客人表中。客房状态由“入住”转为“空房”。房卡客人入住报表 历史客人表房卡押金凭证房费帐单,房卡消费帐单,押金凭
9、证客人换房客房消费补交押金客房预定 客人预定凭证 总台接待客房编辑 客房状态表 客人入住表 夜审管理客房状态报表话费,餐费,其他消费帐单客人退房离店客人报表图3 业务流程图（五） 数据流程分析本系统的后台数据库将作为整个酒店的数据流通中心，将各个部门的数据信息连通起来，具体流程如下图所示：餐饮部 客房状态信息客人就餐消费客人入住信息前台接待客房部财务部酒店客房 MIS客人押金消费汇总图4 数据流程图三、系统设计（一） 系统模块设计根据上一章的分析，可以设计出系统的总体功能模块图，如图五所示。酒店客房管理信息系统房客管理客房管理消费管理报表管理系统维护系统信息在房客人表补交押金预定入住预定房间客
10、人换房退房登记钟点房登记客房登记客房编辑客房状态消费入帐餐费入帐话费入帐客房入住表客房信息表用户添加更改密码数据初始化用户查看系统介绍版权信息图5 酒店客房管理系统功能模块示意图可以看到，本系统划分为六个功能模块，房客管理模块用于对客人及其业务情况进行管理，客房管理模块主要用于客房状态的查看和客房的编辑。消费管理模块主要用于对客人在店消费进行入帐管理。报表管理模块提供给酒店管理者用来查看酒店的基本信息，系统维护模块用来管理系统用户。系统信息模块用来查看本系统的版权等信息。（二） 系统流程设计系统流程就是用户在使用系统时的工作过程。本系统是多类型用户管理信息系统，每一类用户的工作权限有所区别。多
11、用户系统的工作流程都是从用户登录模块开始的，对用户的身份进行认证。身份认证可以分为以下两个过程：确认用户是否是有效的系统用户。确定用户的类型。第一个过程决定用户能否进入系统。第二个过程根据用户的类型决定用户的操作权限。本系统的流程分析如图六所示。管理自己的用户信息管理自己和普通用户的用户信息房客管理客房管理消费管理夜审管理读取用户类型是退出系统失败3次否开始用户登录失败重试成功普通用户管理员图6 系统流程设计图（三） 数据库设计现在我们已经对酒店客房管理信息系统的功能，模块划分和系统流程有了比较全面的认识，本节将介绍系统的数据库设计1数据库需求分析针对酒店客房管理信息系统的需求，通过对酒店客房
12、管理工作过程的内容和数据流程分析，设计如下所示的数据项和数据结构：客房基本信息，包括的数据项有：客房号码，客房标准，客房位置，客房状态，单价，容纳人数，等。预定基本信息，包括的数据项有：客房房号，客人姓名，身份证号码，身份证地址，预定时间，操作员等。入住客户基本信息，包括客房房号，客人姓名，身份证号码，身份证地址，从何处来，到何处去，住宿原因，入住时间，操作员等。结算信息，包括的数据项有：客房号码，客户姓名，身份证号码，客房单价，折扣，入住时间，结算时间，备注等。系统用户信息，包括的数据项有 ：用户名，用户密码，用户权限。有了上面的数据结构，数据项和数据流程，我们就能进行下面的数据库设计。2数
13、据库结构设计数据库包含以下5张表：系统用户表，客房状态表，客房预定表，客人入住表，历史客人表。表1 系统用户表编号字段名称数据类型说明1用户名文本，长度为50用户的登录名， 必填字段2密码文本，长度40密码， 必填字段3权限文本，长度40用户的权限， 必填字段表2 客房状态表编号字段名称数据类型说明1房号数字，整数客房的房号2类别文本，长度为50客房的类别3楼层文本，长度20客房所在的楼层4状态文本，长度50客房的状态5单价数字，整数客房的单价6容纳人数数字，整数客房容纳的人数表3 客房预定表编号字段名称数据类型说明1房号数字，整数预定客房的房号2姓名文本，长度50预定客户的姓名3类别文本，长
14、度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客人
15、的来源10到何处去文本，长度50客人将要去的地方11住宿原因备注客人住宿的原因12操作员文本，长度50客房登记的操作员13入住日期日期型客人入住的日期14入住时间时间型客人入住的时间15店内消费数字型，整数客人在店内消费的金额16餐费数字型，整数客人在店内的餐费金额17话费数字型，整数客人在店内的话费金额表5 历史客人表编号字段名称数据类型说明1客人姓名文本，长度50历史客人的姓名2证件号码数字，整数历史客人的证件号码3证件地址文本，长度50历史客人的证件地址4最后入住日期日期型历史客人最后的入住日期5最后离店日期日期型历史客人最后的离店日期6入住次数数字型历史客人的入住次数（四） 运行环境选
16、择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”工程。新建工程后，在Visual
17、Basic窗口中有个缺省的窗体Form1,我们在此基础上设计系统的主界面。选择“工程”菜单中的“工程1属性”命令，在“工程属性”对话框中，将工程名设置为“酒店客房管理信息系统”。单击“保存”，将工程存储为 酒店客房管理信息系统.vbp。（二） 添加模块根据VisualBasic功能模块的划分原则，将创建以下几个模块：Const 用来管理工程中的常量DbFunc 用来管理工程中与数据库操作相关的声明，变量和函数GeneralFunc 用来管理工程中一些通用的自定义函数Variable 用来管理工程中的全局变量添加模块的具体操作请参照系统实体，这里不再详述。（三） 系统模块的设计登录模块的设计：用
18、户要使用本系统，首先必须通过系统的身份认证，这个过程叫做登录。登录过程需要完成以下任务：根据用户名和密码来判断是否可能进入系统。根据用户类型决定用户拥有的权限。成功登录的用户将进入系统的主界面。登录窗体的名称为FrmLogin,它的界面布局如图七所示。 图7 登录窗体的界面布局下面介绍登录窗体的部分代码。变量声明登录窗体的变量声明如下：Public PasswordKey As StringPublic NameKey As StringPublic Try_times As IntegerNameKey保存用户名，PasswordKey保存密码，Try_times 记录尝试登录的次数Cmd_
19、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
20、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 PasswordKey Then MsgBox 密码错误 Try_times = Try_times + 1 If Try_times = 3 The
21、n MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 登录成功，将当前用户的信息保存在CurUser中 CurUser.UserName = MyUser.UserName CurUser.User_type = MyUser.User_type 关闭自己 Unload MeEnd Sub其他模块设计请参照系统实体，在这里不在详细叙述。五、系统运行（一） 系统登录单击“酒店客房管理信息系统”图标。进入系统展示画面。 图8 系统展示窗体待添加的隐藏文字内容3经过5秒钟，自动跳转到系统登录
22、窗体。 图9 系统登录窗体选择操作员名称（admin）,输入密码（111）。单击“确定”进入系统的主界面。 图10 系统主界面（二） 房客管理1客房预定单击“房客管理”，单击“预定房间”。弹出客房预定窗体。在预定窗体中输入客户信息，单击“预定”，完成预定房间操作。 图11客房预定窗体2预定入住图12 预定入住窗体单击“预定入住”，弹出预定入住窗体。在预定入住窗体中输入相关信息，单击“登记”完成预定入住操作。3客房登记图13 客房登记窗体单击“客房登记”，弹出客房登记窗体。在客房登记窗体中输入相关信息，单击“登记”，完成客房登记操作。4钟点房登记单击“钟点房登记”，弹出钟点房登记窗体，输入相关信
23、息，单击“登记”完成客房登记操作。图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.系统简介 图30 系统介绍窗体Dim
24、 TIM As Integer 定义一个整型变量Dim myval As String 定义一个字符串变量Private Sub Form_Load() 自动识别数据库路径 Data1.DatabaseName = App.Path & KFGL.mdb Data2.DatabaseName = App.Path & KFGL.mdbEnd SubPrivate Sub Form_Activate()当记录为零时，进入系统具有所有权限 If Data1.Recordset.RecordCount = 0 Then MsgBox (请先设置操作员密码和权限！)Load MDIForm1 MDIF
25、orm1.Show Unload Me Else text1.SetFocus End IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus 按回车键，text2获得焦点End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Cmd1.SetFocus 按回车键cmd1获得
26、焦点If KeyCode = vbKeyUp Then text1.SetFocusIf KeyCode = vbKeyDown Then Cmd1.SetFocusEnd SubPrivate 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
27、(操作员输入错误!) Else Data1.RecordSource = select * from qxsz where 操作员= & text1.BoundText & Data1.Refresh If text1.BoundText And Text2.Text 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
28、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 (查无此操作员,请重新输入操作员!) text1.SetFocus Else If Text2.Text = Then MsgB
29、ox (请输入操作员密码!) Text2.SetFocus Else If Text2.Text Data1.Recordset.Fields(密码) Then MsgBox (密码错误,请重新输入密码!) TIM = TIM + 1 Text2.SetFocus End If End If End If End If End IfEnd IfEnd SubPrivate Sub cmd2_Click() EndEnd SubDim db As Database 定义数据库Dim rs As Recordset 定义字段Dim connter As Integer 定义一个整型变量Dim wo
30、rkarea(200), sql As String 定义字符串变量Private Sub Form_Load() 自动识别数据库路径 Data1.DatabaseName = App.Path & Kfgl.MDBEnd SubPrivate Sub comstart_Click() Frame1.Enabled = True: Comcreat.Enabled = TrueEnd SubPrivate Sub comcreat_Click() 清空选定表中的数据 ProgressBar1.Visible = True ProgressBar1.Max = UBound(workarea)
31、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.
32、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 SubPrivate Sub
33、 comend_Click() main.Enabled = True Unload MeEnd Sub结束语这次设计，使我学到了很多书本上没有的知识，提高了我对问题的分析能力。在这些天不分昼夜实践和摸索中，我受益匪浅，感触良多。通过这次毕业设计，使我感到我的所学知识还是不够的，还要继续多加努力。致谢参考文献1 陈明 软件工程N，中央广播电视大学出版社，2001年2 陈明 Visual Basic程序设计N，中央广播电视大学出版社，2000年3 刘韬、骆娟、何旭洪 Visual Basic6.0数据库系统开发实例导航N，人民邮电出版社 2002年4 王利，数据库基础与应用N，中央广播电视大学出版社，1997年5 Bob Reselman , Richard Peasley , Wayne Pruchniak. Visual Basic 6.0 使用指南N，电子工业出版社
