酒店管理信息系统课程方案设计书1.doc

管理信息系统课程设计报告

设计选题：酒店管理信息系统课程设计
班 级：企业财务管理
姓 名：胡 伟
学 号：
设计日期：2012年12月25日
设计地点：武汉

第1章 现行系统概述

随着社会经济的发展，人们对生活质量的要求越来越高，作为服务之一的宾馆业也在不断的完善服务体制。它是集餐饮、住宿、娱乐于一体的立体化服务体系，其中顾客可以随意消费并统一结账；宾馆管理者可及时了解宾馆的全部运营情况及经营走势，找出运转成本，作为经营决策的依据。只有运用先进的科学管理手段，利用计算机管理系统才能更好实现这一管理模式。矚慫润厲钐瘗睞枥庑赖。
宾馆客房管理信息系统是用来收集、处理、存贮和传播客房、顾客、结算信息，以信息管理为核心的计算机应用系统。利用宾馆客房管理信息系统中合理的数据库结构来保存数据信息，及时了解各个环节中信息的变更，通过有效的程序结构来支持各种数据操作的执行，以提高管理效率，实现宾馆服务的系统化、规范化、自动化。通过该项目的开发与使用，可实现以下功能：聞創沟燴鐺險爱氇谴净。
（1）：快速实现客人入住登记和账务处理，减少客人住店及离店时的等待时间
（2）：准确实现客人预订入住的要求，实现有效及有保障的前台系统作业
（3）：快速响应住宿客人的有关项目查询要求
（4）：实现入住、消费、结账一条龙服务，方便客人在店内的各类消费要求

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

2.1.1 系统功能需求之管理员
1.对客房信息进行查询、更新、删除，添加客房信息；
2、 对客房类型信息进行查询、更新、删除，添加客房类型；
3、 对用顾客入住信息进行查询、更新、删除，添加顾客入住离开信息；
4、 对客户留言的管理。

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

2.2 可行性研究
2.2.1 技术可行性
此次信息系统开发是对我们所学的管理信息系统的实践,我们在微机室完成系统开发。我们小组可以选定两三台计算机或者用自己的笔记本进行开发，建立系统开发环境，主要是安装ACCESS机，小组成员之间可以通过一起讨论，协调开发工作，解决开发工作中出现的问题。酽锕极額閉镇桧猪訣锥。
就技术力量来说，该学期，我们小组各成员已经学习了管理信息系统，并且对网络技术和操作系统也有系统的了解，有些成员熟悉计算机原理，能解决常见的硬件故障和硬件选择。目前，教材管理信息系统已得到了大量应用，有许多可供参考的成功系统。从技术角度考虑，此信息系统开发可行。彈贸摄尔霁毙攬砖卤庑。
2.2.2经济可行性
目标系统开发需求比较低，加上具有成熟的软硬件环境，所以在软硬件的支出上十分有限。而且，目标系统并不是十分的复杂，开发的周期较短，人员经济支出有限。当系统开发完实际运行后，将很大程度上提高计算机的功能，在为使用者带来便利的同时，也为系统的进一步推广创造了条件。这带来的经济回报将远超过支出，并且最重要的一点是该软件的开发可以给我们对系统的开发有个全面的认识。从经济角度考虑，此信息系统开发可行。謀荞抟箧飆鐸怼类蒋薔。
2.2.3 法律上的可行性
整个系统由于是自行开发，自行使用，所以系统本身不存在法律上的版权争议信息系统规划
在需求分析的基础上，我们提出了教材管理系统的总体结构方案，并根据发展战略和总体结构方案，确定了系统的开发次序及时间安排。厦礴恳蹒骈時盡继價骚。

2.3系统开发方法的选择
本次课程设计我们选择结构化开发方法，即用系统工程的思想和工程化的方法，按照用户至上的原则，自顶向下整体分析与设计和自底向上逐步实施的系统开发过程。是组织、管理和控制信息系统开发过程的一种基本框架。茕桢广鳓鯡选块网羈泪。
其基本思想：在系统分析时，采用自顶向下、逐层分解，由抽象到具体的逐步认识问题的过程；在系统设计的时候，先考虑系统整体的优化，再考虑局部的优化问题；在系统实施的时候，则坚持自底向上，先局部后整体，通过标准化模块的连接形成完整的系统。鹅娅尽損鹌惨歷茏鴛賴。

2.4数据结构
本程序定义了五个结构体：date，easy，easy*create，easy*head，ptr分别用于存放日期与时间信息，房间入住状态，当日时间，住房费用信息 籟丛妈羥为贍偾蛏练淨。
1、定义入住信息结构体
struct easy
{
int number;
int price;
struct date past;
char name[8],id[18];
int x;
struct easy *next;
}
其中各字段意义如下：
int number; 表示房号
int price; 表示价格
struct date past; 表示入住日期和时间
char name[8],id[18]; 表示等级客户姓名和地址
int x;表示房间入住状态
第3章 系统设计
3.1 总体设计结构
该管理系统适用于各类中小型酒店的客房资源和客户信息的管理，实现了酒店的信息化管理，该系统主要包括基础信息设置、客房前台管理、查询统计管理、挂账管理、系统初始设计、系统维护等功能。預頌圣鉉儐歲龈讶骅籴。

功能结构图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![职员资料管理]![籍贯] = 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
Resume 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
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![累计消费] = 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 rs = 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].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 "请输入“入会日期”，它不可以为空!", 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
MsgBox "请输入“累计消费”，它不可以为空!", 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] 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 = STemp & "'" & 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:
'释放系统为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 * From 会员资料"
'打开“会员资料”数据表
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 "请输入“会员姓名”，它不可以为空!", 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、设置客房信息：对客房的基本信息进行增加、修改、删除。
2、设置员工信息：对员工的基本信息进行增加、修改、删除。
3、设置挂账单位：对挂账单位的基本信息进行增加、修改、删除。
.
图4-1流程图
4.2 客房前台管理
1、客房预订：可以通过此窗口实现客房预订。
2、住宿登记:客人入住宾馆登记信息，退宿一天前进行提醒。
3、宿费提醒：查询某日期的提醒信息或全部提醒信息。

图4-2住宿登记、修改、查询程序流程图
4、退宿结帐：可以选择挂账、打折等多种方式，并可以在此增加其他消费项目的费用。自动提取系统时间以及当前操作员，实现功能为客人的退房结账。在下拉菜单中选择凭证号码，其他信息自动从数据库中提取，退宿编号为自动分配。在附加费处选择附加费项目，然后在后面的单行编辑框中输入数目，提中显示对应的消费，并自动计算到应收金额及退还金额中。下图为退宿结帐、查询程序流程图。綾镝鯛駕櫬鹕踪韦辚糴。

图4-3 查询流程图
操作员登录
退宿结账
开始

登录判断
NO

YES

退宿查询
NO
结账判断

YES

退出系统

结束

4.3 查询统计管理
1、客房查询：通过房间号查询客房基本信息。
2、房态查询：（未实现）
3、预订房查询：通过客户姓名查询预订信息。
4、住宿查询：通过客户姓名查询住宿信息。
5、退宿查询：通过客户姓名查询退宿信息。
4.4 挂账管理
1、挂账查询：通过挂账单位或地址以及时间段查询挂账信息。
2、挂账结款：登记挂账单位对挂账的还款。
4.5 系统初始设计
1、本单位定义：设置本单位的基本信息。
2、业务部门定义：设置各业务部门的相关信息。
4.6 系统维护
1、系统初始化：清空目前的系统数据，将系统恢复为初始状态。
2、操作员管理：高级管理员登录后可进行操作员的添加、删除以及信息更改。
3、权限设置：可以设定操作员的管理权限以及具体的可操作功能。

第5章 系统使用说明
1. 运行程序，出现如下图示：

图5-1 登录界面图

2. 输入密码后进入服务主菜单，如图：
图5-2 主界面

3、选择入住

图5-2 入住管理

登记结束后保存。

3. 消费结账管理：
图5-3 消费结账

20