管理信息系统mis宾馆管理系统Word文档下载推荐.docx

1、2.1系统的可行性分析从宾馆的具体情况出发，经过多方面调研、讨论，本宾馆客房管理信息系统，从技术上，经济上，管理上均已具备实施的基本条件。2.1.1技术可行性Win2000/NT/XP操作系统的稳定性，安全性可满足用户的要求。后台的数据库使用ACCESS 2000，开发工具微软公司的VISUAL BASIC6.0, 具有良好的升级潜力和可维护性。这些软件在大型MIS开发中已被大量应用，技术上都比较成熟,可根据用户需要，十分方便的增减模块，直观的图形用户界面，简洁的操作流程，无须专业电脑知识即可迅速上手。因此技术上是可行的。2.1.2经济可行性费用：本系统要求的计算机配置并不高（奔腾II及以上处

2、理器。64M内存及以上，硬盘空间100M以上），设备的安装调试工作简单，PB软件的价格不高，操作简单，对用户进行少量的培训工作就可以使用户熟练的使用本系统，因而培训费用较低。收益：宾馆前台使用本系统后，提高了核对效能，相对的差错也大大减少；即工作人员的工作效率大大提高了，工作时间大大节省了，从而间接为宾馆创造了可观的经济效益，减少管理费用的支出，避免了不必要的人工错误；还提高了工作人员的素质，有利于管理方式与体制的合理改革，保证宾馆客房管理的可持续发展。因而在经济上是可行的。2.1.3.管理可行性建立管理信息系统是行业发展的必然要求，宾馆领导对科技的管理非常重视。使管理和业务流程信息化，是管理

3、信息现代化的第一步。而员工对此更是表现出极大的热情和期望。因为该系统的实施将很大程度上降低他们的手工作业量，还会减少他们在工作上的失误，提高工作效率。因此，本系统在管理上是可行的。2.2详细调查开发本系统的要求来自对原传统管理模式的不满，不管是手工系统还是正在运行的计算机系统。由于存在的问题充斥各个方面，内容分散,甚至含糊不清，这就要求我们进行详细分析，并在原管理模式的基础上提出系统开发方案。本系统是一个虚拟的管理信息系统，不存在原运行系统。业务流程分析是对业务功能分析的进一步细化，业务流程分析的结果是给出业务流程图。业务流程图反映了实际的业务活动。它不仅是系统分析人员进行更深入系统分析的依据

4、,而且也是系统分析人员，管理人员，业务操作人员，系统设计人员进行沟通的工具。可以直接在业务流程图上拟出能够由计算机实现的部分，明确系统的边界，使计算机处理与人工业务处理的接口清晰，分析组织的业务流程是否合理，删除重复的，不合理的环节，明确整个业务流程,为以后的分析与设计打下良好的基础。因此，为了能够反映宾馆内部各部门之间的联系程度,其主要业务和他们在业务过程中所承担的工作,根据宾馆客房管理的特点和宾馆的实际情况，宾馆的业务流程图如图1所示:通过现行业务流程图对现行系统进行分析，客人流量多，需要的服务多，致使管理的过程不好控制，效率不高。我们通过计算机来实现前台操作员的一些业务，让电脑来代为运作

5、，可以提高效率，减轻人的工作量。我们系统的工作就是把传统的管理模式换为人机交互操作，从上图分析可以明确系统的边界，把不必要的人工操作从系统中删除。首先我们可以在电脑上实现房态的查询，了解房间的占用情况，这样可为工作人员减少查询的时间，提高管理的效率。另外，客人可以预定房间也可以临时住宿，当客人预定房间后，可根据其预定的房间号入住，这样就为客人避免了来到本地临时找住处的麻烦，为客人节省了时间，提高了工作效率，同时也为宾馆带来了一定的经济效益。如果客人为散客，到前台进行登记，即可入住。提高了宾馆的管理效率，使得宾馆的组织结构向着扁平化方向发展，用最少的人力物力作尽可能多的工作。2.3系统逻辑方案的

6、提出2.3.1数据流程图数据流程分析是数据和数据流程分析工作的最后一步，该工作是对系统中的数据进行输入输出、存储、传递、转换等分析。数据流程分析的结果是给出数据流程图。数据流程图是描述系统逻辑模型的主要工具，我们采取结构化分析的方法绘制数据流程图。针对现在宾馆业的发展需求，在业务流程图的基础上，我们得到了数据流程图2：2.3.2数据词典系统数据词典（DDDate Dictionary）是描述数据流程图中所有数据流、数据存储、处理功能等卡片的集合。数据词典提供一个可定义的不依赖于应用程序的存储区域，用于创建扩展的属性集和描述数据的内容与外观。其内容包括四种条目:数据流，数据元素、数据存储和数据加

7、工。建立完善的数据词典是对所整理数据的一种分析归档方式，为下一步建立数据库和处理数据做准备。在系统分析阶段，数据词典有着重要的作用，它包含着系统的详细信息。一般来说，系统分析人员应把不便于在数据流程图上注明而系统分析应该获得，对整个系统开发以至将来系统运行与维护时必需的信息尽可能放入数据词典。数据词典：“数据元素”条目数据元素是数据流组成的最小单位，是无法再细分的数据流。它直接反应事物的某一特征。其描述需要以下信息：数据元素名、类型、长度、取值范围、相关的数据元素及数据结构。 数据元素系统名： 宾馆客房管理 编号：条目名： 标准编号 别名：属于数据流：客房信息存储处：客房档案 数据元素结构：代

8、码类型 取值范围字符 000000-999999（由数字组成的字符串）简要说明：客房都有唯一的编号。修改记录：编写Xxx日期2008年6月审核xxx“数据存储”条目数据存储是数据结构保存的地方。一个数据存储词条应有以下几项内容：数据存储名、简述、输入数据、输出数据、数据存储组织、记录数、记录组成。 数据存储D3 定房表 别名：存储组织每个预订客房一条记录记录数:约20主关键字:服务编号记录组成:项名: 订房编号 顾客姓名 客房编号 入住日期 结算日期长度 6 6 8 2 8简要说明:第三章 系统软件设计3.1系统功能模块设计图 3.2数据库设计针对一般宾馆管理信息系统的需求，通过对宾馆管理工作

9、过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：1客房标准信息，包括的数据项有：标准编号，标准名称，房间面积，床位数量，住房单价，是否有空调，电视，电话，单独卫生间等。2客房信息，表格的数据项有：客房编号，客房种类，客房位置，客房单价，备注等。3订房信息，包括的数据项有：订房编号，客房编号，客房种类，客房位置，客房备注信息，顾客姓名，顾客身份证号码，入住时间，折扣，备注等。4结算信息，包括的数据项有：订房编号，客房编号，客房种类，客房位置，客房备注信息，顾客姓名，顾客身份证号码，入住时间，折扣，结算时间，备注等。由此可以设计宾馆管理信息系统顶层图和宾馆管理信息系统关联图（E-R图）

10、。3.2.1 客房标准信息表 roomtype列名数据类型可否为空说明typeid varcharNOT NULL标准编号typename标准名称areanumericNULL房间面积bednum床位数量haircondition是否有空调htelephone是否有电话htelevision是否有电视htoilet是否有独立卫生间price单价3.2.2 客房信息表 roomsroomno客房编号roomtype客房种类roomposition客房位置roompriceputup是否被预定roommemotext备注3.2.3 订房信息表 bookingbookno订房编号customname

11、顾客姓名customid身份证号码indate入住日期discount折扣inmemocheckdatedatetime结算日期ammount金额第四章 系统详细设计及实现经过系统分析,有关数据库结构的所有后台工作已经完成。现在将通过宾馆管理信息系统中各个功能模块的实现，讲解如何使用Visual Basic来编写数据库系统的客户端程序。4.1 宾馆系统Hotel-MIS工程项目的创建 启动Visual Basic后，单击FileNew Project菜单，在工程模板中选择Standsard EXE,Visual Basic将自动产生一个Form窗体，属性都是缺省设置。这里我们删除这个窗体，单击

12、FileSaveProject菜单，将这个工程项目命名为HotelMIS。4.2宾馆管理信息系统主窗体设计这个项目我们使用多文档界面，单击VB软件工具栏中ADD MDI Form按钮，生成一个窗体，在这个窗体上添加所有的控件，创建好的窗体如下:4.3公用模块设计 在Visual Basic中可以用公用模块来存放整个工程项目公用的函数，过程和全局变量等。这样可以极大的提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Module bas。下面就可以开始添加需要的代码了。由于系统中各个功能模块都将频繁使用数据库中的各个数据，因此需要一个公用的数据操作函数，用以执行各种SQL语句。

13、ExecuteSQL函数有两个参数：SQL和MsgString。其中SQL用来存放需要执行的SQL语句，MsgString用来返回执行的提示信息。函数执行时，首先判断SQL语句中包含的内容，当执行查询操作时，ExecuteSQL函数将返回一个与函数同名的记录集对象（Recordset），所有满足条件的记录包含在对象中，当执行如删除、更新、添加等操作时，不返回记录集对象。在ExecuteSQL函数中使用了ConnectString函数，这个函数用来连接数据库 4.4 用户管理模块设计与实现 用户管理模块主要实现：1 用户登录。2 添加用户。3 修改用户密码。4.4 .1 用户登陆设计与实现 用户

14、登录窗体中放置了二个文本框（TextBox），用来输入用户名和用户密码：二个按钮（CommandButton）用来确定或者取消登录：三个标签（Label）用来标示窗体的信息系统启动后，将首先出现如下图，用户首先输入用户名，然后输入密码。如果用户3次输入密码不正确，将退出程序。用户如果没有输入用户名和用户密码，将出现消息框提示，如果输入的用户名在用户表中没有找到，将提示重新输入用户名，文本框txtusername将重新获得输入焦点。如果用户输入的密码不正确，文本框txtpassword将重新获得输入焦点。用户登录成功，全局变量ok将被赋值为true。一旦三次输入密码均不正确，全局变量ok将被赋值

15、为false。公用模块中的main（）过程将根据ok的值来决定是退出，还是进入系统。4.4 .2 添加用户设计与实现 进入系统后，选择菜单“系统|添加用户”，就可以添加用户，出现添加用户的窗体在这个窗体中放置了二个文本框，用来输入密码和确认密码，二个按钮用来确定是否修改密码，二个标签用来标示文本框的内容， 一旦输入完毕，系统将首先查询数据库中与新建用户名相同的记录，如果有相同记录将提示用户重新输入用户名。当确定数据库中没有相同的用户名，并且二次输入密码一致时，将把该条记录添加到数据库中。4.4 .3 修改密码设计与实现 在这个窗体中放置了二个文本框，用来输入密码和确认密码，二个按钮按钮用来确定

16、是否修改密码，二个标签用来标示文本框的内容,如下图,4.5 客房标准管理模块设计与实现 宾馆在运行中需要设置不同的客房标准来适应不同消费水平顾客的需要。对于每个客房标准，有不同的硬件设施和服务。客房标准管理模块主要实现如下功能： 1添加客房标准。2修改客房标准。 3 删除客房标准。4.5.1添加客房标准模块设计与实现 在窗体放置多个文本框，用来输入客房标准基本信息，多个下拉式文本框选择不同的硬件设施；两个按钮用来确定是否添加客房标准信息；多个标签用来提示文本框中需要输入的内容 ,如下图:Option Explicit是否改动过记录，ture为改过Dim mblChange As Boolean

17、Dim mrc As ADODB.RecordsetPublic txtSQL As StringPrivate Sub cboItem_Change（Index As Integer） 有变化设置gblchange mblChange = TrueEnd SubPrivate Sub cboItem_Click（Index As Integer） Dim sSql As String Dim MsgText As String Dim mrcc As ADODB.Recordset初始化员工名称和ID If Index = 0 Then txtSQL = select typename,pr

18、ice from roomtype where typename= & Trim（cboItem（0） & Set mrcc = ExecuteSQL（txtSQL, MsgText） If Not mrcc.EOF Then txtItem（2） = mrcc! cmdSave.Enabled = True Else MsgBox 请先建立客房标准！, vbOKOnly + vbExclamation, 警告 cmdSave.Enabled = False Exit Sub End If mrcc.ClosePrivate Sub cboItem_KeyDown（Index As Integ

19、er, KeyCode As Integer, Shift As Integer） EnterToTab KeyCodePrivate Sub cmdExit_Click（） If mblChange And cmdSave.Enabled Then If MsgBox（保存当前记录的变化吗？, vbOKCancel + vbExclamation, ） = vbOK Then保存 Call cmdSave_Click Unload MePrivate Sub cmdSave_Click（） Dim intCount As Integer Dim sMeg As String For intC

20、ount = 0 To 3 If Trim（txtItem（intCount） &） = Then Select Case intCount Case 0 sMeg = 客房编号 Case 1客房位置 End Select sMeg = sMeg &不能为空！ MsgBox sMeg, vbOKOnly + vbExclamation, txtItem（intCount）.SetFocus Next intCount If gintRmode = 1 Thenselect * from rooms where roomNO= Trim（txtItem（0） & Set mrc = Execut

21、eSQL（txtSQL, MsgText） If mrc.EOF = False Then已经存在此客房编号的记录！ txtItem（0）.SetFocus mrc.Close If gintRmode = 2 Then先删除已有记录delete from rooms where roomNO=再加入新记录select * from rooms mrc.AddNew mrc.Fields（0） = Trim（txtItem（0） mrc.Fields（1） = Trim（cboItem（0） For intCount = 1 To 2 mrc.Fields（intCount + 1） = Nu

22、ll mrc.Fields（intCount + 1） = Trim（txtItem（intCount） mrc.Fields（4） = mrc.Fields（5） = Trim（txtItem（3） mrc.Update txtItem（intCount） = mblChange = False If flagRedit Then Unload frmRoom frmRoom.txtSQL = frmRoom.Show ElseIf gintRmode = 2 ThenPrivate Sub Form_Load（） Me.Caption = Me.Caption &添加初始化物资名称select DISTINCT typename from roomtype If Not mrc.EOF Then Do While Not mrc.EOF cboItem（0）.AddItem Trim（mrc.Fields（0） mrc.MoveNext Loop cboItem（0）.ListIndex = 0请先进行客房标准设置！ If mrcc.EOF = False Then With mrcc txtItem（0） = .Fields（0） If Not IsNull（.