管理信息系统mis——宾馆管理系统

管理信息系统实训报告 1前言一、作业背景本文根据管理信息系统课程要求而做。课程作业要求如下：用管理信息系统开发工具（例如 PowerBuilder、Delphi、Visual Foxpro、Access 等）开发一个实用的中小型管理信息系统。 1）根据课程设计时间选择适当规模大小的设计课题。采用专业实习的调研内容作为课程设计选题。 2）根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程设计活动。 3）课程设计过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后提交详细的课程设计报告。 4）开发出可以运行的管理信息系统，通过上机检查。二.选题说明1.基本思路近年来，宾馆业迅猛发展，市场的竞争日趋激烈，全面提高宾馆的软件管理水准，已成为宾馆业发展的当务之急。传统的管理方法已经不能适应现代社会的需要，因此采用电脑管理业务、财务等诸多环节已成为推动宾馆业迅速发展的先决条件，宾馆客房管理信息系统是各大中小型宾馆所需要使用的一个管理系统。以提高其经营管理效率。2.作业目标根据现代宾馆服务行业特点，开发一个实用性强的宾馆管理系统，以提高宾馆管理的效率。三、工作业绩1、主要工作管理信息系统实训报告 2进行宾馆管理信息系统的开发。2、主要收获依靠现代化的计算机信息处理技术来管理宾馆，从而改变传统的管理方法使得办公人员每天要处理的事务繁多，重复性的工作使其效率较低、各类客户信息收集不齐全；分类、归档不合理，以至于造成查找困难的状况，使得宾馆管理科学化。3、自我评定优 良 中 及格 不及格第一章 概述根据我国宾馆业的统计分析表明：在现代的宾馆服务行业中，由于客户流量增长，传统的管理方法使得办公人员每天要处理的事务繁多，重复性的工作使其效率较低；各类客户信息收集不齐全；分类、归档不合理，以至于造成查找困难；保存方式不科学，使得资料、文件受损，影响使用效果和时间。针对这种情况，各宾馆管理人员已意识到使用计算机管理信息系统的重要性，因此他们迫切需要开发一个宾馆客房管理信息系统来进行管理工作。管理信息系统实训报告 3第二章 用户需求分析2.1 系统的可行性分析从宾馆的具体情况出发，经过多方面调研、讨论，本宾馆客房管理信息系统，从技术上，经济上，管理上均已具备实施的基本条件。2.1.1 技术可行性Win2000/NT/XP 操作系统的稳定性，安全性可满足用户的要求。后台的数据库使用 ACCESS 2000，开发工具微软公司的 VISUAL BASIC6.0, 具有良好的升级潜力和可维护性。这些软件在大型 MIS 开发中已被大量应用，技术上都比较成熟,可根据用户需要，十分方便的增减模块，直观的图形用户界面，简洁的操作流程，无须专业电脑知识即可迅速上手。因此技术上是可行的。2.1.2 经济可行性费用：本系统要求的计算机配置并不高(奔腾 II 及以上处理器。64M 内存及以上，硬盘空间 100M 以上)，设备的安装调试工作简单，PB 软件的价格不高，操作简单，对用户进行少量的培训工作就可以使用户熟练的使用本系统，因而培训费用较低。收益：宾馆前台使用本系统后，提高了核对效能，相对的差错也大大减少；即工作人员的工作效率大大提高了，工作时间大大节省了，从而间接为宾馆创造了可观的经济效益，减少管理费用的支出，避免了不必要的人工错误；还提高了工作人员的素质，有利于管理方式与体制的合理改革，保证宾馆客房管理的可持续发展。因而在经济上是可行的。2.1.3.管理可行性建立管理信息系统是行业发展的必然要求，宾馆领导对科技的管理非常重视。使管理和业务流程信息化，是管理信息现代化的第一步。而员工对此更是表现出极大的热情和期望。因为该系统的实施将很大程度上降低他们的手工作业量，还会减少他们在工作上的失误，提高工作效率。因此，本系统在管理上是可行的。2.2 详细调查开发本系统的要求来自对原传统管理模式的不满，不管是手工系统还是正在运行的计算机系统。由于存在的问题充斥各个方面，内容分散,甚至含糊不清，这就要求我们进行详细分析，并在原管理模式的基础上提出系统开发方案。本系统是一个虚拟的管理信息系统，不存在原运行系统。业务流程分析是对业务功能分析的进一步细化，业务流程分析的结果是给出业务流程图。业务流程图反映了实际的业务活动。它不仅是系统分析人员进行更深入系统分析的依据,而且也是系统分析人员，管理人员，业务操作人员，系统设计人员进行沟通的工具。可以直接在业务流程图上拟出能够由计算机实现的部分，明确系统的边界，使计算机处理与人工业务处理的接口清晰，分析组织的业务流程是否合理，删除重复的，不合理的环节，管理信息系统实训报告 4明确整个业务流程,为以后的分析与设计打下良好的基础。因此，为了能够反映宾馆内部各部门之间的联系程度,其主要业务和他们在业务过程中所承担的工作,根据宾馆客房管理的特点和宾馆的实际情况，宾馆的业务流程图如图 1 所示:通过现行业务流程图对现行系统进行分析，客人流量多，需要的服务多，致使管理的过程不好控制，效率不高。我们通过计算机来实现前台操作员的一些业务，让电脑来代为运作，可以提高效率，减轻人的工作量。我们系统的工作就是把传统的管理模式换为人机交互操作，从上图分析可以明确系统的边界，把不必要的人工操作从系统中删除。首先我们可以在电脑上实现房态的查询，了解房间的占用情况，这样可为工作人员减少查询的时间，提高管理的效率。另外，客人可以预定房间也可以临时住宿，当客人预定房间后，可根据其预定的房间号入住， ，这样就为客人避免了来到本地临时找住处的麻烦，为客人节省了时间，提高了工作效率，同时也为宾馆带来了一定的经济效益。如果客人为散客，到前台进行登记，即可入住。提高了宾馆的管理效率，使得宾馆的组织结构向着扁平化方向发展，用最少的人力物力作尽可能多的工作。管理信息系统实训报告 52.3 系统逻辑方案的提出2.3.1 数据流程图数据流程分析是数据和数据流程分析工作的最后一步，该工作是对系统中的数据进行输入输出、存储、传递、转换等分析。数据流程分析的结果是给出数据流程图。数据流程图是描述系统逻辑模型的主要工具，我们采取结构化分析的方法绘制数据流程图。针对现在宾馆业的发展需求，在业务流程图的基础上，我们得到了数据流程图 2：2.3.2 数据词典系统数据词典（DDDate Dictionary）是描述数据流程图中所有数据流、数据存储、处理功能等卡片的集合。数据词典提供一个可定义的不依赖于应用程序的存储区域，用于创建扩展的属性集和描述数据的内容与外观。其内容包括四种条目:数据流，数据元素、数据存储和数据加工。建立完善的数据词典是对所整理数据的一种分析归档方式，为下一步建立数据库和处理数据做准备。在系统分析阶段，数据词典有着重要的作用，它包含着系统的详细信息。一般来说，系统分析人员应把不便于在数据流程图上注明而系统分析应该获得，对整个系统开发以至将来系统运行与维护时必需的信息尽可能放入数据词典。管理信息系统实训报告 6数据词典：“数据元素”条目数据元素是数据流组成的最小单位，是无法再细分的数据流。它直接反应事物的某一特征。其描述需要以下信息：数据元素名、类型、长度、取值范围、相关的数据元素及数据结构。数据元素系统名： 宾馆客房管理 编号：条目名： 标准编号 别名：属于数据流：客房信息存储处：客房档案 数据元素结构：代码类型 取值范围字符 000000-999999（由数字组成的字符串）简要说明：客房都有唯一的编号。编写 Xxx 日期 2008 年 6 月修改记录：审核 xxx 日期 2008 年 6 月数据词典：“数据存储”条目数据存储是数据结构保存的地方。一个数据存储词条应有以下几项内容：数据存储名、简述、输入数据、输出数据、数据存储组织、记录数、记录组成。数据存储系统名： 宾馆客房管理 编号：D3条目名： 定房表 别名：存储组织每个预订客房一条记录记录数:约 20主关键字:服务编号记录组成:项名: 订房编号 顾客姓名 客房编号 入住日期 结算日期长度 6 6 8 2 8简要说明:编写 xxx 日期 2008 年 6 月修改记录：审核 xxx 日期 2008 年 6 月管理信息系统实训报告 7第三章 系统软件设计3.1 系统功能模块设计图3.2 数据库设计针对一般宾馆管理信息系统的需求，通过对宾馆管理工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：1 客房标准信息，包括的数据项有：标准编号，标准名称，房间面积，床位数量，住房单价，是否有空调，电视，电话，单独卫生间等。2 客房信息，表格的数据项有：客房编号，客房种类，客房位置，客房单价，备注等。3 订房信息，包括的数据项有：订房编号，客房编号，客房种类，客房位置，客房备注信息，顾客姓名，顾客身份证号码，入住时间，折扣，备注等。4 结算信息，包括的数据项有：订房编号，客房编号，客房种类，客房位置，客房备注信息，顾客姓名，顾客身份证号码，入住时间，折扣，结算时间，备注等。由此可以设计宾馆管理信息系统顶层图和宾馆管理信息系统关联图（E-R 图） 。管理信息系统实训报告 83.2.1 客房标准信息表 roomtype列名 数据类型 可否为空 说明typeid varchar NOT NULL 标准编号typename varchar NOT NULL 标准名称area numeric NULL 房间面积bednum numeric NULL 床位数量haircondition varchar NULL 是否有空调htelephone varchar NULL 是否有电话htelevision varchar NULL 是否有电视htoilet varchar NULL 是否有独立卫生间price numeric NULL 单价3.2.2 客房信息表 rooms列名 数据类型 可否为空 说明roomno varchar NOT NULL 客房编号roomtype varchar NOT NULL 客房种类roomposition varchar NULL 客房位置roomprice numeric NULL 单价putup varchar NOT NULL 是否被预定roommemo text NULL 备注管理信息系统实训报告 93.2.3 订房信息表 booking列名 数据类型 可否为空 说明bookno varchar NOT NULL 订房编号customname varchar NOT NULL 顾客姓名customid varchar NOT NULL 身份证号码roomno varchar NOT NULL 客房编号indate varchar NULL 入住日期discount numeric NULL 折扣inmemo text NULL 备注checkdate datetime NULL 结算日期ammount numeric NULL 金额第四章 系统详细设计及实现经过系统分析,有关数据库结构的所有后台工作已经完成。现在将通过宾馆管理信息系统中各个功能模块的实现，讲解如何使用 Visual Basic 来编写数据库系统的客户端程序。4.1 宾馆系统 Hotel-MIS 工程项目的创建启动 Visual Basic 后，单击 FileNew Project 菜单，在工程模板中选择 Standsard EXE,Visual Basic 将自动产生一个 Form 窗体，属性都是缺省设置。这里我们删除这个窗体，单击 FileSaveProject 菜单，将这个工程项目命名为 HotelMIS。4.2 宾馆管理信息系统主窗体设计这个项目我们使用多文档界面，单击 VB 软件工具栏中 ADD MDI Form 按钮，生成一个窗体，在这个窗体上添加所有的控件，创建好的窗体如下:管理信息系统实训报告 104.3 公用模块设计在 Visual Basic 中可以用公用模块来存放整个工程项目公用的函数，过程和全局变量等。这样可以极大的提高代码的效率。在项目资源管理器中为项目添加一个 Module，保存为 Module bas。下面就可以开始添加需要的代码了。由于系统中各个功能模块都将频繁使用数据库中的各个数据，因此需要一个公用的数据操作函数，用以执行各种 SQL 语句。 ExecuteSQL 函数有两个参数：SQL 和 MsgString。其中 SQL 用来存放需要执行的 SQL语句，MsgString 用来返回执行的提示信息。函数执行时，首先判断 SQL 语句中包含的内容，当执行查询操作时，ExecuteSQL 函数将返回一个与函数同名的记录集对象(Recordset)，所有满足条件的记录包含在对象中，当执行如删除、更新、添加等操作时，不返回记录集对象。在 ExecuteSQL 函数中使用了 ConnectString 函数，这个函数用来连接数据库 4.4 用户管理模块设计与实现用户管理模块主要实现：1 用户登录。2 添加用户。3 修改用户密码。4.4 .1 用户登陆设计与实现 用户登录窗体中放置了二个文本框(TextBox)，用来输入用户名和用户密码：二个按钮(CommandButton)用来确定或者取消登录：三个标签(Label)用来标示窗体的信息系统启动后，将首先出现如下图，用户首先输入用户名，然后输入密码。如果用户 3 次输入密码不正确，将退出程序。管理信息系统实训报告 11用户如果没有输入用户名和用户密码，将出现消息框提示，如果输入的用户名在用户表中没有找到，将提示重新输入用户名，文本框 txtusername 将重新获得输入焦点。如果用户输入的密码不正确，文本框 txtpassword 将重新获得输入焦点。用户登录成功，全局变量 ok 将被赋值为 true。一旦三次输入密码均不正确，全局变量 ok 将被赋值为 false。公用模块中的 main（）过程将根据 ok 的值来决定是退出，还是进入系统。4.4 .2 添加用户设计与实现 进入系统后，选择菜单“系统|添加用户”，就可以添加用户，出现添加用户的窗体在这个窗体中放置了二个文本框，用来输入密码和确认密码，二个按钮用来确定是否修改密码，二个标签用来标示文本框的内容， 一旦输入完毕，系统将首先查询数据库中与新建用户名相同的记录，如果有相同记录将提示用户重新输入用户名。当确定数据库中没有相同的用户名，并且二次输入密码一致时，将把该条记录添加到数据库中。4.4 .3 修改密码设计与实现 在这个窗体中放置了二个文本框，用来输入密码和确认密码，二个按钮按钮用来确定是否修改密码，二个标签用来标示文本框的内容,如下图,管理信息系统实训报告 124.5 客房标准管理模块设计与实现宾馆在运行中需要设置不同的客房标准来适应不同消费水平顾客的需要。对于每个客房标准，有不同的硬件设施和服务。客房标准管理模块主要实现如下功能： 1 添加客房标准。2 修改客房标准。 3 删除客房标准。4.5.1 添加客房标准模块设计与实现 在窗体放置多个文本框，用来输入客房标准基本信息，多个下拉式文本框选择不同的硬件设施；两个按钮用来确定是否添加客房标准信息；多个标签用来提示文本框中需要输入的内容 ,如下图:Option Explicit是否改动过记录，ture 为改过Dim mblChange As BooleanDim mrc As ADODB.RecordsetPublic txtSQL As StringPrivate Sub cboItem_Change(Index As Integer)有变化设置 gblchangemblChange = TrueEnd SubPrivate Sub cboItem_Click(Index As Integer)Dim sSql As StringDim MsgText As String管理信息系统实训报告 13Dim mrcc As ADODB.Recordset初始化员工名称和 IDIf Index = 0 ThentxtSQL = “select typename,price from roomtype where typename=“ & Trim(cboItem(0) & “Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not mrcc.EOF ThentxtItem(2) = mrcc!pricecmdSave.Enabled = TrueElseMsgBox “请先建立客房标准！“, vbOKOnly + vbExclamation, “警告“cmdSave.Enabled = FalseExit SubEnd Ifmrcc.CloseEnd IfExit SubEnd SubPrivate Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)EnterToTab KeyCodeEnd SubPrivate Sub cmdExit_Click()If mblChange And cmdSave.Enabled ThenIf MsgBox(“保存当前记录的变化吗？“, vbOKCancel + vbExclamation, “警告“) = vbOK Then保存Call cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub cmdSave_Click()Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim MsgText As StringFor intCount = 0 To 3If Trim(txtItem(intCount) & “ “) = “ Then管理信息系统实训报告 14Select Case intCountCase 0sMeg = “客房编号“Case 1sMeg = “客房位置“End SelectsMeg = sMeg & “不能为空！“MsgBox sMeg, vbOKOnly + vbExclamation, “警告“txtItem(intCount).SetFocusExit SubEnd IfNext intCountIf gintRmode = 1 ThentxtSQL = “select * from rooms where roomNO=“ & Trim(txtItem(0) & “Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox “已经存在此客房编号的记录！“, vbOKOnly + vbExclamation, “警告“txtItem(0).SetFocusExit SubEnd Ifmrc.CloseEnd IfIf gintRmode = 2 Then先删除已有记录txtSQL = “delete from rooms where roomNO=“ & Trim(txtItem(0) & “Set mrc = ExecuteSQL(txtSQL, MsgText)End If再加入新记录txtSQL = “select * from rooms“Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(txtItem(0)mrc.Fields(1) = Trim(cboItem(0)For intCount = 1 To 2If Trim(txtItem(intCount) & “ “) = “ Thenmrc.Fields(intCount + 1) = NullElsemrc.Fields(intCount + 1) = Trim(txtItem(intCount)End IfNext intCountmrc.Fields(4) = “ “管理信息系统实训报告 15mrc.Fields(5) = Trim(txtItem(3)mrc.Updatemrc.CloseIf gintRmode = 1 ThenFor intCount = 0 To 3txtItem(intCount) = “Next intCountmblChange = FalseIf flagRedit ThenUnload frmRoomfrmRoom.txtSQL = “select * from rooms“frmRoom.ShowEnd IfElseIf gintRmode = 2 ThenUnload MeIf flagRedit ThenUnload frmRoomEnd IffrmRoom.txtSQL = “select * from rooms“frmRoom.ShowEnd IfEnd SubPrivate Sub Form_Load()Dim sSql As StringDim intCount As IntegerDim MsgText As StringDim mrcc As ADODB.RecordsetIf gintRmode = 1 ThenMe.Caption = Me.Caption & “添加“初始化物资名称txtSQL = “select DISTINCT typename from roomtype“Set mrc = ExecuteSQL(txtSQL, MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc.Fields(0)mrc.MoveNextLoopcboItem(0).ListIndex = 0ElseMsgBox “请先进行客房标准设置！“, vbOKOnly + vbExclamation, “警告“管理信息系统实训报告 16cmdSave.Enabled = FalseExit SubEnd Ifmrc.CloseElseIf gintRmode = 2 ThenSet mrcc = ExecuteSQL(txtSQL, MsgText)If mrcc.EOF = False ThenWith mrcctxtItem(0) = .Fields(0)For intCount = 1 To 2If Not IsNull(.Fields(intCount + 1) ThentxtItem(intCount) = .Fields(intCount + 1)End IfNext intCounttxtItem(3) = .Fields(5)txtSQL = “select DISTINCT typename from roomtype“Set mrc = ExecuteSQL(txtSQL, MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc.Fields(0)mrc.MoveNextLoopcboItem(0).ListIndex = 0ElseMsgBox “请先进行客房标准设置！“, vbOKOnly + vbExclamation, “警告“cmdSave.Enabled = FalseExit SubEnd Ifmrc.CloseEnd WithEnd Ifmrcc.CloseMe.Caption = Me.Caption & “修改“End IfmblChange = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)gintRmode = 0管理信息系统实训报告 17End SubPrivate Sub txtItem_Change(Index As Integer)有变化设置 gblchangemblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index)End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)EnterToTab KeyCodeEnd Sub载入窗体时，将首先通过变量 gintTmode 判断是添加还是修改。如果是添加状态，文本框将清除内容，窗体有提示信息；如果是修改状态，将选择显示当前的记录。用户输入内容完毕后，单击 cmdSave 按钮将触发 Click 事件，事件包括：程序首先对是否输入内容进行判断，然后进行格式判断。程序将判断是否有重复编号的记录，然后添加数据到数据库中。最后根据状态来显示相应的信息：如果是添加状态，将提示添加成功，然后重新显示并清空所有文本框，以便继续添加记录；如果处于虚空状态，将提示修改成功，然后更新所有记录的列表。4.5.2 修改客房标准模块设计与实现 选择“客房信息管理 设置客房标准 修改客房标准”菜单，将出现如图所示的窗体，窗体中放置一个表格控件。载入窗体时，触发窗体的 Load 事件，显示当前数据库中所有的记录,并修改当前状态为记录编辑状态,代码如下:Private Sub Form_Load()ShowTitleShowData管理信息系统实训报告 18flagTedit = TrueEnd Sub4.5.3 删除客房标准模块设计与实现选择“客房信息管理 设置客房标准 删除客房标准”菜单，将出现记录列表。选择相应记录，单击鼠标右键，选择弹出式菜单，将删除当前记录.4.6 客房信息管理模块设计与实现客房信息管理模块主要实现如下功能：1 添加客房信息。 2 修改客房信息。3 删除客房信息。4 查询客房信息。添加,修改和删除的实现和客房标准一样原理我就不讲了,下面我们看下客房查询模块：选择“客房信息管理 设置客房信息 查询客房信息”菜单，将出现如下窗体,在这里可以按照各种方式以及它们的组合进行查询,满足查询条件的所有记录将显示在客房信息列表窗体 。Option Explicit用于传递查询块Private Sub chkItem_Click(Index As Integer)If Index = 0 ThentxtItem(0).SetFocusElseCombo1.SetFocusEnd IfEnd SubPrivate Sub cmdExit_Click()Me.HideEnd SubPrivate Sub cmdOK_Click()Dim sQSql As StringIf chkItem(0).Value = vbChecked ThensQSql = “ roomNO = “ & Trim(txtItem(0) & “ “) & “管理信息系统实训报告 19End IfIf chkItem(1).Value = vbChecked ThenIf Trim(sQSql & “ “) = “ ThensQSql = “ roomtype =“ & Trim(Combo1 & “ “) & “ElsesQSql = sQSql & “ and roomtype =“ & Trim(Combo1 & “ “) & “End IfEnd IfIf Trim(sQSql) = “ ThenMsgBox “请设置查询条件！“, vb