酒店管理系统课程设计.docx
《酒店管理系统课程设计.docx》由会员分享，可在线阅读，更多相关《酒店管理系统课程设计.docx（32页珍藏版）》请在冰豆网上搜索。
酒店管理系统课程设计
目录
摘要1
ABSTRACT1
目录2
一、引言3
（一）项目开发背景3
（二）项目开发目标3
（三）项目开发的意义3
（四）项目开发方法概述3
二、系统分析3
（一）可行性分析3
1.管理上的可行性3
2.技术上的可行性3
3．经济上的可行性3
（二）组织结构分析4
（三）功能需求分析4
（四）业务流程分析5
（五）数据流程分析6
（一）系统模块设计7
（二）系统流程设计7
（三）数据库设计8
1．数据库需求分析8
2．数据库结构设计8
（四）运行环境选择10
1．软件支撑环境10
2．硬件支撑环境10
四、系统实施10
（一）创建工程10
（二）添加模块10
（三）系统模块的设计10
五、系统运行12
（一）系统登录12
（二）房客管理13
（三）客房管理18
（四）消费管理19
（五）报表管理20
（六）系统管理21
（七）系统信息22
六、结束语26
参考文献27
一、引言
（一）项目开发背景
经济的快速发展，人们的生活水平和消费意识的提高，促进了旅游业的发展。
酒店行业将面临着机遇和挑战。
面对快速发展的信息产业带来的影响。
将电脑技术和电脑服务引入酒店管理成为一种趋势。
众多酒店企业中，中小型酒店企业由于他们的先天条件，使他们不能投入大量的资金进行这项必须的改革。
因此开发一套简单，实用的中小型宾馆客房管理信息系统是十分有必要的。
（二）项目开发目标
建立宾馆客房管理信息系统，采用计算机对客房信息进行管理，进一步提高酒店的经济效益和现代化水平。
帮助酒店工作人员提高工作效率，实现客房信息管理工作流程的系统化，规范化和自动化。
（三）项目开发的意义
现在我国的中小型酒店客房管理水平普遍不高，有的还停留在纸介质的基础上，这种管理手段已不能适应时代的发展，因此它浪费了许多人力和物力。
在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。
如果本系统能被中小型酒店企业采用，将会改变以前靠手工管理客房信息的状况，可以树立良好的酒店形象，提高工作效率。
（四）项目开发方法概述
宾馆客房管理信息系统采用的是原型法的开发方法。
本着开发人员对用户需求的的理解，通过简单的系统分析，系统设计，快速实现一个原型系统，然后通过反复修改来实现管理信息系统。
二、系统分析
（一）可行性分析
1.管理上的可行性
在传统的酒店客房管理中，管理人员不得不花费大量的时间来处理顾客投诉，例如错误查询、烦琐的登记和结帐手续、旅客费用计算错误、空余客房资料不能及时提供等，从而影响酒店的经济效益。
因此酒店的管理人员迫切的需要一套宾馆客房管理信息系统对日常信息进行处理和维护。
历史经验的积累使酒店行业现有的管理制度和管理方法比较科学，规章制度比较齐全，原始数据比较正确。
这些为系统的建设提供了有效的制度保障。
2.技术上的可行性
本管理信息系统将采用技术成熟的VB6.0做为前台开发工具。
后台数据库采用微软公司的Access数据库，它的灵活性，安全性，和易用性为数据库编程提供了良好的条件。
因此，系统的软件开发平台已成熟可行。
硬件方面，科技的飞速发展使硬件的更新速度越来越快，容量越来越大，可靠性越来越高，价格越来越低，其硬件平台完全能满足此系统的需要。
3．经济上的可行性
本系统由作者自主开发，免费使用。
操作人员只需简单培训即可上岗。
管理和维护比较简单，除了必要的设备投资外，后期只需少量资金就可确保运转。
因此对于中小型酒店在经济上完全可以接受。
本系统的使用能大大提高员工工作效率，加速资金周转、降低各项成本及改善服务质量。
能够取得良好的经济效益。
综上所述，本系统在管理上，在技术上和经济上是完全可行的，并且投入少，见效快。
因此系统的开发完全可行的。
（二）组织结构分析
中小型酒店企业的组织结构如下图所示：
（三）功能需求分析
本系统主要有以下功能要求：
1．用户登录模块，主要用于用户的登录。
用户权限分为管理员和普通用户。
当用户输入用户名和密码后经过确认，才能进入宾馆客房管理信息系统，并拥有相应的权限。
如果不是用户，拒绝进入。
2．房客管理模块，该模块是本系统的核心所在。
主要用于用户对房客及其业务的情况进行管理，其中包括：
预定管理模块，主要包括预定信息的登记，查看，删除等基本操作。
接待管理模块，主要用于客户入住信息的登记，查看，修改，删除等基本操作。
结帐管理模块，主要用于用户退房操作。
换房管理模块，主要用于入住用户的换房操作。
押金管理模块，主要用于对入住客户押金的补交，查看等基本操作。
3．客房管理模块，该模块主要用于对客房的编辑操作和查看状态操作。
客房的编辑操作主要有客房的添加，修改，删除等基本操作。
4．消费管理模块，该模块主要用于对客人在入住期间的消费进行入帐操作，包括消费入帐，话费入帐，餐费入帐等操作。
5．审查管理模块，主要用于该酒店管理者对酒店的基本数据信息进行查看，以便制定策略。
包括客房状态报表查看，客人入住信息报表查看，历史客人报表查看等等。
（四）业务流程分析
酒店客房业务的基本流程主要包括：
客房的预定，客人通过电话或者其他途径向酒店进行客房预定，接待人员查询客房状态表后确定有空房则接受预定，预定成功后发给客人预定凭证，客房状态表作出相应的变化。
客房的登记，分为预定入住和散客登记
如果客人已经预定房间，则根据预定凭证进行预定入住操作，发给客人房卡，客房状态由“预定”变为“入住”。
如果客人没有预定房间，接待人员查询客房状态表后，有空房则进行客房登记操作，发给客人房卡，客房状态由“空房”变为“入住”。
客人换房，如果客人对入住的客房条件不满意，则可进行客人换房操作。
接待人员将客人的房间进行更换，并更换客人房卡，客房状态也进行相应的调整。
客房消费，客人入住期间在酒店进行了消费，如：
购买商品，就餐，打电话。
就要进行消费入帐操作。
包括：
消费入帐，餐费入帐，话费入帐。
补交押金，如果客人的押金太少，则要补交押金。
客人交纳押金，接待人员开具押金凭证。
夜审管理。
酒店的管理人员要对酒店的基本信息进行了解则可以进行夜审管理，包括：
客房状态报表的查看，客人入住信息的查看，历史客人报表查看。
客人退房，客人退房时，接待人员根据客人的房卡，进行退房登记。
计算客人入住期间的房费，餐费，话费，各种消费和押金总额。
对客人收取费用或者退回押金。
客人信息转存到历史客人表中。
客房状态由“入住”转为“空房”。
（五）数据流程分析
本系统的后台数据库将作为整个酒店的数据流通中心，将各个部门的数据信息连通起来，具体流程如下图所示：
三、系统设计
（一）系统模块设计
根据上一章的分析，可以设计出系统的总体功能模块图，如图五所示。
可以看到，本系统划分为六个功能模块，房客管理模块用于对客人及其业务情况进行管理，客房管理模块主要用于客房状态的查看和客房的编辑。
消费管理模块主要用于对客人在店消费进行入帐管理。
报表管理模块提供给酒店管理者用来查看酒店的基本信息，系统维护模块用来管理系统用户。
系统信息模块用来查看本系统的版权等信息。
（二）系统流程设计
系统流程就是用户在使用系统时的工作过程。
本系统是多类型用户管理信息系统，每一类用户的工作权限有所区别。
多用户系统的工作流程都是从用户登录模块开始的，对用户的身份进行认证。
身份认证可以分为以下两个过程：
确认用户是否是有效的系统用户。
确定用户的类型。
第一个过程决定用户能否进入系统。
第二个过程根据用户的类型决定用户的操作权限。
本系统的流程分析如图六所示。
（三）数据库设计
现在我们已经对宾馆客房管理信息系统的功能，模块划分和系统流程有了比较全面的认识，本节将介绍系统的数据库设计
1．数据库需求分析
针对宾馆客房管理信息系统的需求，通过对酒店客房管理工作过程的内容和数据流程分析，设计如下所示的数据项和数据结构：
·客房基本信息，包括的数据项有：
客房号码，客房标准，客房位置，客房状态，单价，容纳人数，等。
·预定基本信息，包括的数据项有：
客房房号，客人姓名，身份证号码，身份证地址，预定时间，操作员等。
·入住客户基本信息，包括客房房号，客人姓名，身份证号码，身份证地址，从何处来，到何处去，住宿原因，入住时间，操作员等。
·结算信息，包括的数据项有：
客房号码，客户姓名，身份证号码，客房单价，折扣，入住时间，结算时间，备注等。
·系统用户信息，包括的数据项有：
用户名，用户密码，用户权限。
有了上面的数据结构，数据项和数据流程，我们就能进行下面的数据库设计。
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．软件支撑环境
本系统采用中文WindowsXP平台，Office2000中的Access为数据库，VisualBasic6.0为开发工具，软件开发在WindowsXP平台下运行，最终产品可脱离VisualBasic6.0运行环境，在Windows9X/2000/XP平台下运行。
2．硬件支撑环境
CPU：
赛扬1.2G以上
内存：
SDR64M以上
显卡：
VGA16M显存以上
硬盘：
50M以上硬盘剩余空间
四、系统实施
（一）创建工程
用户需要创建工程存储的目录，例如“f:
\宾馆客房管理信息系统”。
运行VisualBasic6.0主程序，并选择新建“标准EXE”工程。
新建工程后，在VisualBasic窗口中有个缺省的窗体Form1,我们在此基础上设计系统的主界面。
选择“工程”菜单中的“工程1属性”命令，在“工程属性”对话框中，将工程名设置为“宾馆客房管理信息系统”。
单击“保存”，将工程存储为宾馆客房管理信息系统.vbp。
（二）添加模块
根据VisualBasic功能模块的划分原则，将创建以下几个模块：
Const用来管理工程中的常量
DbFunc用来管理工程中与数据库操作相关的声明，变量和函数
GeneralFunc用来管理工程中一些通用的自定义函数
Variable用来管理工程中的全局变量
添加模块的具体操作请参照系统实体，这里不再详述。
（三）系统模块的设计
登录模块的设计：
用户要使用本系统，首先必须通过系统的身份认证，这个过程叫做登录。
登录过程需要完成以下任务：
根据用户名和密码来判断是否可能进入系统。
根据用户类型决定用户拥有的权限。
成功登录的用户将进入系统的主界面。
登录窗体的名称为FrmLogin,它的界面布局如图七所示。
图7登录窗体的界面布局
下面介绍登录窗体的部分代码。
变量声明
登录窗体的变量声明如下：
PublicPasswordKeyAsString
PublicNameKeyAsString
PublicTry_timesAsInteger
NameKey保存用户名，PasswordKey保存密码，Try_times记录尝试登录的次数
Cmd_Ok_Click过程
当用户单击“确定”按钮是时，触发Cmd_Ok_Click事件，进行身份验证，对应的代码如下：
PrivateSubCmd_OK_Click（）
'数据有效性检查
IfTrim（txtUser）=""Then
MsgBox"请输入用户名"
txtUser.SetFocus
ExitSub
EndIf
IfTrim（txtPwd）=""Then
MsgBox"请输入密码"
txtPwd.SetFocus
ExitSub
EndIf
NameKey=MakeStr（txtUser）
PasswordKey=MakeStr（txtPwd）
'判断用户是否存在
IfMyUser.In_DB（NameKey）=FalseThen
MsgBox"用户名不存在"
Try_times=Try_times+1
IfTry_times>=3Then
MsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭"
DBapi_Disconnect
End
Else
ExitSub
EndIf
EndIf
'判断密码是否正确
MyUser.GetInfo（NameKey）
IfMyUser.Pwd<>PasswordKeyThen
MsgBox"密码错误"
Try_times=Try_times+1
IfTry_times>=3Then
MsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭"
DBapi_Disconnect
End
Else
ExitSub
EndIf
EndIf
'登录成功，将当前用户的信息保存在CurUser中
CurUser.UserName=MyUser.UserName
CurUser.User_type=MyUser.User_type
'关闭自己
UnloadMe
EndSub
其他模块设计请参照系统实体，在这里不在详细叙述。
五、系统运行
（一）系统登录
单击“宾馆客房管理信息系统”图标。
进入系统展示画面。
图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.系统简介
图30系统介绍窗体
DimTIMAsInteger'定义一个整型变量
DimmyvalAsString'定义一个字符串变量
PrivateSubForm_Load（）
'自动识别数据库路径
Data1.DatabaseName=App.Path&"\KFGL.mdb"
Data2.DatabaseName=App.Path&"\KFGL.mdb"
EndSub
PrivateSubForm_Activate（）
'当记录为零时，进入系统具有所有权限
IfData1.Recordset.RecordCount=0Then
MsgBox（"请先设置操作员密码和权限！
"）
LoadMDIForm1
MDIForm1.Show
UnloadMe
Else
text1.SetFocus
EndIf
EndSub
PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode=vbKeyReturnThenText2.SetFocus'按回车键，text2获得焦点
EndSub
PrivateSubtext2_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode=vbKeyReturnThenCmd1.SetFocus'按回车键cmd1获得焦点
IfKeyCode=vbKeyUpThentext1.SetFocus
IfKeyCode=vbKeyDownThenCmd1.SetFocus
EndSub
PrivateSubcmd1_Click（）
'验证操作员及密码
IfData2.Recordset.BOF=FalseThenData2.Recordset.MoveFirst
Data2.Recordset.FindFirst"操作员like"+Chr（34）+text1.BoundText+Chr（34）+""
IfData2.Recordset.NoMatchThen
MsgBox（"操作员输入错误!
"）
Else
Data1.RecordSource="select*fromqxszwhere操作员='"&text1.BoundText&"'"
Data1.Refresh
Iftext1.BoundText<>""AndText2.Text<>""AndText2.Text=Data1.Recordset.Fields（"密码"）Then
drm=text1.Text
IfData1.Recordset.Fields（"角色名称"）="管理员"Then
gly="0"
Else
gly="1"
EndIf
LoadMDIForm1
MDIForm1.Show
UnloadMe
Else
IfTIM=3Then'密码输错3次，退出系统
myval=MsgBox（"密码输入错误,请向系统管理员查询!
",0,""）
Ifmyval=vbOKThenEnd
EndIf
Iftext1.BoundText=""Then
MsgBox（"请输入操作员!
"）
text1.SetFocus
Else
Iftext1.BoundText<>Data1.Recordset.Fields（"操作员"）Then
MsgBox（"查无此操作员,请重新输入操作员!
"）
text1.SetFocus
Else
IfText2.Text=""Then
MsgBox（"请输入操作员密码!
"）
Text2.SetFocus
Else
IfText2.Text<>Data1.Recordset.Fields（"密码"）Then
MsgBox（"密码错误,请重新输入密码!
"）
TIM=TIM+1
Text2.SetFocus
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndSub
PrivateSubcmd2_Click（）
End
EndSub
DimdbAsDatabase'定义数据库
DimrsAsRecordset'定义字段
DimconnterAsInteger'定义一个整型变量
Dimworkarea（200）,sqlAsString'定义字符
升级会员 