宾馆管理完整.docx
《宾馆管理完整.docx》由会员分享，可在线阅读，更多相关《宾馆管理完整.docx（14页珍藏版）》请在冰豆网上搜索。
宾馆管理完整
新乡电力宾馆管理系统毕业论文
（系统VB6.0）
指导教师：
张敏
计算机专业：
裴文龙
前言
随着21世纪的钟声敲响，人类正以惊人的速度走出工业文明，步入超高速发展的信息时代。
当人们昨天还在沉浸在486，586带来的高速、便捷时，而在今天，世界上又超乎人们想象地诞生了P42.4,P43.6……，对于明天，我们无法预想，因为计算机正以摩尔令人难以致信的速度发展。
信息时代的来临仅改变着我们的生活，也不断改变着我们的思维方式和学习方式，以及我们周围的一切。
可以说，计算机注定要伴随我们一生。
电子信息的网络化，各行各业的高度信息化不断推动着社会的高度发展。
对于我们新世纪的大学生，并且又是计算机专业的大学生，我们不仅仅要掌握计算机的基本技能，而且要精通计算机的科学技术及其应用。
在现代化的经济时代里，信息化竞争已经越来越趋于白热化，具有先进的信息化技术，无论是个人也好，还是企业也罢，都能占据先机，从而有效地拓宽与发展。
对于已经加入WTO的中国，我们已经别无选择了……
酒店管理系统是一个酒店行业不可缺少的部分,它的内容对于酒店的决策者和管理者来说都至关重要,所以酒店管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理文件，这种管理方式存在着许多缺点,如:
效率低、保密性差,另外时间一旦长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对教案信息进行管理,具有手工管理所无法比拟的优点.例如:
检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高酒店管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
1.总体设计
1.1设计目的
宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。
1.2系统功能分析
系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。
主要完成功能：
●有关客房标准的制定、标准信息的输入，包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等。
●客房标准信息的修改、查询等。
●客房基本信息的输入，包括客房编号、客房类型、客房位置、客房单价、备注等。
●客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。
●剩余客房信息的查询等。
●订房信息的输入，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。
●订房信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。
●结算信息的输入，包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。
●结算信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。
1.3系统功能模块设计
按结构化程序设计思想，当然最终设计考虑到自己的编程水平和能力，分析得出如下系统功能模块图
2.系统运行需求
2.1运行环境
操作系统：
windows2000/xp
数据库：
ACCESS
语言：
VB6.0
2.2尚未问决的问题
功能尚不完善，有待于继续开发。
2.3功能概述及界面图示
1）系统登陆
2）系统主框架
系统欢迎界面。
3）系统设置
完成对操作员的增加、对密码的更改操作
添加操作员
4）客房管理
客房设置、客房查询、房态设置功能
客房设置
客房查询
房态设置
5）住宿管理
完成住宿登记、调房登记、住宿查询、退宿查询功能
住宿登记
调房登记
住宿查询
6）员工管理
完成添加员工、查询员工功能。
查询员工
7）消费品管理
完成添加新消费品、消费品查询功能
添加新消费品
消费品查询
8）账务管理
完成追加押金、退宿结账、挂账结款功能
9）关于
完成对系统和开发的介绍
3数据库设计
数据库设计步骤：
●数据库需求分析
●数据库概念结构设计
●数据库逻辑结构设计
首先将宾馆管理信息系统的数据库概念结构转化为ACCESS2003数据库系统所支持的实际数据模型，即：
数据库的逻辑结构。
其各个表格的设计结果如下：
3.1表格
表—djb
表—gzmx
表—kf
表—kfyd
表—qxsz
表—tfd
表—xfp
表—ygb
3.2宾馆管理信息系统几个代表窗口的具体程序实现:
房态查询代码实现：
PrivateSubForm_Activate（）
DimiAsInteger'定义一个整型变量
DimcriteriaAsString'定义一个字符串变量
Dimmydb1AsDatabase'定义数据库
Dimmyrs1AsRecordset'定义字段
Dimmyrs2AsRecordset
Dimmyrs3AsRecordset
Setmydb1=Workspaces（0）.OpenDatabase（App.Path&"\db.mdb"）'定义数据环境
Setmyrs1=mydb1.OpenRecordset（"kf",dbOpenSnapshot）'定义数据表
'入住房间查询
SQL="select*fromkfwherekf.房态like"+Chr（34）+"入住"+Chr（34）+""
Setmyrs2=mydb1.OpenRecordset（SQL）
'维修房间查询
SQL="select*fromkfwherekf.房态like"+Chr（34）+"维修"+Chr（34）+""
Setmyrs3=mydb1.OpenRecordset（SQL）
Fori=1To25'房态显示
criteria="房间号='"&Command1（i）.Caption&"'"
myrs1.FindFirstcriteria
Ifmyrs1.NoMatchThen
Else
Ifmyrs1.Fields（"房态"）="空房"ThenCommand1（i）.Picture=LoadPicture（""）'空房
Ifmyrs1.Fields（"房态"）="入住"ThenCommand1（i）.Picture=LoadPicture（App.Path&"\tupian\happy.bmp"）
Ifmyrs1.Fields（"房态"）="维修"ThenCommand1（i）.Picture=LoadPicture（App.Path&"\tupian\diamond.bmp"）
EndIf
Nexti
IfNotmyrs2.EOFThenmyrs2.MoveLast
IfNotmyrs3.EOFThenmyrs3.MoveLast
Labsy.Caption=myrs2.RecordCount'客房入住数
Labwx.Caption=myrs3.RecordCount'客房维修数
Labkx.Caption=25-Val（Labwx.Caption）-Val（Labsy.Caption）'客房空闲数
Labsyl.Caption=Val（Labsy.Caption）/25*100&"%"'客房使用率
EndSub
PrivateSubForm_Unload（CancelAsInteger）
main.Enabled=True
EndSub
PrivateSubCommand1_Click（IndexAsInteger）'查询住宿信息
IfIndex>=0<=25Then
main_zscx.Data1.RecordSource="select*fromdjbwhere标志='1'and房间号='"&Command1（Index）.Caption&"'"
main_zscx.Data1.Refresh
EndIf
Loadmain_zscx
main_zscx.Show
EndSub
PrivateSubCommand2_Click（）
UnloadMe
main.Enabled=True
EndSub
调房登记代码实现：
PrivateSubForm_Load（）
'自动识别数据库路径
Data1.DatabaseName=App.Path&"\db.MDB"
Data2.DatabaseName=App.Path&"\db.MDB"
Data3.DatabaseName=App.Path&"\db.MDB"
Data4.DatabaseName=App.Path&"\db.MDB"
EndSub
PrivateSubForm_Activate（）
czy.Text=main.StatusBar1.Panels（4）.Text'赋值给czy.text
'查询住宿登记信息
Data4.RecordSource="select*fromdjbwhere标志='1'"
Data4.Refresh
EndSub
PrivateSubForm_Unload（CancelAsInteger）
main.Enabled=True'设置主窗体有效
EndSub
PrivateSubDBCombo1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode=vbKeyReturnThenTexbz.SetFocus'texbz获得焦点
EndSub
PrivateSubDBCOMBO2_Change（）
IfDBCombo2.Text<>""Then
Data1.Recordset.FindFirst"房间号='"&DBCombo2.Text&"'and标志='1'"
IfData1.Recordset.NoMatchThen
MsgBox（"请核准住宿房间和住宿人！
"）
Else
IfData1.Recordset.Fields（"客房类型"）<>""Then
WithData1.Recordset
'查询空闲房间
Data2.RecordSource="select*fromkfwhere房间类型='"&.Fields（"客房类型"）&"'and房态='空房'"
Data2.Refresh
'赋值给bh.text等
If.Fields（"凭证号码"）<>""Thenbh.Text=.Fields（"凭证号码"）
If.Fields（"姓名"）<>""ThenTexxmb.Text=.Fields（"姓名"）
If.Fields（"证件名称"）<>""ThenCombo1.Text=.Fields（"证件名称"）
If.Fields（"证件号码"）<>""ThenTexsfz.Text=.Fields（"证件号码"）
If.Fields（"客房价格"）<>""ThenTexjg.Text=.Fields（"客房价格"）
EndWith
EndIf
EndIf
DBCombo1.Enabled=True
Texbz.Enabled=True
EndIf
EndSub
PrivateSubDBCOMBO2_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode=vbKeyReturnThenDBCombo1.SetFocus'按回车键DBCombo1获得焦点
EndSub
PrivateSubtexbz_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode=vbKeyReturnThenComok.SetFocus'按回车键comok获得焦点
EndSub
PrivateSubcomdj_Click（）'登记
Frame2.Enabled=True:
Frame3.Enabled=True:
DBCombo2.Enabled=True
DBCombo1.Enabled=True:
Texjg.Enabled=True:
Comok.Enabled=True
Comcancel.Enabled=True:
Comok.Enabled=True:
Comdj.Enabled=False
DBCombo2.SetFocus'DBCombo2获得焦点
EndSub
PrivateSubcomok_Click（）'确定调房
DimbhAsString'定义一个字符串类型的变量
'查询空闲房间信息
Data2.RecordSource="select*fromkfwhere房间号='"&DBCombo1.Text&"'and房态='空房'"
Data2.Refresh
IfData2.Recordset.RecordCount>0Then
Dimmydb1AsDatabase
Dimmyrs2AsRecordset
Setmydb1=Workspaces（0）.OpenDatabase（App.Path&"\db.MDB"）
'查询所有住宿登记信息
Data1.RecordSource="select*fromdjb"
Data1.Refresh
Data1.Recordset.FindFirst"房间号='"&DBCombo2.Text&"'and标志='1'"
bh=Data1.Recordset.Fields（"凭证号码"）
Data1.Recordset.Edit'编辑住宿登记信息
IfDBCombo1.Text<>""ThenData1.Recordset.Fields（"房间号"）=Val（DBCombo1.Text）
IfTexbz.Text<>""ThenData1.Recordset.Fields（"备注"）=Texbz.Text
Data1.Recordset.Fields（"标志"）="1"
Data1.Recordset.Fields（"摘要"）="由源房"&DBCombo2.Text&"调到目标房"&DBCombo1.Text
Data1.Recordset.Update'更新记录
Data3.RecordSource="select*fromdjyswhere凭证号码='"&Data1.Recordset.Fields（"凭证号码"）&"'"
Data3.Refresh
IfData3.Recordset.EOF=FalseThenData3.Recordset.MoveLast
IfData3.Recordset.BOF=FalseThenData3.Recordset.MoveFirst
IfData3.Recordset.RecordCount>0Then
Data3.Recordset.MoveFirst
Fori=1ToData3.Recordset.RecordCount
Data3.Recordset.Edit'编辑住宿登记预收信息
IfDBCombo1.Text<>""ThenData3.Recordset.Fields（"房间号"）=Val（DBCombo1.Text）
IfTexbz.Text<>""ThenData3.Recordset.Fields（"备注"）=Texbz.Text
Data3.Recordset.Fields（"标志"）="1"
Data3.Recordset.Fields（"摘要"）="由源房"&DBCombo2.Text&"调到目标房"&DBCombo1.Text
Data3.Recordset.Update'更新记录
IfData3.Recordset.EOF=FalseThenData3.Recordset.MoveNext
Nexti
EndIf
'编辑客房状态
Data2.Recordset.Edit
Data2.Recordset.Fields（"房态"）="入住"
Data2.Recordset.Update
Data2.RecordSource="select*fromkf"
Data2.Refresh
Data2.Recordset.FindFirst"房间号='"&DBCombo2.Text&"'"
Data2.Recordset.Edit
Data2.Recordset.Fields（"房态"）="空房"
Data2.Recordset.Update
'查询空闲房间信息
Data3.RecordSource="select*fromkfwhere房态='空房'"
Data3.Refresh
Data4.Refresh
'设置控件有效或无效
Texxmb.Enabled=False:
Texsfz.Enabled=False:
DBCombo1.Enabled=False
DBCombo2.Enabled=False:
Texbz.Enabled=False:
Comok.Enabled=False
Comcancel.Enabled=False:
Comdj.Enabled=True
'清空数据
DBCombo1.Text="":
DBCombo2.Text="":
Texxmb.Text=""
Texsfz.Text="":
Texbz.Text="":
Texjg.Text=""
Comdj.SetFocus'Comdj获得焦点
Else
MsgBox（"所选房间已有人入住，请选择空房,再保存!
!
!
"）
EndIf
EndSub
PrivateSubcomcancel_Click（）'取消操作
DBCombo2.Enabled=True:
DBCombo1.Enabled=True:
Comdj.Enabled=True
Comok.Enabled=False:
Texbz.Enabled=True
DBCombo1.Text="":
DBCombo2.Text="":
Texxmb.Text=""
Texsfz.Text="":
Texbz.Text="":
Texjg.Text=""
EndSub
PrivateSubcomend_Click（）
UnloadMe
main.Enabled=True'设置主窗体有效
EndSub
追加押金代码实现：
PrivateSubForm_Load（）
'自动识别数据库路径
Data1.DatabaseName=App.Path&"\db.MDB"
Data2.DatabaseName=App.Path&"\db.MDB"
Data3.DatabaseName=App.Path&"\db.MDB"
EndSub
PrivateSubForm_Activate（）
czy.Text=main.StatusBar1.Panels（4）.Text'赋值给czy.text
'查询住宿登记信息
Data2.RecordSource="select凭证号码fromdjbwhere标志='1'orderby凭证号码"
Data2.Refresh
EndSub
PrivateSubForm_Unload（CancelAsInteger）
main.Enabled=True'设置主窗体有效
EndSub
PrivateSubDBCombo1_Change（）
'查询住宿登记信息
Data1.RecordSource="select*fromdjbwhere凭证号码='"&DBCombo1.Text&"'"
Data1.Refresh
IfData1.Recordset.RecordCount>0Then'当记录大于零时赋值给text2等
IfData1.Recordset.Fields（"姓名"）<>""ThenText2.Text=Data1.Recordset.Fields（"姓名"）
IfData1.Recordset.Fields（"预收金额"）<>""ThenText3.Text=Data1.Recordset.Fields（"预收金额"）
IfData1.Recordset.Fields（"住宿天数"）<>""ThenText4.Text=Data1.Recordset.Fields（"住宿天数"）
IfData1.Recordset.Fields（"房间号"）<>""ThenText5.Text=Data1.Recordset.Fields（"房间号"）
IfData1.Recordset.Fields（"客房类型"）<>""ThenText6.Text=Data1.Recordset.Fields（"客房类型"）
IfData1.Recordset.Fields（"客房价格"）<>""ThenText7.Text=Data1.Recordset.Fields（"客房价格"）
IfData1.Recordset.Fields（"住宿日期"）<>""ThenDTP1.Value=Data1.Recordset.Fields（"住宿日期"）
IfData1.Recordset.Fields（"住宿时间"）<>""Thentim1.Value=Data1.Recordset.Fields（"住宿时间"）
IfData1.Recordset
升级会员 