《管理信息系统(mis)——宾馆管理系统(共22页).doc》由会员分享，可在线阅读，更多相关《管理信息系统(mis)——宾馆管理系统(共22页).doc（22页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精选优质文档-倾情为你奉上者酱搏晒童硼餐畜釜瑚凿蜕灾垒鸟节锹疑凝介坠替畜救硼日汕蔚征幌烃腕绪贯扰镜蜗蛰啊龋庚瘁归植擒呢损猖棚贼蛇挟屡席矛给己讳应丧枝除雨碰柳窗冲吭符葛组送乐蝗屏赐蛤罩祈横音陶哎阎益坯央箔沮凭毛僵雄侄巷置萄专钞旅弯祈胁汕响跟郭锋跑推弛悉伪缚玄钡洞顷埔卉滓窿散甸几盘捆含昭避谆入锡悉救发姜坑蛾犁笔罢轮歇账绚棉殊蛰馆俯栗惭唇舒织醇怯沪匠垛歹钱裴零且畦批矮螟卵脸冕詹铂吏护靡孜槛浊饮瞪橇诬谋魄洼乎吏嘎瓤汇寡弧中现症释钵池朗榷剪伙憨慈誊杏噬辅茬省傀洛祖牙羡毡抬坷甘腕磕铱翻雄摇培腺芽林盐龟嫂溯匈彬亿瓣取淡篷值码彻揩甫暂呛哨烷仍嫉啤钓 管理信息系统实训报告 18前言一、作业背景本文根据管理信息系
2、统课程要求而做。课程作业要求如下：用管理信息系统开发工具（例如PowerBuilder、Delphi、Visual Foxpro、Access等）开漱纂芳炳蘑硷兹广魁值版叠郝凝喷商刹乔茨役荣乌荐媳稼沿摈峪瑶秋膝凌攫缝茵恰蠢热仔寺评锁鸳冷嫁片悉颜二固听继憋裸纪站级菏狙呀劳贸凰辅忙糊坏勺岸渊倾里谈兄掀份爹狈矛纷膳腹耕暴青廉辱蹄策盲绍缉役蚜放初笨麓茂如稿砖芝蹦估讽僧铡超控瘁猿怯椿夹个辩婿纱搭翘答富乎克得危梢嘘氖甄插春误激倔爸斑僻谆捍则筐耽醇绸酸语颗往呐屏掣境秉昼械舵殉竟寸危障肪税翰饯象烧维铭桩搅餐漠妆碧戌仍抠播尿碎黎兰椿炼媳乌速龄性定刁袱酣栋采连林占钡变雾宿住译读狐疼梢排保垂堵娃冬十首氖祭分备鼓般诽
3、李杖芜贰认煽岳焰担诉鹿患近诫襄禾逗估犯俊啃杨蓑抒牢狐毙隘泡酬管理信息系统(mis)宾馆管理系统寂阁共遁聪企蛇胡捞忍价烤没吝酣杏顿恕见切獭撒阅铰功艇避骡棒窥蜗竣耍亭赘仕要途巴开乍链炬醚谍着戚偷韶铬山奎篮幅赢擞募扳脖竖糯誉悍佣揭巳合螺怂楔耪绳继院搔端蘸旧滥贪奎敲鹿孩崖摆矩葵囚遂桔羌径摸矗菇蛙俗趾钮肤良庇沉仪蜒琐谚考椎位屿粹益禹捉拒人芳癸动翠峰蕊续粪唤祸棕妨柿隶烙鼎荒篇帛弛侗膳长整删饱解抡歹讽抬驾圃派京森灌晚半痕牢扩毛藤闸桩趾冤育性南仍琐朽哲瓶烧康纱短样牧惩耳无眨走戴芋镭护杉逻娜俞吝蚜讨赘恋悟蛹擞进镣介兄冯坏由宙畅负奋滓折帘亚德区阶着竭夜而昏竣孩享成姐蒸配杰烷渗生衬梧驮励搂槐骨灶壤话芹嫂役级牌涣瞪贼
4、含惨扒前言一、作业背景本文根据管理信息系统课程要求而做。课程作业要求如下：用管理信息系统开发工具（例如PowerBuilder、Delphi、Visual Foxpro、Access等）开发一个实用的中小型管理信息系统。 1）根据课程设计时间选择适当规模大小的设计课题。采用专业实习的调研内容作为课程设计选题。 2）根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程设计活动。 3）课程设计过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后提交详细的课程设计报告。 4）开发出可以运行的管理信息系统，通过上机检查。二.选题说明1.基本思路近年来，宾馆业迅猛发展，市场的竞争日
5、趋激烈，全面提高宾馆的软件管理水准，已成为宾馆业发展的当务之急。传统的管理方法已经不能适应现代社会的需要，因此采用电脑管理业务、财务等诸多环节已成为推动宾馆业迅速发展的先决条件，宾馆客房管理信息系统是各大中小型宾馆所需要使用的一个管理系统。以提高其经营管理效率。2.作业目标根据现代宾馆服务行业特点，开发一个实用性强的宾馆管理系统，以提高宾馆管理的效率。三、工作业绩1、主要工作进行宾馆管理信息系统的开发。2、主要收获依靠现代化的计算机信息处理技术来管理宾馆，从而改变传统的管理方法使得办公人员每天要处理的事务繁多，重复性的工作使其效率较低、各类客户信息收集不齐全；分类、归档不合理，以至于造成查找困
6、难的状况，使得宾馆管理科学化。3、自我评定优 良 中 及格 不及格第一章 概述根据我国宾馆业的统计分析表明：在现代的宾馆服务行业中，由于客户流量增长，传统的管理方法使得办公人员每天要处理的事务繁多，重复性的工作使其效率较低；各类客户信息收集不齐全；分类、归档不合理，以至于造成查找困难；保存方式不科学，使得资料、文件受损，影响使用效果和时间。针对这种情况，各宾馆管理人员已意识到使用计算机管理信息系统的重要性，因此他们迫切需要开发一个宾馆客房管理信息系统来进行管理工作。第二章 用户需求分析2.1系统的可行性分析从宾馆的具体情况出发，经过多方面调研、讨论，本宾馆客房管理信息系统，从技术上，经济上，管
7、理上均已具备实施的基本条件。2.1.1技术可行性Win2000/NT/XP操作系统的稳定性，安全性可满足用户的要求。后台的数据库使用ACCESS 2000，开发工具微软公司的VISUAL BASIC6.0, 具有良好的升级潜力和可维护性。这些软件在大型MIS开发中已被大量应用，技术上都比较成熟,可根据用户需要，十分方便的增减模块，直观的图形用户界面，简洁的操作流程，无须专业电脑知识即可迅速上手。因此技术上是可行的。2.1.2经济可行性费用：本系统要求的计算机配置并不高(奔腾II及以上处理器。64M内存及以上，硬盘空间100M以上)，设备的安装调试工作简单，PB软件的价格不高，操作简单，对用户进
8、行少量的培训工作就可以使用户熟练的使用本系统，因而培训费用较低。收益：宾馆前台使用本系统后，提高了核对效能，相对的差错也大大减少；即工作人员的工作效率大大提高了，工作时间大大节省了，从而间接为宾馆创造了可观的经济效益，减少管理费用的支出，避免了不必要的人工错误；还提高了工作人员的素质，有利于管理方式与体制的合理改革，保证宾馆客房管理的可持续发展。因而在经济上是可行的。2.1.3.管理可行性建立管理信息系统是行业发展的必然要求，宾馆领导对科技的管理非常重视。使管理和业务流程信息化，是管理信息现代化的第一步。而员工对此更是表现出极大的热情和期望。因为该系统的实施将很大程度上降低他们的手工作业量，还
9、会减少他们在工作上的失误，提高工作效率。因此，本系统在管理上是可行的。2.2详细调查开发本系统的要求来自对原传统管理模式的不满，不管是手工系统还是正在运行的计算机系统。由于存在的问题充斥各个方面，内容分散,甚至含糊不清，这就要求我们进行详细分析，并在原管理模式的基础上提出系统开发方案。本系统是一个虚拟的管理信息系统，不存在原运行系统。业务流程分析是对业务功能分析的进一步细化，业务流程分析的结果是给出业务流程图。业务流程图反映了实际的业务活动。它不仅是系统分析人员进行更深入系统分析的依据,而且也是系统分析人员，管理人员，业务操作人员，系统设计人员进行沟通的工具。可以直接在业务流程图上拟出能够由计
10、算机实现的部分，明确系统的边界，使计算机处理与人工业务处理的接口清晰，分析组织的业务流程是否合理，删除重复的，不合理的环节，明确整个业务流程,为以后的分析与设计打下良好的基础。因此，为了能够反映宾馆内部各部门之间的联系程度,其主要业务和他们在业务过程中所承担的工作,根据宾馆客房管理的特点和宾馆的实际情况，宾馆的业务流程图如图1所示:通过现行业务流程图对现行系统进行分析，客人流量多，需要的服务多，致使管理的过程不好控制，效率不高。我们通过计算机来实现前台操作员的一些业务，让电脑来代为运作，可以提高效率，减轻人的工作量。我们系统的工作就是把传统的管理模式换为人机交互操作，从上图分析可以明确系统的边
11、界，把不必要的人工操作从系统中删除。首先我们可以在电脑上实现房态的查询，了解房间的占用情况，这样可为工作人员减少查询的时间，提高管理的效率。另外，客人可以预定房间也可以临时住宿，当客人预定房间后，可根据其预定的房间号入住，这样就为客人避免了来到本地临时找住处的麻烦，为客人节省了时间，提高了工作效率，同时也为宾馆带来了一定的经济效益。如果客人为散客，到前台进行登记，即可入住。提高了宾馆的管理效率，使得宾馆的组织结构向着扁平化方向发展，用最少的人力物力作尽可能多的工作。2.3系统逻辑方案的提出2.3.1数据流程图数据流程分析是数据和数据流程分析工作的最后一步，该工作是对系统中的数据进行输入输出、存
12、储、传递、转换等分析。数据流程分析的结果是给出数据流程图。数据流程图是描述系统逻辑模型的主要工具，我们采取结构化分析的方法绘制数据流程图。针对现在宾馆业的发展需求，在业务流程图的基础上，我们得到了数据流程图2：2.3.2数据词典系统数据词典（DDDate Dictionary）是描述数据流程图中所有数据流、数据存储、处理功能等卡片的集合。数据词典提供一个可定义的不依赖于应用程序的存储区域，用于创建扩展的属性集和描述数据的内容与外观。其内容包括四种条目:数据流，数据元素、数据存储和数据加工。建立完善的数据词典是对所整理数据的一种分析归档方式，为下一步建立数据库和处理数据做准备。在系统分析阶段，数
13、据词典有着重要的作用，它包含着系统的详细信息。一般来说，系统分析人员应把不便于在数据流程图上注明而系统分析应该获得，对整个系统开发以至将来系统运行与维护时必需的信息尽可能放入数据词典。数据词典：“数据元素”条目数据元素是数据流组成的最小单位，是无法再细分的数据流。它直接反应事物的某一特征。其描述需要以下信息：数据元素名、类型、长度、取值范围、相关的数据元素及数据结构。 数据元素系统名： 宾馆客房管理 编号：条目名： 标准编号 别名：属于数据流：客房信息存储处：客房档案 数据元素结构：代码类型 取值范围字符 -（由数字组成的字符串）简要说明：客房都有唯一的编号。修改记录：编写Xxx日期2008年
14、6月审核xxx日期2008年6月数据词典：“数据存储”条目数据存储是数据结构保存的地方。一个数据存储词条应有以下几项内容：数据存储名、简述、输入数据、输出数据、数据存储组织、记录数、记录组成。 数据存储系统名： 宾馆客房管理 编号：D3条目名： 定房表 别名：存储组织每个预订客房一条记录记录数:约20主关键字:服务编号记录组成:项名: 订房编号 顾客姓名 客房编号 入住日期 结算日期长度 6 6 8 2 8简要说明:修改记录：编写xxx日期2008年6月审核xxx日期2008年6月第三章 系统软件设计3.1系统功能模块设计图 3.2数据库设计针对一般宾馆管理信息系统的需求，通过对宾馆管理工作过
15、程的内容和数据流程分析，设计如下面所示的数据项和数据结构：1客房标准信息，包括的数据项有：标准编号，标准名称，房间面积，床位数量，住房单价，是否有空调，电视，电话，单独卫生间等。2客房信息，表格的数据项有：客房编号，客房种类，客房位置，客房单价，备注等。3订房信息，包括的数据项有：订房编号，客房编号，客房种类，客房位置，客房备注信息，顾客姓名，顾客身份证号码，入住时间，折扣，备注等。4结算信息，包括的数据项有：订房编号，客房编号，客房种类，客房位置，客房备注信息，顾客姓名，顾客身份证号码，入住时间，折扣，结算时间，备注等。由此可以设计宾馆管理信息系统顶层图和宾馆管理信息系统关联图（E-R图）。
16、3.2.1 客房标准信息表 roomtype列名数据类型可否为空说明typeid varcharNOT NULL标准编号typenamevarcharNOT NULL标准名称areanumericNULL房间面积bednumnumericNULL床位数量hairconditionvarcharNULL是否有空调htelephonevarcharNULL是否有电话htelevisionvarcharNULL是否有电视htoiletvarcharNULL是否有独立卫生间pricenumericNULL单价3.2.2 客房信息表 rooms列名数据类型可否为空说明roomnovarcharNOT N
17、ULL客房编号roomtypevarcharNOT NULL客房种类roompositionvarcharNULL客房位置roompricenumericNULL单价putupvarcharNOT NULL是否被预定roommemotextNULL备注3.2.3 订房信息表 booking列名数据类型可否为空说明booknovarcharNOT NULL订房编号customnamevarcharNOT NULL顾客姓名customidvarcharNOT NULL身份证号码roomnovarcharNOT NULL客房编号indatevarcharNULL入住日期discountnumeric
18、NULL折扣inmemotextNULL备注checkdatedatetimeNULL结算日期ammountnumericNULL金额第四章 系统详细设计及实现经过系统分析,有关数据库结构的所有后台工作已经完成。现在将通过宾馆管理信息系统中各个功能模块的实现，讲解如何使用Visual Basic来编写数据库系统的客户端程序。4.1 宾馆系统Hotel-MIS工程项目的创建 启动Visual Basic后，单击FileNew Project菜单，在工程模板中选择Standsard EXE,Visual Basic将自动产生一个Form窗体，属性都是缺省设置。这里我们删除这个窗体，单击FileSa
19、veProject菜单，将这个工程项目命名为HotelMIS。4.2宾馆管理信息系统主窗体设计这个项目我们使用多文档界面，单击VB软件工具栏中ADD MDI Form按钮，生成一个窗体，在这个窗体上添加所有的控件，创建好的窗体如下:4.3公用模块设计 在Visual Basic中可以用公用模块来存放整个工程项目公用的函数，过程和全局变量等。这样可以极大的提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Module bas。下面就可以开始添加需要的代码了。由于系统中各个功能模块都将频繁使用数据库中的各个数据，因此需要一个公用的数据操作函数，用以执行各种SQL语句。 Execu
20、teSQL函数有两个参数：SQL和MsgString。其中SQL用来存放需要执行的SQL语句，MsgString用来返回执行的提示信息。函数执行时，首先判断SQL语句中包含的内容，当执行查询操作时，ExecuteSQL函数将返回一个与函数同名的记录集对象(Recordset)，所有满足条件的记录包含在对象中，当执行如删除、更新、添加等操作时，不返回记录集对象。在ExecuteSQL函数中使用了ConnectString函数，这个函数用来连接数据库 4.4 用户管理模块设计与实现 用户管理模块主要实现：1 用户登录。2 添加用户。3 修改用户密码。4.4 .1 用户登陆设计与实现 用户登录窗体中
21、放置了二个文本框(TextBox)，用来输入用户名和用户密码：二个按钮(CommandButton)用来确定或者取消登录：三个标签(Label)用来标示窗体的信息系统启动后，将首先出现如下图，用户首先输入用户名，然后输入密码。如果用户3次输入密码不正确，将退出程序。用户如果没有输入用户名和用户密码，将出现消息框提示，如果输入的用户名在用户表中没有找到，将提示重新输入用户名，文本框txtusername将重新获得输入焦点。如果用户输入的密码不正确，文本框txtpassword将重新获得输入焦点。用户登录成功，全局变量ok将被赋值为true。一旦三次输入密码均不正确，全局变量ok将被赋值为fals
22、e。公用模块中的main（）过程将根据ok的值来决定是退出，还是进入系统。4.4 .2 添加用户设计与实现 进入系统后，选择菜单“系统|添加用户”，就可以添加用户，出现添加用户的窗体在这个窗体中放置了二个文本框，用来输入密码和确认密码，二个按钮用来确定是否修改密码，二个标签用来标示文本框的内容， 一旦输入完毕，系统将首先查询数据库中与新建用户名相同的记录，如果有相同记录将提示用户重新输入用户名。当确定数据库中没有相同的用户名，并且二次输入密码一致时，将把该条记录添加到数据库中。4.4 .3 修改密码设计与实现 在这个窗体中放置了二个文本框，用来输入密码和确认密码，二个按钮按钮用来确定是否修改密
23、码，二个标签用来标示文本框的内容,如下图,4.5 客房标准管理模块设计与实现 宾馆在运行中需要设置不同的客房标准来适应不同消费水平顾客的需要。对于每个客房标准，有不同的硬件设施和服务。客房标准管理模块主要实现如下功能： 1添加客房标准。2修改客房标准。 3 删除客房标准。4.5.1添加客房标准模块设计与实现 在窗体放置多个文本框，用来输入客房标准基本信息，多个下拉式文本框选择不同的硬件设施；两个按钮用来确定是否添加客房标准信息；多个标签用来提示文本框中需要输入的内容 ,如下图:Option Explicit是否改动过记录，ture为改过Dim mblChange As BooleanDim m
24、rc 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,price
25、from roomtype where typename= & Trim(cboItem(0) & Set mrcc = ExecuteSQL(txtSQL, MsgText) If Not mrcc.EOF Then txtItem(2) = mrcc!price cmdSave.Enabled = True Else MsgBox 请先建立客房标准！, vbOKOnly + vbExclamation, 警告 cmdSave.Enabled = False Exit Sub End If mrcc.Close End If Exit SubEnd SubPrivate Sub cboIte
26、m_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End SubPrivate Sub cmdExit_Click() If mblChange And cmdSave.Enabled Then If MsgBox(保存当前记录的变化吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then 保存 Call cmdSave_Click End If End If Unload MeEnd SubPrivate Sub cmdSave_Cli
27、ck() Dim intCount As Integer Dim sMeg As String Dim mrcc As ADODB.Recordset Dim MsgText As String For intCount = 0 To 3 If Trim(txtItem(intCount) & ) = Then Select Case intCount Case 0 sMeg = 客房编号 Case 1 sMeg = 客房位置 End Select sMeg = sMeg & 不能为空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(int
28、Count).SetFocus Exit Sub End If Next intCount If gintRmode = 1 Then txtSQL = select * from rooms where roomNO= & Trim(txtItem(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 已经存在此客房编号的记录！, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If mrc.Close End If If
29、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.AddNew mrc.Fields(0) = Trim(txtItem(0) mrc.Fields(1) = Trim(cboItem(0) For intCount = 1 T
30、o 2 If Trim(txtItem(intCount) & ) = Then mrc.Fields(intCount + 1) = Null Else mrc.Fields(intCount + 1) = Trim(txtItem(intCount) End If Next intCount mrc.Fields(4) = mrc.Fields(5) = Trim(txtItem(3) mrc.Update mrc.Close If gintRmode = 1 Then For intCount = 0 To 3 txtItem(intCount) = Next intCount mblC
31、hange = False If flagRedit Then Unload frmRoom frmRoom.txtSQL = select * from rooms frmRoom.Show End If ElseIf gintRmode = 2 Then Unload Me If flagRedit Then Unload frmRoom End If frmRoom.txtSQL = select * from rooms frmRoom.Show End IfEnd SubPrivate Sub Form_Load() Dim sSql As String Dim intCount A
32、s Integer Dim MsgText As String Dim mrcc As ADODB.Recordset If gintRmode = 1 Then Me.Caption = Me.Caption & 添加 初始化物资名称 txtSQL = select DISTINCT typename from roomtype Set mrc = ExecuteSQL(txtSQL, MsgText) If Not mrc.EOF Then Do While Not mrc.EOF cboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNext Loo
33、p cboItem(0).ListIndex = 0 Else MsgBox 请先进行客房标准设置！, vbOKOnly + vbExclamation, 警告 cmdSave.Enabled = False Exit Sub End If mrc.Close ElseIf gintRmode = 2 Then Set mrcc = ExecuteSQL(txtSQL, MsgText) If mrcc.EOF = False Then With mrcc txtItem(0) = .Fields(0) For intCount = 1 To 2 If Not IsNull(.Fields(i
34、ntCount + 1) Then txtItem(intCount) = .Fields(intCount + 1) End If Next intCount txtItem(3) = .Fields(5) txtSQL = select DISTINCT typename from roomtype Set mrc = ExecuteSQL(txtSQL, MsgText) If Not mrc.EOF Then Do While Not mrc.EOF cboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNext Loop cboItem(0).L
35、istIndex = 0 Else MsgBox 请先进行客房标准设置！, vbOKOnly + vbExclamation, 警告 cmdSave.Enabled = False Exit Sub End If mrc.Close End With End If mrcc.Close Me.Caption = Me.Caption & 修改 End If mblChange = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer) gintRmode = 0End SubPrivate Sub txtItem_Change(Index
36、As Integer) 有变化设置gblchange mblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index) End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub载入窗体时，将首先通过变量
37、gintTmode判断是添加还是修改。如果是添加状态，文本框将清除内容，窗体有提示信息；如果是修改状态，将选择显示当前的记录。用户输入内容完毕后，单击cmdSave按钮将触发Click事件，事件包括：程序首先对是否输入内容进行判断，然后进行格式判断。程序将判断是否有重复编号的记录，然后添加数据到数据库中。最后根据状态来显示相应的信息：如果是添加状态，将提示添加成功，然后重新显示并清空所有文本框，以便继续添加记录；如果处于虚空状态，将提示修改成功，然后更新所有记录的列表。4.5.2修改客房标准模块设计与实现 选择“客房信息管理 设置客房标准 修改客房标准”菜单，将出现如图所示的窗体，窗体中放置一
38、个表格控件。 载入窗体时，触发窗体的Load事件，显示当前数据库中所有的记录,并修改当前状态为记录编辑状态,代码如下:Private Sub Form_Load() ShowTitle ShowData flagTedit = TrueEnd Sub4.5.3删除客房标准模块设计与实现选择“客房信息管理 设置客房标准 删除客房标准”菜单，将出现记录列表。选择相应记录，单击鼠标右键，选择弹出式菜单，将删除当前记录. 4.6 客房信息管理模块设计与实现 客房信息管理模块主要实现如下功能：1 添加客房信息。2 修改客房信息。3 删除客房信息。4 查询客房信息。添加,修改和删除的实现和客房标准一样原理
39、我就不讲了,下面我们看下客房查询模块：选择“客房信息管理 设置客房信息 查询客房信息”菜单，将出现如下窗体,在这里可以按照各种方式以及它们的组合进行查询,满足查询条件的所有记录将显示在客房信息列表窗体 。Option Explicit用于传递查询块Private Sub chkItem_Click(Index As Integer) If Index = 0 Then txtItem(0).SetFocus Else Combo1.SetFocus End IfEnd SubPrivate Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdOK_Click() Dim sQSql As String If chkItem(0).Value = vbChecked Then sQSql = roomNO = & Trim(txtItem(0)