客房标准管理系统毕业设计方案范例.doc

客房管理系统

学 院

专 业

班 级

学 号

姓 名

指引教师

教师职称

年

月

日

摘要
【摘要】
随着改革开放步伐加快，国内服务业获得了巨大发展。而宾馆是国内改革开放过程中起步最早、开拓发展最快、收效最为明显、市场化限度高服务行业之一。而随着信息科技发展，老式管理模式逐渐被信息化及数字化管理模式所取代，如何得用先进管理手段，提 高宾馆管理水平，已成为宾馆行业当务之急。面对信息时代机遇和挑战，得用科技手段提高公司管理无疑是一条行之有效途径。
客房管理系统开发充分运用了信息技术提高了宾馆客房管理水平、服务水平。系统实现了客房预定、住宿登记、宿费提示、追加押金、调房登记、退房结帐、挂帐、查询记录等功能。其中宿费提示可以在住宿费超过押金时预警，提示前台要客人补交押金，该功能可明显提高对住宿人员住宿有效管理。将动态实时住宿登记、客房调节、销售报表、追加押金等有机地联系在一起，对宾馆客房进行全方位管理。
【核心词】客房管理系统
目录
摘要 2
目录 3
0 引言 1
1 需求分析 1
2 总体设计 1
2.1 项目规划 1
2.2 系统功能构造 1
2.3 设计目的 2
3 系统设计 2
3.1 开发及运营环境 2
4 重要功能模块设计 2
4.1 程序主界面设计 2
4.2 系统登录界面设计 3
4.3 客房信息设计 5
4.4 退宿结帐设计 12
4.5 住宿查询设计 18
附录A 参照文献 20
附录B 数据表 21
附录C 文献架构 25

0 引言
随着国内经济迅速发展，人们生活水平有了明显提高，假日经济和旅游经济已经成为人们消费热点。各地也把旅游也当作本地经济发展重要支柱之一，从而增进了宾馆酒店业发展。同步，随着宾馆酒店越来越多，人们规定越来越高，宾馆酒店竞争也越来越激烈。如何在激烈竞争中生存发展，是每个宾馆酒店必要面临问题。对宾馆经营状况起决定作用是宾馆服务管理水平。如何运用先进管理手段，提高宾馆管理水平，已成为宾馆酒店也发展当务之急。
客房管理系统开发可以协助系统管理员完毕寻常客人入住及客人退房信息管理及查询等工作，大大提高了工作效率。虽然计算机管理并不是宾馆管理走向成功核心元素，但它可以最大限度地发挥精确、快捷、高效等作用，对宾馆服务管理提供有力支持。
1 需求分析
依照该宾馆详细状况，系统重要功能涉及：
l 前台管理：“客房预定”、“住宿登记”、“调房登记”、“追加押金”、“退房结帐”。
l 客房管理：“客房查询”、“房态查看”。
l 查询记录：“预定房查询”、“住宿查询”、“退宿查询”、“宿费提示”。
l 挂帐管理：“挂帐管理”、“客人结帐”。
l 基本信息设立：“客房信息”、“客房类型信息”、“员工信息”、“挂帐单位信息”。
l 系统初始化：“本单位定义”、“业务部门定义”、“操作员管理”、“权限设立”。
系统维护：“系统初始化”、“数据备份”、“数据恢复”。
2 总体设计
2.1 项目规划
客房管理系统重要是针对中小型宾馆、酒店开发客房管理系统，系统由前台管理、客房管理、查询记录、挂帐管理、基本信息设立、系统初始化、系统维护和协助等几种功能模块构成，规划系统功能模块如下：
q 前台管理
前台管理：客房预定、住宿登记、调房登记、追加押金、退宿结帐和退出。
q 客房管理
客房管理：客房查询和房态查看。
q 查询记录
查询记录：预定房查询、住宿查询、退宿查询、宿费提示。
q 挂帐管理
挂帐管理：挂帐查询和客人结帐。
q 基本信息设立
基本信息设立：客房信息、客房类型信息、员工信息和帐挂单位信息。
q 系统初始化
系统初始化：本单位定义、业务某些定义、操作员管理和权限设立。
q 系统维护
系统维护：系统初始化、数据备份和数据恢复。
q 协助
协助：协助和关于本软件2某些。
2.2 系统功能构造
本系统共分7大某些、24个完整功能模块。系统构造图如图1所示。

图1 客房管理系统构造图
2.3 设计目的
本系统重要是针对中小型宾馆、酒店开发客房管理系统，重要实现可如下目的：
q 界面设计美观和谐。
q 操作员可以随时修改自己口令，并且不同操作员设立不同操作权限，以增强系统安全性。
q 数据保密性强，为每个顾客设立相应权限级别。
q 信息查询灵活、以便、快捷，数据存储安全可靠。
q 可以实现数据备份和数据恢复，保证数据安全。
q 系统运营稳定，安全可靠。
3 系统设计
3.1 开发及运营环境
系统开发平台：Microsoft Visual FoxPro 6.0。
运营平台：Windows XP/ Windows / Windows 。
辨别率：最佳效果1024×768像素2 数据库设计。
1．数据库概要阐明
数据库在一种管理系统中占居非常重要地位，数据库构造设计好坏将直接影响系统效率和实现效果。本系统采用是Visual FoxPro自带数据库，数据库文献名为Roommanage。
2．重要数据表构造
数据库中数据表请参见附录B。
4 重要功能模块设计
4.1 程序主界面设计
程序启动后，在系统登录界面验证操作员密码后，将进入主程序界面。通过主程序界面可以执行相应权限操作，并且通过选取主界面菜单，来调用相应程序并进行相应操作。主程序界面如图2所示。

图2 程序主界面
1．表单设计
（1）创立一种原则项目，名称为客房管理系统，在该项目中添加一种新表单，名称为Fdesktop。
（2）在表单中插入名称为VcxmainToolBar类，在类中添加Command控件、Image控件。
2．代码设计
在“客房预定”按钮Click事件中添加如下代码：
do form kfgl\form\kfyd
在“住宿登记”按钮Click事件中添加如下代码：
do form kfgl\form\zsdj
在“退宿结帐”按钮Click事件中添加如下代码：
do form kfgl\form\tsjz
在“住宿查询”按钮Click事件中添加如下代码：
do form kfgl\form\zsquery
在“客房查询”按钮Click事件中添加如下代码：
do form kfgl\form\kfquery
在“房态查看”按钮Click事件中添加如下代码：
do form kfgl\form\fangtaiquery
在“宿费提示”按钮Click事件中添加如下代码：
do form kfgl\form\sftx
在“客房信息”按钮Click事件中添加如下代码：
do form kfgl\form\kfmanage
依照顾客使用权限，设立按钮与否有效。在vcxmain1类Init事件中添加如下代码：
if purview>4 or pqtgl=.f.
this.parent.vcxmain1.kfyd.enabled=.f.
this.parent.vcxmain1.zsdj.enabled=.f.
this.parent.vcxmain1.tsjz.enabled=.f.
else
this.parent.vcxmain1.kfyd.enabled=.t.
this.parent.vcxmain1.zsdj.enabled=.t.
this.parent.vcxmain1.tsjz.enabled=.t.
endif
if purview>4 OR pcxtj=.f.
this.parent.vcxmain1.zscx.enabled=.f.
this.parent.vcxmain1.sftx.enabled=.f.
else
this.parent.vcxmain1.zscx.enabled=.t.
this.parent.vcxmain1.sftx.enabled=.t.
endif
if purview>4 OR pkfgl=.f.
this.parent.vcxmain1.kfcx.enabled=.f.
this.parent.vcxmain1.ftck.enabled=.f.
else
this.parent.vcxmain1.kfcx.enabled=.t.
this.parent.vcxmain1.ftck.enabled=.t.
endif
if purview>4 OR pjcinfo=.f.
this.parent.vcxmain1.kfinfo.enabled=.f.
else
this.parent.vcxmain1.kfinfo.enabled=.t.
endif
在 vcxmain1类“退出”按钮Click事件中添加如下代码：
quit
4.2 系统登录界面设计
顾客进入系统前，必要通过系统登录进入主程序界面，系统登录界面重要用于确认顾客身份及使用权限，并且可对系统信息起到保密作用。系统登录界面如图3所示。

图3 系统登录界面运营成果
1．表单设计
（1）在客房管理系统项目中，添加一种新表单，名称为Admin。
（2）在表单中添加Combo控件、Text控件、Label控件、Command控件、Image控件。
（3）重要控件属性如表1所示。
表1 重要控件重要属性及值
控件名
属性
值
Combo1
RowSource
RowSourceType
tabpurview.操作员姓名
6-字段
Text1
PasswordChar
*
2．代码设计
定义全局变量cn，manager，cn存储输入操作员或密码次数，当cn不不大于3时，将自动退出系统。manager存储操作员姓名，在系统中应用到操作员姓名时，系统自动添加。
在表单Init事件中添加如下代码：
public cn ,manager &&定义全局变量
cn=0 &&给全局变量赋初值
在表单Resize事件中添加依照顾客选取操作员所拥有权限级别为全局变量赋值代码。
purview=val(alltrim(tabpurview.权限级别))
pqtgl=tabpurview.前台管理
pkfgl=tabpurview.客房管理
pcxtj=tabpurview.查询记录
pgzgl=tabpurview.挂帐管理
pjcinfo=tabpurview.基本信息设立
psyscsh=tabpurview.系统初始化
psyswh=tabpurview.系统维护
在“拟定”按钮Click事件中添加如下代码实现判断操作员和密码与否对的功能。如果操作员或密码不对的，将提示重新输入，三次后仍不对的，系统将自动退出。
public manager &&定义全局变量
manager=alltrim(bo1.value)
use kfgl\database\tabpurview &&打开数据表
cname=alltrim(thisform.Combo1.value)
ppassword=alltrim(thisform.text1.value)
set order to 操作员姓名 &&指定操作员姓名为控制索引
if empty(操作员姓名)
thisform.resize &&执行表单Resize事件
manager=alltrim(bo1.displayvalue)
store .t.to pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh
do form form\fdesktop &&调入表单
thisform.release
else
seek cname &&迅速查询
set exact on &&设立字符精准比较
if alltrim(tabpurview.操作员姓名)!=cname
cn=cn+1
cMessagetitle='系统登录'
cMessagetext='操作员错误，请重新输入！'
nDialogtype=4+32
nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)
do case
case nanswer=6 &&选取“是”时操作
bo1.value=''
bo1.setfocus
case nanswer=7 &&选取“否”时操作
messagebox('不要乱来！',48，'系统登录')
thisform.release &&释放表单
endcase
if cn=3
thisform.release
endif
else
if alltrim(tabpurview.密码)!=ppassword
cn=cn+1
cmessagetitle='系统登录'
cmessagetext='密码错误，请重新输入！'
ndialogtype=4+32
nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)
do case
case nanswer=6 &&当顾客单击“是”按钮
thisform.text1.value=''
thisform.text1.setfocus
case nanswer=7
messagebox('不要乱来！',48，'系统登录')
thisform.release
endcase
if cn=3
thisform.release
endif
else
thisform.resize &&执行表单Resize事件
manager=alltrim(bo1.displayvalue)
do form form\fdesktop
thisform.release
endif
endif
endif
set exact off &&设立字符非精准比较
在“取消”按钮Click事件中添加如下代码：
cmessagetitle='系统登录'
cmessagetext='真想要退出吗？'
nDialogtype=4+32
nanswer=messagebox(cMessagetext,nDialogtype,cMessagetitle)
if nanswer=6
thisform.release &&释放表单
endif
4.3 客房信息设计
顾客进入系统后，单击主菜单基本信息设立下客房信息子菜单选项，进入客房信息界面时可以通过查询条件查询客房基本信息，并以文本框和列表两种方式显示客房信息。客房信息表单运营成果如图4所示。

图4 客房管理表单运营成果
1．表单设计
（1）在客房管理系统项目中，添加一种新表单，名称为Kfmanage。
（2）在表单中添加Label控件、Combo控件、Text控件、Edit控件、Command控件、Commandgroup控件、PageFrame控件和Grid控件。
（3）重要控件属性如表2所示。
表2 重要控件重要属性及值
控件名
属性
值
Combo1
DisplayValue
RowSource
RowSourceType
房间号
房间号,房间类型,房态
1-值
Combo2
RowSource
RowSourceType
Style
All,like,=,>,<
1-值
2-下拉列表框
2．代码设计
在表单Load事件中添加如下代码：
public cx,l &&定义全局变量
cx=0
l=.f.
在表单Resize事件中添加如下代码：
thisform.pageframe1.page1.text1.value=tabkfinfo.房间号 &&赋值给Text1等
bo1.value=tabkfinfo.房间类型
thisform.pageframe1.page1.text3.value=tabkfinfo.价格
bo2.value=tabkfinfo.房态
thisform.pageframe1.page1.text5.value=tabkfinfo.营业时间
thisform.pageframe1.page1.text6.value=tabkfinfo.备注
thisform.pageframe1.page1.text7.value=tabkfinfo.使用设立
thisform.pageframe1.page1.edit1.value=tabkfinfo.配备
L是全局变量，当L为.T.或.F.时，这个值会集体赋给有关控件Enabled属性。这种写法其实将Init事件当成一种设有关控件与否有效函数。在表单Init事件中添加如下代码：
store l to bo1.enabled=l
bo2.enabled=l
thisform.pageframe1.page1.text5.enabled=l
thisform.pageframe1.page1.text6.enabled=l
thisform.pageframe1.page1.text7.enabled=l
thisform.pageframe1.page1.edit1.enabled=l
在combo2控件InteractiveChange事件中添加如下代码：
if alltrim(bo2.value)="All"
thisform.text1.value=''
thisform.text1.enabled=.f.
else
thisform.text1.enabled=.t.
endif
在“查询”按钮Click事件中添加可以依照顾客选取条件查找记录代码。
cx=0
cif=alltrim(bo1.displayvalue)
ccif=alltrim(bo2.displayvalue)
ctext=alltrim(thisform.text1.value)
if empty(ccif)
messagebox('请输入查询条件！',48,'操作失败！')
bo2.setfocus &&Combo2获得焦点
else
if empty(ctext)
if ccif!="All"
messagebox('请输入查询条件！',48,'操作失败！')
thisform.text1.setfocus
else
select *； &&选取所有字段
from roommanage!tabkfinfo； &&指定查询数据库文献
order by tabkfinfo.房间号； &&查询成果升序排序
into cursor lindeping
thisform.pageframe1.page2.grid1.recordsource='lindeping' &&赋数据源
lkfnumber=lindeping.房间号
select tabkfinfo
set order to 房间号 &&指定控制索引文献
seek lkfnumber &&迅速查询
thisform.resize &&执行表单Resize事件
thisform.pageframe1.page1.text1.enabled=.f.
thisform.pageframe1.page1.text3.enabled=.f.
l=.f.
thisform.init &&执行表单Init事件
mandgroup2.enabled=.t.
endif
else
if bo2.displayvalue='like'
MySQL=cif+" "+ccif+" '"+"%"+ctext+"%'"
else
MySQL=cif+" "+ccif+" '"+alltrim(thisform.text1.value)+"'"
endif
select * from roommanage!tabkfinfo where &MySQL.into cursor lindeping
go top
if eof()
go bottom
messagebox('客房不存在',48,'信息窗口')
mandgroup2.enabled=.f.
mandgroup1.cmodify.enabled=.f.
mandgroup1.cdel.enabled=.f.
cx=1
else
lkfnumber=lindeping.房间号
select tabkfinfo
set order to 房间号
seek lkfnumber
thisform.resize &&执行表单Resize事件
thisform.pageframe1.page1.text1.enabled=.f.
thisform.pageframe1.page1.text3.enabled=.f.
l=.f.
thisform.init &&执行表单Init事件
mandgroup2.enabled=.t.
endif
thisform.pageframe1.page2.grid1.recordsource='lindeping'
endif
endif
mand1.setfocus
thisform.refresh
在页框控件Init事件中添加如下代码：
thisform.pageframe1.page1.text1.enabled=.f.
thisform.pageframe1.page1.text3.enabled=.f.
l=.f.
thisform.init &&执行表单Init事件
thisform.resize &&执行表单Resize事件
在“客房基本信息”选项卡Activate事件中添加如下代码：
mandgroup1.csave.enabled=.f.
mandgroup1.ccancel.enabled=.f.
mandgroup1.cadd.enabled=.t.
mandgroup1.cexit.enabled=.t.
mandgroup1.cmodify.enabled=.t.
mandgroup1.cdel.enabled=.t.
mandgroup2.enabled=.t.
在“客房基本信息列表”选项卡Activate事件中添加如下代码：
mandgroup1.csave.enabled=.f.
mandgroup1.ccancel.enabled=.f.
mandgroup1.cadd.enabled=.f.
mandgroup1.cmodify.enabled=.f.
mandgroup1.cdel.enabled=.f.
mandgroup1.cexit.enabled=.t.
mandgroup2.enabled=.f.
thisform.refresh
在edit1控件KeyPress事件中添加如下代码：
if nKeycode=3
mandgroup1.csave.setfocus
endif
在Combo1控件Interactivechange事件中添加如下代码：
kftype=alltrim(bo1.displayvalue)
select *;
from roommanage!tabkflx;
where 客房类型=kftype;
order by tabkflx.类型编号;
into cursor linshi
thisform.pageframe1.page1.text3.value=linshi.价格
在“|<”按钮Click事件中添加如下代码：
go top &&把记录指针定位到第一条记录
mand1.enabled=.f.
mand2.enabled=.f.
if cx=1
mand3.enabled=.f.
mand4.enabled=.f.
mandgroup1.cmodify.enabled=.f.
mandgroup1.cdel.enabled=.f.
else
mand3.enabled=.t.
mand4.enabled=.t.
endif
thisform.resize &&执行表单Resize事件
thisform.refresh
在“<”按钮Click事件中添加如下代码：
if cx=1
messagebox('已是第一种记录',48,'信息窗口')
mand1.enabled=.f.
mand2.enabled=.f.
mand3.enabled=.f.
mand4.enabled=.f.
mandgroup1.cmodify.enabled=.f.
mandgroup1.cdel.enabled=.f.
thisform.resize &&执行表单Resize事件
else
skip-1 &&记录指针向上移一条记录
thisform.resize &&执行表单Resize事件
if bof()
messagebox('已是第一种记录',48,'信息窗口')
mand1.enabled=.f.
mand2.enabled=.f.
thisform.resize &&执行表单Resize事件
else
mand1.enabled=.t.
mand2.enabled=.t.
endif
mand3.enabled=.t.
mand4.enabled=.t.
endif
thisform.refresh
在“>”按钮Click事件中添加如下代码：
if eof()
messagebox('已经是最后一条记录',48,'管理窗口')
skip-1 &&记录指针向上移一条记录
thisform.resize &&执行表单Resize事件
mand1.enabled=.f.
mand2.enabled=.f.
mand3.enabled=.f.
mand4.enabled=.f.
mandgroup1.cmodify.enabled=.f.
mandgroup1.cdel.enabled=.f.
else
skip &&将把记录指针向下移一条记录
thisform.resize &&执行表单Resize事件
if eof()
messagebox('已经是最后一条记录',48,'管理窗口')
skip-1 &&记录指针向上移一条记录
thisform.resize &&执行表单Resize事件
mand3.enabled=.f.
mand4.enabled=.f.
else
mand3.enabled=.t.
mand4.enabled=.t.
endif
mand1.enabled=.t.
mand2.enabled=.t.
endif
thisform.refresh
在“>|”按钮Click事件中添加如下代码：
mand3.enabled=.f.
mand4.enabled=.f.
go bottom &&记录指针移动到最后一条记录
if cx=1
mand1.enabled=.f.
mand2.enabled=.f.
mandgroup1.cmodify.enabled=.f.
mandgroup1.cdel.enabled=.f.
else
mand1.enabled=.t.
mand2.enabled=.t.
endif
thisform.resize &&执行表单Resize事件
thisform.refresh
在“添加”按钮Click事件中添加如下代码：
thisform.pageframe1.page1.text1.enabled=.t. &&设立控件有效
thisform.pageframe1.page1.text3.enabled=.f.
l=.t.
thisform.init &&执行表单Init事件
*清空各文本框
bo1.value=''
thisform.pageframe1.page1.text3.value=0
bo2.value=''
thisform.pageframe1.page1.text5.value={//::}
thisform.pageframe1.page1.text6.value=''
thisform.pageframe1.page1.text7.value=''
thisform.pageframe1.page1.edit1.value=''
thisform.pageframe1.page1.text1.value=''
thisform.pageframe1.page1.text1.setfocus &&Text1获得焦点
mandgroup1.cmodify.enabled=.f.
mandgroup1.cdel.enabled=.f.
mandgroup1.cexit.enabled=.t.
mandgroup1.ccancel.enabled=.t.
mandgroup1.csave.enabled=.t.
mandgroup1.cadd.enabled=.f.
thisform.pageframe1.page2.enabled=.f.
mandgroup2.enabled=.f.
mand1.enabled=.f.
单击“保存”按钮，在客房信息表“Tabkfinfo”中查