基于VB的宾馆客房信息管理系统论文.doc

摘 要

随着计算机技术的日益成熟，为社会的各行各业都带来了极大的发展和进步。我国的服务行业也取得了巨大发展。而作为服务行业的窗口，宾馆的服务和管理要求越来越高，竞争也愈来愈激烈。因此，采用全新的计算机网络和宾馆管理系统，已成为提高宾馆的管理效率、改善服务水准的重要手段之一。
该系统的设计对象是中小型宾馆客房管理系统，本系统采用Visual Basic 6.0和Access数据库进行设计。系统功能主要分为四大模块：宾馆房间介绍，包括查看价格、剩余空房、以及房间中的配置信息；宾馆信息管理，该模块是系统中的主要模块，主要包括订房与结算和客户查询；宾馆设施设置，功能为对宾馆的房间进行添加、更改和删除使用；更改登陆信息是用来添加管理员使用的模块。本系统操作简单，界面清晰明了。

关键字: 管理系统，Visual Basic 6.0，Access

ABSTRACT

The growing maturities of computer technology for all sectors of society have brought great development and progress. China's service industry has made tremendous development. And the service sector as a window of service industry guesthouse, its services and management becoming more demanding, and the guesthouse is facing increasingly fierce competition. Therefore, the introduction of new computer networks and guesthouses management system has become one of the important means to improve service standards which can make the hotel management efficiency.
The design object of this system is a management system for small and medium sized hotel room, this system uses Visual Basic 6.0 and Access database design. System functionality is divided into four modules: Hotel room description, including checking the prices, remaining availability, and room configuration information; Hotel Information management system is the main module, including booking and billing and customer inquiries; Hotel facilities set up, including adding, changing and deleting the hotel room; change the login information is used to add the administrator to use the module. The system is simple, interface clarity.

Key words： Management Systems, Visual Basic 6.0, Access

目录

摘 要 I
ABSTRACT II
第1章 引言 1
1.1 软件开发背景 1
1.2 功能概述 1
1.3 系统特点 1
1.4 编写意义 1
第2章 相关技术介绍 3
2.1 Visual Basic概述 3
2.2 Visual Basic 特点 3
2.3 数据库访问 3
2.4 Ado Data控件简介 4
2.4.1 引入 Ado Data控件到VB项目 4
2.4.2 控件的主要属性、事件和方法 4
2.5 Ado Data控件直接操纵数据库 4
第3章 需求及可行性分析 5
3.1 需求分析 5
3.1.1 基本要求 5
3.1.2 功能需求 5
3.1.3 用户界面需求分析 6
3.1.4 外部接口需求分析 6
3.1.5 内部接口需求分析 6
3.2 性能需求 7
3.3 软件属性需求 7
3.4 可行性分析 7
3.5 结论 8
第4章 系统设计 9
4.1 总体设计 9
4.1.1 项目规划 9
4.1.2 系统基本情况描述 9
4.1.3 数据分析与编码设计 9
4.1.4 数据库设计 9
4.2 功能模块设计 11
4.3 系统结构图 11
第5章 系统实现 14
5.1 登陆系统 14
5.2 房间介绍模块 15
5.3 信息管理模块 19
5.4 设施设备模块 29
5.5 更改登陆信息模块 39
第6章 系统性能与调试 43
6.1 系统调试 43
6.1.1 单元测试 43
6.1.2 集成测试 44
6.2 系统性能 44
总 结 45
致 谢 46
参考文献 47

47
第1章 引言

1.1 软件开发背景
随着市场经济的日益深化,各行各业的竞争是不可避免的。宾馆业也如此,如何提高服务质量,提高工作效率,提高管理能力变的越来越重要了。特别是对于星级宾馆,由于宾馆内部服务种类繁多，不仅要完成前台的服务工作，而且还有后台的管理工作。如果没有一套可靠的宾馆管理系统,单凭人工为客户登记、记帐、结帐，不仅办事效率低，而且会影响宾馆的服务质量，宾馆的声誉[1]。
宾馆的发展过程中必须意识到要想在竞争中取得优势，首先要提高经营管理，而提高经营管理最重要的保证就是信息技术。审时度势，针对宾馆内部管理需求和宾馆业的发展前景，在宾馆管理上采用计算机技术，是其必然的发展规律，也是其经营管理的重要条件，开发一套适合自己宾馆经营管理的系统软件也是宾馆发展的先决条件。
1.2 功能概述
该系统采用目前最流行的数据库开发工具Visual Basic 6.0作为开发工具，其功能主要分为四大模块：宾馆房间介绍、宾馆信息管理、宾馆设施设置、更改登陆信息。宾馆房间介绍主要是查看宾馆房间价格、所查看房间剩余空房、以及房间中的配置信息；宾馆信息管理主要包括订房与结算和客户查询，提供三种查询方式，分别是按房号查询按姓名查询、按证件查询，这个模块是系统的主模块；宾馆设施设置是对宾馆的房间进行添加、更改和删除使用的模块，主要包括添加新房间，更改房间类型、类型配置，删除已有房间。更改登陆信息是用来添加管理员使用的模块。
1.3 系统特点
全面构建数字化宾馆，实现宾馆全面电子化办公。
具有一定的可移植性，可针对不同的用户需求定制系统部分功能
用户界面友好、方便客户使用。
1.4 编写意义
在信息化飞速发展的今天，各行各业向自动化、智能化发展已成为趋势，针对中小型宾馆开发设计出来的宾馆客房管理系统充分发挥了宾馆管理的作用，提高了宾馆管理的效率，也节省了大量的人力和物力、提高了办事效率。编写该系统希望达到以下的目的[2]：
1) 方便宾馆管理人员进行宾馆管理，以及领导对员工的管理；
2) 使宾馆管理系统规范化、简单化、正规化；
3) 便于管理人员对于系统的随时变动随时更改；
4) 使系统功能能具体化、简单化，提高宾馆的管理效率和服务质量；
5) 制作各种报表供宾馆管理工作做分析决策；
6) 人力与设备费用的相对减少；
7) 管理速度和精度的提高；
8) 人员利用率的改进。
该系统充分发挥了电子化工作的高效性、准确性，减轻了工作人员的劳动强度，提高了工作效率，使宾馆管理工作更加规范化，提高了工作人员的素质，由于操作简便易学，界面清楚明白，工作人员能够很快掌握并熟悉该系统，为中小型宾馆的客房管理系统化奠定了基础。

第2章 相关技术介绍

2.1 Visual Basic概述
Visual Basic是在原有Basic语言基础上的进一步发展，它包含了数百条语句、函数及其关键词，其中很多与Windows GUI有直接的联系。Visual Basic语言简单易学，只要稍有语言基础就可以很快掌握并进行而精通。可视化的用户界面设计功能，把程序设计人员从繁琐复杂的界面设计中解脱出来：可视化编程环境的“所见即所的”功能，使界面设计如积木游戏一般，编程变成了一种享受；强大的多媒体功能可轻而易举地开发出集声音动画、影象和图片与 一体的多媒体应用程序；新增的网络功能提供了编写Internet程序的能力。Visual Basic 6.0中文版还支持用户自己开发ActiveX控件和制作ActiveX文档[3]。
2.2 Visual Basic 特点
Visual Basic的特点非常突出，那就是具有快速的程序开发环境，编制程序界面简单，代码的编写量小，用户可以很方便的直接改动界面，所见即所的。因此对于初学者来说，是一个很明智的选择。当然它也有它的缺点，那就是运行速度较慢，由于它的内核仍然是Basic[4]，因此这个缺点不可避免。但是每一门编程语言都有优点与缺点，只要程序运行的速度要求不是很高不涉及较深入的程序开发，Visual Basic6.0仍然是个很好的选择。
2.3 数据库访问
一、如何来访问数据库。VB访问数据库提供二种方法，其一是用数据控制，其二是使用对象来访问数据库。在这两种方法中，都涉及到数据库的属性：connect，databasename，exclusive，options，readonly，recordsoure。但在connect中所用的数据库的名称必须于［ISAM］中的数据库的名称相符合，这样就可以轻松地打开数据库。
二、书签指针即bookmark属性。在VB访问数据库时，数据库中的记录是没有记录号的。但VB提供了bookmark属性来记录当前访问记录的记录指针。这个bookmark就相当于记录号。
三、要注意变量类型的匹配。在访问数据库时，显示记录一般都使用格子控制。其中grid.text是子符串类型。但有些记录的数据项是空的（null）即没有数据。所以需要加入类型的判断，将null数据项赋于空格子符串，这样就可以解决类似的问题。
四、要注意调用系统的DLL（dynamic－link libraries，动态链接程序库）。VB本身对于访问机器硬件等操作比较困难。若通过DLL调用Windows应用程序接口（API）函数，就可以方便地访问硬件。同时，VB也可以调用任何语言所编写的DLL[5]。
2.4 Ado Data控件简介
Ado Data控件使用Microsoft ActiveX数据对象（ADO）来快速建立数据库绑定的控件和数据提供者之间的连接。数据绑定控件是任何具有“数据源”属性的控件。使用Visual Basic的类模块也可以很方便地创建子集的数据提供者。如图2-1所示的Ado Data控件有作为一个图形控件的优势（具有“向前”和“向后”按钮），以及一个易于使用的界面，使可以用最少的代码创建数据库应用程序。
图2-1 Ado Data控件

2.4.1 引入 Ado Data控件到VB项目
在VB开发环境中选择主菜单“工程”中的“部件”子菜单，在控件标签页中选择“Microsoft ADO Data Control 6.0（OLEDB）”控件，在VB开发环境中的工具箱中，就能够看到 Ado Data控件的图标。引入之后就可以在窗体中的任意位置添加Ado Data控件。
2.4.2 控件的主要属性、事件和方法
Ado Data主要属性有：ConnectionString，UserName，PassWord，RecordSource，CommandTyp，LockType，Mode，ConnectionTimeout，Recordset，BOFAction、EOFAction。主要事件为Error事件。Ado Data的主要方法有两种种，分别是：UpdateControls，Refresh。其中UpdateControls方法将绑定控件的内容恢复为其初始值，而且不会调用任何事件。Refresh方法可以用来刷新代码中ConnectionString、RecordSource、CommandType改变了的属性值。
2.5 Ado Data控件直接操纵数据库
使用Ado Data控件访问数据库，可以完全不用编写代码，只需通过简单设置和操纵其属性就可以实现与数据库的连接，通过绑定数据感知控件就能提供一个访问数据库的界面，用来对数据库数据的浏览、添加、删除、修改等操作。
使用Ado Data控件连接到数据源要相对简单得多，可以用鼠标的操作来完成。
第3章 需求及可行性分析

由于在宾馆管理方面，注重的是结帐准确，经营的状况，而运算主要以数字为主，这样就使得涉及的计算并不是很复杂，因此是比较适合于采用数据库进行管理的。由于这套系统面对的对象是中小型宾馆，所以对系统的要求及操作上要求相对较低。在技术方面，由于有相关的指导和相关资料的参考，特别是网上资料提供的各种要求与帮助，基本可以实现设计中所要求的模块及功能。
3.1 需求分析
3.1.1 基本要求
在对巨化宾馆及新宇假日酒店的初步调查的基础上就可以提出要开发的系统目标，即该系统建立后所要求达到的运行指标，这是对即将设计的系统开发和评价的依据。开发的系统目标应充分体现宾馆的战略目标、发展方向和基本特点，直接为宾馆的管理服务，同时，系统目标应该和其他宾馆的管理系统的各项基本功能相似相关，并且可以分期分批实现。但是，设计的系统预定完成的目标不可能在总体规划阶段就提得非常具体，而是将在开发过程中逐步明确和定量化。而系统目标初步为以下几点：
1) 提高宾馆客房信息的处理速度和准确性；
2) 提高员工工作效率，减少工作人员劳动强度；
3) 为宾馆客房管理提供更方便的服务
3.1.2 功能需求
通过对巨化宾馆及新宇假日酒店客房管理系统的调查和分析，由于系统面对的对象类似，都是中小型宾馆客房管理系统，因此要求设计出的系统具备以下的功能[6]：
9) 简洁明了的操作界面。
10) 管理权限管理，密码保护。
11) 客房数据修改简单方便，可以修改
12) 原始数据修改简单方便，可以修改
13) 在相应的权限下，删除数据方便简单，数据稳定性好
14) 数据计算自动完成，尽量减少人工干预
15) 退出系统。

3.1.3 用户界面需求分析
采用Windows的通用图形界面，对用户友好，而且必须对鼠标和键盘提供支持，系统的操作界面的设计应该争取达到以下几点要求：
1) 界面要具有一致性，界面规范应遵循MS Windows软件界面的规范；
2) 提供简单的错误处理；
3) 提供信息反馈，用多种信息提示用户当前软件运行状态；
4) 操作可逆，其动作可是单个的操作或者是一个相对的独立操作程序；
5) 操作界面的画面简洁明快，不能太花哨；
6) 应遵循国家关于计算机词汇的标准，用词应当精练明确，没有歧异，图形的意义明朗。
3.1.4 外部接口需求分析
1) 用户界面
采用目前非常流行的GUI，即诸如窗口、菜单、对话框等。
2) 软件接口
运行于Windows 95及更高版本具有WIN32 API的操作系统之上。
3) 硬件接口
支持一般x86系列微机和Windows CE。
3.1.5 内部接口需求分析
1) 初始化模块：系统初始时由操作系统调用，执行完毕后进入消息循环状态；
2) 关闭系统模块：由系统功能模块调用，执行完毕后返回操作系统；
3) 系统功能模块：接收系统功能区的相关消息，启动浏览、查询、增加、删除、修改、等模块；
4) 浏览模块：由相应消息驱动，完成对浏览区的直接消息响应功能，可能会调用刷新浏览模块；
5) 基本资料模块；由相应消息驱动，完成对基本资料区的直接消息的响应功能，可能会调用刷新基本资料模块；
6) 条件查询模块：完成查询功能；
7) 增加模块：完成增加功能；
8) 删除模块：完成删除功能；
9) 修改模块：完成修改功能；
10) 密码管理模块：完成对密码的管理功能；
11) 身份验证模块：完成对用户的身份验证功能；
3.2 性能需求
由于宾馆客房管理系统对于数据的精确度具有较高的要求，因此设计系统的时候应该考虑到查询时保证查全率，所有相应域、所有包含查询关键字的记录都应能查到。开发的系统针对的是中小型宾馆，因此需要考虑电脑运行要求，设计出来的系统应该要满足宾馆使用的需求，而且要适应宾馆的电脑运行环境。
3.3 软件属性需求
1) 正确性
要求设计出来的系统能达到管理中小型宾馆的预期目标，运行时基本无错误。
2) 可靠性
在一般条件下，应不出故障。
3) 效率
对于浏览、查询、增加、删除、更新设置的一般操作，、要求及时响应。
4) 完整性
要求能在发生意外时，保证数据不丢失。
5) 易使用性
要求能尽量为用户的使用提供方便，软件的界面符合目前流行的界面规范。
6) 可维护性
要求系统在运行时发现错误时，能快速、准确对其进行定位、诊断和修改。
7) 可测试性
设计时尽可能减少测试本软件的各项功能所需的工作量。
8) 可理解性[7]
对于设计出来的系统界面所提供的各种菜单命令、各种信息提示，应该简介明了，便于用户理解。
3.4 可行性分析
该系统是基于VB的酒店客房管理系统，而且面向的对象是中小型宾馆客房系统，以下从三方面对能否实现设定的系统目标进行可行性分析：
1) 技术可行性
系统运用的是Visual Basic 6.0以及Access数据库，Visual Basic语言简单易学，只要稍有语言基础就可以很快掌握并进行而精通，而且VB编制程序界面简单，代码的编写量小，可以很方便的直接改动界面。在个人计算机上也能方便的运行VB程序，对计算机硬件要求不高。Access数据库容易被应用于小的工程，而本次论文设计的客房信息管理系统针对的就是中小型宾馆，Access的数据库功能也能满足宾馆的信息量的需求。同时，Access的报表功能，也能实现客房管理中对于客房信息的查询，管理功能[8]。
2) 经济可行性
该宾馆客房管理系统设计开发之后，应用于中小型宾馆客房管理中，可以减少管理人员的分配，提供清晰明了的客房信息，对于查询及管理客房带来极大的方便。而且提供的客房结算功能，也能避免人工结算产生的误差，减少人为的参与因素，降低宾馆管理中的风险。而系统中的客户查询模块也能提高管理人员的工作效率，在提高工作效率，减少人员的浪费的同时，为宾馆带来更多的经济效益。
3) 运行可行性
中小型的酒店客房管理系统相对大型或者三星以上的宾馆来说，计算机配置及数据库要求相对较低，对客房管理系统的要求也不是很高。而且入住宾馆的客人信息量对于选定的Access数据库也在可以承受的范围内。中小型宾馆的服务人员相对其他高级酒店，学历也相对较低，对于计算机操作能力也有一定的限制，因为系统设计出来的界面应该简介明了，且系统操作应该方便易学。
3.5 结论
通过对于系统的开发，系统在中小型宾馆的运行可行性分析，及对系统在投入运行中可能带来的经济效益的分析过程中，可以得出结论，该系统开发是具有可行性的。

第4章 系统设计
4.1 总体设计
4.1.1 项目规划
宾馆管理系统是一个数据库应用程序，主要用来宾馆的日常营业工作和进行房间的基本管理、客人预定、帐单结算及客户查询等管理工作[9]。
宾馆房间介绍主要是查看宾馆房间价格、所查看房间剩余空房、以及房间中的配置信息。
宾馆信息管理主要包括订房与结算和客户查询，提供三种查询方式，分别是按房号查询、按姓名查询、按证件查询，这个模块是系统的主模块。
宾馆设施设置是对宾馆的房间进行添加、更改和删除使用的模块，主要包括添加新房间，更改房间类型、类型配置，删除已有房间。
更改登陆信息是用来添加管理员使用的模块。
4.1.2 系统基本情况描述
随着社会进步，社会对人才素质要求越来越高，相应的，需要宾馆的工作越来越周到、全面、先进、高效。这不仅使宾馆管理的日常工作日趋复杂繁重，而且，对它提出了更高的要求。 本次设计的宾馆管理系统强化了宾馆管理的职能，包括了房间管理、设施管理、客户管理、帐单结算等主要功能，将该系统运用到实际的客房管理中，可以实现宾馆管理工作日益规范化、制度化和科学化。宾馆管理系统的使用，可以大大减少了管理者的手工劳动，是宾馆管理的得力助手。
4.1.3 数据分析与编码设计
建立数据库，首先确定数据库中要保存什么样的数据信息，然后设计数据库，建立由子段组成的表，字段里定义要存储的数据的类型。建好数据库的结构后，数据库就能在纪录里存储数据。提前设计数据库，一个重要的原因就是效率问题，如果数据库中的纪录达到了10000条以上的话，那么效率就是建立数据库头等要考虑的事情了；另外，设计数据库的一个指导原则是把子段与不在同一表中的同类数据相联系，数据存在不同的表中，并不意味着不能一起使用它们，相反，当需要的数据横跨关系数据库中两个或更多的表时，能够使用“关系”访问数据。
4.1.4 数据库设计
本系统采用了ACESS数据库，下面对在本系统中使用的数据库表格建立做一下介绍。打开Microsoft Access软件，单击“文件>新建”命令，“新建文件”面板，在“新建文件夹”面板上选择“空数据库”选项，弹出窗口设置库文件名。
数据库中包含若干个表，表是数据库中用来存放数据的地方。在新建数据库之后，出现数据库面板，在次面板上选择“使用设计器创建表选项”，按照如下表结构设计数据使用表。
几个主要表的结构：
表4-1 customer表的结构
字段名称
字段类型
字段大小
name
文本
50
sex
文本
50
idcard
文本
50
housestyle
文本
50
housenum
数字
长整型
begintimey
数字
长整型
begintimem
数字
长整型
begintimed
数字
长整型
endtimey
数字
长整型
endtimem
数字
长整型
endtimed
数字
长整型
money
数字
长整型
employee
文本
50

表4-2 enter表的结构
字段名称
字段类型
字段大小
user
文本
50
password
文本
50

表4-3 house表的结构
字段名称
字段类型
字段大小
num
数字
长整型
style
文本
50
price
数字
长整型
things
文本
100
human
文本
2
4.2 功能模块设计
本系统主要设计有以下几个模块：
宾馆房间介绍模块：主要是查看宾馆房间价格、所查看房间剩余空房、以及房间中的配置信息。
宾馆信息管理模块：主要包括订房与结算和客户查询，提供三种查询方式，分别是按房号查询、按姓名查询、按证件查询，这个模块是系统的主模块。
宾馆设施设置模块：是对宾馆的房间进行添加、更改和删除使用的模块，主要包括添加新房间，更改房间类型、类型配置，删除已有房间。
更改登陆信息模块：是用来添加管理员使用的模块。
4.3 系统结构图
该宾馆管理系统的编程思想是模块化编程。所以在进行项目开发之前，首先要将项目在功能上分为若干块。功能主要分为四大模块：宾馆房间介绍、宾馆信息管理、宾馆设施设置、更改登陆信息。宾馆房间介绍主要是查看宾馆房间价格、所查看房间剩余空房、以及房间中的配置信息；宾馆信息管理主要包括订房与结算和客户查询，提供三种查询方式，分别是按房号查询、按姓名查询、按证件查询，这个模块是系统的主模块；宾馆设施设置是对宾馆的房间进行添加、更改和删除使用的模块，主要包括添加新房间，更改房间类型、类型配置，删除已有房间。更改登陆信息是用来添加管理员使用模块。
订房与结算
客户查询
按房号查询

按姓名查询
按证件查询
订 房

结 算
宾馆信息管理
宾馆设施设置
添 加
更 改
删 除
新房间
类型配置

房间类型
新房间
更改用户信息
添加新用户
退出管理系统
宾馆管理系统
图 4-1 系统模块结构图
宾馆房间介绍
房间价格

房间配置
剩余空房
宾馆房间介绍

开始

用户登录

否

用户名、密码验证

是

操作员登录界面

住宿信息结算
客房信息修改
顾客信息记录
消费信息记录
基本信息修改

结束

图4-2 业务流程图

第5章 系统实现
5.1 登陆系统
包括用户输入用户名和密码验证及退出系统。双击系统的执行程序，系统显示登陆窗口。正确的输入用户名和密码，通过与数据库中的enter表中存储的用户名和密码校对，如果均正确则通过验证进入主程序。

图5-1 登陆窗口
登陆窗口主要设计编码如下：
Dim rt As Recordset
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path + "/hoteldata.mdb")
Set rt = db.OpenRecordset("enter")
rt.MoveFirst
Do Until rt.EOF
If rt.Fields("user") Like Text1.Text And rt.Fields("password") Like Text2.Text Then
main.Hide
FrmMain.Show
Else
MsgBox "用户名或密码不对", vbCritical + vbOKOnly, "消息提示"

End If
rt.MoveNext
Loop
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub judge()
If Text1.Text <> "" And Text2.Text <> "" Then
Command1.Enabled = True
End If
End Sub
Private Sub Text1_Change()
Call judge
End Sub
Private Sub Text2_Change()
Call judge
End Sub

用户登陆信息准确之后跳转进入主操作界面

图5-2 管理主界面
5.2 房间介绍模块
宾馆房间介绍主要是查看宾馆房间价格、所查看房间剩余空房、以及房间中的配置信息。
这个模块主要是用来查看剩余空房数量和房间价格以及房间中包含的设施。选择所要查询的房间类型，然后点击下面的房间配置，即可显示出所查询的房间中包含的设施情况。前台管理窗口如图5-2所示。

图5-3 房间介绍窗口
此模块的主要设计编码如下所示：
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim db As Database
Dim rs As Recordset
Dim rr As Recordset
Private Sub Command1_Click()
frame3.Visible = True
Set rs = db.OpenRecordset("house")
rs.MoveFirst
Do Until rs.EOF
If rs.Fields("style") = "标准间" Then
Label1.Caption = rs.Fields("things")
Label3(1).Caption = rs.Fields("style")
Exit Sub
Else
rs.MoveNext
End If
Loop
End Sub
Private Sub Command2_Click()
Set rs = db.OpenRecordset("house")
rs.MoveFirst
Do Until rs.EOF
If rs.Fields("style")= "双人间" Then
Label1.Caption = rs.Fields("things")
Label3(1).Caption = rs.Fields("style")
Exit Sub
Else
rs.MoveNext
End If
Loop
End Sub
Private Sub Command3_Click()
Set rs = db.OpenRecordset("house")
rs.MoveFirst
Do Until rs.EOF
If rs.Fields("style") = "豪华间" Then
Label1.Caption = rs.Fields("things")
Label3(1).Caption = rs.Fields("style")
Exit Sub
Else
rs.MoveNext
End If
Loop
End Sub
Private Sub Command4_Click()
Unload allhouse
functionshow.Show
End Sub
Private Sub Command5_Click()
Unload allhouse
functionshow.Show
End Sub
Private Sub Form_Load()
a = 0
b = 0
c = 0
Set db = OpenDatabase(App.Path + "/hoteldata.mdb")
Set rs = db.OpenRecordset("house")
rs.MoveFirst
Do Until rs.EOF
If rs.Fields("style")= "标准间" Then
Label5.Caption = rs.Fields("price")
If rs.Fields("human") = "n" Then a = a + 1
End If
If rs.Fields("style") = "双人间" Then
Label6.Caption = rs.Fields("price")
If rs.Fields("human") = "n" Then b = b + 1
End If
If rs.Fields("style") = "豪华间" Then
Label7.Caption = rs.Fields("price")
If rs.Fields("human") = "n" Then c = c + 1
End If
rs.MoveNext
Loop

If a = 0 Then
Label4(0).Caption = "客满"
Else
Label4(0).Caption = "有" & a & "间空房"
End If
If b = 0 Then
Label4(1).Caption = "客满"
Else
Label4(1).Caption = "有" & b & "间空房"
End If
If c = 0 Then
Label4(2).Caption = "客满"
Else
Label4(2).Caption = "有" & c & "间空房"
End If
End Sub
Private Sub Label1_Click()
End Sub

5.3 信息管理模块
宾馆信息管理主要包括订房与结算和客户查询，提供三种查询方式，分别是按房号查询、按姓名查询、按证件查询，这个模块是系统的主模块，是整个系统的重要管理部分。
在这部分主要管理着整个宾馆的所有房间使用情况以预定和结算，包括房间预定设置、宾馆房间使用结算、宾馆客户查询的基本操作。窗体设计采用索引指针，采用if语句，当Index = 不同值时分别进入style、endlive、housenum、 names、citizennum、functionshow的窗体，同时关闭hotelmanage窗体。

图5-4宾馆信息管理窗口
本窗口主要设计编码如下：
Private Sub Command1_Click(Index As Integer)
If Index = 0 Then
choosestyle.Show
hotelmanage.Hide
End If
If Index = 1 Then
endlive.Show
hotelmanage.Hide
End If
End Sub

Private Sub Command2_Click(Index As Integer)
If Index = 0 Then
housenum.Show
hotelmanage.Hide
End If
If Index = 1 Then
names.Show
hotelmanage.Hide
End If
If Index = 2 Then
citizennum.Show
hotelmanage.Hide
End If
If Index = 3 Then
Unload hotelmanage
End If
End Sub

单击hotelmanage窗体订房按键，进入订房窗口选择房间类型，在choosestyle窗体中会在相应的房间类型下显示房间的剩余数量，方便前台服务人员能够及时的查看到空房信息，准确的安排房间。

图5-5 选择预定房间类型窗口
主要编码：
Private Sub Command1_Click(Index As Integer)
Unload choosestyle
beginlive.Show
Set db = OpenDatabase(App.Path + "/hoteldata.mdb")
Set rs = db.OpenRecordset("house")
rs.MoveFirst
If Index = 0 Then
beginlive.Label1.Caption = "标准间"
Do Until rs.EOF
If rs.Fields("style")= "标准间" And rs.Field