宾馆客房管理系统的实现.doc

JIU JIANG UNIVERSITY

毕 业 论 文

题 目 宾馆客房管理系统的实现
英文题目 The Realization of the Hotel Room
Management System
院 系 信息科学与技术学院
专 业 计算机科学与技术
姓 名 曾志伟
班级学号 A081130
指导教师 殷明芳

二○一二年五月

信息科学与技术学院学士学位论文

信息科学与技术学院学士学位论文
摘 要
计算机的应用普及到经济和社会生活的各个领域，使原来的旧的管理方法越来越不适应现在社会的发展。在宾馆客房管理中，也存在着这种问题，为了提高办事效率，需要开发一套操作简单方便的管理系统。
宾馆客房管理系统属于信息管理系统，其开发主要包括后台数据库的建立和维护以及前台应用程序的开发两个方面。对于前者要求建立数据一致性和完整性、数据安全性好的数据库。而对于后者则要求应用程序功能完备，易使用等特点。系统主要完成对客房住宿、信息查询的管理，其中添加、修改、删除，查询，打印信息以及用户管理等方面也是主要的。系统的核心是添加、修改和删除三者之间的联系，每一个表的修改都将联动的影响其它的表，系统有完整的用户添加、删除、密码修改功能。
本系统是一个界面友好，操作简单，基本满足用户需求的管理系统。

关键词：宾馆客房，数据库，管理系统
Abstract
Popularity of computer applications to economic and social life in all areas, so that their old methods of management are now more suited to the development of society. Management in the hotel rooms, there are such problems, in order to improve efficiency, need to develop a simple and convenient management system.
Hotel Room Management system is an information management system, its development including the establishment and maintenance of back-end database application development and front two. For the former requires the establishment of data consistency and integrity, data security and good database. For the latter requires the application fully functional, easy to use and so on. System is mainly to complete the room information management, including add, modify, delete, query, print management, information, and six users. Core of the system is to add, modify, and delete the link between the three, each table will modify the impact of other linked tables, a complete system users to add, delete, modify the password function.
The system is a user-friendly, simple, basic management systems to meet user needs.

Keywords: Hotel Rooms, Database, Management Systems

目 录
摘 要 I
Abstract II
1 绪论
1.1开发背景及意义 (1)
1.2 论文结构 (1)
2 需求分析
2.1 可行性分析 (2)
2.2 系统功能分析 (3)
2.3 实体—联系图及数据流图 (4)
2.4 系统用例图 (7)
2.5 系统采用的相关技术 (8)
2.6小结 (9)
3 系统设计
3.1 系统的功能设计 (10)
3.2 系统的结构设计 (11)
3.3 数据库设计 (12)
3.4 小结 (16)
4 系统实现
4.1 界面实现 (18)
4.2 数据库实现 (19)
4.3 功能模块实现 (20)
4.4 本章小结 (31)
5 系统测试与维护
5.1 系统测试 (32)
5.2 系统的维护 (37)
5.3 小结 (38)
总 结 (39)
致 谢 (40)
参考文献 (41)

43

1 绪论
1.1开发背景及意义
随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已被人们所认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。用计算机来管理各种数据信息，是世界发展的需求，也是社会发展的趋势。宾馆客房管理系统能给企业决策者和管理者提供全方位的操作流程和实时的信息查询，为企业提供一个全面的信息化平台，提高工作效率，提高效益[1]。一直以来客房的管理工作都是在本子上来记录的，记录之繁多，使得统计工作变得复杂且繁琐，结果也难免与实际值有所差别，为了克服这个困难，因此设计了宾馆客房管理系统。
开发宾馆客房管理系统意义如下：
（1） 管理自动化，明显提高工作效率；
（2）处理实时化，及时掌握相关信息；
（3）提供强大的数据库，大大减少工作量；
（4）系统模块化，为日后系统更新、扩展铺垫，具有良好的可扩展性；
（5）系统使用安全、稳定、可靠，数据保密性高。
1.2 论文结构
本论文重点介绍了宾馆客房管理系统的实现过程：包括系统分析、功能设计、系统设计、系统实现及测试，也给出了重要功能的代码实现，全文共分五章。
第1章绪论，介绍了系统的开发背景及意义；
第2章需求分析，包括可行性分析，系统功能分析，采用的相关技术；
第3章系统的设计，从总体架构及功能扩散到各个模块功能的详细说明；
第4章系统实现，其中包括界面实现，数据库连接，重要功能模块的实现；
第5章系统的测试与维护，包括系统的测试方法和测试结果以及维护方法[2]。
2 需求分析
需求分析是准确回答“系统必须做什么”的问题，他处于软件开发周期中的开始阶段。对软件需求的深入理解是软件开发工作获得成功的前提条件，不论我们把设计和编码工作做得如何出色，不能真正满足用户需求的程序只会令用户失望，给开发者带来烦恼，本章主要从可行性分析、系统功能需求方面进行说明。
2.1 可行性分析
可行性是估计开发费用以及最终从开发成功的系统所获得的利益，衡量比较支出的费用和收到的利益。使软件的设计尽量达到人力与设备费用的节省，并且使软件处理数据的速度提高，软件的整个设计过程必须通过生产能力的提高，人员工作效率的提高等等使软件开发成本最小化。
一个完整的宾馆客房管理系统即要有高度的可靠性又要有安全的可靠保密性，它既要求灵活简便，操作要求简单易行，用户界面要求简单友好，同时又具有一定的美观性，使用户菜单方便，便于查询、打印，使操作变得十分简便，让人操作起来能得心应手[3]。
具体从三大部分进行分析：
（1）技术可行性
采用VB语言对界面进行设计、功能进行实现。Visual Basic 6在界面设计、数据访问等方面都提供了功能强大的工具，可方便地进行可视化应用程序设计。采用SQL Server 2000数据库管理数据，利用存储过程访问数据库节省了执行时间，大大提高了系统的性能[4]。因此，在技术上是可行的，可以满足系统要求。
（2）操作可行性
本系统将诸多功能尽可能在一个界面内完成，以便用户操作。制作使用Windows中文平台，中文显示提示信息，易学易懂，鼠标点击操作快捷方便迅速。
（3）经济可行性
一个使用性较强的系统，要求开发成本低，对计算机配置的要求也不是过高使得系统工作在一个较为合适的环境中。
利用计算机来处理无疑会极大程度地提高效率和处理能力。工作人员不需要再为整个过程忙碌，出错的概率也会减少，工作效率自然就会提高[5]。
2.2 系统功能分析
作为计算机应用的一部分，使用计算机对客房进行管理，有着比手工管理所无法比拟的优点，如：检索迅速、保密性好、成本低等。这些优点能够极大地提高客房管理的效率，也是客房管理的科学化、正规化管理，与世界接轨的重要条件[6]。因此作出如下系统功能分析：
（1）用户能够登陆该系统，而且针对不同的用户设置不同的权限。如管理员有最高的权限，可以对整个系统进行操作，而前台人员只能使用系统部分功能（如该用户不能对系统中系统设置模块、客房管理模块进行操作等），而不能对整个系统进行操作[7]。在登陆系统的时候必须输入正确的用户名、密码，这两项必须确保与数据库中的表信息相对一致才可进入本系统。
（2）系统功能分析如下：
住宿管理功能：来客首先登记入住信息，住宿期间可以进行调房、追加押金操作，离店办理退宿结账。
客房管理功能：对客房信息进行管理，可以添加房间、修改房间信息、删除房间等，当然前提是该房间状态不能为入住状态，另此功能的操作有权限要求，前台人员不能进行客房管理功能的操作。
查询管理功能：根据提示信息输入正确信息后就可以实时查询客房信息状态，查询住宿信息、退宿信息、以及具有宿费提醒功能。
报表统计功能：统计一段时间的客房营业值，进行客房销售统计查看。
系统设置功能：由于系统分为管理员和前台人员两种角色，为了管理的方便，他们拥有不同的权限，管理员可以对前台人员进行相关权限管理，前台人员只拥有管理员分配的部分权限，系统设置包括操作员设置、初始化、权限设置、重新登陆系统等[8]。
2.3 实体—联系图及数据流图
2.3.1 实体—联系图
实体—联系图设计是整个系统设计的关键，系统功能的强大与否和此设计有着关键性意义。它能通过对需求进行综合，归纳与抽象，形成一个独立于具体DBMS的概念模型[9]。
（1）客房信息。对宾馆客房信息进行管理，设置客房房间号、类型、价格等信息。系统需要完成的功能主要有客房信息的设置：包括房间号、房间类型、价格、配置、状态、房态、营业时间、备注信息、标志等信息。客房信息实体图，如图2-1所示。

图2-1客房信息实体图
（2）登记信息。对顾客登记入住的功能，系统需要完成的功能主要有输入登记信息：包括姓名、房间号、证件号码、结款方式、住宿天数、预收押金、住宿日期住宿时间、房间价格、结款方式、宿费、标志、提醒日期证件类型标志和一些备注信息的记录等，登记信息实体图如图2-2所示。

图2-2 登记信息实体图
（3）权限设置。主要是管理员对前台人员的权限进行设置，管理员拥有系统所有权限，而前台人员的权限由管理员分配，主要权限分配内容包括：住宿查询、退宿查询、宿费提醒、客房销售统计、房态查询、客房查询、退宿结账、追加押金、住宿登记等[10]。权限设置实体图如图2-3所示。

图2-3 权限设置实体图
（4）用户信息与退房信息。前台人员与退房信息表是一对一关系，管理员可以对多个前台人员进行操作设置。用户信息与退房信息E-R图如图2-4所示。

图2-4 用户信息与退房信息E-R图
（5）系统E-R图说明：管理员可以进行整个系统的操作，前台人员只有部分权限（如不能进行权限设置、客房管理等），一间房间可以在状态为空房时进行多次入住登记，登记后对应一张登记预收报表，调房与登记类似，但是退房关系是一间房对应一张退房表。系统E-R图如图2-5所示。

图2-5系统E-R图
2.3.2 系统数据流图
数据流图是一种图形化技术，它描绘信息流和数据从输入移动到输出的过程中所经过的变换。在数据流图中没有任何的物理部件，它只是描绘数据在软件中流动和被处理的逻辑过程[11]。此外设计数据流图纸需要考虑系统必须完成的基本逻辑功能，完全不需要考虑如何具体地实现这些功能。
系统0层数据流图如图2-6所示。

图2-6 系统0层数据流图
2.4 系统用例图
2.4.1用例图
在需求分析的第一步需要明确系统的参与者。参与者是具有行为能力的事物，可以是一个人(由所扮演的角色来识别)、计算机系统或组织。经分析确认，系统的参与者主要是管理员（Admin）或前台人员(User)[12]。
用例用于描述系统的功能，也就是从外部用户的角度观察，系统应支持哪些功能，帮助分析人员理解系统的行为，它是对系统功能的宏观描述，一个完整的系统中通常包含若干个用例，每个用例具体说明应完成的功能[13]。管理员与前台人员进行系统操作的用例视图如图2-7所示。

图2-7 管理员与前台人员的用例图
2.5 系统采用的相关技术
2.5.1 Visual Basic
Microsoft Visual Basic(简称VB)是在原有的BASIC语言的基础上进一步发展起来的，是在Windows环境中广泛应用程序开发工具。Visual Basic功能强、效率高、易学习，无论是专业人员，还是非专业人员，都可以很容易地掌握Visual Basic。
Visual Basic最大的两个特点是“可视化”和“事件驱动”。“可视化程序设计”是指开发图形用户界面(GUI)的一种方法，程序员只是把预先建立的界面元素用鼠标拖放到屏幕上的适应位置即可[14]。“事件驱动”是指Windows应用程序的运行是通过事件来驱动的，用户或系统触发了一个事件，就执行程序员在此事件中编写的一段代码。
2.5.2 SQL语言
SQL(Structured Query Language，结构查询语言)是一个功能强大的数据库语言。SQL通常适用于数据库的通讯。SQL语句通常用于完成一些数据库的操作任务，比如在数据库中更新数据，或者从数据库中检索数据[15]。SQL是一个非过程化地语言，SQL允许用户在高层的数据结构上工作，而不对单个记录进行操作，可操作记录集，所有SQL语句接受集合作为输入，返回集合输出。SQL的集合特性允许一条SQL语句的结果作为另一条SQL语句的输入。
2.6 小结
本章通过对系统进行需求分析，了解到宾馆客房管理系统的未来发展是有着管扩前景。本系统的设计与开发在运行上、经济上、技术上都是可行的。

3 系统设计
系统设计就是决定“怎么做”的时候，目的是确定系统如何完成预定的任务，确定组成系统的各个程序的结构。在系统设计阶段，将在需求分析的基础上对系统的技术、逻辑、功能、数据、安全等方面做出概要设计。进行设计时应该遵循的最主要的原理是模块独立原理，也就是说：软件应该由一组完成相对独立的子功能模块组成，这些模块之间的接口关系应尽量简单。确定系统中每个程序是由哪些模块组成，以及这些模块之间的关系。该阶段的目标是得到一个可用的、健壮的、能满足开发需要的系统框架，为下一步的详细设计提供技术基础。
3.1 系统的功能设计
系统分为以下功能模块：
（1）住宿管理模块：该模块主要是实现住宿登记、调房登记、追加押金、退宿结账功能，是本系统很重要的一个模块之一。
（2）客房管理模块：该模块主要是对客房信息进行设置，可以添加客房、删除客房、修改原有房间信息。
（3）查询管理模块：该模块主要是对信息的查询，包括对住宿情况、退宿情况、客房情况的查询。
（4）报表统计模块：可以查看报表情况，对一段时间的客房系统销售情况进行统计。
（5）系统设置模块：该模块对系统安全有很大保障，操作员设置、密码修改、权限设置、系统初始化等，其中前台人员只有部分权限（如不能进行系统设置与客房管理等）的操作。
（6）工具：调用系统计算器处理简单数据。
系统的功能模块图如图3-1所示。

图3-1系统功能结构图
3.2 系统的结构设计
（1）查询管理可进行住宿、退宿、宿费提醒的查询，系统流程图如图3-2所示。

图3-2查询管理系统流程图
（2）住宿管理进行住宿登记、调房登记、追加押金、退宿结账的操作，住宿管理系统流程图如图3-3所示。
N

图3-3 入住管理系统流程图
3.3 数据库设计
数据库设计主要是进行数据库的逻辑设计，设计出规模适当、正确反映数据关系、数据冗余少、存取效率高、能满足多种查询要求的数据模型，数据库的设计至关重要，系统功能的强大与否最初的数据库设计起着关键性意义。
数据库设计的步骤是：
（1）数据表定义：数据表定义指定义数据库中数据表的结构，数据表的逻辑结构包括：属性名称、类型、表示形式、缺省值、校验规则、是否关键字、可否为空等。
（2）存储设备和存储空间组织：确定数据的存放地点、存储路径、存储设备等，备份方案，对多版本如何保证一致性和数据的完整性。
（3）数据使用权限设置：针对用户的不同使用要求，确定数据的用户使用权限，确保数据安全。
（4）关系数据结构的建立：在进行了数据基本结构的规范化重组后，还必须建立整体数据的关系结构。这一步设计完成后数据库和数据结构设计工作基本完成，只待系统实现时将数据分析和数据字典的内容代入到所设计的数据整体关系结构中，一个规范化数据库系统结构就建立起来了。
3.3.1 逻辑结构设计
根据系统需求分析和功能设计，主要表格如下：
（1）系统用户信息表用来管理用户信息，用户包括管理员与前台操作人员，他们的区别是两者拥有不同的权限，后者部分权限不具备（权限设置权限和客房管理权限）用户信息表包括操作员以及密码。系统用户信息表如表3-1所示。
表3-1 用户信息表
字段名称
类型大小
说明
操作员
nvarchar (10)
操作员
密码
nvarchar (50)
用户密码
（2）退房表用来记录退房信息，其包括凭证号码、姓名、证件号码、证件名称、详细地址、工作单位、房间号、客房类型、客房价格、住宿日期、住宿时间、住宿天数、宿费、应收宿费、金额总计、预收宿费、退还宿费、退房日期、退房时间和一些备注信息等，系统退房信息表如表3-2所示。
表3-2 退房信息表结构
字段名称
类型大小
说明
凭证号码
nvarchar（20）
登记时自动产生
姓名
nvarchar（20）

证件名称
nvarchar（20）
可选择证件
证件号码
nvarchar（20）

详细地址
nvarchar（20）

工作单位
nvarchar（20）

房间号
int（4）

客房类型
nvarchar（20）

客房价格
money（8）

住宿日期
datetime（8）
年、月、日
住宿时间
datetime（8）
时、分、秒
住宿天数
float（8）

宿费
money（8）
住房费用
折扣或招待
nvarchar（20）
登记时选择招待或折扣
应收宿费
money（8）
包括电话费等
金额总计
money（8）

预收宿费
money（8）

退还宿费
money（8）

退房日期
datetime（8）

退房时间
datetime（8）

备注
nvarchar（50）

（3）权限设置表是管理员对前台人员进行权限分配、进行设置，系统权限设置表如表3-3所示。

表3-3 权限设置表
字段名称
类型大小
说明
住宿登记
bit（1）
1表示授权0没授权
追加押金
bit（1）
1表示授权0没授权
调房登记
bit（1）
1表示授权0没授权
退房结帐
bit（1）
1表示授权0没授权
客房管理
bit（1）
1表示授权0没授权
客房查询
bit（1）
1表示授权0没授权
住宿查询
bit（1）
1表示授权0没授权
退宿查询
bit（1）
1表示授权0没授权
操作员设置
bit（1）
1表示授权0没授权
密码设置
bit（1）
1表示授权0没授权
权限设置
bit（1）
1表示授权0没授权
操作员
nvarchar（10）

密码
nvarchar（50）

（4）客房信息表是用来管理客房信息的，包括：房间号、房间类型、价格、房态、配置等，客房信息表如表3-4所示。
表3-4客房信息表
字段名称
类型大小
说明
房间号
nvarchar（30）

房间类型
nvarchar（30）

价格
money（8）

房态
nvarchar（30）
房间状态
标志
bit（1）
1表示入住
使用设置
nvarchar（100）

营业日期
datetime（8）

（5）登记预设表用来记录登记住宿预收的信息，登记预收表如表3-5所示。
表3-5 登记预设表
字段名称
类型大小
说明
凭证号码
nvarchar（20）

姓名
nvarchar（20）

证件名称
nvarchar（20）

证件号码
nvarchar（20）

详细地址
nvarchar（20）

住宿事由
nvarchar（20）

房间号
int（4）

客房类型
nvarchar（20）

客房价格
money（8）

住宿日期
datetime（8）
年月日
住宿时间
datetime（8）
时分秒
住宿天数
float（8）

宿费
money（8）

折扣
float（8）

应收宿费
money（8）

预收金额
money（8）

退宿日期
datetime（8）
年月日
标志
bit（1）

日期
datetime（8）
年月日
时间
datetime（8）
时分秒
结款方式
nvarchar（10）

提醒时间
datetime（8）

退宿时间
datetime（8）

3.4 小结
本章首先根据系统需求分析完成了系统的功能模块的设计，然后对功能流程的划分。系统数据库设计是本章设计的重点，主要分析设计表与表之间的相互依赖关系，完成各个数据表的逻辑设计，为系统的具体实现奠定基础。
4 系统实现
系统实现在软件工程过程中占据较大的比重，是软件工程过程中不可或缺的步骤。一般来说，在软件实现的过程中，主要的非编码问题是制定编码规范。一般的原则是：简洁、美观、表达力强、可读性好，同时整体上统一。
4.1界面实现
应用程序是用vb开发的，界面设计的简单明了。根据需求分析和功能设计，系统应用程序分为五大模块：住宿管理模块、客房管理模块、查询管理模块、报表统计模块、系统设置模块。
4.1.1登录界面
首先登录系统，一个好的界面，能提高软件的亲和力。本管理系统登录界面如图4-1所示。

图4-1登录界面
根据登录的功能，管理员和普通用户界面统一在一起。系统自动判断用户的权限。管理员有所有的权限，普通用户只有部分权限。如果三次登陆都出错，系统自动退出。
4.1.2 系统主界面
用户在输入正确的用户名和密码后会转到主界面，进入了系统的主界面之后，则可以对系统进行操作了，其运行的主界面如图4-2所示。

图4-2系统主界面
4.2数据库实现
本系统的数据库的实现是利用ADO对象，ADO的对象模型是所有数据访问接口对象模型中最简单的一种。以下是本程序中用到的对象：
Connection对象：通过“连接”可从应用程序访问数据源，连接是交换数据所必需的环境。对象模型使用Connection对象使连接概念得以具体。
Record set对象:表示的是来自基本表或命令执行结果的记录全集。
Field对象：代表使用普通数据类型的数据的列。Record set对象含有由Field对象组成的Fields集合。每个Field对象对应于Record set中的一列。使用Field对象的Value属性可设置或返回当前记录的数据。
4.3功能模块实现
功能模块实现主要实现住宿管理、客房管理、查询管理、系统设置等功能。是本系统的核心。
4.3.1 住宿登记模块的实现
在系统主界面中单击[住宿管理]按钮，然后选择[住宿登记]或者单击工具栏里面的登记图标按钮都会弹出住宿登记界面如图4-3所示。

图4-3 住宿登记界面
住宿登记的主要功能代码如下：
Private Sub command2_Click()
Adodc4.RecordSource = "select * from tb_djb "
Adodc4.Refresh
Adodc4.Recordset.AddNew
Adodc4.Recordset.Update
Adodc4.Refresh
Adodc1.RecordSource = "select * from tb_kf where 房间号 like '" & Combo2.Text & "'"
If Combo3.Text <> "" Then Adodc1.Recordset.Fields("房态") = "入住"
Adodc1.Recordset.Update
For i = 0 To Text2.UBound
Text2(i).Enabled = False
Next i
Text2(8).Enabled = False: Text2(10).Enabled = False: Text2(11).Enabled = False
Combo2.Enabled = False: Combo1.Enabled = False
MsgBox "登记成功"
End If
End Sub
4.3.2 客房设置模块的实现
在系统主界面中单击[客房管理]按钮，然后选择[客房设置]弹出客房设置界面如图4-4所示。

图4-4 客房设置界面
客房设置的主要功能代码如下：
Private Sub comsave_Click()
Adodc1.RecordSource = "select * from tb_kf where 房间号='" & Trim(Texfjh.Text)
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then '如果记录数大于零
If Adodc1.Recordset.Fields("房态") = "入住" Then
MsgBox "该房间正在使用，请客人退房后再修改信息"
Exit Sub
End If
If MsgBox("添加新房间？", 4) = vbYes Then
Call Main
adoRs.AddNew
adoRs.Update '更新记录
adocon.Close
End If
End If
MsgBox "添加房间成功！", vbInformation, "提示"
Adodc1.ConnectionString = cnnstr
Adodc1.RecordSource = "select * from tb_kf"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
4.3.3 权限设置模块的实现
在系统主界面中单击[系统设置]按钮，然后选择[权限设置]弹出权限设置界面如图4-5所示。

图4-5 权限设置界面
权限设置的主要功能代码如下：
Private Sub Command3_Click() '为操作员设置权限
If DataList1.BoundText <> "" Then
Adodc1.RecordSource = "select * from tb_qxsz where 操作员='" &
DataList1.BoundText & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
For i = 0 To 14
If Check1(i).Value = 1 Then Adodc1.Recordset.Fields(i) = 1 Else
Adodc1.Recordset.Fields(i) = 0
Next i
Adodc1.Recordset.Update
End If
MsgBox "权限设置成功!", vbInformation, "系统提示"
End If
End Sub
4.3.4 客房销售统计模块的实现
在系统主界面中单击[报表统计]按钮，然后选择[客房销售统计]弹出客房销售统计界面如图4-6所示。

图4-6 客房销售统计界面
客房销售统计主要功能代码如下：
Private Sub Command1_Click() '统计客房销售信息
Adodc1.RecordSource = "select count(*)as 记录数, sum(应收宿费)as 应收
宿费合计,sum(电话费)as 电话费合计,sum(赔偿费)as 赔偿费合计,sum(金额
总计)as 实收金额合计,sum(预收宿费)as 预收宿费合计,sum(退还宿费)as 退
还宿费合计 from tb_tfd where tb_tfd.BZ like '%" + Left(Combo1.Text, 4)
+ "%'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset.DataSource
End Sub
4.3.5 调房登记模块的实现
在系统主界面中单击[住宿管理]按钮，然后选择[调房登记]弹出调房登记界面如图4-7所示。

图4-7 调房登记界面
调房登记主要功能代码如下：
Private Sub comok_Click() '确定调房
Adodc2.RecordSource = "select * from tb_kf where 房间号='" & Combo2.Text
& "'and 房态='空房'"
Adodc2.Refresh '刷新记录
If Adodc2.Recordset.RecordCount > 0 Then '如果记录数大于0
Adodc2.ConnectionString = cnnstr
Adodc2.RecordSource = "select * from tb_kf where 房间号= '" &
Combo2.Text & "'" '查询数据表
Adodc2.Refresh '刷新记录
Adodc2.Recordset.Fields("房态") = "入住"
Adodc2.Recordset.Update '更新记录
Adodc2.RecordSource = "select * from tb_kf where 房间号= '" &
Combo3.Text & "'" '查询数据表
Adodc2.Refresh '刷新记录
Adodc2.Recordset.Fields("房态") = "空房"
Adodc2.Recordset.Update '更新记录
Adodc3.RecordSource = "select * from tb_kf where 房态='空房'"
Adodc3.Refresh '刷新记录
MsgBox "调房成功"
End If
Else
MsgBox "请选择正确房间号,再保存!!!", , "系统提示" '提示信息
End Sub
4.3.6 追加押金模块的实现
在系统主界面中单击[住宿管理]按钮，然后选择[追加押金]弹出追加押金界面如图4-8所示。

图4-8 追加押金界面
调房登记主要功能代码如下：
Private Sub Command1_Click()
Call adoclose
If Text1.Text <> "" And Combo1.Text <> "" Then
Adodc1.RecordSource = "select * from tb_djb where 凭证号码='" &
Combo1.Text & "'"
Adodc1.Refresh '刷新记录
If Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then
If Adodc1.Recordset.RecordCount > 0 Then '如果记录数大于0
Call Main
adoRs.Fields("预收金额") = Val(Text3.Text) + Val(Text1.Text)
adoRs.