管理信息系统mis宾馆管理系统Word文档下载推荐.docx
《管理信息系统mis宾馆管理系统Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《管理信息系统mis宾馆管理系统Word文档下载推荐.docx（23页珍藏版）》请在冰豆网上搜索。
2.1系统的可行性分析
从宾馆的具体情况出发，经过多方面调研、讨论，本宾馆客房管理信息系统，从技术上，经济上，管理上均已具备实施的基本条件。
2.1.1技术可行性
Win2000/NT/XP操作系统的稳定性，安全性可满足用户的要求。
后台的数据库使用ACCESS2000，开发工具微软公司的VISUALBASIC6.0,具有良好的升级潜力和可维护性。
这些软件在大型MIS开发中已被大量应用，技术上都比较成熟,可根据用户需要，十分方便的增减模块，直观的图形用户界面，简洁的操作流程，无须专业电脑知识即可迅速上手。
因此技术上是可行的。
2.1.2经济可行性
费用：
本系统要求的计算机配置并不高（奔腾II及以上处理器。
64M内存及以上，硬盘空间100M以上），设备的安装调试工作简单，PB软件的价格不高，操作简单，对用户进行少量的培训工作就可以使用户熟练的使用本系统，因而培训费用较低。
收益：
宾馆前台使用本系统后，提高了核对效能，相对的差错也大大减少；
即工作人员的工作效率大大提高了，工作时间大大节省了，从而间接为宾馆创造了可观的经济效益，减少管理费用的支出，避免了不必要的人工错误；
还提高了工作人员的素质，有利于管理方式与体制的合理改革，保证宾馆客房管理的可持续发展。
因而在经济上是可行的。
2.1.3.管理可行性
建立管理信息系统是行业发展的必然要求，宾馆领导对科技的管理非常重视。
使管理和业务流程信息化，是管理信息现代化的第一步。
而员工对此更是表现出极大的热情和期望。
因为该系统的实施将很大程度上降低他们的手工作业量，还会减少他们在工作上的失误，提高工作效率。
因此，本系统在管理上是可行的。
2.2详细调查
开发本系统的要求来自对原传统管理模式的不满，不管是手工系统还是正在运行的计算机系统。
由于存在的问题充斥各个方面，内容分散,甚至含糊不清，这就要求我们进行详细分析，并在原管理模式的基础上提出系统开发方案。
本系统是一个虚拟的管理信息系统，不存在原运行系统。
业务流程分析是对业务功能分析的进一步细化，业务流程分析的结果是给出业务流程图。
业务流程图反映了实际的业务活动。
它不仅是系统分析人员进行更深入系统分析的依据,而且也是系统分析人员，管理人员，业务操作人员，系统设计人员进行沟通的工具。
可以直接在业务流程图上拟出能够由计算机实现的部分，明确系统的边界，使计算机处理与人工业务处理的接口清晰，分析组织的业务流程是否合理，删除重复的，不合理的环节，明确整个业务流程,为以后的分析与设计打下良好的基础。
因此，为了能够反映宾馆内部各部门之间的联系程度,其主要业务和他们在业务过程中所承担的工作,根据宾馆客房管理的特点和宾馆的实际情况，宾馆的业务流程图如图1所示:
通过现行业务流程图对现行系统进行分析，客人流量多，需要的服务多，致使管理的过程不好控制，效率不高。
我们通过计算机来实现前台操作员的一些业务，让电脑来代为运作，可以提高效率，减轻人的工作量。
我们系统的工作就是把传统的管理模式换为人机交互操作，从上图分析可以明确系统的边界，把不必要的人工操作从系统中删除。
首先我们可以在电脑上实现房态的查询，了解房间的占用情况，这样可为工作人员减少查询的时间，提高管理的效率。
另外，客人可以预定房间也可以临时住宿，当客人预定房间后，可根据其预定的房间号入住，，这样就为客人避免了来到本地临时找住处的麻烦，为客人节省了时间，提高了工作效率，同时也为宾馆带来了一定的经济效益。
如果客人为散客，到前台进行登记，即可入住。
提高了宾馆的管理效率，使得宾馆的组织结构向着扁平化方向发展，用最少的人力物力作尽可能多的工作。
2.3系统逻辑方案的提出
2.3.1数据流程图
数据流程分析是数据和数据流程分析工作的最后一步，该工作是对系统中的数据进行输入输出、存储、传递、转换等分析。
数据流程分析的结果是给出数据流程图。
数据流程图是描述系统逻辑模型的主要工具，我们采取结构化分析的方法绘制数据流程图。
针对现在宾馆业的发展需求，在业务流程图的基础上，我们得到了数据流程图2：
2.3.2数据词典
系统数据词典（DD－DateDictionary）是描述数据流程图中所有数据流、数据存储、处理功能等卡片的集合。
数据词典提供一个可定义的不依赖于应用程序的存储区域，用于创建扩展的属性集和描述数据的内容与外观。
其内容包括四种条目:
数据流，数据元素、数据存储和数据加工。
建立完善的数据词典是对所整理数据的一种分析归档方式，为下一步建立数据库和处理数据做准备。
在系统分析阶段，数据词典有着重要的作用，它包含着系统的详细信息。
一般来说，系统分析人员应把不便于在数据流程图上注明而系统分析应该获得，对整个系统开发以至将来系统运行与维护时必需的信息尽可能放入数据词典。
数据词典：
“数据元素”条目
数据元素是数据流组成的最小单位，是无法再细分的数据流。
它直接反应事物的某一特征。
其描述需要以下信息：
数据元素名、类型、长度、取值范围、相关的数据元素及数据结构。
数据元素
系统名：
宾馆客房管理编号：
条目名：
标准编号别名：
属于数据流：
客房信息
存储处：
客房档案
数据元素结构：
代码类型取值范围
字符000000----999999
（由数字组成的字符串）
简要说明：
客房都有唯一的编号。
修改记录：
编写
Xxx
日期
2008年6月
审核
xxx
“数据存储”条目
数据存储是数据结构保存的地方。
一个数据存储词条应有以下几项内容：
数据存储名、简述、输入数据、输出数据、数据存储组织、记录数、记录组成。
数据存储
D3
定房表别名：
存储组织
每个预订客房一条记录
记录数:
约20
主关键字:
服务编号
记录组成:
项名:
订房编号顾客姓名客房编号入住日期结算日期
长度66828
简要说明:
第三章系统软件设计
3.1系统功能模块设计图
3.2数据库设计
针对一般宾馆管理信息系统的需求，通过对宾馆管理工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：
1客房标准信息，包括的数据项有：
标准编号，标准名称，房间面积，床位数量，住房单价，是否有空调，电视，电话，单独卫生间等。
2客房信息，表格的数据项有：
客房编号，客房种类，客房位置，客房单价，备注等。
3订房信息，包括的数据项有：
订房编号，客房编号，客房种类，客房位置，客房备注信息，顾客姓名，顾客身份证号码，入住时间，折扣，备注等。
4结算信息，包括的数据项有：
订房编号，客房编号，客房种类，客房位置，客房备注信息，顾客姓名，顾客身份证号码，入住时间，折扣，结算时间，备注等。
由此可以设计宾馆管理信息系统顶层图和宾馆管理信息系统关联图（E-R图）。
3.2.1客房标准信息表roomtype
列名
数据类型
可否为空
说明
typeid
varchar
NOTNULL
标准编号
typename
标准名称
area
numeric
NULL
房间面积
bednum
床位数量
haircondition
是否有空调
htelephone
是否有电话
htelevision
是否有电视
htoilet
是否有独立卫生间
price
单价
3.2.2客房信息表rooms
roomno
客房编号
roomtype
客房种类
roomposition
客房位置
roomprice
putup
是否被预定
roommemo
text
备注
3.2.3订房信息表booking
bookno
订房编号
customname
顾客姓名
customid
身份证号码
indate
入住日期
discount
折扣
inmemo
checkdate
datetime
结算日期
ammount
金额
第四章系统详细设计及实现
经过系统分析,有关数据库结构的所有后台工作已经完成。
现在将通过宾馆管理信息系统中各个功能模块的实现，讲解如何使用VisualBasic来编写数据库系统的客户端程序。
4.1宾馆系统Hotel-MIS工程项目的创建
启动VisualBasic后，单击FileNewProject菜单，在工程模板中选择StandsardEXE,VisualBasic将自动产生一个Form窗体，属性都是缺省设置。
这里我们删除这个窗体，单击FileSaveProject菜单，将这个工程项目命名为Hotel—MIS。
4.2宾馆管理信息系统主窗体设计
这个项目我们使用多文档界面，单击VB软件工具栏中ADDMDIForm按钮，生成一个窗体，在这个窗体上添加所有的控件，创建好的窗体如下:
4.3公用模块设计
在VisualBasic中可以用公用模块来存放整个工程项目公用的函数，过程和全局变量等。
这样可以极大的提高代码的效率。
在项目资源管理器中为项目添加一个Module，保存为Modulebas。
下面就可以开始添加需要的代码了。
由于系统中各个功能模块都将频繁使用数据库中的各个数据，因此需要一个公用的数据操作函数，用以执行各种SQL语句。
ExecuteSQL函数有两个参数：
SQL和MsgString。
其中SQL用来存放需要执行的SQL语句，MsgString用来返回执行的提示信息。
函数执行时，首先判断SQL语句中包含的内容，当执行查询操作时，ExecuteSQL函数将返回一个与函数同名的记录集对象（Recordset），所有满足条件的记录包含在对象中，当执行如删除、更新、添加等操作时，不返回记录集对象。
在ExecuteSQL函数中使用了ConnectString函数，这个函数用来连接数据库
4.4用户管理模块设计与实现
用户管理模块主要实现：
1用户登录。
2添加用户。
3修改用户密码。
4.4.1用户登陆设计与实现
用户登录窗体中放置了二个文本框（TextBox），用来输入用户名和用户密码：
二个按钮（CommandButton）用来确定或者取消登录：
三个标签（Label）用来标示窗体的信息系统启动后，将首先出现如下图，用户首先输入用户名，然后输入密码。
如果用户3次输入密码不正确，将退出程序。
用户如果没有输入用户名和用户密码，将出现消息框提示，如果输入的用户名在用户表中没有找到，将提示重新输入用户名，文本框txtusername将重新获得输入焦点。
如果用户输入的密码不正确，文本框txtpassword将重新获得输入焦点。
用户登录成功，全局变量ok将被赋值为true。
一旦三次输入密码均不正确，全局变量ok将被赋值为false。
公用模块中的main（）过程将根据ok的值来决定是退出，还是进入系统。
4.4.2添加用户设计与实现
进入系统后，选择菜单“系统|添加用户”，就可以添加用户，出现添加用户的窗体在这个窗体中放置了二个文本框，用来输入密码和确认密码，二个按钮用来确定是否修改密码，二个标签用来标示文本框的内容，
一旦输入完毕，系统将首先查询数据库中与新建用户名相同的记录，如果有相同记录将提示用户重新输入用户名。
当确定数据库中没有相同的用户名，并且二次输入密码一致时，将把该条记录添加到数据库中。
4.4.3修改密码设计与实现
在这个窗体中放置了二个文本框，用来输入密码和确认密码，二个按钮按钮用来确定是否修改密码，二个标签用来标示文本框的内容,如下图,
4.5客房标准管理模块设计与实现
宾馆在运行中需要设置不同的客房标准来适应不同消费水平顾客的需要。
对于每个客房标准，有不同的硬件设施和服务。
客房标准管理模块主要实现如下功能：
1添加客房标准。
2修改客房标准。
3删除客房标准。
4.5.1添加客房标准模块设计与实现
在窗体放置多个文本框，用来输入客房标准基本信息，多个下拉式文本框选择不同的硬件设施；
两个按钮用来确定是否添加客房标准信息；
多个标签用来提示文本框中需要输入的内容,如下图:
OptionExplicit
'
是否改动过记录，ture为改过
DimmblChangeAsBoolean
DimmrcAsADODB.Recordset
PublictxtSQLAsString
PrivateSubcboItem_Change（IndexAsInteger）
'
有变化设置gblchange
mblChange=True
EndSub
PrivateSubcboItem_Click（IndexAsInteger）
DimsSqlAsString
DimMsgTextAsString
DimmrccAsADODB.Recordset
初始化员工名称和ID
IfIndex=0Then
txtSQL="
selecttypename,pricefromroomtypewheretypename='
"
&
Trim（cboItem（0））&
"
Setmrcc=ExecuteSQL（txtSQL,MsgText）
IfNotmrcc.EOFThen
txtItem
（2）=mrcc!
cmdSave.Enabled=True
Else
MsgBox"
请先建立客房标准！
vbOKOnly+vbExclamation,"
警告"
cmdSave.Enabled=False
ExitSub
EndIf
mrcc.Close
PrivateSubcboItem_KeyDown（IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger）
EnterToTabKeyCode
PrivateSubcmdExit_Click（）
IfmblChangeAndcmdSave.EnabledThen
IfMsgBox（"
保存当前记录的变化吗？
vbOKCancel+vbExclamation,"
）=vbOKThen
保存
CallcmdSave_Click
UnloadMe
PrivateSubcmdSave_Click（）
DimintCountAsInteger
DimsMegAsString
ForintCount=0To3
IfTrim（txtItem（intCount）&
）="
Then
SelectCaseintCount
Case0
sMeg="
客房编号"
Case1
客房位置"
EndSelect
sMeg=sMeg&
不能为空！
MsgBoxsMeg,vbOKOnly+vbExclamation,"
txtItem（intCount）.SetFocus
NextintCount
IfgintRmode=1Then
select*fromroomswhereroomNO='
Trim（txtItem（0））&
Setmrc=ExecuteSQL（txtSQL,MsgText）
Ifmrc.EOF=FalseThen
已经存在此客房编号的记录！
txtItem（0）.SetFocus
mrc.Close
IfgintRmode=2Then
先删除已有记录
deletefromroomswhereroomNO='
再加入新记录
select*fromrooms"
mrc.AddNew
mrc.Fields（0）=Trim（txtItem（0））
mrc.Fields
（1）=Trim（cboItem（0））
ForintCount=1To2
mrc.Fields（intCount+1）=Null
mrc.Fields（intCount+1）=Trim（txtItem（intCount））
mrc.Fields（4）="
mrc.Fields（5）=Trim（txtItem（3））
mrc.Update
txtItem（intCount）="
mblChange=False
IfflagReditThen
UnloadfrmRoom
frmRoom.txtSQL="
frmRoom.Show
ElseIfgintRmode=2Then
PrivateSubForm_Load（）
Me.Caption=Me.Caption&
添加"
初始化物资名称
selectDISTINCTtypenamefromroomtype"
IfNotmrc.EOFThen
DoWhileNotmrc.EOF
cboItem（0）.AddItemTrim（mrc.Fields（0））
mrc.MoveNext
Loop
cboItem（0）.ListIndex=0
请先进行客房标准设置！
Ifmrcc.EOF=FalseThen
Withmrcc
txtItem（0）=.Fields（0）
IfNotIsNull（.
升级会员 