2022年酒店管理信息系统课程方案 .pdf

《2022年酒店管理信息系统课程方案 .pdf》由会员分享，可在线阅读，更多相关《2022年酒店管理信息系统课程方案 .pdf（21页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、个人资料整理仅限学习使用管理信息系统课程设计第一章现行系统概述第二章系统分析21需求分析2.1.1系统功能需求之管理员2.1.2 系统功能需求之用户2.2 可行性研究2.2.1技术可行性2.2.2经济可行性2.2.3法律上的可行性 2.3 系统开发方法的选择第三章 系统设计3.1 总体设计结构3.2 系统功能分析3.3 代码设计精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 21 页个人资料整理仅限学习使用第四章系统实施过程及其流程图 4.1 基础信息设置 4.2 客房前台管理 4.3 查询统计管理4.4 挂账管理4.5 系统初始设计4

2、.6 系统维护第五章系统使用说明精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 21 页个人资料整理仅限学习使用天良酒店管理系统是由北京天良科技潜心开发的一套酒店综合管理软件，适用于星级酒店、经济型酒店、商务快捷酒店和宾馆的客房营业管理。主要功能包括预订管理、接待管理、收银管理、客房管理、夜审管理、会员管理、报表中心、查询等模块，可与天良餐饮无线点菜系统进行一体化应用。系统支持会员一卡通，协议单位管理，客房商品的库存管理，电子门锁、身份证识别、电话计费等酒店常用接口。天良酒店管理系统可将烦琐的手工管理，转化为简易的电脑操作，杜绝收银漏洞

3、、提高运营效率、减少操作错误、提升服务形象、缓解人力物力、为酒店快速发展及利润增长奠定良好的基础第 1 章现行系统概述随着社会经济的发展，人们对生活质量的要求越来越高，作为服务之一的宾馆业也在不断的完善服务体制。它是集餐饮、住宿、娱乐于一体的立体化服务体系，其中顾客可以随意消费并统一结账；宾馆管理者可及时了解宾馆的全部运营情况及经营走势，找出运转成本，作为经营决策的依据。只有运用先进的科学管理手段，利用计算机管理系统才能更好实现这一管理模式。宾馆客房管理信息系统是用来收集、处理、存贮和传播客房、顾客、结算信息，以信息管理为核心的计算机应用系统。利用宾馆客房管理信息系统中合理的数据库结构来保存数

4、据信息，及时了解各个环节中信息的变更，通过有效的程序结构来支持各种数据操作的执行，以提高管理效率，实现宾馆服务的系统化、规范化、自动化。通过该工程的开发与使用，可实现以下功能：1）：快速实现客人入住登记和账务处理，减少客人住店及离店时的等待时间2）：准确实现客人预订入住的要求，实现有效及有保障的前台系统作业3）：快速响应住宿客人的有关工程查询要求精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 21 页个人资料整理仅限学习使用 On Error GoTo Err_Form_Current 把子窗体中当前记录值赋予主窗体对应的文本框内 Fo

5、rms!职员资料管理 ! 职员 ID = Me! 职员 ID Forms!职员资料管理 ! 姓名 = Me! 姓名 Forms!职员资料管理 ! 职位 = Me! 职位 Forms!职员资料管理 ! 性别 = Me! 性别 Forms!职员资料管理 ! 籍贯 = Me! 籍贯 Forms!职员资料管理 ! 年龄 = Me! 年龄 Forms!职员资料管理 ! 民族 = Me! 民族 Forms!职员资料管理 ! 健康状况 = Me! 健康状况 Forms!职员资料管理 ! 身份证号 = Me! 身份证号 Forms!职员资料管理 ! 婚姻状况 = Me! 婚姻状况 精选学习资料 - - - -

6、 - - - - - 名师归纳总结 - - - - - - -第 8 页，共 21 页个人资料整理仅限学习使用 Forms!职员资料管理 ! 家庭地址 = Me! 家庭地址 Forms!职员资料管理 ! 家庭电话 = Me! 家庭电话 Forms!职员资料管理 ! 备注 = Me! 备注 Exit_Form_Current: Exit Sub Err_Form_Current: MsgBox Err.Description Resume Exit_Form_Current End Sub Option Compare Database Private Sub 查询_Click( On Erro

7、r GoTo Err_查询_Click Me!入住记录查询 子窗体 .Requery Exit_查询_Click: Exit Sub Err_查询_Click: MsgBox Err.Description Resume Exit_ 查询_Click End Sub Private Sub 关闭_Click( On Error GoTo Err_关闭_Click DoCmd.Close Exit_关闭_Click: Exit Sub Err_关闭_Click: MsgBox Err.Description Resume Exit_ 关闭_Click 精选学习资料 - - - - - - - -

8、 - 名师归纳总结 - - - - - - -第 9 页，共 21 页个人资料整理仅限学习使用End Sub Option Compare Database Private Sub 新添会员 _Click( On Error GoTo Err_新添会员 _Click 为窗体中“会员 ID ”等文本框控件设置初值 Me!会员 ID = Year(Now & Month(Now & Day(Now & _ Hour(Now & Minute(Now & Second(Now Me!会员姓名 = Null Me!会员级别 = 一级 Me!会员折扣 = 9.5 Me!累计消费 = 0 Me!操作人员

9、= Null Me!身份证 ID = Null Me!所在单位 = Null Me!入会日期 = Now Me!备注 = Null Exit_新添会员 _Click: Exit Sub Err_新添会员 _Click: MsgBox Err.Description Resume Exit_ 新添会员 _Click End Sub Private Sub 保存会员 _Click( On Error GoTo Err_保存会员 _Click Dim i As Integer Dim STemp As String Dim rs As ADODB.Recordset Set rs = New ADO

10、DB.Recordset 为打开数据表“查询语句”字符变量赋值精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 10 页，共 21 页个人资料整理仅限学习使用STemp = Select * From 会员资料 打开“会员资料”数据表rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic 判断“会员 ID”等文本框是否为空 If IsNull(Me! 会员 ID = True Then 弹出提示“会员 ID ”文本框不可以为空信息 MsgBox 请输入“会员 I

11、D”，它不可以为空 !, vbOKOnly, 输入“会员 ID” 把光标置于“会员ID”文本框内 Me!会员 ID.SetFocus 退出子过程 Exit Sub ElseIf IsNull(Me! 会员姓名 = True Then MsgBox 请输入“会员姓名”，它不可以为空!, vbOKOnly, 输入“会员姓名” Me!会员姓名 .SetFocus Exit Sub ElseIf IsNull(Me! 身份证 ID = True Then MsgBox 请输入“身份证 ID”，它不可以为空 !, vbOKOnly, 输入“身份证 ID” Me!身份证 ID.SetFocus Exit

12、Sub ElseIf IsNull(Me! 入会日期 = True Then MsgBox 请输入“入会日期”，它不可以为空!, vbOKOnly, 输入“入会日期” Me!入会日期 .SetFocus Exit Sub ElseIf IsNull(Me! 会员级别 = True Then MsgBox 请输入“会员级别”，它不可以为空!, vbOKOnly, 输入“会员级别” Me!会员级别 .SetFocus Exit Sub ElseIf IsNull(Me! 会员折扣 = True Then MsgBox 请输入“会员折扣”，它不可以为空!, vbOKOnly, 输入“会员折扣” Me

13、!会员折扣 .SetFocus 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 11 页，共 21 页个人资料整理仅限学习使用 Exit Sub ElseIf IsNull(Me! 累计消费 = True Then MsgBox 请输入“累计消费”，它不可以为空!, vbOKOnly, 输入“累计消费” Me!累计消费 .SetFocus Exit Sub ElseIf IsNull(Me! 操作人员 = True Then MsgBox 请输入“操作人员”，它不可以为空!, vbOKOnly, 输入“操作人员” Me!操作人员 .SetFocus

14、 Exit Sub Else 循环判断该编号的会员是否存在 If rs.RecordCount 0 Then rs.MoveFirst For i = 1 To rs.RecordCount 如果存在，弹出信息并退出子过程 If rs(会员 ID = Me! 会员 ID Then MsgBox 该编号的会员已经存在，请核实!, vbCritical, 记录已经存在 Exit Sub Else rs.MoveNext End If Next i End If End If 为保存会员资料“查询语句”字符变量赋值 STemp = INSERT INTO 会员资料 STemp = STemp & (

15、 会员 ID,会员姓名 ,会员折扣 ,累计消费 ,会员级别 , STemp = STemp & 操作人员 ,身份证 ID,入会日期 ,所在单位 ,备注 STemp = STemp & VALUES ( & Me! 会员 ID & , & Me!会员姓名 & , STemp = STemp & & Me! 会员折扣 & , & Me! 累计消费 & ,精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 12 页，共 21 页个人资料整理仅限学习使用 STemp = STemp & & Me! 会员级别 & , & Me! 操作人员 & , STemp =

16、 STemp & & Me! 身份证 ID & , & Me!入会日期 & , STemp = STemp & & Me! 所在单位 & , & Me! 备注 & 使用 DoCmd 对象的 RunSQL方法执行查询 DoCmd.RunSQL STemp 刷新“会员资料管理子窗体”子窗体 Me!会员资料管理 子窗体 .Requery 释放系统为 Rs数据集分配的空间 Set rs = Nothing Exit_保存会员 _Click: 释放系统为 Rs数据集分配的空间 Set rs = Nothing Exit Sub Err_保存会员 _Click: MsgBox Err.Descriptio

17、n Resume Exit_ 保存会员 _Click End Sub Private Sub 修改会员 _Click( On Error GoTo Err_修改会员 _Click Dim i As Integer Dim STemp As String Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset 为打开数据表“查询语句”字符变量赋值STemp = Select * From 会员资料 打开“会员资料”数据表rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLock

18、Optimistic 判断“会员 ID”等文本框是否为空精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 13 页，共 21 页个人资料整理仅限学习使用 If IsNull(Me! 会员 ID = True Then 弹出提示“会员 ID”文本框不可以为空信息 MsgBox 请输入“会员 ID”，它不可以为空 !, vbOKOnly, 输入“会员 ID” 把光标置于“会员ID”文本框内 Me!会员 ID.SetFocus Exit Sub ElseIf IsNull(Me! 会员姓名 = True Then MsgBox 请输入“会员姓名”，它不可以

19、为空!, vbOKOnly, 输入“会员姓名” Me!会员姓名 .SetFocus Exit Sub ElseIf IsNull(Me! 身份证 ID = True Then MsgBox 请输入“身份证 ID”，它不可以为空 !, vbOKOnly, 输入“身份证 ID” Me!身份证 ID.SetFocus Exit Sub ElseIf IsNull(Me! 入会日期 = True Then MsgBox 请输入“入会日期”，它不可以为空!, vbOKOnly, 输入“入会日期” Me!入会日期 .SetFocus 第 4 章系统实施过程及其流程图4.1 基础信息设置 1、设置客房信息：

20、对客房的基本信息进行增加、修改、删除。 2、设置员工信息：对员工的基本信息进行增加、修改、删除。3、设置挂账单位：对挂账单位的基本信息进行增加、修改、删除。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 14 页，共 21 页个人资料整理仅限学习使用. 图 4-1 流程图4.2 客房前台管理 1、客房预订：可以通过此窗口实现客房预订。 2、住宿登记 :客人入住宾馆登记信息，退宿一天前进行提醒。3、宿费提醒：查询某日期的提醒信息或全部提醒信息。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 15 页，共

21、21 页个人资料整理仅限学习使用图 4-2 住宿登记、修改、查询程序流程图4、退宿结帐：可以选择挂账、打折等多种方式，并可以在此增加其他消费工程的费用。自动提取系统时间以及当前操作员，实现功能为客人的退房结账。在下拉菜单中选择凭证号码，其他信息自动从数据库中提取，退宿编号为自动分配。在附加费处选择附加费工程，然后在后面的单行编辑框中输入数目，提中显示对应的消费，并自动计算到应收金额及退还金额中。下图为退宿结帐、查询程序流程图。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 16 页，共 21 页个人资料整理仅限学习使用开始操作员登录登录判断退宿查询

22、退宿结账结账判断退出系统结束图 4-3 查询流程图 NO YES NO YES 4.3 查询统计管理 1、客房查询：通过房间号查询客房基本信息。 2、房态查询： 未实现） 3、预订房查询：通过客户姓名查询预订信息。 4、住宿查询：通过客户姓名查询住宿信息。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 17 页，共 21 页个人资料整理仅限学习使用 5、退宿查询：通过客户姓名查询退宿信息。4.4 挂账管理 1、挂账查询：通过挂账单位或地址以及时间段查询挂账信息。 2、挂账结款：登记挂账单位对挂账的还款。4.5 系统初始设计 1、本单位定义：设置本单

23、位的基本信息。 2、业务部门定义：设置各业务部门的相关信息。4.6 系统维护 1、系统初始化：清空目前的系统数据，将系统恢复为初始状态。 2、操作员管理：高级管理员登录后可进行操作员的添加、删除以及信息更改。3、权限设置：可以设定操作员的管理权限以及具体的可操作功能。第 5 章系统使用说明1. 运行程序，出现如下图示：图 5-1 登录界面图精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 18 页，共 21 页个人资料整理仅限学习使用2. 输入密码后进入服务主菜单，如图：图 5-2 主界面3、选择入住图 5-2 入住管理精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 19 页，共 21 页个人资料整理仅限学习使用登记结束后保存。3. 消费结账管理：图 5-3 消费结账精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 20 页，共 21 页个人资料整理仅限学习使用精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 21 页，共 21 页