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

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

《酒店管理信息系统课程设计1.docx》由会员分享，可在线阅读，更多相关《酒店管理信息系统课程设计1.docx（20页珍藏版）》请在冰豆网上搜索。

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

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

设计选题：

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

班级：

企业财务管理

*****

学号：

设计日期：

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、定义入住信息结构体

structeasy

{

intnumber;

intprice;

structdatepast;

charname[8],id[18];

intx;

structeasy*next;

}

其中各字段意义如下：

intnumber;表示房号

intprice;表示价格

structdatepast;表示入住日期和时间

charname[8],id[18];表示等级客户姓名和地址

intx;表示房间入住状态

第3章系统设计

3.1总体设计结构

该管理系统适用于各类中小型酒店的客房资源和客户信息的管理，实现了酒店的信息化管理，该系统主要包括基础信息设置、客房前台管理、查询统计管理、挂账管理、系统初始设计、系统维护等功能。

功能结构图3-1

3.2代码设计

PrivateSubForm_Current（）

OnErrorGoToErr_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:

ExitSub

Err_Form_Current:

MsgBoxErr.Description

ResumeExit_Form_Current

EndSub

OptionCompareDatabase

PrivateSub查询_Click（）

OnErrorGoToErr_查询_Click

Me!

[入住记录查询子窗体].Requery

Exit_查询_Click:

ExitSub

Err_查询_Click:

MsgBoxErr.Description

ResumeExit_查询_Click

EndSub

PrivateSub关闭_Click（）

OnErrorGoToErr_关闭_Click

DoCmd.Close

Exit_关闭_Click:

ExitSub

Err_关闭_Click:

MsgBoxErr.Description

ResumeExit_关闭_Click

EndSub

OptionCompareDatabase

PrivateSub新添会员_Click（）

OnErrorGoToErr_新添会员_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:

ExitSub

Err_新添会员_Click:

MsgBoxErr.Description

ResumeExit_新添会员_Click

EndSub

PrivateSub保存会员_Click（）

OnErrorGoToErr_保存会员_Click

DimiAsInteger

DimSTempAsString

DimrsAsADODB.Recordset

Setrs=NewADODB.Recordset

'为打开数据表“查询语句”字符变量赋值

STemp="Select*From会员资料"

'打开“会员资料”数据表

rs.OpenSTemp,CurrentProject.Connection,adOpenKeyset,adLockOptimistic

'判断“会员ID”等文本框是否为空

IfIsNull（Me!

[会员ID]）=TrueThen

'弹出提示“会员ID”文本框不可以为空信息

MsgBox"请输入“会员ID”，它不可以为空!

",vbOKOnly,"输入“会员ID”"

'把光标置于“会员ID”文本框内

Me!

[会员ID].SetFocus

'退出子过程

ExitSub

ElseIfIsNull（Me!

[会员姓名]）=TrueThen

MsgBox"请输入“会员姓名”，它不可以为空!

",vbOKOnly,"输入“会员姓名”"

Me!

[会员姓名].SetFocus

ExitSub

ElseIfIsNull（Me!

[身份证ID]）=TrueThen

MsgBox"请输入“身份证ID”，它不可以为空!

",vbOKOnly,"输入“身份证ID”"

Me!

[身份证ID].SetFocus

ExitSub

ElseIfIsNull（Me!

[入会日期]）=TrueThen

MsgBox"请输入“入会日期”，它不可以为空!

",vbOKOnly,"输入“入会日期”"

Me!

[入会日期].SetFocus

ExitSub

ElseIfIsNull（Me!

[会员级别]）=TrueThen

MsgBox"请输入“会员级别”，它不可以为空!

",vbOKOnly,"输入“会员级别”"

Me!

[会员级别].SetFocus

ExitSub

ElseIfIsNull（Me!

[会员折扣]）=TrueThen

MsgBox"请输入“会员折扣”，它不可以为空!

",vbOKOnly,"输入“会员折扣”"

Me!

[会员折扣].SetFocus

ExitSub

ElseIfIsNull（Me!

[累计消费]）=TrueThen

MsgBox"请输入“累计消费”，它不可以为空!

",vbOKOnly,"输入“累计消费”"

Me!

[累计消费].SetFocus

ExitSub

ElseIfIsNull（Me!

[操作人员]）=TrueThen

MsgBox"请输入“操作人员”，它不可以为空!

",vbOKOnly,"输入“操作人员”"

Me!

[操作人员].SetFocus

ExitSub

Else

'循环判断该编号的会员是否存在

Ifrs.RecordCount>0Then

rs.MoveFirst

Fori=1Tors.RecordCount

'如果存在，弹出信息并退出子过程

Ifrs（"会员ID"）=Me!

[会员ID]Then

MsgBox"该编号的会员已经存在，请核实!

",vbCritical,"记录已经存在"

ExitSub

Else

rs.MoveNext

EndIf

Nexti

EndIf

EndIf

'为保存会员资料“查询语句”字符变量赋值

STemp="INSERTINTO会员资料"

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.RunSQLSTemp

'刷新“会员资料管理子窗体”子窗体

Me!

[会员资料管理子窗体].Requery

'释放系统为Rs数据集分配的空间

Setrs=Nothing

Exit_保存会员_Click:

'释放系统为Rs数据集分配的空间

Setrs=Nothing

ExitSub

Err_保存会员_Click:

MsgBoxErr.Description

ResumeExit_保存会员_Click

EndSub

PrivateSub修改会员_Click（）

OnErrorGoToErr_修改会员_Click

DimiAsInteger

DimSTempAsString

DimrsAsADODB.Recordset

Setrs=NewADODB.Recordset

'为打开数据表“查询语句”字符变量赋值

STemp="Select*From会员资料"

'打开“会员资料”数据表

rs.OpenSTemp,CurrentProject.Connection,adOpenKeyset,adLockOptimistic

'判断“会员ID”等文本框是否为空

IfIsNull（Me!

[会员ID]）=TrueThen

'弹出提示“会员ID”文本框不可以为空信息

MsgBox"请输入“会员ID”，它不可以为空!

",vbOKOnly,"输入“会员ID”"

'把光标置于“会员ID”文本框内

Me!

[会员ID].SetFocus

ExitSub

ElseIfIsNull（Me!

[会员姓名]）=TrueThen

MsgBox"请输入“会员姓名”，它不可以为空!

",vbOKOnly,"输入“会员姓名”"

Me!

[会员姓名].SetFocus

ExitSub

ElseIfIsNull（Me!

[身份证ID]）=TrueThen

MsgBox"请输入“身份证ID”，它不可以为空!

",vbOKOnly,"输入“身份证ID”"

Me!

[身份证ID].SetFocus

ExitSub

ElseIfIsNull（Me!

[入会日期]）=TrueThen

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消费结账