客户结款模块。在客户结款模块中主要实现如下功能:
选择挂账单位(单位或个人),检索符合条件的挂账信息、还款信息。
选择结款方式,实现挂账结款的功能。
统计尚欠余额。
客户结款界面如图6-11所示。
图6-11"客户结款"界面
6.9查询统计设计
6.9.1住宿查询模块设计
1.实现目标
程序启动后,选择"查询统计"菜单下的"住宿查询"项,将进入住宿查询模块。在住宿查询模块中主要实现输入客人姓名检索住宿信息的功能。
住宿查询界面如图6-12所示。
图6-12住宿查询界面
2.实现过程
(1)在"客房管理系统"工程中,添加一个新窗体,命名为main_zscx.
(2)程序代码:
PrivateSubFormesLoed()
Datal.DatabaseName=App.Path&'入KI息l.MD丑"'自动识别数据库路径
EndSub
PrivateSubFormesUnfoad(CaneelAsInteger)
rnain.Enabled=True
EndSUb
PrivateSubCommandl_cliek()'查询住宿信息
Datal.Reeordsource="seleet*fromonldjbwhere姓名like"+Chr(34)+textl.text+"*"+Chr(34)+""
Datal.Refresh
EndSllb
PrlvateSubCornrnand2_Cliek()
main.Enabled=True
UnloadMe
EndSub
6.10宿费提醒模块设计
宿费提醒的实现方法:
客人在住宿前首先要说明住宿天数,根据客人住宿天数和房间价格,酒店要向客人收取一定的住宿押金。如果客人住宿了10天,而只交付了5天的宿费,入住时间超过5天后,如果没有及时催要住宿费,很容易造成客人未交宿费便离宿,这样便会给酒店造成损失。为了解决这种情况,本系统设计了宿费提醒功能,可以及时提醒酒店客人什么时间需补交多少宿费。例如,本例根据押金的多少计算提醒日期。代码如下(Text9为押金金额,DBCombo3为房间价格,Text14为提醒日期):
IfText9.Text<>""Then
Text9.Text=Val(Text9.Text)
DTP2.Value=DTP1.Value+Int(Val(Text9.Text)/Val(DBCombolText))
Text14.Text=DTP2.Value
EndIf
6.11日结设计
该部分包括登记预收报表模块、客房销售报表模块和客房销售统计模块。便于酒店对于业务进行管理。其中:
在登记预收报表模块中主要实现按时间汇总应收宿费总额、预收宿费总额的功能。
在客房销售报表模块中主要实现按任意时间汇总客人结账后所需费用的总额的功能。
在客房销售统计模块中主要实现按任意年汇总客房应收宿费、杂费、电话费、会议费等的功能。
图6-13登记预收报表界面
图6-14客房销售报表界面
图6-15客房销售统计界面
6.12系统设置设计
6.12.1操作员设置模块设计
程序启动后,选择"系统设置"菜单下的"操作员设置"项,将进入操作员设置模块。
在操作员设置模块中主要实现如下功能:
完成操作员及密码的设置。
支持鼠标和键盘操作。
操作员设置界面如图6-16所示。
图6-16操作员设置界面
6.12.2密码设置模块设计
程序启动后,选择"系统设置"菜单下的"密码设置"项,将进入密码设置模块。在密码设置模块中主要实现如下功能:
完成操作员密码的修改。
支持鼠标和键盘操作。
密码设置界面如图6-17所示。
图6-17密码设置界面
程序代码:
PrivateSublabel1_Click()'修改操作员密码
Data1.RecordSource="select*fromqxszwhere操作员='"&Text1.Text&"'"
Data1.Refresh
IfText1.Text<>""AndText2.Text<>""AndText2.Text=Data1.Recordset.Fields("密码")Then
IfText3.Text<>""Then
Data1.Recordset.Edit
Data1.Recordset.Fields("密码")=Text3.Text
MsgBox("密码修改成功,退出操作员密码修改!")
Data1.Recordset.Update
main.Enabled=True
UnloadMe
Else
MsgBox("请输入新密码!!")
EndIf
Else
IfText1.Text=""Then
MsgBox("请输入操作员!")
Text1.SetFocus
Else
IfText1.Text<>Data1.Recordset.Fields("操作员")Then
Text1.SetFocus
Text1.Text=""
MsgBox("无此操作员,请重新输入!")
EndIf
EndIf
IfText2.Text=""Then
MsgBox("请输入操作员原密码!")
Text2.SetFocus
Else
IfText2.Text<>ma.TextThen
MsgBox("原密码错误,请重新输入原密码!")
Text2.SetFocus
EndIf
EndIf
EndIf
EndSub
6.12.3初始化模块设计
初始化界面如图6-18所示。
图6-18初始化界面
6.12.4权限设置模块设计
在权限设置模块中主要实现删除操作员信息及设置操作员权限的功能。
权限设置界面如图6-19所示
图6-19权限设置界面
结论
通过使用VB自己动手开发小规模的酒店服务管理系统,使我加深了对软件的理解。学以致用,学用结合,这既是学习理论知识目的,也是检验学习的最好方法。这次毕业设计不尽使我了解了VB在数据库方面编程的概要,更让我知道了计算机的编程秘诀在于严密的思考与仔细的推敲,只有这样,才会有一个完善的软件生成。
另外,由于本人能力有限致使该系统仍存在一些问题,存在系统的安全性、稳定性不强,仍需认真学习,继续改进。
最后,我还要感谢支持以及帮助过我的人,尤其是我的指导老师-刘艳玉老师,她仔细、认真、负责的态度,对我的帮助是非常大的,使得我更好地完成了《酒店服务管理系统》的设计和开发工作。
参考文献
[1]王春才、高春燕、李俊民,VisualBasic数据库系统开发完全手册,人民邮电出版社,2003
[2]韩亚萍,VisualBasic6.0基础培训百例,机械工业出版社,2003
[3]金英姿、邓少鹍,VisualBasic实用培训教程,人民邮电出版社,2004
[4]伍俊良,VisualBasic课程设计与系统开发案例,清华大学出版社,2004
[5]张勇等,VisualBasic课程设计案例精编,水利水电出版社,2005
[6]王道荣、林信成,VisualBasic6数据库处理-从入门到精通,中国铁道出版社,2004
[7]常晓波,VisualBasic6.0高级编程,清华大学出版社,2004
[8]张朝昆、施丽娜,VisualBasic数据库开发基础与应用,人民邮电出版社,2005
[9]郭瑞军,唐邦民,谢晗昕,VisualBasic数据库开发实例精粹,电子工业出版社,2005
[10]王泰峰,软件项目开发综合实训--VisualBasic篇,人民邮电出版社,2005
[11]温小敏,VisualBasic数据库系统项目开发实践,科学出版社,2005
[12]赛奎春,Access数据库开发实例解析,机械工业出版社,2004
[13]刘远东,何思文,吴斌新,数据库基础及Access应用,机械工业出版社,2005
[14]苏瑞、曹斌,Access数据库系统项目开发实践,科学出版社,2004
[15]李淑馨,深入浅出Access数据库程序设计理论与实务,中国铁道工业出版社,2004
[16]郑小玲、王学军,Access项目案例导航,科学出版社,2005
[17]RaghuRamakrishnan,Johannes,DatabaseManagementSystems,Gehrke,清华大学出版社,2003
??
??
??
??
XXXX大学毕业论文
I
上一篇:
VB酒店客房管理VB+SQL(论文和程序)
下一篇:
密切医患护患关系,开展健康教育