酒店管理信息系统课程设计

1、管理信息系统课程设计报告管理信息系统课程设计报告 目录 第 1 章 现行系统概述 .1 第 2 章 系统分析 .1 2.1 需求分析 .1 2.1.1 系统功能需求之管理员.2 2.1.2 系统功能需求之用户.2 2.2 可行性研究 .3 2.2.1 技术可行性.3 2.2.2 经济可行性.3 2.2.3 法律上的可行性.3 2.3 系统开发方法的选择 .4 2.4 数据结构 .4 第 3 章 系统设计 .5 3.1 总体设计结构 .5 3.2 代码设计 .6 第四部分 系统实施过程及其流程图 .12 4.1 基础信息设置 .12 4.2 客房前台管理 .13 4.3 查询统计管理 .15 4

2、.4 挂账管理 .16 4.5 系统初始设计 .16 4.6 系统维护 .16 第 5 章 系统使用说明 .16 第 1 章 现行系统概述 随着社会经济的发展，人们对生活质量的要求越来越高，作为服务之一的宾馆业也在 不断的完善服务体制。它是集餐饮、住宿、娱乐于一体的立体化服务体系，其中顾客可 以随意消费并统一结账；宾馆管理者可及时了解宾馆的全部运营情况及经营走势，找出 运转成本，作为经营决策的依据。只有运用先进的科学管理手段，利用计算机管理系统 才能更好实现这一管理模式。 宾馆客房管理信息系统是用来收集、处理、存贮和传播客房、顾客、结算信息，以 信息管理为核心的计算机应用系统。利用宾馆客房管理

3、信息系统中合理的数据库结构来 保存数据信息，及时了解各个环节中信息的变更，通过有效的程序结构来支持各种数据 操作的执行，以提高管理效率，实现宾馆服务的系统化、规范化、自动化。通过该项目 的开发与使用，可实现以下功能： （1）：快速实现客人入住登记和账务处理，减少客人住店及离店时的等待时间 （2）：准确实现客人预订入住的要求，实现有效及有保障的前台系统作业 （3）：快速响应住宿客人的有关项目查询要求 （4）：实现入住、消费、结账一条龙服务，方便客人在店内的各类消费要求 第 2 章 系统分析 2.1 需求分析 电子计算机科学的飞速发展，给酒店计算机应用带来了蓬勃生机，出现了酒店计算 机管理信息系统

4、、安全保卫系统、电子门锁系统、酒店信息服务系统、客房电脑保险系 统以及计算机娱乐系统。计算机在酒店中的应用，已深入到酒店的各个部门，特别在信 息处理领域，计算机已成为最重要的工具。在酒店现代管理理论中，酒店管理信息系统 已成为酒店现代科学管理的重要内容，是酒店经营必不可缺少的现代科学工具。近年来， 随着我国改革开放的发展，国内的酒店服务业得到了日新月异的发展。现代酒店作为一 体化的接待场所，是一个旅游城市的窗口，也可以说是一个小型社会。作为一种以服务 为主的无烟工业，世界各国对此行业的重视程度并不亚于其它工业。我设计的酒店管理 系统主要是针对酒店各种信息的管理以实现对酒店的管理 2.1.1 系

5、统功能需求之管理员 1.对客房信息进行查询、更新、删除，添加客房信息； 2、对客房类型信息进行查询、更新、删除，添加客房类型； 3、对用顾客入住信息进行查询、更新、删除，添加顾客入住离开信息； 4、对客户留言的管理。 2.1.2 系统功能需求之用户 利用本系统用户在注册或登录后可实现： 1、客房远程网上预订， 使客户不在当地也可以订购酒店的客房； 2、利用本系统可查询、掌握全酒店客房的运营状况； 3、利用本系统 可发布酒店相关信息， 让客户了解酒店的服务理念； 4、 提高酒店的知名度； 5、 利用本系统实现客户意见反馈，客户通过留言板对酒店服务提出意见，拉近了酒店 和客户之间的距离； 6、 增

6、加客户的回头率。 2.2 可行性研究 2.2.1 技术可行性 此次信息系统开发是对我们所学的管理信息系统的实践,我们在微机室完成系统开发。 我们小组可以选定两三台计算机或者用自己的笔记本进行开发，建立系统开发环境，主 要是安装 ACCESS 机，小组成员之间可以通过一起讨论，协调开发工作，解决开发工作 中出现的问题。 就技术力量来说，该学期，我们小组各成员已经学习了管理信息系统，并且对网络 技术和操作系统也有系统的了解，有些成员熟悉计算机原理，能解决常见的硬件故障和 硬件选择。目前，教材管理信息系统已得到了大量应用，有许多可供参考的成功系统。 从技术角度考虑，此信息系统开发可行。 2.2.2

7、经济可行性 目标系统开发需求比较低，加上具有成熟的软硬件环境，所以在软硬件的支出上十 分有限。而且，目标系统并不是十分的复杂，开发的周期较短，人员经济支出有限。当 系统开发完实际运行后，将很大程度上提高计算机的功能，在为使用者带来便利的同时， 也为系统的进一步推广创造了条件。这带来的经济回报将远超过支出，并且最重要的一 点是该软件的开发可以给我们对系统的开发有个全面的认识。从经济角度考虑，此信息 系统开发可行。 2.2.3 法律上的可行性 整个系统由于是自行开发，自行使用，所以系统本身不存在法律上的版权争议信息 系统规划 在需求分析的基础上，我们提出了教材管理系统的总体结构方案，并根据发展战略

8、 和总体结构方案，确定了系统的开发次序及时间安排。 2.3 系统开发方法的选择 本次课程设计我们选择结构化开发方法，即用系统工程的思想和工程化的方法，按 照用户至上的原则，自顶向下整体分析与设计和自底向上逐步实施的系统开发过程。是 组织、管理和控制信息系统开发过程的一种基本框架。 其基本思想：在系统分析时，采用自顶向下、逐层分解，由抽象到具体的逐步认识 问题的过程；在系统设计的时候，先考虑系统整体的优化，再考虑局部的优化问题；在 系统实施的时候，则坚持自底向上，先局部后整体，通过标准化模块的连接形成完整的 系统。 2.4 数据结构 本程序定义了五个结构体：date，easy，easy*crea

9、te，easy*head，ptr 分别用于存放日期与 时间信息，房间入住状态，当日时间，住房费用信息 1、定义入住信息结构体 struct easy int number; int price; struct date past; char name8,id18; int x; struct easy *next; 其中各字段意义如下： int number; 表示房号 int price; 表示价格 struct date past; 表示入住日期和时间 char name8,id18; 表示等级客户姓名和地址 int x;表示房间入住状态 第 3 章 系统设计 3.1 总体设计结构 该管理

10、系统适用于各类中小型酒店的客房资源和客户信息的管理，实现了酒店的信 息化管理，该系统主要包括基础信息设置、客房前台管理、查询统计管理、挂账管理、 系统初始设计、系统维护等功能。 功能结构图 3-1 3.2 代码设计 Private Sub Form_Current() On Error GoTo Err_Form_Current 把子窗体中当前记录值赋予主窗体对应的文本框内 Forms!职员资料管理!职员 ID = Me!职员 ID Forms!职员资料管理!姓名 = Me!姓名 Forms!职员资料管理!职位 = Me!职位 Forms!职员资料管理!性别 = Me!性别 Forms!职员资

11、料管理!籍贯 = Me!籍贯 Forms!职员资料管理!年龄 = Me!年龄 Forms!职员资料管理!民族 = Me!民族 Forms!职员资料管理!健康状况 = Me!健康状况 Forms!职员资料管理!身份证号 = Me!身份证号 Forms!职员资料管理!婚姻状况 = Me!婚姻状况 Forms!职员资料管理!家庭地址 = Me!家庭地址 Forms!职员资料管理!家庭电话 = Me!家庭电话 Forms!职员资料管理!备注 = Me!备注 Exit_Form_Current: Exit Sub Err_Form_Current: MsgBox Err.Description Resu

12、me Exit_Form_Current End Sub Option Compare Database Private Sub 查询_Click() On Error 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

13、 Err_关闭_Click: MsgBox Err.Description Resume Exit_关闭_Click 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!累

14、计消费 = 0 Me!操作人员 = 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 r

15、s = New ADODB.Recordset 为打开数据表“查询语句”字符变量赋值 STemp = Select * From 会员资料 打开“会员资料”数据表 rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic 判断“会员 ID”等文本框是否为空 If IsNull(Me!会员 ID) = True Then 弹出提示“会员 ID”文本框不可以为空信息 MsgBox 请输入“会员 ID”，它不可以为空!, vbOKOnly, 输入“会员 ID” 把光标置于“会员 ID”文本框内 Me!会员 ID.

16、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 Sub ElseIf IsNull(Me!入会日期) = True Then MsgBox 请输入“入会日期”，它不可以

17、为空!, vbOKOnly, 输入“入会日期” Me!入会日期.SetFocus Exit 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 Msg

18、Box 请输入“累计消费”，它不可以为空!, vbOKOnly, 输入“累计消费” Me!累计消费.SetFocus Exit Sub ElseIf IsNull(Me!操作人员) = True Then MsgBox 请输入“操作人员”，它不可以为空!, vbOKOnly, 输入“操作人员” Me!操作人员.SetFocus Exit Sub Else 循环判断该编号的会员是否存在 If rs.RecordCount 0 Then rs.MoveFirst For i = 1 To rs.RecordCount 如果存在，弹出信息并退出子过程 If rs(会员 ID) = Me!会员 ID

19、Then MsgBox 该编号的会员已经存在，请核实!, vbCritical, 记录已经存在 Exit Sub Else rs.MoveNext End If Next i End If End If 为保存会员资料“查询语句”字符变量赋值 STemp = INSERT INTO 会员资料 STemp = STemp & ( 会员 ID,会员姓名,会员折扣,累计消费,会员级别, STemp = STemp & 操作人员,身份证 ID,入会日期,所在单位,备注) STemp = STemp & VALUES ( & Me!会员 ID & , & Me!会员姓名 & , STemp = STem

20、p & & Me!会员折扣 & , & Me!累计消费 & , STemp = STemp & & Me!会员级别 & , & Me!操作人员 & , STemp = STemp & & Me!身份证 ID & , & Me!入会日期 & , STemp = STemp & & Me!所在单位 & , & Me!备注 & ) 使用 DoCmd 对象的 RunSQL 方法执行查询 DoCmd.RunSQL STemp 刷新“会员资料管理 子窗体”子窗体 Me!会员资料管理 子窗体.Requery 释放系统为 Rs 数据集分配的空间 Set rs = Nothing Exit_保存会员_Click

21、: 释放系统为 Rs 数据集分配的空间 Set rs = Nothing 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 ADODB.Recordset 为打开数据表“查询语句”字符变量赋值 STemp = Select * Fr

22、om 会员资料 打开“会员资料”数据表 rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic 判断“会员 ID”等文本框是否为空 If IsNull(Me!会员 ID) = True Then 弹出提示“会员 ID”文本框不可以为空信息 MsgBox 请输入“会员 ID”，它不可以为空!, vbOKOnly, 输入“会员 ID” 把光标置于“会员 ID”文本框内 Me!会员 ID.SetFocus Exit Sub ElseIf IsNull(Me!会员姓名) = True Then MsgBox 请输

23、入“会员姓名”，它不可以为空!, 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.1 基础信息设置

24、 1、设置客房信息：对客房的基本信息进行增加、修改、删除。 2、设置员工信息：对员工的基本信息进行增加、修改、删除。 3、设置挂账单位：对挂账单位的基本信息进行增加、修改、删除。 . 图 4-1 流程图 4.2 客房前台管理 1、客房预订：可以通过此窗口实现客房预订。 2、住宿登记:客人入住宾馆登记信息，退宿一天前进行提醒。 3、宿费提醒：查询某日期的提醒信息或全部提醒信息。 图 4-2 住宿登记、修改、查询程序流程图 4、退宿结帐：可以选择挂账、打折等多种方式，并可以在此增加其他消费项目的费 用。自动提取系统时间以及当前操作员，实现功能为客人的退房结账。在下拉菜单中选 择凭证号码，其他信息自动从数据库中提取，退宿编号为自动分配。在附加费处选择附 加费项目，然后在后面的单行编辑框中输入数目，提中显示对应的消费，并自动计算到 应收金额及退还金额中。下图为退宿结帐、查询程序