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

1、. . . . 酒店管理系统摘 要宾馆管理信息系统面对强大的信息量可以轻松的管理，减少了在管理上面物力和人力，有利于宾馆提高工作效率和宾馆效益。面对庞大的信息量，宾馆在正常运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统与时了解保个环节息的变更，有利于提高管理的效率.通过这样的系统，可以做到信息的规管理、需要统计和快速的查询，从而减少在管理方面的工作量。采用Visual Basic6.0程序来编写，一个系统的开发建立数据库是至关重要的。本课题数据库采用的是SQL Server2000，通过建立数据源，VB与后台的数据库连接来运行。本文从符合操作简单、界面友好、灵活、实用、

2、安全的要求出发，它所完成的主要功能 有以下几个方面：1）系统部分：主要完成安全权限。2）客房信息管理部分：主要完成对客房信息与客房标准信息的查询，修改等管理。3）订房信息管理部分：主要完成订房信息的查询，修改等管理与剩余客房信息查询的管理。4）结算信息管理部分：主要完成对结算信息的查询，修改，添加等。论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点，设计思想、难点技术和解决方案。关键词：数据库，Visual Basic6.0，SQL Server2000，客房信息管理AbtractThe management information system of t

3、he hotel faces the strong amount of information, the management that can be light. Reduce the material resources and manpower in managing, help the hotel to improve working efficiency and hotel benefit. Adopt VB6. 0 procedures come to write, it is essential to set up the database in development of a

4、 system, subject this SQL Server2000, through set up data source, VB database in backstage supporter is it is it run to come to joinThis text operates from according with simply, the interface is friendly , flexible and practical, the demand with high security sets out, the main function that it fin

5、ishes has the following several respect: 1) Systematic part: Finish the safe authority mainly.2) Guest rooms of information administrative sections: Finish inquiry , modification of the information of guest room and standard information of guest room ,etc. to manage mainly. 3) Books rooms in the adm

6、inistrative section of information: Finish such management of managing and surplus information inquiry of guest room as the inquiry , modification of information ,etc. to booking rooms mainly.4)Settlement information administrative sections: Finish inquiry , modificationof settlement information , a

7、dding ,etc. mainly. Thesis this introduce copies of development background of subject mainly, course that function develop even that finish wanted. Prove the focal point that the system is designed especially, systematic design philosophy, difficult point technology and solution . Keyword: The datab

8、ase , Visual Basic 6. 0, SQL server 2000, the management information system of guest room. 目录摘要IAbtractII第1章 概 述第2章 系统设计 2.1 系统功能分析 2.2系统功能模块分析第3章 数据库的设计与实现 3.1数据库需求分析 3.2 数据库概念结构设计 3.3 数据库逻辑结构设计 3.4 创建数据库和数据表 3.5 SQL Sserver2000设置与Visual Basic设置第4章 宾馆客房管理系统的创建 4.1 宾馆客房管理系统主窗体的创建 4.1.1创建工程项目Hotel-MI

9、S4.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 查询剩余客房信息窗体的创建 4.5.2添加订房信息 4.5.

10、3 修改订房信息 4.5.4 查询订房信息4.6 结算信息管理模块的创建 4.6.1 添加结算信息窗体的创建 4.6.2 修改结算信息 4.6.3 查询结算信息第5章 系统的实现第6章 结论致 参考文献 附 录1. 绪论1.1 问题的提出随着人员流动规模的不断扩大，客房数量的急剧增加，有关客房管理的各种信息量也在不断成倍增长。面对庞大的信息量，就需要有酒店收费管理系统来提高客房管理工作的效率。传统手工的客房信息管理，管理过程繁琐而复杂，执行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规管理和快速查询，实现了客房信息管理的系统化、规化和自动化，这样不仅减少了管理工作量，还提高了管理效

11、率，降低了管理成本。我父亲正在努力经营着他亲手创建的酒店,我也多次参与酒店的工作,一个酒店管理系统的必切性是非常明确的,我也希望我所编写的程序能给我父亲减轻一点工作压力.1.2 本文研究路线本文的研究框架如下图1.1所示，反映了如下的研究思路：资料查询 开发环境熟悉 定题调查研究概要设计功能模块开发数据测试系统运行系统集成应用程序打包图1.1: 本文的研究框架2. 管理信息系统研究概述2.1 管理信息系统的发展历史信息作为生产力中最活跃的因素，很早就在人类经济生活中发挥着不可替代的作用，但把信息纳入企业经营管理系统中高效处理和应用是在计算机发明以后的50年代末。进入2 0世纪80年代末，随着计

12、算机网络和通信技术的大力发展，企业管理信息系统进入网络化的发展时期。世界发达国家已建立起了完善的先进的管理信息系统体系，在其社会经济发展领域中发挥着巨大的作用。我国的管理信息系统大发展是在80年代末90年代初，国家相继建立起了“金卡”、“金关”、金桥“工程，多数企事业单位建立了局域网和广域网管理信息系统。随着世界经济和我国经济逐步向知识经济迈进，无论是基于工业经济的管理信息系统，还是面向少数专家和管理人员的专家系统 (ES)或决策支持系统 (DSS)，其处理对象和服务对象，自身的系统结构，处理能力，都有了进一步的发展。2.2 管理信息系统的特点2.2.1 管理信息系统的组成 管理信息系统在企业

13、中的应用存在三个要素，这就是人、计算机和数据。 人是指企业领导者、管理人员、技术人员，以与MIS建设的领导机构和实施机构，他们在系统中起主导作用。MIS是一项系统工程，不是只靠一些计算机开发人员就可以完成的，必须有企业管理人员，尤其是企业领导的积极参与。 计算机技术是MIS（管理信息系统）得以实施的主要技术。在这些技术中，软件开发是MIS开发的重点。 第三个因素也不能忽视。企业的管理数据是MIS正常运行的基础。广义地说，各项管理制度是MIS建设成功的基础。试想要计算一台机床的成本，需要按时输入每个部件、每个零件以与每个螺钉螺帽的费用，涉与企业的生产车间、采购、库房、工艺设计和财务等多个部门，必

14、须有一整套管理制度作保证。2.2.2 管理信息系统的界面特点 在计算机软件技术中，人机界面已经发展成为一个重要的分支。MIS人机界面设计一般遵循以下一些基本原则：1. 以通信功能作为界面设计的核心 人机界面设计的关键是使人与计算机之间能够准确地交流信息。一方面，人向计算机输入信息时应当尽量采取自然的方式：另一方面，计算机向人传递的信息必须准确，不致引起误解或混乱。另外，不要把部的处理、加工与人机界面混在一起(人机界面程序只是通信)，以免互相干扰，影响速度。 设计MIS时，针对每一个功能，都要按照模块化思想，使输入、处理与输出“泾渭分明”，充分体现人机界面的通信功能。这样设计出来的程序不易出错，

15、而且易于维护。 报表打印是MIS必备的功能之一，而且打印之前常常需要计算。计算与打印分开设计，虽然消耗时间，但易于整个MIS系统的维护。2. 界面必须始终一致 统一的人机界面不至于会增加用户的负担，让用户始终用同一种方式思考与操作。最忌讳的是每换一个屏幕用户就要换一套操作命令与操作方法。例如在整个系统可以以问号图标表示帮助，以磁盘图标表示存盘，以打印机图标表示打印等。3. 界面必须使用户随时掌握任务的进展情况 人机界面应该能够告诉用户软件运行的进度。特别是在需要较长时间的等待时，必须让用户了解工作进展情况，如可以设计已经完成了百分之几的任务进度条等。目前，Windows下的应用软件无论大小，其

16、安装程序几乎均做到了这一点。开发MIS软件时，这一点很值得借鉴。4. 界面友好。使用方便 多数MIS软件的数据输入量较大。对于一些相对固定的数据，不应让用户频频输入(特别是汉字)，而应让用户用鼠标轻松选择。例如，人事管理系统中的“文化程度”是相对固定的数据，其值一般取“小学”、“初中”、“高中”、“大专”、“大本”、“硕研”、“博研”等。录入这类数据之前，MIS软件应在相应位置弹出一个列表框，待用户以鼠标点击，而不应让用户每次都输入这些汉字。 总之，所开发的MIS在使用过程中，应使用户的数据输入量降至最低限度减少用户的干预量。实践证明，用户干预愈少，MIS系统的满意程度愈高。2.3 管理信息系

17、统的开发方式管理信息系统的开发方式主要有独立开发方式、委托开发方式、合作开发方式、购买现成软件方式等4种。这4种开发方式各有优点和不足，需要根据使用单位的技术力量、资金情况、外部环境等各种因素进行综合考虑和选择。不论哪种开放方式都需要有单位的领导和业务人员参加，并在管理信息系统的整个开发过程中培养、锻炼、壮大该系统的维护队伍。 2.4 管理信息系统的开发过程管理信息系统的开发过程一般包括系统开发准备、系统调查、系统分析、系统设计、系统实现、系统转换、系统运行与维护、系统评价等步骤。根据开发系统的大小、复杂、投入、方式、方法等因素的不问，各步骤的要求和容也不同，用户需要根据实际情况进行取舍和计划

18、。3. 酒店收费管理系统分析与设计3.1 酒店收费管理系统功能需求简介酒店收费管理系统对酒店加强客房信息管理有着极其重要的作用，就一所客房数量较大的酒店来说，它的设计容非常复杂而且繁多，比如拥有客房信息管理、入住信息管理、预定信息管理等功能，而且设计的模块也很多，比如信息统计模块，报表设计模块，打印输出模块，模糊查询模块等等。由于本软件主要是为某小型酒店定制开发的，因此针对该酒店客房信息管理的实际工作而言，我们经过了反复地论证，最终确定了酒店收费管理系统的设计方案。该酒店收费管理系统的主要功能如下表所示（见表3.1）：功能模块功能列表住房登记功 能对客户信息进行增加、删除和修改。客房管理功 能

19、可以对房间信息进行增加和编辑，也可以根据房号进行查找客户查询功 能可以根据房号、国籍、住店日期、离店日期等信息对客户信息进行查询表3.1:酒店收费管理系统主要功能表3.2 功能需求描述3.2.1 住房登记功能该功能实现了对客户信息的管理。该功能可以对客户信息进行增加、删除和修改。客户信息包括对信客户进行登记，登记容包括房号、性别、年龄、国籍、客房级别、住房天数、住店日期、离店日期等。3.2.2 客房管理功能该功能实现了对客房信息的管理。该功能可以对客房信息进行增加、删除和修改，并且可以根据房号来查找客房信息。客房信息主要包括客房号、客房级别和是否入住。3.2.3 客户查询功能该功能实现了对客户

20、信息的查询。管理人员可以根据房号、国籍、住店日期或离店日期对客户信息进行查询，查询到的信息包括房号、性别、年龄、国籍、客房级别、住房天数、住店日期、离店日期等。系统功能模块图如图3.1所示 系统主界面住房登记客房管理客户登记客户登记客户编辑客户删除客房增加客房编辑客房删除客房查询按国籍查询按离店日期查询按房号查询按XX查询按住店日期查询图3.1功能模块图3.3 目标系统要求目标系统应该达到以下要求： 1. 时间经济性。优化逻辑设计与物理设计，使系统运行效率高，反映速度快。2. 可靠性。能连续准确的处理业务，有较强的容错能力。3. 可理解性。用户容易理解和使用该系统。4. 可维护性和适应性。系统

21、应易于修改、易于扩充、易于维护，能够适应业务不断发展变化的需要。5. 可用性。目标系统功能齐全，能够完全满足业务需求。6. 安全性。保证系统的物理安全、数据存储和存取的安全与、数据传输的安全与，做好使用人员的授权管理。3.4 系统平台选择选择微软平台作为主导，一方面考虑目前微软的飞速发展，越来越多的企业在规划部网络时，将微软平台作为首选方案；另一方面从技术角度来讲，微软平台上的应用无论是在开发上，还是在软件的部署上都非常容易，而且性能优越。操作系统：Windows 98数据库为：MS Access 2000开发工具与语言: Visual Basic 6.0中文版3.5 数据库设计设计数据库系统

22、时首先应该充分了解用户各个方面的需求，包括现有的以与将来可能增加的需求。数据库设计一般包括如下几个步骤：1. 数据库需求分析。2. 数据库概念结构设计。3. 数据库概念结构设计。3.5.1 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询等方面，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以与数据处理的流程。组成一份详尽的数据字典，为以后的具体设计打下基础。仔细分析调查有关酒店客房信息需求的基础上，将得到如图3.2所示的本系统所处理数据流程。客房标准设置基本信息录入客房登记基本信息录入客房标准信息管理顾客登记客房信息管理订房信息输入订房信息管理结算

23、信息输入结算信息管理基本信息返回图3.2 系统数据流程图针对一般酒店客房管理系统得需求，通过对酒店客房管理工作过程的容和数据流程分析，设计如下面所示的数据项和数据结构：1. 客房标准信息，包括的数据项有：标准编号、标准名称、房间面积、床位数量住房单价、是否有空调、电视、单独卫生间等。2. 客房信息，包括的数据源有：客房编号、客房种类、客房设置、客房单价、备注等。3. 订房信息，包括的数据项有：订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客、顾客、入住时间、折扣、备注等。4. 结算信息，包括的数据项有：订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客、顾客、入住时间、折扣、

24、结算时间、备注等。有了上面的数据结构、数据项和数据流程，我们就能进行下面的数据库设计。3.5.2 数据概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以与他们之间的关系，为以后的逻辑结构设计打下基础。本程序根据上面的设计规划出的实体由：客房标准信息实体、客房信息实体、订房信息实体、结算信息实体。各个实体具体的描述E-R图如下。客房标准信息实体E-R图如图3.3所示。客房标准信息实体客房单价标准编号床位数量标准名称图3.3 客房标准信息实体客房信息实体E-R图如图3.4所示。客房信息实体客房单价客房编号客房位置标准标准图3.4 客房信息实体E-R图结算信息实体

25、E-R图如图3.5所示。结算信息实体客房信息结算金额顾客信息结算时间图3.5结算信息实体E-R图实体之间关系的E-R图如图3.6所示。客房标准信息客房登记客房信息管理订房结算信息管理客房结算订房信息管理图3.6实体之间关系E-R图353 数据库逻辑结构设计现在需要将上面的数据库概念结构化为MS Access 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。酒店客房管理信息系统数据库中各个表格的设计结果如下面表格所示。每个表格表示在数据库中的一个表。表3.2为物资基本信息表。表3.2客房标准信息表列名数据类型可否为空说明typeidvarcharNOT NULL标准编号typen

26、amevarcharNOT NULL标准名称areanumericNULL房间面积benumbsnumericNULL床位数量hairconditionvarcharNULL是否有空调htelephonevarcharNULL是否有htelevisionvarcharNULL是否有电视htoiletvarcharNULL是否有单独卫生间pricenumericNULL单价表3.3为客房信息表格表3.3 客房信息表格列名数据类型可否为空说明roomNOvarcharNOT NULL客房编号roomtypenvarcharNOT NULL客房种类roompositionvarcharNULL客房位

27、置roompricenumericNULL单价putupvarcharNULL是否被锁定roommemotextNOT NULL备注表3.4为订房信息表表3.4订房信息表列名数据类型可否为空说明booknovarcharNOT NULL订房编号customnamevarcharNOT NULL顾客customIDvarcharNOT NULLroomnovarcharNOT NULL客房编号indatadatatimeNULL入住日期discountnumericNULL折扣inmemotextrNULL备注checkdatedatatimeNULL结算日期ammountnumericNULL

28、金额4. 酒店收费管理系统的功能实现4.1 系统功能分析系统开发的总体任务是实现酒店各种信息的系统化、规化和自动化。 系统功能分析是在系统开发的总体任务的基础上完成的 。这个酒店客房管理信息系统需要完成的功能主要有：1. 有关客房标准的制定、标准信息的输入、包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、以与单独卫生间等。2. 客房标准信息的修改、查询等。3. 客房基本信息的输入，包括客房编号、客房类型、客房设置、客房单价、备注等。4. 客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。5. 剩余客房信息的查询。6. 结算信息的输入，包括客

29、房编号、客房种类、客房设置、客房单价、顾客、顾客、入住日期、折扣、结算日起、备注信息等。7. 结算信息的修改和查询，包括客房编号、客房种类、客房设置、客房单价、顾客、顾客、入住日期、折扣、结算日起、备注信息等。4.1.1 创建工程项目-Hotel_MIS启动VisualBasic 6.0后。单击File Project 菜单，在工程模板中选择Standard EXE，VisualBasic 6.0将自动产生一个Form 窗体，属性都是缺省设置。这里我们删除这个窗体，单击File|Save Project 菜单，将这个工程项目命名为 Hotel_MIS 。4.1.2 创建酒店客房管理信息系统的主

30、窗体 这个项目我们使用多文档界面，单击工具栏中的ADD MDI Form按钮 ，生成一个窗体。在这个窗体上添加所需的控件，创建好的窗体如图所示。图 酒店客房管理信息系统主窗体在主窗体中加入状态栏控件，可以实时的反应系统中的各个状态的变化。状态栏控件需要在通常的属性窗口中设置一般属性，还需要在其特有的弹出式菜单中进行设置。选中状态栏控件，单击鼠标右键，选中Property菜单，然后设置属性。面板1用来显示各种文本信息，面板2用来显示单前日期，面板3用来显示当前时间。4.1.3 创建主窗体菜单在主窗体重，单击鼠标右键，选择弹出式菜单重的“Menu Editor”命令，创建如图所示的菜单结构：主窗体

31、中的菜单结构4.1.4 用户管理模块主要实现：1.用户登录界面。2.修改用户密码。酒店在运营中需要设置不同的客房标准来适应不同消费水平顾客的需要。对于每个客房标准，有不同的硬件设施和服务。4.1.5 客房标准管理模块主要实现功能：添加客房标准；修改客房标准；删除户客房标准。1. 添加客房标准窗体的创建 选择“客房信息管理设置客房标准添加客房标准”菜单，将出现如图所示的窗体。添加客房标准窗体在窗体上放置多个文本框，用来输入客房标准基本信息，多个下拉式文本框选择不同的硬件设施；两个按钮用来确定是否添加客房标准信息；多个标签用来提示文本框中需要输入的容。这些控件的属性见表，添加客房窗体中各个控件的属

32、性设置。2. 修改客房标准窗体的创建选择“客房信息管理|设置客房标准|修改客房标准”菜单，将出现如图所示的窗体，窗体中放置一个表格控件。客房标准信息记录列表窗体Option Explicit'Dim blnStartSelect As BooleanPrivate Sub dtgRoomQueryRefresh()With frmQuery.dtgQuery.ClearFieldsSet .DataSource = frmMDI.adoQuery '实施绑定.AllowRowSizing = False'表头宽度设为两行.HeadLines = 2'选择方式为整

33、行选中.MarqueeStyle = dbgHighlightRow'不允许修改（设为只读）.AllowAddNew = False.AllowDelete = False.AllowUpdate = False'第一列标题和宽度.Columns(0).Caption = "房间编号".Columns(0).Width = 75.Columns(0).AllowSizing = False'第二列标题和宽度.Columns(1).Caption = "房间级别".Columns(1).Width = 80.Columns(1).D

34、ataFormat.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

35、= 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).AllowSizing = False.Columns(

36、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 = FalseEnd WithEnd SubPrivate Sub dtgQuery_Click

37、()End SubPrivate Sub txtRoomNo_Change()OpenTable frmMDI.adoQuery, "SELECT * FROM Room WHERE (Room.RoomNo) Like '" & Trim(txtRoomNo.Text) & "%" & "')"dtgRoomQueryRefreshEnd SubPrivate Sub txtRoomNo_KeyPress(KeyAscii As Integer)If (KeyAscii < 48 Or

38、KeyAscii > 57) And KeyAscii <> 8 ThenKeyAscii = 0End IfEnd SubPrivate Sub Form_Load()Me.Left = (frmMDI.Width - Me.Width) / 2Me.Top = (frmMDI.Height - Me.Height) / 2OpenTable frmMDI.adoQuery, "select * from Room order by RoomNo,RoomRate"dtgRoomQueryRefreshLabel1.Visible = FalsetxtR

39、oomNo.Visible = FalseFrame2.Visible = FalseoptRoomNo.Value = FalseoptRoomGrade.Value = FalseoptRoomType.Value = FalseoptRoomStatus.Value = FalseEnd SubPrivate Sub Option5_Click()If optRoomGrade.Value ThenOpenTable frmMDI.adoQuery, "SELECT * From Room where (Room.RoomGrade)=-1)"ElseIf optRo

40、omType.Value ThenOpenTable frmMDI.adoQuery, "SELECT * From Room where (Room.RoomType)=-1)"ElseIf optRoomStatus.Value ThenOpenTable frmMDI.adoQuery, "SELECT * From Room where (Room.RoomStatus)=-1)"End IfdtgRoomQueryRefreshEnd SubPrivate Sub Option6_Click()If optRoomGrade.Value The

41、nOpenTable 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 * From Room where (Room.RoomStatus

42、)=0)"End IfdtgRoomQueryRefreshEnd SubPrivate Sub optRoomStatus_Click()Label1.Visible = FalsetxtRoomNo.Visible = FalseFrame2.Visible = TrueFrame2.Caption = "房间状态"Option5.Caption = "在住"Option6.Caption = "空房"Option5.Value = FalseOption6.Value = FalseEnd SubPrivate Sub

43、 optRoomType_Click()Label1.Visible = FalsetxtRoomNo.Visible = FalseFrame2.Visible = TrueFrame2.Caption = "房间类型"Option5.Caption = "单人间"Option6.Caption = "双人间"Option5.Value = FalseOption6.Value = FalseEnd SubPrivate Sub optRoomGrade_Click()Label1.Visible = FalsetxtRoomNo.

44、Visible = FalseFrame2.Visible = TrueFrame2.Caption = "房间级别"Option5.Caption = "标准间"Option6.Caption = "豪华间"Option5.Value = FalseOption6.Value = FalseEnd SubPrivate Sub optRoomNo_Click()txtRoomNo.Text = ""Label1.Visible = TruetxtRoomNo.Visible = TrueFrame2.Visibl

45、e = FalseSendKeys "TAB"End Sub3. 删除客房标准 选择“客房信息管理|设置客房标准|删除客房标准”菜单，将出现记录列表。选择相应记录，单击鼠标右键，选择弹出式菜单，将删除当前记录，4.1.6客房信息管理模块主要实现功能：添加客房信息；修改客房信息；删除客房信息；查询客房信息。1. 添加客房信息窗体的创建 选择“客房信息管理|设置客房信息|添加客房信息”菜单，将出现如图所示的窗体。添加客房信息窗体窗体中各个控件属性这里就不一一介绍。将各种文本框放在窗体的框架中，组成“客房信息”栏。载入窗体时，将自动添加客房种类信息， Option Explici

46、tPrivate Sub dtgRoomRefresh() With frmRoomInfo.dtgRoomInfo '绑定 Set .DataSource = frmMDI.adoRoom .AllowRowSizing = False '表头宽度设为两行 .HeadLines = 2 '选择方式为整行选中 .MarqueeStyle = dbgHighlightRow '不允许修改（设为只读） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False '第一列标题和宽度 .Colum

47、ns(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 = "豪华间" .

48、Columns(1).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

49、(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

50、.Type = 5 .Columns(4).DataFormat.TrueValue = "在住" .Columns(4).DataFormat.FalseValue = "空房" .Columns(4).DataFormat.NullValue = "未知" .Columns(4).AllowSizing = False End WithEnd SubPrivate Sub cmdAddNew_Click() With frmRoomInfoEdit '窗体标题 .Caption = "添加新客房" &#

51、39;清空班级编号并设为可修改 .txtRoomNo.Locked = False .txtRoomNo.Text = "" '默认班级类型为第一项 If .cboRoomGrade.ListCount = 0 Then .cboRoomGrade.ListIndex = -1 Else .cboRoomGrade.ListIndex = 0 End If '默认教师为第一项 If .cboRoomType.ListCount = 0 Then .cboRoomType.ListIndex = -1 Else .cboRoomType.ListIndex =

52、 0 End If .txtRoomRate = "" '显示为模式窗体 .Show vbModal End WithEnd SubPrivate Sub cmdDelete_Click() With frmMDI.adoRoom.Recordset If .EOF <> True And .BOF <> True Then If !RoomStatus Then MsgBox "当前房间有客人居住，您不能删除该房间！", vbOKOnly + vbInformation, "提示" Exit Sub

53、End If If MsgBox("确认要删除当前记录吗？", vbYesNo + vbQuestion + vbDefaultButton2, "确认框") = vbYes Then .Delete dtgRoomInfo.SetFocus End If End If End With Exit SubEnd SubPrivate Sub cmdEdit_Click()If frmMDI.adoRoom.Recordset.EOF <> True And frmMDI.adoRoom.Recordset.BOF <> True Then With frmRoomInfoEdit '窗体标题 .Caption = "修改客房信息" '学员编号，设为不可修改 .txtRoomNo.Text = frmMDI.adoRoom.Recordset!RoomNo .txtRoomNo.Lock