- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
摘 要 本课程设计主要解决的是在一个酒店中,实现计算机对来客的订情况,消费情况准确便捷管理VB,数据库采用ACCESS,程序运行平台为Windows 98/2000/XP。在vb中可以实现的功能有预定客户管理,客户日常事务登记,住房管理,综合服务等。Access作为各种信息资料的后台数据库包括客人信息、房间信息等。
本系统实现酒店费用的一次性结算服提供酒店管理员关于一定时间段里的来客情况统计。实现对酒店内部各种服务管理的电子化,自动化,提高各个模块之间的办公效率,为提高质量酒店服务提供保证。
图1 前厅部计算机系统示意图
图2 前厅管理模块信息流向示意图
2.3问讯功能
该模块主要对住客信息及历史资料进行查询。根据前厅部管理要求及对客服务的需要,系统中的问讯功能应做到快捷、准确和高效,同时应具有多种方式的查询途径。问讯员应能够随时快速地从计算机中查询每位住店客人或以预定客人的资料。问讯功能集主要通过姓氏、日期、客人占用情况、客人账单、公司名称查询等美容来提供相关信息。
按各种条件查询打印现住及离店的客人信息。
按各种条件查询,包括房间号、姓名、地区等。
可查本日抵离店客人,明日应到、应离客人等情况。
客房占用情况查询。
2.4客房状况控制功能
客房是酒店的主要产品,要充分发挥客房的效益,建立有效的客房状况控制系统是非常必要的。通过计算机可以快速、准确地掌握客房的使用情况,使得前厅部与客房部之间的信息沟通更快、更准确。另外也能使服务员及时掌握客饭状况,做好销售工作,更好的为客人服务,提高客房出租率。管理信息系统中的房态控制功能是客房管理和总台接待工作能否成功的关键,其功能主要包括以下内容。
显示可售房状况,随时实施动态查询可用房情况。
反映和更改每一间房的状况(包括空房、待修房、住客房、预定房等),并有维护修房、非出租房提示,客人信息等。
提供客房占用情况报告。
3 系统代码设计分析
3.1登陆数据库代码
输入数据库用户账号(admin)、密码(PassWord);
(1).无此用户或输入错误
如果这样,系统都会提示,用户重新输入用户名和密码。
Text1.Text =
Text2.Text =
MsgBox 请重新输入你的用户名和密码,谢谢, vbYesNo, 信息提示!
(2).用户为系统数据库管理员
则可以直接登陆系统,进入酒店管理界面。
I f Text1.Text rs.Fields(admin).value Or Text2.Text rs.Fields(password).value Then
flag = 0
rs.MoveNext
Else
flag = 1
End If
rs.MoveNext
(3).退出 (退出系统)
End
3.2 酒店管理的实现
(1) 客户管理界面操作的主要代码
显示客户信息
Adodc1.RecordSource = Select * From guest
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.Visible = True
添加客户信息
Dim sql As String
Adodc1.Recordset.addnew
If Not Adodc1.Recordset.GetRows Then
Adodc1.Recordset.MovePrevious
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.delete
End If
删除客户信息
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.delete
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
Else
Adodc1.Recordset.MoveNext
End If
(2) 日常登记界面操作的主要代码
这个版块基本上是对以前的数据和窗体进行重新调用
添加日常信息
可以调用以前的数据库信息,然后进行添加
Adodc1.Recordset.addnew
删除信息
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.delete
If
您可能关注的文档
- 机械制造专业毕业论文--JT-1.0型矿井提升绞车设计.doc
- 机械制造专业毕业论文--PF455S插秧机及其侧离合器手柄的探讨和改善设计说明书.doc
- 机械制造专业毕业论文--R180柴油机曲轴工艺设计及夹具设计.doc
- 机械制造专业毕业论文--杯状半盖模型腔实体造型及加工刀具路径.doc
- 机械制造专业毕业论文--拨叉夹具设计说明书.doc
- 机械制造专业毕业论文--齿轮泵泵体机械工艺规程及钻2-φ20孔夹具设计.doc
- 机械制造专业毕业论文--分体顶梁柔性液压支架设计说明书.doc
- 机械制造专业毕业论文--关于输料皮带机的三维CAD的研究与设计.doc
- 机械制造专业毕业论文--机床支架的工艺工装设计.doc
- 机械制造专业毕业论文--基于Proe软件的机用虎钳设计.doc
- 计算机科学与技术专业课程设计--员工培训管理系统分析与设计.doc
- 计算机科学与技术专业外文翻译--一个权限的难题:Android智能手机上安装应用程序的权限.doc
- 计算机信息管理专业毕业论文--PHP建设聚焦购物.doc
- 计算机信息管理专业毕业论文--使用FLASH软件制作一段动画.doc
- 计算机应用技术专业毕业论文--小型企业及网吧无盘网络设计与网络安全.doc
- 计算机应用与技术专业毕业论文--基于Visual_Basic平台的学生宿舍管理系统的开发与设计.doc
- 计算机专业课程设计--XML技术.doc
- 交通运输专业开题报告--客运枢纽的交通组织研究.doc
- 金融管理专业毕业论文--金融支持有机农业发展研究.doc
- 金融管理专业毕业论文--我国房地产企业财务风险及其防范措施研究.doc
文档评论(0)