酒店管理系统-计算机毕业论文

1、酒店管理系统摘要酒店管理信息系统可以在面对强大的信息量时轻松管理，减少管理中的物力和人力，有利于酒店提高工作效率和酒店效益。面对海量的信息，酒店在正常运营中需要对客房资源、客户信息和结算信息进行管理，并利用酒店管理信息系统及时掌握各个环节信息的变化，有利于提高管理的效率。系统可以实现信息的规范管理，需要统计和快速查询，从而减少管理工作量。使用Visual Basic 6.0编写程序，建立数据库的系统开发至关重要。本课题数据库为SQL Server2000，通过建立数据源、VB和后台数据库连接进行操作。本文从操作简单、界面友好、灵活、实用、安全的要求出发。它完成的主要功能如下：1）系统部分：主要

2、完成安全权限。2）房间信息管理部分：主要完成房间信息和房间标准信息的查询和修改的管理。3）预订信息管理部分：主要完成预订信息查询、修改等管理和剩余房间信息查询管理。4) 结算信息管理部分：主要完成结算信息的查询、修改和添加。论文主要介绍了本课题的开发背景、要完成的功能以及开发过程。阐述了系统设计的要点、设计思路、难点技术和解决方案。关键词：数据库、Visual Basic 6.0 、SQL Server2000、客房信息管理摘 要酒店管理信息系统面向信息量大、管理可轻。减少管理中的物力和人力，帮助酒店提高工作效率和酒店效益。采用VB6。 0程序来写，在系统开发中建立数据库是必不可少的，本次SQ

3、L Server2000，通过建立数据源，后台VB数据库来加入运行本文从操作简单、界面友好、灵活实用、安全性高的需求出发，它完成的主要功能有以下几个方面：1 )系统部分：完成保险柜的主要权限。2 ）客房信息管理板块：完成客房信息的查询、修改、客房标准信息等。以管理为主。3 )客房信息管理部分：完成客房管理和剩余信息查询的管理，如信息的查询、修改等。以订房为主。4）结算信息管理板块：完成结算信息的查询、修改、添加等。主要是。本论文主要介绍了本课题的发展背景、功能发展乃至完成所要的课程。重点论证系统设计的重点、系统的设计理念、难点技术及解决方案。关键词：数据库、Visual Basic 6.0、S

4、QL server 2000、客房管理信息系统.目录 TOC o 1-3 h z u HYPERLINK l _Toc101496609 摘要 PAGEREF _Toc101496609 h 我 HYPERLINK l _Toc101496610 摘要 PAGEREF _Toc101496610 h 二概述系统设计2.1 系统功能分析2.2 系统功能模块分析第三章 数据库设计与实现3.1 数据库需求分析3.2 数据库概念结构设计3.3 数据库逻辑结构设计3.4 创建数据库和数据表3.5 SQL Sserver2000设置和Visual Basic设置第四章酒店客房管理系统的建立4.1 酒店客房

5、管理系统主窗口的创建4.1.1 创建工程项目-Hotel-MIS4.1.2 创建酒店客房管理系统的主要形式4.1.3 创建主窗体的菜单4.1.4 创建通用模块4.2 系统用户管理模式的创建4.2.1 创建用户登录表单4.2.2 添加用户表单的创建4.2.3 创建修改用户密码表单4.3 房间标准管理模块的创建4.3.1 添加客房的标准表格的创建4.3.2 修改客房标准表格的创建4.3.3 删除房间标准4.4 客房信息管理模块的创建4.4.1 添加创建房间信息表单4.4.2 修改房间信息4.4.3 删除房间信息4.4.4 查询房间信息4.5 预约信息管理模块的创建4.5.1 创建剩余房间信息查询表

6、格4.5.2 添加预约信息4.5.3 修改预订信息4.5.4 查询预约信息4.6 结算信息管理模块的创建4.6.1 添加计费信息表的创建4.6.2 修改结算信息4.6.3 查询结算信息第五章 制度实施第六章结论至参考附录一、简介1.1 提问随着人员流动规模的不断扩大和房间数量的急剧增加，有关房间管理的各种信息量也呈指数级增长。面对海量的信息，需要有一套酒店收费管理系统来提高客房管理的效率。传统的人工房间信息管理繁琐复杂，效率低，容易出错。通过这样的系统，可以实现信息的定期管理和快速查询，实现客房信息管理的系统化、规范化和自动化，既减轻了管理工作量，又提高了管理效率，降低了管理成本。我父亲正在努

7、力经营他自己创建的酒店。我也多次参与酒店的工作。酒店管理系统的必要性非常明确。也希望自己写的程序能减轻爸爸一点工作压力。 .1.2 本文研究路线本文的研究框架如下图1.1所示，体现了以下研究思路：熟悉数据查询开发环境话题研究外形设计功能模块开发数据测试系统运行系统集成应用程序包装图 1.1：本文的研究框架二、MIS研究概况2.1 管理信息系统的发展历程信息作为生产力中最活跃的因素，很早就在人类经济生活中发挥了不可替代的作用，但直到1950年代后期计算机发明后，信息才被纳入企业管理系统进行高效处理和应用。1980年代后期，随着计算机网络和通信技术的蓬勃发展，企业管理信息系统进入了网络化发展时期。

8、世界发达国家已经建立了完善、先进的管理信息系统，在其社会经济发展中发挥着巨大的作用。中国管理信息系统的大发展是在1980年代末和90年代初。国家先后建立了“金卡”、“金通”、“金桥”工程，大部分企事业单位建立了局域网和广域网管理信息系统。世界经济和我国经济正在逐步走向知识经济，无论是基于工业经济的管理信息系统，还是少数专家和管理者的专家系统（ ES ）或决策支持系统（ DSS） ，其处理对象和服务对象，其自身的体系结构和处理能力得到了进一步发展。2.2 MIS的特点2.2.1 管理信息系统的组成管理信息系统在企业中的应用包括人、计算机和数据三要素。人是指企业领导、管理人员、技术人员，以及管理信

9、息系统建设的领导机构和实施机构，他们在系统中发挥主导作用。 MIS是一个系统工程，仅靠一些计算机开发人员是无法完成的。它必须有企业管理者，尤其是企业领导者的积极参与。计算机技术是MIS（管理信息系统）实施的主要技术。在这些技术中，软件开发是MIS开发的重点。第三个因素也不容忽视。企业的管理数据是MIS正常运行的基础。从广义上讲，各种管理制度是MIS成功建设的基础。如果要计算一台机床的成本，就需要按时录入每个零部件、每个零件、每个螺钉和螺母的成本，这涉及到机床的生产车间、采购、仓库、工艺设计和财务等部门。企业。有一整套的管理制度来保证。2.2.2 管理信息系统界面特点在计算机软件技术中，人机界面

10、已经发展成为一个重要的分支。 MIS人机界面设计一般遵循以下基本原则：1.以通讯功能为核心的界面设计人机界面设计的关键是实现人机之间准确的信息交换。一方面，人们应该尽量采取自然的方式向计算机输入信息；另外，不要将部门的处理和处理与人机界面混在一起（人机界面程序只是通信），以免相互干扰，影响速度。在设计MIS时，对于每一个功能，都要遵循模块化的思想，使输入、处理、输出“分明”，充分体现了人机界面的通信功能。以这种方式设计的程序不易出错且更易于维护。报表打印是MIS的必备功能之一，打印前往往需要进行计算。计算和打印是分开设计的，虽然费时，但是整个MIS系统维护起来很方便。2.接口必须始终保持一致统

11、一的人机界面不会增加用户的负担，让用户始终以相同的方式思考和操作。最忌讳的是为每个屏幕用户更改一套操作命令和操作方法。例如，可以用问号图标表示整个系统的帮助，用磁盘图标表示保存，用打印机图标表示打印。3.界面必须让用户随时了解任务的进度HMI 应该能够告诉用户软件是如何运行的。尤其是在等待时间较长的情况下，更要让用户知道工作的进度，比如可以设计一个完成百分之几的任务的进度条。目前，无论Windows下的应用软件大小，几乎所有的安装程序都做到了这一点。这是开发MIS软件时值得借鉴的。4. 用户友好的界面。便于使用大多数MIS软件都有大量的数据输入。对于一些相对固定的数据，不应该让用户频繁输入（尤

12、其是汉字），而应该用鼠标轻松选择。比如人事管理系统中的“学历”是比较固定的数据，一般取值为“小学”、“初中”、“高中”、“大专”、“大书” 、“硕士研究”、“博士研究”“等等。在输入这类数据之前，MIS软件应该在相应位置弹出一个列表框，等待用户用鼠标点击，而不是让用户输入每次都是这些汉字。综上所述，开发的MIS应尽量减少用户的数据输入，减少用户在使用过程中的干预。实践证明，用户干预越少，MIS系统的满意度就越高。2.3 管理信息系统的开发方法管理信息系统的开发方式主要有自主开发方式、委托开发方式、合作开发方式、购买现成软件等。这四种开发方式各有优缺点，需要根据用户的技术实力、资金情况、外部环境

13、等多种因素综合考虑选择。无论采用何种开放方式，都要让单位领导和业务人员参与进来，在管理信息系统的整个开发过程中培养、锻炼和加强系统的维护队伍。2.4 管理信息系统的开发过程管理信息系统的开发过程一般包括系统开发准备、系统调查、系统分析、系统设计、系统实施、系统转换、系统运行维护、系统评价等步骤。根据开发系统的规模、复杂程度、投资、方法、方法等因素，每一步的要求和内容也不同，用户需要根据实际情况进行选择和规划。3、酒店收费管理系统分析与设计3.1 酒店收费管理系统功能需求介绍酒店收费管理系统在加强酒店客房信息管理方面发挥着极其重要的作用。对于一个拥有大量房间的酒店来说，其设计内容是非常复杂和繁多

14、的，比如房间信息管理、入住信息管理、预订信息管理等。等功能方面，设计了很多模块，如信息统计模块、报表设计模块、打印输出模块、模糊查询模块等。由于该软件主要是为一家小型酒店开发的，针对酒店客房信息管理的实际工作，我们经过反复论证，最终确定了酒店收费管理系统的设计方案。酒店收费管理系统的主要功能如下表所示（见表3.1）：功能模块功能列表房屋登记功能添加、删除和修改客户信息。房间管理功能您可以添加和编辑房间信息，或按房间号搜索客户查询功能可根据房号、国籍、入住日期、离店日期等查询客户信息。表3.1 ：酒店收费管理系统主要功能表3.2 功能需求描述3.2.1 房屋登记功能该功能实现对客户信息的管理。该

15、功能可以添加、删除和修改客户信息。客户信息包括注册客户的登记，登记内容包括房号、性别、年龄、国籍、房间等级、入住天数、入住日期、离开日期等。3.2.2 客房管理功能该功能实现对房间信息的管理。该功能可以添加、删除、修改房间信息，可以根据房间号查询房间信息。房间信息主要包括房间号、房间等级以及是否入住。3.2.3 客户查询功能该功能实现了客户信息的查询。经理可以根据房间号、国籍、入住日期或离开日期查询客户信息。查询的信息包括房号、性别、年龄、国籍、房间等级、入住天数、入住日期、离店日期。日期等系统功能模块图如图3.1所示系统主界面系统主界面住房登记客房管理客户登记客户登记客户编辑客户删除客房增加

16、客房编辑客房删除客房查询按国籍查询按离店日期查询按房号查询按XX查询按住店日期查询图 3.1 功能框图3.3 目标系统要求目标系统应满足以下要求：1.时间经济。优化逻辑设计和物理设计，使系统高效运行，快速响应。2. 可靠性。能够连续准确地处理业务，容错能力强。3. 可理解性。用户易于理解和使用该系统。4、可维护性和适应性。该系统应易于修改、扩展和维护，并能够适应业务不断变化的需求。5. 可用性。目标系统功能齐全，完全可以满足业务需求。6. 安全。确保系统的物理安全、数据存储和访问的安全、数据传输的安全，做好用户的授权管理。3.4 系统平台选择在选择微软平台作为主导平台时，一方面考虑到微软的快速

17、发展，越来越多的企业在规划网络时将微软平台作为首选方案；另一方面，从技术角度来看，微软平台上的应用在开发方面，软件部署非常容易，性能也比较优越。操作系统： Windows 98数据库是： MS Access 2000开发工具和语言： Visual Basic 6.0 中文版3.5 数据库设计在设计数据库系统时，首先要充分了解用户各方面的需求，包括现有的和未来可能增加的需求。数据库设计一般包括以下步骤：1. 数据库需求分析。2. 数据库概念结构设计。3.数据库概念结构设计。3.5.1 数据库需求分析用户的需求体现在各种信息的提供、保存、更新和查询等方面，这就要求数据库结构能够充分满足各种信息的输

18、出和输入。收集基本数据、数据结构和数据处理的过程。形成详细的数据字典，为以后的具体设计打下基础。在仔细分析和调查酒店客房信息需求的基础上，得到该系统处理的数据流如图3.2所示。客房标准设置客房标准设置基本信息录入基本信息录入客房登记客房登记基本信息录入客房标准信息管理基本信息录入客房标准信息管理顾客登记顾客登记客房信息管理客房信息管理订房信息输入订房信息管理结算信息输入结算信息管理订房信息输入订房信息管理结算信息输入结算信息管理基本信息返回根据一般酒店客房管理系统的要求，通过对酒店客房管理工作流程的内容和数据流的分析，设计如下所示的数据项和数据结构：1、房间标准信息，包括数据项：标准号、标准名

19、称、房间面积、床位数，房子的单价，是否有空调，电视，独立卫生间等。2、房间信息，包括数据来源：房号、房型、房间设置、房间单价、备注等3. 预订信息，包括数据项：预订号、房号、房型、房间位置、房间备注、顾客、顾客、入住时间、折扣、备注等。4. 结算信息，包括数据项：预订号、房间号、房型、房间位置、客房备注信息、顾客、顾客、入住时间、折扣、结算时间、备注等有了上面的数据结构、数据项和数据流，我们就可以进行如下的数据库设计。3.5.2 数据概念结构设计获得上述数据项和数据结构后，就可以设计出各种能够满足用户需求的实体，与它们之间的关系可以为后续的逻辑结构设计奠定基础。本方案按上述设计规划的实体为：房

20、标信息实体、客房信息实体、预订信息实体、结算信息实体。每个实体ER图的具体描述如下。房间标准信息实体的ER图如图3.3所示。客房标准信息实体客房标准信息实体客房单价客房单价标准编号标准编号床位数量床位数量标准名称标准名称图 3.3 房间标准信息实体房间信息实体的ER图如图3.4所示。客房信息实体客房信息实体客房单价客房单价客房编号客房编号客房位置标准标准客房位置标准标准图3.4 房间信息实体ER图结算信息实体的ER图如图3.5所示。结算信息实体结算信息实体客房信息结算金额客房信息结算金额顾客信息结算时间顾客信息结算时间图3.5 结算信息实体ER图实体之间关系的 ER 图如图 3.6 所示。客房

21、标准信息客房标准信息客房登记客房登记客房信息管理客房信息管理订房订房结算信息管理结算信息管理客房结算订房信息管理客房结算订房信息管理图 3.6 实体间关系的ER图3.5.3 数据库逻辑结构设计现在有必要将以上数据库概念构造成MS Access 2000数据库系统支持的实际数据模型，即数据库的逻辑结构。酒店客房管理信息系统数据库中各表的设计结果如下表所示。每个表代表数据库中的一个表。表 3.2 为材料基本信息表。表 3.2 房间标准信息表列名数据类型可以为空阐明类型标识varchar非空标准编码类型名称varchar非空标准名称区域数字无效的房间大小麻木数字无效的床位数发质varchar无效的有

22、空调吗电话varchar无效的在那儿电视varchar无效的有电视吗厕所varchar无效的有独立卫生间吗价格数字无效的单价表3.3为房间信息表表 3.3 房间信息表列名数据类型可以为空阐明房间号varchar非空房间号房间类型varchar非空房型房间位置varchar无效的房间位置房价数字无效的单价建造varchar无效的是否被锁定房间备忘录文本非空评论表3.4为预订信息表表 3.4 预约信息表列名数据类型可以为空阐明书号varchar非空预约号码自定义名称varchar非空顾客自定义IDvarchar非空房间号varchar非空房间号数据数据时间无效的登记日期折扣数字无效的折扣备忘录文本

23、器无效的评论检查日期数据时间无效的结算日期数量数字无效的数量4、酒店收费管理系统功能实现4.1 系统功能分析系统开发的总体任务是实现酒店各种信息的系统化、标准化和自动化。系统功能分析是在系统开发的总体任务的基础上进行的。本酒店客房管理信息系统需要完成的主要功能有：房间标准的建立和标准信息的录入，包括标准号、标准名称、房间面积、床位数、住房单价、是否有空调、电视、独立卫生间等。房间标准信息的修改和查询。输入房间基本信息，包括房间号、房型、房间设置、房间单价、备注等。查询和修改房间基本信息，包括房号、房型、房间位置、房间单价、备注等。查询剩余房间信息。输入结算信息，包括房号、房型、房间设置、房间单

24、价、客户、客户、入住日期、折扣、结算日期、备注等。结算信息的修改和查询，包括房号、房型、房间设置、房间单价、客户、顾客、入住日期、折扣、结算日期、备注等。4.1.1 创建工程项目Hotel_MIS启动 VisualBasic 6.0 后。点击File Project菜单，在工程模板中选择Standard EXE，VisualBasic 6.0会自动生成一个Form表单，属性都是默认设置。这里我们删除表格，单击File|Save Project 菜单，并将这个项目命名为Hotel_MIS。4.1.2 创建酒店客房管理信息系统的主要形式在本项目中，我们使用多文档界面，点击工具栏中的ADD MDI

25、Form按钮，生成一个表单。在这个表单上添加需要的控件，创建的表单如图所示。图 酒店客房管理信息系统主要形式在主窗体中添加状态栏控件，可以实时反映系统中各种状态的变化。状态栏控件需要在通常的属性窗口以及它自己的弹出菜单中设置通用属性。选择状态栏控件，单击鼠标右键，选择属性菜单，然后设置属性。面板 1 用于显示各种文本信息，面板 2 用于显示上一个日期，面板 3 用于显示当前时间。4.1.3 创建主窗体菜单在主窗口中单击鼠标右键，在弹出的菜单中选择“菜单编辑器”命令，创建如图所示的菜单结构：主窗体中的菜单结构4.1.4 用户管理模块主要实现：1.用户登录界面。2.修改用户密码。酒店在运营中需要制

26、定不同的客房标准，以满足不同消费水平客户的需求。每个房间标准都有不同的硬件设施和服务。4.1.5 客房标准管理模块主要功能：增加房标；修改房间标准；删除房间标准。1.增加房间标准表格的创建选择“房间信息管理、设置房间标准、添加房间标准”菜单，出现如图所示窗口。添加房间标准表格表单上放置多个文本框输入基本房间标准信息，多个下拉文本框选择不同的硬件设施；两个按钮用于确定是否添加房标信息；多个标签用于提示输入文本框内容。这些控件的属性如表所示，并添加了房间表单中各个控件的属性设置。2.修改房间标准表的创建选择“房间信息管理|设置房间标准|修改房间标准”菜单，出现如图所示的窗体，窗体中放置一个窗体控件

27、。客房标准信息备案清单表选项显式将 blnStartSelect 设为布尔值私有子 dtgRoomQueryRefresh()使用 frmQuery.dtgQuery.ClearFieldsSet .DataSource = frmMDI.adoQuery 实现绑定.AllowRowSizing = False标题宽度设置为两行.HeadLines = 2选择方法是选择整行.MarqueeStyle=dbgHighlightRow不内容修改（设置为只读）.AllowAddNew = False.AllowDelete = 假.AllowUpdate = 假第一列标题和宽度.Columns(0)

28、.Caption = 房间号.Columns(0).Width = 75.Columns(0).AllowSizing = False第二列标题和宽度.Columns(1).Caption = 房间等级.Columns(1).Width = 80.Columns(1).DataFormat.Type = 5.Columns(1).DataFormat.TrueValue = 标准房间.Columns(1).DataFormat.FalseValue = 豪华房.Columns(1).DataFormat.NullValue = 未知.Columns(1).AllowSizing = False

29、第三列标题和宽度.Columns(2).Caption = 房间类型.Columns(2).Width = 80.Columns(2).DataFormat.Type = 5.Columns(2).DataFormat.TrueValue = 单人间.Columns(2).DataFormat.FalseValue = 双人间.Columns(2).DataFormat.NullValue = 未知.Columns(2).AllowSizing = False 第四列标题和宽度.Columns(3).Caption = 房价（元）.Columns(3).Width = 80.Columns(3

30、).AllowSizing = False.Columns(4).Caption = 状态.Columns(4).Width = 40.Columns(4).DataFormat.Type = 5.Columns(4).DataFormat.TrueValue = 实时.Columns(4).DataFormat.FalseValue = 空房间.Columns(4).DataFormat.NullValue = 未知.Columns(4).AllowSizing = False结束于结束子私有子 dtgQuery_Click()结束子Private Sub txtRoomNo_Change(

31、)OpenTable frmMDI.adoQuery, SELECT * FROM Room WHERE (Room.RoomNo) Like & Trim(txtRoomNo.Text) & % & )dtgRoomQueryRefresh结束子Private Sub txtRoomNo_KeyPress(KeyAscii As Integer)If (KeyAscii 57) And KeyAscii 8 ThenKeyAscii = 0万一结束子私有子 Form_Load()Me.Left = (frmMDI.Width - Me.Width) / 2Me.Top = (frmMDI.H

32、eight - Me.Height) / 2OpenTable frmMDI.adoQuery, select * from Room order by RoomNo,RoomRatedtgRoomQueryRefreshLabel1.Visible = FalsetxtRoomNo.Visible = FalseFrame2.Visible = 假optRoomNo.Value = FalseoptRoomGrade.Value = FalseoptRoomType.Value = FalseoptRoomStatus.Value = False结束子私有子 Option5_Click()如

33、果 optRoomGrade.Value 则OpenTable frmMDI.adoQuery, SELECT * From Room where (Room.RoomGrade)=-1)ElseIf optRoomType.Value ThenOpenTable frmMDI.adoQuery, SELECT * From Room where (Room.RoomType)=-1)ElseIf optRoomStatus.Value ThenOpenTable frmMDI.adoQuery, SELECT * From Room where (Room.RoomStatus)=-1)万一

34、dtgRoomQueryRefresh结束子私有子 Option6_Click()如果 optRoomGrade.Value 则OpenTable frmMDI.adoQuery, SELECT * From Room where (Room.RoomGrade)=0)ElseIf optRoomType.Value ThenOpenTable frmMDI.adoQuery, SELECT * From Room where (Room.RoomType)=0)ElseIf optRoomStatus.Value ThenOpenTable frmMDI.adoQuery, SELECT *

35、 From Room where (Room.RoomStatus)=0)万一dtgRoomQueryRefresh结束子私有子 optRoomStatus_Click()Label1.Visible = FalsetxtRoomNo.Visible = FalseFrame2.Visible = TrueFrame2.Caption = 房间状态Option5.Caption = 直播Option6.Caption = 空房间Option5.Value = FalseOption6.Value = False结束子私人子 optRoomType_Click()Label1.Visible =

36、 FalsetxtRoomNo.Visible = FalseFrame2.Visible = TrueFrame2.Caption = 房间类型Option5.Caption = 单人间Option6.Caption = 双人间Option5.Value = FalseOption6.Value = False结束子私人子 optRoomGrade_Click()Label1.Visible = FalsetxtRoomNo.Visible = FalseFrame2.Visible = TrueFrame2.Caption = 房间等级Option5.Caption = 标准间Option

37、6.Caption = 豪华房Option5.Value = FalseOption6.Value = False结束子私人子 optRoomNo_Click()txtRoomNo.Text = Label1.Visible = TruetxtRoomNo.Visible = TrueFrame2.Visible = 假致键“TAB”结束子3.删除房间标准选择“房间信息管理|设置房间标准|删除房间标准”菜单，出现记录列表。选择对应的记录，点击鼠标右键，选择弹出菜单，当前记录将被删除，4.1.6 客房信息管理模块主要功能：添加房间信息；修改房间信息；删除房间信息；查询房间信息。1.增加创建房间信

38、息表选择“房间信息管理|设置房间信息|添加房间信息”菜单，出现如图所示窗口。添加房间信息表表单中各个控件的属性这里就不一一介绍了。在表格的框架中放置各种文本框以形成“房间信息”列。加载表单时，会自动添加房型信息，选项显式私人子 dtgRoomRefresh()使用 frmRoomInfo.dtgRoomInfo绑定Set.DataSource = frmMDI.adoRoom.AllowRowSizing = False标题宽度设置为两行.HeadLines = 2选择方法是选择整行.MarqueeStyle=dbgHighlightRow不内容修改（设置为只读）.AllowAddNew =

39、False.AllowDelete = 假.AllowUpdate = 假第一列标题和宽度.Columns(0).Caption = 房间号.Columns(0).Width = 60.Columns(0).AllowSizing = False第二列标题和宽度.Columns(1).Caption = 房间等级.Columns(1).Width = 80.Columns(1).DataFormat.Type = 5.Columns(1).DataFormat.TrueValue = 标准房间.Columns(1).DataFormat.FalseValue = 豪华房.Columns(1).

40、DataFormat.NullValue = 未知.Columns(1).AllowSizing = False第三列标题和宽度.Columns(2).Caption = 房间类型.Columns(2).Width = 80.Columns(2).DataFormat.Type = 5.Columns(2).DataFormat.TrueValue = 单人间.Columns(2).DataFormat.FalseValue = 双人间.Columns(2).DataFormat.NullValue = 未知.Columns(2).AllowSizing = False 第四列标题和宽度.Co

41、lumns(3).Caption = 房价（元）.Columns(3).Width = 80.Columns(3).AllowSizing = False.Columns(4).Visible = False.Columns(4).Caption = 状态.Columns(4).Width = 40.Columns(4).DataFormat.Type = 5.Columns(4).DataFormat.TrueValue = 实时.Columns(4).DataFormat.FalseValue = 空房间.Columns(4).DataFormat.NullValue = 未知.Colum

42、ns(4).AllowSizing = False结束于结束子私有子 cmdAddNew_Click()使用 frmRoomInfoEdit表格标题.Caption = 添加新房间清除班级编号并使其可编辑.txtRoomNo.Locked = False.txtRoomNo.Text = 默认的类类型是第一项如果 .cboRoomGrade.ListCount = 0 那么.cboRoomGrade.ListIndex = -1别的.cboRoomGrade.ListIndex = 0万一默认老师是第一项如果 .cboRoomType.ListCount = 0 那么.cboRoomType.

43、ListIndex = -1别的.cboRoomType.ListIndex = 0万一.txtRoomRate = 以模态形式显示.显示 vbModal结束于结束子私有子 cmdDelete_Click()使用 frmMDI.adoRoom.Recordset如果 .EOF True 并且 .BOF True 那么如果 !RoomStatus 则MsgBox 当前房间有客人，不能删除此房间！, vbOKOnly + vbInformation, 信息退出子万一if MsgBox(您确定要删除当前记录吗？, vbYesNo + vbQuestion + vbDefaultButton2, 确认

44、框) = vbYes Then。删除dtgRoomInfo.SetFocus万一万一结束于退出子结束子私有子 cmdEdit_Click()如果 frmMDI.adoRoom.Recordset.EOF True 并且 frmMDI.adoRoom.Recordset.BOF True 则使用 frmRoomInfoEdit表格标题.Caption = 修改房间信息学号，设置为不可修改.txtRoomNo.Text = frmMDI.adoRoom.Recordset!RoomNo.txtRoomNo.Locked = TrueIf frmMDI.adoRoom.Recordset!RoomG

45、rade Then 标准房间.cboRoomGrade.ListIndex = 0其他豪华间.cboRoomGrade.ListIndex = 1万一If frmMDI.adoRoom.Recordset!RoomType Then 单人房.cboRoomType.ListIndex = 0埃尔斯双人间.cboRoomType.ListIndex = 1万一.txtRoomRate = frmMDI.adoRoom.Recordset!RoomRate.显示 vbModal结束于万一结束子私有子 cmdExit_Click()退出表格卸载我结束子私有子 Form_Load()显示在主窗体的中心

46、Me.Left = (frmMDI.Width - Me.Width) / 2Me.Top = (frmMDI.Height - Me.Height) / 4dtgRoomRefresh结束子2.修改房间信息选择“房间信息管理|设置房间信息|修改房间信息”菜单，出现如图所示的body。修改房间信息表表格中放置了一个表格控件，所有房间记录都显示在其中。选择要修改的记录，在如图1-21所示的弹出菜单中选择“修改房间信息”，会出现图形窗口，然后进行修改。选项显式私人子 dtgRoomRefresh()使用 frmRoomInfo.dtgRoomInfo绑定Set.DataSource = frmMD

47、I.adoRoom.AllowRowSizing = False标题宽度设置为两行.HeadLines = 2选择方法是选择整行.MarqueeStyle=dbgHighlightRow不内容修改（设置为只读）.AllowAddNew = False.AllowDelete = 假.AllowUpdate = 假第一列标题和宽度.Columns(0).Caption = 房间号.Columns(0).Width = 60.Columns(0).AllowSizing = False第二列标题和宽度.Columns(1).Caption = 房间等级.Columns(1).Width = 80.

48、Columns(1).DataFormat.Type = 5.Columns(1).DataFormat.TrueValue = 标准房间.Columns(1).DataFormat.FalseValue = 豪华房.Columns(1).DataFormat.NullValue = 未知.Columns(1).AllowSizing = False第三列标题和宽度.Columns(2).Caption = 房间类型.Columns(2).Width = 80.Columns(2).DataFormat.Type = 5.Columns(2).DataFormat.TrueValue = 单人

49、间.Columns(2).DataFormat.FalseValue = 双人间.Columns(2).DataFormat.NullValue = 未知.Columns(2).AllowSizing = False 第四列标题和宽度.Columns(3).Caption = 房价（元）.Columns(3).Width = 80.Columns(3).AllowSizing = False.Columns(4).Visible = False.Columns(4).Caption = 状态.Columns(4).Width = 40.Columns(4).DataFormat.Type =

50、5.Columns(4).DataFormat.TrueValue = 实时.Columns(4).DataFormat.FalseValue = 空房间.Columns(4).DataFormat.NullValue = 未知.Columns(4).AllowSizing = False结束于结束子私有子 cmdAddNew_Click()使用 frmRoomInfoEdit表格标题.Caption = 添加新房间清除班级编号并使其可编辑.txtRoomNo.Locked = False.txtRoomNo.Text = 默认的类类型是第一项如果 .cboRoomGrade.ListCoun

51、t = 0 那么.cboRoomGrade.ListIndex = -1别的.cboRoomGrade.ListIndex = 0万一默认老师是第一项如果 .cboRoomType.ListCount = 0 那么.cboRoomType.ListIndex = -1别的.cboRoomType.ListIndex = 0万一.txtRoomRate = 以模态形式显示.显示 vbModal结束于结束子私有子 cmdDelete_Click()使用 frmMDI.adoRoom.Recordset如果 .EOF True 并且 .BOF True 那么如果 !RoomStatus 则MsgBo

52、x 当前房间有客人，不能删除此房间！, vbOKOnly + vbInformation, 信息退出子万一if MsgBox(您确定要删除当前记录吗？, vbYesNo + vbQuestion + vbDefaultButton2, 确认框) = vbYes Then。删除dtgRoomInfo.SetFocus万一万一结束于退出子结束子私有子 cmdEdit_Click()如果 frmMDI.adoRoom.Recordset.EOF True 并且 frmMDI.adoRoom.Recordset.BOF True 则使用 frmRoomInfoEdit表格标题.Caption = 修改

53、房间信息学号，设置为不可修改.txtRoomNo.Text = frmMDI.adoRoom.Recordset!RoomNo.txtRoomNo.Locked = TrueIf frmMDI.adoRoom.Recordset!RoomGrade Then 标准房间.cboRoomGrade.ListIndex = 0其他豪华间.cboRoomGrade.ListIndex = 1万一If frmMDI.adoRoom.Recordset!RoomType Then 单人房.cboRoomType.ListIndex = 0埃尔斯双人间.cboRoomType.ListIndex = 1万一

54、.txtRoomRate = frmMDI.adoRoom.Recordset!RoomRate.显示 vbModal结束于万一结束子私有子 cmdExit_Click()退出表格卸载我结束子私有子 Form_Load()显示在主窗体的中心Me.Left = (frmMDI.Width - Me.Width) / 2Me.Top = (frmMDI.Height - Me.Height) / 4dtgRoomRefresh结束子3.删除房间信息选择房间记录列表中的记录，然后在菜单中选择“生成房间信息”，当前记录将被删除，选项显式私人子 dtgRoomRefresh()使用 frmRoomInf

55、o.dtgRoomInfo绑定Set.DataSource = frmMDI.adoRoom.AllowRowSizing = False标题宽度设置为两行.HeadLines = 2选择方法是选择整行.MarqueeStyle=dbgHighlightRow不内容修改（设置为只读）.AllowAddNew = False.AllowDelete = 假.AllowUpdate = 假第一列标题和宽度.Columns(0).Caption = 房间号.Columns(0).Width = 60.Columns(0).AllowSizing = False第二列标题和宽度.Columns(1).

56、Caption = 房间等级.Columns(1).Width = 80.Columns(1).DataFormat.Type = 5.Columns(1).DataFormat.TrueValue = 标准房间.Columns(1).DataFormat.FalseValue = 豪华房.Columns(1).DataFormat.NullValue = 未知.Columns(1).AllowSizing = False第三列标题和宽度.Columns(2).Caption = 房间类型.Columns(2).Width = 80.Columns(2).DataFormat.Type = 5

57、.Columns(2).DataFormat.TrueValue = 单人间.Columns(2).DataFormat.FalseValue = 双人间.Columns(2).DataFormat.NullValue = 未知.Columns(2).AllowSizing = False 第四列标题和宽度.Columns(3).Caption = 房价（元）.Columns(3).Width = 80.Columns(3).AllowSizing = False.Columns(4).Visible = False.Columns(4).Caption = 状态.Columns(4).Wid

58、th = 40.Columns(4).DataFormat.Type = 5.Columns(4).DataFormat.TrueValue = 实时.Columns(4).DataFormat.FalseValue = 空房间.Columns(4).DataFormat.NullValue = 未知.Columns(4).AllowSizing = False结束于结束子私有子 cmdAddNew_Click()使用 frmRoomInfoEdit表格标题.Caption = 添加新房间清除班级编号并使其可编辑.txtRoomNo.Locked = False.txtRoomNo.Text

59、= 默认的类类型是第一项如果 .cboRoomGrade.ListCount = 0 那么.cboRoomGrade.ListIndex = -1别的.cboRoomGrade.ListIndex = 0万一默认老师是第一项如果 .cboRoomType.ListCount = 0 那么.cboRoomType.ListIndex = -1别的.cboRoomType.ListIndex = 0万一.txtRoomRate = 以模态形式显示.显示 vbModal结束于结束子私有子 cmdDelete_Click()使用 frmMDI.adoRoom.Recordset如果 .EOF True

60、 并且 .BOF True 那么如果 !RoomStatus 则MsgBox 当前房间有客人，不能删除此房间！, vbOKOnly + vbInformation, 信息退出子万一if MsgBox(您确定要删除当前记录吗？, vbYesNo + vbQuestion + vbDefaultButton2, 确认框) = vbYes Then。删除dtgRoomInfo.SetFocus万一万一结束于退出子结束子私有子 cmdEdit_Click()如果 frmMDI.adoRoom.Recordset.EOF True 并且 frmMDI.adoRoom.Recordset.BOF True