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

1管理信息系统课程设计报告设计选题：酒店管理信息系统课程设计班级：企业财务管理姓名：胡伟学号：设计日期：2012年12月25日设计地点：武汉2第1章现行系统概述随着社会经济的发展，人们对生活质量的要求越来越高，作为服务之一的宾馆业也在不断的完善服务体制。它是集餐饮、住宿、娱乐于一体的立体化服务体系，其中顾客可以随意消费并统一结账；宾馆管理者可及时了解宾馆的全部运营情况及经营走势，找出运转成本，作为经营决策的依据。只有运用先进的科学管理手段，利用计算机管理系统才能更好实现这一管理模式。宾馆客房管理信息系统是用来收集、处理、存贮和传播客房、顾客、结算信息，以信息管理为核心的计算机应用系统。利用宾馆客房管理信息系统中合理的数据库结构来保存数据信息，及时了解各个环节中信息的变更，通过有效的程序结构来支持各种数据操作的执行，以提高管理效率，实现宾馆服务的系统化、规范化、自动化。通过该项目的开发与使用，可实现以下功能：（1）：快速实现客人入住登记和账务处理，减少客人住店及离店时的等待时间（2）：准确实现客人预订入住的要求，实现有效及有保障的前台系统作业（3）：快速响应住宿客人的有关项目查询要求（4）：实现入住、消费、结账一条龙服务，方便客人在店内的各类消费要求3第2章系统分析2.1需求分析电子计算机科学的飞速发展，给酒店计算机应用带来了蓬勃生机，出现了酒店计算机管理信息系统、安全保卫系统、电子门锁系统、酒店信息服务系统、客房电脑保险系统以及计算机娱乐系统。计算机在酒店中的应用，已深入到酒店的各个部门，特别在信息处理领域，计算机已成为最重要的工具。在酒店现代管理理论中，酒店管理信息系统已成为酒店现代科学管理的重要内容，是酒店经营必不可缺少的现代科学工具。近年来，随着我国改革开放的发展，国内的酒店服务业得到了日新月异的发展。现代酒店作为一体化的接待场所，是一个旅游城市的窗口，也可以说是一个小型社会。作为一种以服务为主的无烟工业，世界各国对此行业的重视程度并不亚于其它工业。我设计的酒店管理系统主要是针对酒店各种信息的管理以实现对酒店的管理2.1.1系统功能需求之管理员1.对客房信息进行查询、更新、删除，添加客房信息；2、对客房类型信息进行查询、更新、删除，添加客房类型；3、对用顾客入住信息进行查询、更新、删除，添加顾客入住离开信息；4、对客户留言的管理。2.1.2系统功能需求之用户利用本系统用户在注册或登录后可实现：1、客房远程网上预订，使客户不在当地也可以订购酒店的客房；2、利用本系统可查询、掌握全酒店客房的运营状况；3、利用本系统可发布酒店相关信息，让客户了解酒店的服务理念；4、提高酒店的知名度；5、利用本系统实现客户意见反馈，客户通过留言板对酒店服务提出意见，拉近了酒店和4客户之间的距离；6、增加客户的回头率。2.2可行性研究2.2.1技术可行性此次信息系统开发是对我们所学的管理信息系统的实践,我们在微机室完成系统开发。我们小组可以选定两三台计算机或者用自己的笔记本进行开发，建立系统开发环境，主要是安装ACCESS机，小组成员之间可以通过一起讨论，协调开发工作，解决开发工作中出现的问题。就技术力量来说，该学期，我们小组各成员已经学习了管理信息系统，并且对网络技术和操作系统也有系统的了解，有些成员熟悉计算机原理，能解决常见的硬件故障和硬件选择。目前，教材管理信息系统已得到了大量应用，有许多可供参考的成功系统。从技术角度考虑，此信息系统开发可行。2.2.2经济可行性目标系统开发需求比较低，加上具有成熟的软硬件环境，所以在软硬件的支出上十分有限。而且，目标系统并不是十分的复杂，开发的周期较短，人员经济支出有限。当系统开发完实际运行后，将很大程度上提高计算机的功能，在为使用者带来便利的同时，也为系统的进一步推广创造了条件。这带来的经济回报将远超过支出，并且最重要的一点是该软件的开发可以给我们对系统的开发有个全面的认识。从经济角度考虑，此信息系统开发可行。2.2.3法律上的可行性整个系统由于是自行开发，自行使用，所以系统本身不存在法律上的版权争议信息系统规划在需求分析的基础上，我们提出了教材管理系统的总体结构方案，并根据发展战略和总体结构方案，确定了系统的开发次序及时间安排。52.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;表示房间入住状态6第3章系统设计3.1总体设计结构该管理系统适用于各类中小型酒店的客房资源和客户信息的管理，实现了酒店的信息化管理，该系统主要包括基础信息设置、客房前台管理、查询统计管理、挂账管理、系统初始设计、系统维护等功能。功能结构图3-13.2代码设计PrivateSubForm_Current()OnErrorGoToErr_Form_Current'把子窗体中当前记录值赋予主窗体对应的文本框内Forms![职员资料管理]![职员ID]=Me![职员ID]Forms![职员资料管理]![姓名]=Me![姓名]7Forms![职员资料管理]![职位]=Me![职位]Forms![职员资料管理]![性别]=Me![性别]Forms![职员资料管理]![籍贯]=Me![籍贯]Forms![职员资料管理]![年龄]=Me![年龄]Forms![职员资料管理]![民族]=Me![民族]Forms![职员资料管理]![健康状况]=Me![健康状况]Forms![职员资料管理]![身份证号]=Me![身份证号]Forms![职员资料管理]![婚姻状况]=Me![婚姻状况]Forms![职员资料管理]![家庭地址]=Me![家庭地址]Forms![职员资料管理]![家庭电话]=Me![家庭电话]Forms![职员资料管理]![备注]=Me![备注]Exit_Form_Current:ExitSubErr_Form_Current:MsgBoxErr.DescriptionResumeExit_Form_CurrentEndSubOptionCompareDatabasePrivateSub查询_Click()OnErrorGoToErr_查询_ClickMe![入住记录查询子窗体].RequeryExit_查询_Click:ExitSubErr_查询_Click:MsgBoxErr.DescriptionResumeExit_查询_ClickEndSub8PrivateSub关闭_Click()OnErrorGoToErr_关闭_ClickDoCmd.CloseExit_关闭_Click:ExitSubErr_关闭_Click:MsgBoxErr.DescriptionResumeExit_关闭_ClickEndSubOptionCompareDatabasePrivateSub新添会员_Click()OnErrorGoToErr_新添会员_Click'为窗体中“会员ID”等文本框控件设置初值Me![会员ID]=Year(Now)&Month(Now)&Day(Now)&_Hour(Now)&Minute(Now)&Second(Now)Me![会员姓名]=NullMe![会员级别]=一级Me![会员折扣]=9.5Me![累计消费]=0Me![操作人员]=NullMe![身份证ID]=NullMe![所在单位]=NullMe![入会日期]=NowMe![备注]=NullExit_新添会员_Click:ExitSubErr_新添会员_Click:MsgBoxErr.DescriptionResumeExit_新添会员_ClickEndSub9PrivateSub保存会员_Click()OnErrorGoToErr_保存会员_ClickDimiAsIntegerDimSTempAsStringDimrsAsADODB.RecordsetSetrs=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'退出子过程ExitSubElseIfIsNull(Me![会员姓名])=TrueThenMsgBox请输入“会员姓名”，它不可以为空!,vbOKOnly,输入“会员姓名”Me![会员姓名].SetFocusExitSubElseIfIsNull(Me![身份证ID])=TrueThenMsgBox请输入“身份证ID”，它不可以为空!,vbOKOnly,输入“身份证ID”Me![身份证ID].SetFocusExitSubElseIfIsNull(Me![入会日期])=TrueThenMsgBox请输入“入会日期”，它不可以为空!,vbOKOnly,输入“入会日期”Me![入会日期].SetFocus10ExitSubElseIfIsNull(Me![会员级别])=TrueThenMsgBox请输入“会员级别”，它不可以为空!,vbOKOnly,输入“会员级别”Me![会员级别].SetFocusExitSubElseIfIsNull(Me![会员折扣])=TrueThenMsgBox请输入“会员折扣”，它不可以为空!,vbOKOnly,输入“会员折扣”Me![会员折扣].SetFocusExitSubElseIfIsNull(Me![累计消费])=TrueThenMsgBox请输入“累计消费”，它不可以为空!,vbOKOnly,输入“累计消费”Me![累计消费].SetFocusExitSubElseIfIsNull(Me![操作人员])=TrueThenMsgBox请输入“操作人员”，它不可以为空!,vbOKOnly,输入“操作人员”Me![操作人员].SetFocusExitSubElse'循环判断该编号的会员是否存在Ifrs.RecordCount0Thenrs.MoveFirstFori=1Tors.RecordCount'如果存在，弹出信息并退出子过程Ifrs(会员ID)=Me![会员ID]ThenMsgBox该编号的会员已经存在，请核实!,vbCritical,记录已经存在ExitSubElsers.MoveNextEndIfNexti11EndIfEndIf'为保存会员资料“查询语句”字符变量赋值STemp=INSERTINTO会员资料STemp=STemp&(会员ID,会员姓名,会员折扣,累计消费,会员级别,STemp=STemp&操作人员,身份证ID,入会日期,所在单位