摘 要
当今社会，酒店种类和客流的不断增加，对于管理造成了困难。采用计算机来管理酒店和住客的信息，提高了查询的速度，节约了人力和物力资源，达到了预期的要求。
本文根据酒店服务管理的现状及未来的发展方向,结合有关酒店管理当中的管理学实践,设计了酒店服务管理系统。本系统的建立以计算机技术和信息技术为依托,规范了管理系统中各要素的关系,使之规范化、标准化、程序化、科学化,形成各要素之间相互制约、层层把关,逻辑严密的体系,从而克服原来手工系统的效率低、工作繁重的缺点。
本系统是用于酒店服务管理的系统软件。系统数据的管理采用了操作系统的最新管理方式，用户操作将会更简单、更直观、更方便。系统中各业务管理模块可以单机独立运行。使用本系统，可以大幅度提高酒店服务管理的工作效率。
该系统应充分利用信息技术提高酒店客房的管理水平、服务水平。酒店客房管理系统要实现客房预定、住宿登记、宿费提醒、追加押金、调房登记、退房结账、挂账、查询统计、预收销售报表等等功能。其中宿费提醒可以在住宿费超过押金时预警，提示前台要客人补交押金，该功能可明显提高对住宿人员宿费的有效管理。将动态实时的住宿登记、客房调整、销售报表、追加押金等有机地联系在一起，对酒店客房进行全方位的管理。
关键词 酒店服务管理系统；数据库；Visual Basic
Abstract
At present, the hotel’s category flows with increasing of the guests continuously, resulted in the difficulty to the management. Using the computer to manage the hotel and the resident information, enhanced the inquiry speed, saved the workforce and the resources and has met the anticipated requirements.
In this article, we designs the hotel management system which accords to the present situation of the hotel service management and the way it develops in the future and hotel management study practice. The establishment of the system bases on the computer technology and the information technology. And it regulates the relationships of the various essential factors, making it logic, essential, scientic , and forms mutually restrict mutually, layer upon layer system between the factors. It reduces problem such as low efficiency former system has.
This system is a software which is used for hotel service management. The management of the system data uses the operating system newest management method, so the user operation will be simpler. The various business management modules in this system may runs independently. These advantages can increase the biggest efficiency of the guest house management, is also a guest house to serve scientific and regular to turn the term of the management.
This system may make full use of information technology to increase the management level, service level of the hotel. The system will realize the function such as he guest room to prearrange, the lodgings registration, the lodging allowance reminder, supplements the deposit, the accent room registration, returns a house ties the account, hangs account, inquiry statistics, advance receipt sale report form. The dynamic real-time lodgings registration, the guest room adjustment, the sales report form, will supplement the deposit and so on organically to relate in together, will carry on the management well to the hotel’s room.
Keywords the system of hotel’s management; database; Visual Basic
目 录
酒店服务管理系统
绪 论
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
用计算机来管理各种数据信息，是世界发展的需求，也是社会发展的趋势。
在酒店服务管理中，也存在着这种问题，为了提高办事效率，需要开发一套操作简单方便的管理系统。
以往的酒店管理方法，查询速度慢，管理困难，容易丢失数据,占用了大量的人员和物资，已经不适合现在的要求。为克服酒店管理的困难和查询的不便。采用计算机来管理酒店和住客的信息，大大提高了查询的速度，节约了人力和物力资源，达到了预期的要求。这样既不方便又容易发生错误，用计算机来管理可以非常容易的实现这些要求。
作为计算机应用的一部分,使用计算机对酒店信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高酒店服务管理的效率,也是酒店酒店的科学化、正规化管理的条件。
该系统应充分利用信息技术提高酒店客房的管理水平、服务水平。酒店服务管理系统能够实现客房预定、住宿登记、宿费提醒、追加押金、调房登记、退房结账、挂账、查询统计、预收销售报表等功能。
1 酒店服务管理系统的开发与设计
1.1 系统开发的背景
随着我国经济的迅速发展，人们的生活水平有了显著提高，假日经济和旅游经济已成为人们消费的热点。各地也把旅游业当作本地经济发展的重要支柱之一，从而促进了酒店酒店业的快速发展。对酒店的经营状况起决定作用的是酒店的服务管理水平。利用先进的管理手段，提高酒店的管理水平，已成为酒店酒店业发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高企业管理无疑是一条行之有效的途径。虽然计算机管理并不是酒店管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对酒店的服务管理提供强有力的支持。因此，采用全新的计算机网络和酒店管理系统，已成为提高酒店的管理效率、改善服务水准的手段之一。在某种意义上，酒店客房管理方面的信息化已成为现代化酒店的重要标志。
1.2 系统的特点
- 操作简单
由于本系统所完成的操作主要是添加、修改、查询、删除和统计等基本操作，故无须进行深入细致的培训操作员就能完成日常的管理任务。
- 友好界面
本系统采用统一的界面，界面简单、美观，支持鼠标和键盘操作，交互性强。
- 安全性强
系统对管理员的权限进行了相应的设置，某些操作管理员无法完成。同时，在每个模块都对管理员进行登陆判断，有效防止了管理员及其他用户的非法登陆。
2. 系统开发涉及的主要技术
2.1 数据库技术
Access提供了真正的关系数据库管理。Access具有主关键字和外部关键字定义，并且在数据库的引擎级提供了完全的引用完整性，可以避免不合理的更新和删除。
Access 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
2.2 VB 6.0中文版概述
在WINDOWS平台上所使用的程序是具有图形界面的,使用图形界面，使用户感到形象、生动，具有吸引力，一扫以往应用程序界面枯燥单调的感觉。在WINDOWS环境下设计具有图形界面的应用程序，如果用传统的高级语言进行，工作量将十分巨大，其中绝大部分的工作量花在界面设计上（用程序语句在屏幕上画出所需的界面），Visual Basic和其它可视化工具的出现，使应用程序的设计进入了一个新的阶段。
Visual Basic是MICROSOFT公司推出的程序设计语言，具有功能强大、软件费用支出低、见效快等特点。它提供了开发WINDOWS应用程序最迅速、最简捷的方法。
Visual Basic增加了结构化和可视化程序设计语言的特点。
3. 系统功能设计
3.1 需求分析
本系统假设某酒店设有豪华套间、标准间、普间、双人间，房间共65间，床位共120张。有闭路电视、程控电话、国内国际直拨电话、电梯、中央空调、现代消防设施、大小餐厅2个、停车场、大小会议室2个，同时能接待120人住宿、50人以内的中小型会议，提供代购火车、汽车、飞机票等各种旅游观光服务。随着信息技术的发展和人们对酒店酒店的要求越来越高，该酒店已明显觉得手工管理已不能适应当前酒店高速发展的需要，已意识到使用计算机网络和计算机管理的重要性，决定首先在客房部采用酒店客房管理系统。
该系统应充分利用信息技术提高酒店客房的管理水平、服务水平。酒店客房管理系统要实现客房预定、住宿登记、宿费提醒、追加押金、调房登记、退房结账、挂账、查询统计、预收销售报表等等功能。其中宿费提醒可以在住宿费超过押金时预警，提示前台要客人补交押金，该功能可明显提高对住宿人员宿费的有效管理。将动态实时的住宿登记、客房调整、销售报表、追加押金等有机地联系在一起，对酒店客房进行全方位的管理。
根据该酒店的具体情况，系统主要功能包括：
- 住宿管理：客房预定、住宿登记、追加押金、调房登记、退房结账。
- 客房管理：客房设置、客房查询、房态查看。
- 挂账管理：挂账查询、客户结款。
- 查询统计：预定房查询、住宿查询、退宿查询、宿费提醒。
- 日结：登记预收报表、客房销售报表、客房销售统计。
- 系统设置：初始化、操作员设置、密码设置、权限设置。
3.2实现目标
面对酒店行业的高速发展和酒店行业信息化发展的过程中出现的各种情况，酒店客房管理系统在实施后，应能够达到以下目标：
- 实现多点操作的信息共享，相互之间的信息传递准确、快捷和顺畅。
- 服务管理信息化，可随时掌握客人住宿、客房状态、客人挂账等情况。
- 系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全。
- 客户档案、挂账信息、预警系统的结合，可对往来客户进行住宿监控，防止坏账的发生。
- 通过酒店客房管理系统的实施，可逐步提高酒店的管理水平，提升员工的素质。
- 系统维护方便可靠、有较高的安全性，满足实用性、先进性的要求。
3.3 系统结构及流程图
3.3.1 系统结构图
根据该酒店的业务情况及实现目标，系统结构图如图3-1所示。
图3-1 酒店服务管理系统结构图
系统功能划分的结构图
图3-2 结算信息实体E－Ｒ图
图3-3 客房信息实体E－R图
图3-5 实体之间关系E－R图
3.3.2 业务流程图
图3-6 业务流程图
4 数据库设计
本酒店客房管理系统采用了Access数据库，数据库名称为kfgl
数据库包含以下8个表：登记预收表djys,登记表djb,挂账明细表gzmx,客房基础信息表kf,客房预定表kfyd,密码表ma,权限设置表qxsz,退房登记表tfdj
下面分别介绍以上各表的结构。
1．登记预收表djys
登记预收表djys用来保存客人在住宿登记时的预收金额等信息。
表4-1 登记预收表
| 字段名称 | 数据类型 | 字段大小 |
| 姓名 | 文本 | 50 |
| 证件名称 | 文本 | 20 |
| 证件号码 | 数字 | 20 |
| 住宿事由 | 文本 | 20 |
| 房间号 | 文本 | 50 |
| 客房类型 | 文本 | 10 |
| 联系电话 | 文本 | 20 |
| 客房价格 | 货币 | 8 |
| 住宿时间 | 日期/时间 | 8 |
| 宿费 | 货币 | 8 |
| 折扣 | 数字 | 双精度型 |
| 应收宿费 | 货币 | 8 |
| 预收金额 | 货币 | 8 |
| 提醒日期 | 日期/时间 | 8 |
| 退宿日期 | 日期/时间 | 8 |
| 备注 | 文本 | 50 |
| 日期 | 日期/时间 | 8 |
| 时间 | 日期/时间 | 8 |
| 结款方式 | 文本 | 10 |
2．登记表djb
登记表djb用来保存客人住宿时的住宿登记信息。
表4-2 登记表
| 字段名称 | 数据类型 | 字段大小 |
| 凭证号码 | 文本 | 20 |
| 姓名 | 文本 | 50 |
| 证件名称 | 文本 | 20 |
| 证件号码 | 数字 | 20 |
| 住宿事由 | 文本 | 20 |
| 房间号 | 文本 | 50 |
| 客房类型 | 文本 | 10 |
| 联系电话 | 文本 | 20 |
| 客房价格 | 货币 | 8 |
| 住宿时间 | 日期/时间 | 8 |
| 宿费 | 货币 | 8 |
| 折扣 | 数字 | 双精度型 |
| 应收宿费 | 货币 | 8 |
| 预收金额 | 货币 | 8 |
| 提醒日期 | 日期/时间 | 8 |
| 退宿日期 | 日期/时间 | 8 |
| 备注 | 文本 | 50 |
| 日期 | 日期/时间 | 8 |
| 时间 | 日期/时间 | 8 |
| 结款方式 | 文本 | 10 |
3．挂账明细表gzmx
挂账明细表gzmx用来保存客人住宿挂账信息和客人结账信息。
表4-3 挂帐明细表
| 字段名称 | 数据类型 | 字段大小 |
| 日期 | 日期/时间 | 8 |
| 挂帐单位 | 文本 | 100 |
| 住宿金额 | 货币 | 8 |
| 欠款金额 | 货币 | 8 |
| 还款金额 | 货币 | 8 |
| 金额累计 | 货币 | 8 |
| 姓名 | 文本 | 100 |
| 证件号码 | 数字 | 20 |
| 时间 | 日期/时间 | 8 |
| 房间标准 | 文本 | 10 |
| 房间价格 | 文本 | 10 |
4．客房基础信息表kf
客房基础信息表kf用来保存客房的基础信息。
表4-4 客房基础信息表
| 字段名称 | 数据类型 | 字段大小 |
| 房间号 | 文本 | 30 |
| 房间类型 | 文本 | 50 |
| 价格 | 货币 | 8 |
| 房态 | 文本 | 4 |
| 备注 | 文本 | 100 |
| 配置 | 文本 | 100 |
| 营业日期 | 日期/时间 | 8 |
5．客房预定表kfyd
客房预定表kfyd用来保存客人预定客房的登记信息。
表4-5 客房预定表
| 字段名称 | 数据类型 | 字段大小 |
| 姓名 | 文本 | 50 |
| 身份证号 | 文本 | 20 |
| 联系电话 | 文本 | 30 |
| 详细地址 | 文本 | 100 |
| 工作单位 | 文本 | 50 |
| 客房类型 | 文本 | 10 |
| 房间价格 | 数字 | 10 |
| 预住日期 | 日期/时间 | 8 |
| 预住天数 | 文本 | 10 |
| 预付金额 | 货币 | 8 |
| 备注 | 文本 | 50 |
| 操作员 | 文本 | 50 |
| 时间 | 日期/时间 | 8 |
6.密码表ma
密码表ma用来保存操作员名称和操作员密码。
表4-6 密码表
| 字段名称 | 数据类型 | 字段大小 |
| 操作员 | 文本 | 16 |
| 密码 | 文本 | 16 |
7．权限设置表qxsz
权限设置表qxsz用来保存操作员的权限。
表4-7 权限设置表
| 字段名称 | 数据类型 | 字段大小 |
| 编号 | 文本 | 50 |
| 操作员 | 文本 | 50 |
| 密码 | 数字 | 双精度 |
| 客房预定 | 是/否 | 1 |
| 住宿登记 | 是/否 | 1 |
| 退宿登记 | 是/否 | 1 |
| 追加押金 | 是/否 | 1 |
| 客房管理 | 是/否 | 1 |
| 客房查询 | 是/否 | 1 |
| 预定房查询 | 是/否 | 1 |
| 住宿查询 | 是/否 | 1 |
| 退宿查询 | 是/否 | 1 |
| 宿费提醒 | 是/否 | 1 |
| 登记预售报表 | 是/否 | 1 |
| 客房销售报表 | 是/否 | 1 |
| 操作员设置 | 是/否 | 1 |
| 密码设置 | 是/否 | 1 |
| 初始化 | 是/否 | 1 |
| 权限设置 | 是/否 | 1 |
| 房态查看 | 是/否 | 1 |
| 调房登记 | 是/否 | 1 |
| 挂帐查询 | 是/否 | 1 |
| 客户结款 | 是/否 | 1 |
| 客房销售统计报表 | 是/否 | 1 |
8．退房登记表tfd
退房登记表tfd用来保存客人退宿登记信息。
表4-8 退房登记表
| 字段名称 | 数据类型 | 字段大小 |
| 凭证号码 | 文本 | 20 |
| 姓名 | 文本 | 50 |
| 证件名称 | 文本 | 20 |
| 证件号码 | 数字 | 20 |
| 住宿事由 | 文本 | 20 |
| 房间号 | 文本 | 50 |
| 客房类型 | 文本 | 10 |
| 联系电话 | 文本 | 20 |
| 客房价格 | 货币 | 8 |
| 住宿时间 | 日期/时间 | 8 |
| 宿费 | 货币 | 8 |
| 折扣 | 数字 | 双精度型 |
| 应收宿费 | 货币 | 8 |
| 杂费 | 货币 | 8 |
| 电话费 | 货币 | 8 |
| 会议费 | 货币 | 8 |
| 存车费 | 货币 | 8 |
| 赔偿费 | 货币 | 8 |
| 金额总计 | 货币 | 8 |
| 预收宿费 | 货币 | 8 |
| 退还宿费 | 货币 | 8 |
| 退房时间 | 日期/时间 | 8 |
| 备注 | 文本 | 50 |
| 联系电话 | 文本 | 20 |
5 系统环境与软件安装
5.1 硬件环境要求
为运行本例，计算机的硬件应满足如下条件：
486DX/66MHz或更高的处理器（推荐Pentium或更高的处理器），或任何运行于
MicrosoftWindowsNTWorkstation的Alpha处理器。
MicrosoftWindows支持的VGA或分辨率更高的监视器。
16MB内存以上。
鼠标或其他定点设备。
5.2 软件环境要求
本系统是在MicrosoftWindowsXP下开发的，所采用的开发工具是Microsoft公司的VisualBasic6.0企业版。推荐桌面显示方式为1024X768像素。
5.3 软件安装
1.建议用户在系统上安装Microsoft公司的VisualBasic6.0企业版。
2.打开光盘中的“酒店服务管理系统”文件夹，将其中的“酒店客房管理系统”文件夹复制到机器内，并去掉所有文件的只读属性。
3.运行程序。打开VisualBasic6.0,运行“酒店客房管理系统”下的“酒店客房管理系统.VBP"工程，或执行“酒店客房管理系统.EXE”文件。
6 酒店服务管理系统的详细设计
6.1 主界面设计
主程序界面如图6-1所示
图6-1主程序界面
6.1.1 实现目标
程序启动后，在系统登录界面验证完操作员及操作员密码后，将进入主程序界面。主程序界面主要实现如下功能：
1.选择菜单或工具栏，调用相应程序，进行相应操作。
2.根据操作员不同，确定操作员的相应权限。
3.显示系统时间、公司网址和操作员。
6.1.2 实现过程
1.新建一个标准工程，命名为“客房管理系统”，在该工程中会自动创建一个新窗体，将该窗体命名为main.
2.单击“工程”菜单下的“部件”选项，在弹出的列表中，选定"MicrosoftWindows CommonControl6.0"选项，然后单击“确定”按钮，StatusBar控件将被添加到工具箱中。
3.在窗体中添加1个StatusBar控件，用鼠标右键单击StatusBar控件，在弹出菜单中选择“属性”。在属性页中，单击“窗格”选项卡，设置4个窗格。设置索引为1的窗格的样式为6-sbrDate；设置索引为2的窗格的样式为5-sbrTime；设置索引为3的窗格的样式为0-sbrtext,并输入文本“http://www.mingrisoft.com”；设置索引为4的窗格的样式为0-sbrtexto4)单击“工具”菜单下的“菜单编辑器”，在菜单编辑器中设置程序的菜单。
6.2 系统登录模块设计
6.2.1 实现目标
程序启动后，首先进入系统登录界面验证操作员及密码。在系统登录模块中主要实现如下功能：
可选择操作员，支持鼠标和键盘操作。
操作员和密码验证成功后，进入主界面。
操作员错误或密码错误提醒并返回错误点。
输入三次错误的密码，自动退出系统。
系统登录界面如图6-2所示
图6-2 登录界面
6.2.2 实现过程
1.在“客房管理系统”工程中，添加一个新窗体，命名为maIn－nllma。
2.单击“工程”菜单下的“部件”选项，在弹出的列表中，选定“MicrosoftDat BoundListControl6．0”选项，然后单击“确定”按钮，DBCombo控件将被添加到工具箱中。
3.在窗体中添加2个Data控件、1个DBC0mbo控件、2个Label控件、1个Text控件、2个Conunand控件。
6.3 住宿管理设计
6.3.1 住宿登记模块设计
实现目标
程序启动后，选择“住宿管理”菜单下的“住宿登记”项，将进入住宿登记模块。在住宿登记模块中主要实现如下功能：
自动生成住宿登记凭证号码。
提供空闲房间供用户选择。
实现客人住宿登记，收取客人预交宿费。
自动计算折前宿费、实际宿费、宿费提醒时间、退宿时间。
打印住宿登记单据。
住宿登记界面如图6-3所示。
图6-3 住宿登记界面
2．实现过程
（l） 在“客房管理系统”工程中，添加一个新窗体，命名为main_kfdj。
（2）程序代码：
Private Sub ZSDJ_Change(Index As Integer)
Select Case Index
Case 6
ZSDJ(7).Text=Format(Val(ZSDJ(6).Text)*Val(ZSDJ(5).Text), "0.00") '计算折前宿费
ZSDJ(9).Text = ZSDJ(7).Text '赋值给ZSDJ(9)
ZSDJ(8).Text = 100
DTP3.Value = DTP1.Value + Val(ZSDJ(6).Text) '计算退宿日期
Case 8
ZSDJ(9).Text=Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, "0.00") '计算实际宿费
Case 10
If ZSDJ(10).Text <> "" Then
ZSDJ(10).Text = Val(ZSDJ(10).Text) '用val函数将字符串转换为数字
DTP2.Value=DTP1.Value+Int(Val(ZSDJ(10).Text)/
If (Val(ZSDJ(10).Text) - Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text))) > 0.5 * Val(ZSDJ(5).Text) Then
tim2.Value = #6:00:00 PM#
Else
tim2.Value = #12:00:00 AM#
End If
End If
End Select
End Sub
追加押金界面如图6-4所示
图6-4 追加押金界面
6.4.1 实现目标
程序启动后，选择“住宿管理”菜单下的“追加押金”项，将进入追加押金模块。在追加押金模块中主要实现如下功能：
提供凭证号码列表供用户选择。
收取客人的续交押金，自动计算宿费提醒日期和宿费提醒时间。
6.4.2 实现过程
1.在“客房管理系统”工程中，添加一个新窗体，命名为main_zjyj
2.在窗体中添加3个Data控件、1个DBCombo控件、6个DTPicker控件、8个Text控件、5个Command控件等。
6．5 调房登记模块设计
6.5.1 实现目标
程序启动后，选择“住宿管理”菜单下的“调房登记”项，将进入调房登记模块。在调房登记模块中主要实现如下功能：
可以选择客人住宿房和空闲房。
实现客户调房登记（系统只允许调换等价客房）。
调房登记界面如图6-5所示。
图6-5 调房登记界面
6.5.2 实现过程
1.在“客房管理系统”工程中，添加一个新窗体，命名为mainesjdj。
2.在窗体中添加4个Data控件、2个DBCombo控件、l个Combo控件、7个Text控件、4个COnunand控件等。
6.5.3 调房的实现方法
由于客人的住宿习惯不同，有些客人会在住宿过程中要求调房，例如客人要求换一个朝阳的房间或空调房等，这就要求客房管理系统有调房的功能。调房模块的思路是：首先查看目标客房是否空闲，如果空闲，查看目标客房的房价（本系统只允许用户调换等价的房间），如果房价与客人原住客房等价，则可确认客人调房。调房后，应对原客房、目标客房的状态进行编辑，再对住宿登记表中的信息进行编辑。
Data1.Recordset.FindFirst’房间号Like”＋Chr(34)＋DBCombo4.Text＋Chr(34)＋"anddjb.标志like“＋Chr(34)＋”1”＋Chr(34)＋"and姓名like"＋Chr(34)＋Textl8.Text＋”＊”＋Chr(34)＋"and凭证号码like"＋Chr(34)＋bh.Text＋Chr(34)＋””
Datal.Recordset.Edit
IfDBCombol.Text＜＞”“ThenDatal.Recordset.Fields("房间号‑)＝Val(DBCombol.Text)
IfDBCombo2.Text＜＞””ThenDatal.Recordset.Fields（”客房类型”）＝DBCombo2.Text
IfDBCombo3.Text＜＞””ThenDatal.Recordset.Fields("客房价格”）＝Val(DBCombo3.Text)
IfTextlO.Text＜＞”“ThenDatal.Recordset.Fields("备注”）＝TextlO.Text
Datal.Recordset.Fields("标志”)＝”1”
Datal.Recordset.Field（“摘要”）=”由源房”＆DBCombo4.Text&“调到目标房”&DBCombol.Text
6．6 退宿结账模块设计
6.6.1 实现目标
程序启动后，选择“住宿管理”菜单下的“退宿结账”项，将进入退宿结账模块。在退宿结账模块中主要实现如下功能：
提供需结账客人的凭证号码供用户选择。
实现现金结账、现金打折结账、挂账结账等功能。
自动计算住宿费用（宿费、电话费、杂费、会议费、停车费、赔偿费等）和退还费用。
实现打印退宿结账单据功能。
退宿结账界面如图6-6所示。
图6-6 退宿结账界面
6.6.2 实现过程
1.在“客房管理系统”工程中，添加一个新窗体，命名为main_tf.
2.在窗体中添加5个Da1La控件、4个DBCombo控件、4个DTPieb沈控件、3个Colllbo控件、21个Text控件、5个Co～and控件等。
3.程序代码：
本部分为该系统的关键：
在开发酒店客房管理系统过程中，从客人入住到客人退宿涉及到客房管理的方方面面，如处理不当，便会给酒店造成很大的损失。
客房宿费的算法
由于每个酒店的管理方法不同，所以宿费算法也有不同，如果采用人工运算既耽误时间，又容易出现运算错误，很容易给酒店和客人造成不必要的麻烦和损失。如果使用程序计算宿费，那么既方便又规范，同时也避免了运算错误。下面是针对酒店客房管理设计的宿费运算公式：
宿费＝房价x天数
如果客人退宿结账时间在住宿当天，可以按如下算法：
如客人退宿结账时间早于18:00,那么住宿天数为0.5天；
如客人退宿结账时间超过18:00,那么住宿天数为1天。
如果客人退宿结账时间不在住宿当天，可以按如下算法（定义A为天数）：
如客人退宿结账时间在中午12:00之前，住宿天数为（退宿日期一住宿日期）+0.5天；
如客人退宿结账时间在中午12:00之后，住宿天数为（退宿日期一住宿日期）+1天。
PublicSubJSQ’定义计算住宿天数的函数
IfDTP2.Value＞DTP1.ValueThen
Iftim2.Value＞#11:59:00PM#Then
Iftim2.Value＞#12:00:00PM#Then
Iftim2.Value＞#6:00:00PM#Then
Texts.Text＝DTP2.Value一DTP1.Value＋1
Else
Texts.Text＝DTP2.Value一DTP1.Value＋0.5
EndIf
Flse
Texts.Text＝UTP2.Value一DTP1.Value
EndIf
RIeP
Texts.Text＝DTP2.Value一DTP1.Value
EndIf
Else
Iftiml.Value＜#2:00:00AM#Then
Iftim2.Value＞#2:00:00AM#Then
Iftim2.Value＞#12:00:00PM#Then
Iftim2.Value＞#6:00:00PM#Then
Texts.Text＝1＋1
Else
Texts.Text＝1＋0.5
EndIf
Else
Texts.Text＝1
FnriIf
Flan
Texts.Text＝1
EndIf
EISe
Texts．Text＝l
Elldlf
Endlf
EndSub
PublicSubssje（）’定义计算实收金额和退还金额的函数
Texssje．Text＝Val（Texzhje．Text）＋Val（Texzf．Text）＋Val（Texdhf．Text）＋Val（Texpef．Text）＋Val（Texh江Text）＋Val（Textef．Text）
Texthje．Text＝Val（Texyj·Text）一Val（Texssje·Text）
EndSub
6．7 客房管理设计
6.7.1 客房设置模块设计
实现目标
程序启动后，选择“客房管理”菜单下的“客房设置”项，将进入客房设置模块。在客房设置模块中主要实现如下功能：
完成客房基本信息的录入、保存、修改。
完成客房基本信息的查询。
客房设置界面如图6-7所示。
图6-7 客房设置
6.7.2 客房查询模块设计
1．实现目标
程序启动后，选择“客房管理”菜单下的“客房查询”项，将进入客房查询模块。在客房查询模块中主要实现如下功能：
按房间号检索所需的客房基本信息。
完成客房基本信息的修改与删除。客房查询界面如图6-8所示
图6-8 客房查询
2．实现过程
(1)在“客房管理系统”工程中，添加一个新窗体，命名为mainwekrcxa
(2)程序代码：
Data1.DatabaseName = App.Path & "\KFGL.MDB"
End Sub
Private Sub Form_Unload(Cancel As Integer)
main.Enabled = True
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Text1_Change()
'查询客房信息
Data1.RecordSource = "select * from kf where kf.房间号 like " + Chr(34) + Text1.Text + "*" + Chr(34) + ""
Data1.Refresh
End Sub
Private Sub Command1_Click() '允许修改客房信息
DBGrid1.AllowUpdate = True
End Sub
Private Sub Command2_Click() '删除客房信息
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.Delete
Data1.Refresh
End If
End Sub
Private Sub Command3_Click()
main.Enabled = True
Unload Me
End Sub
6.7.3 房态查看模块设计
1．实现目标
程序启动后，选择“客房管理”菜单下的“房态查看”项，将进入房态查看模块。在房态查看模块中主要实现如下功能：
以图形方式显示入住房、空闲房、维修房。
计算当前客房入住数、空闲数、维修数、客房的使用率。
点击入住图形的按钮，查看客人详细的住宿信息。
房态查看界面如图6-9所示
图6-9 房态查看界面
2．实现过程
（1）在“客房管理系统”工程中，添加一个新窗体，命名为mainftcx.
（2）在窗体中添加1个Commandl数组(1-25)、2个Image控件、1个Text控件等。
6.8 挂账管理设计
6.8.1 挂账查询模块设计
实现目标
程序启动后，选择“挂账管理”菜单下的“挂账查询”项，将进入挂账查询模块。在挂账查询模块中主要实现如下功能：
选择挂账单位（单位或个人），检索符合条件的挂账信息、还款信息。
按日期检索符合条件的挂账信息、还款信息。
挂账查询界面如图6-10所示。
图6-10 挂账查询界面
6.8.2 客户结款模块设计
实现目标
程序启动后，选择“挂账管理”菜单下的“客户结款”项，将进入客户结款模块。在客户结款模块中主要实现如下功能：
选择挂账单位（单位或个人），检索符合条件的挂账信息、还款信息。
选择结款方式，实现挂账结款的功能。
统计尚欠余额。
客户结款界面如图6-11所示。
图6-11“客户结款”界面
6.9 查询统计设计
6.9.1 住宿查询模块设计
1．实现目标
程序启动后，选择“查询统计”菜单下的“住宿查询”项，将进入住宿查询模块。在住宿查询模块中主要实现输入客人姓名检索住宿信息的功能。
住宿查询界面如图6-12所示。
图6-12 住宿查询界面
2．实现过程
（1）在“客房管理系统”工程中，添加一个新窗体，命名为main_zscx.
（2）程序代码：
PrivateSubFormesLoed（）
Datal．DatabaseName＝App．Path＆’入KI息l．MD丑”’自动识别数据库路径
EndSub
PrivateSubFormesUnfoad（CaneelAsInteger）
rnain．Enabled＝True
EndSUb
PrivateSubCommandl_cliek（）’查询住宿信息
Datal．Reeordsource＝”seleet＊fromonldjbwhere姓名like”＋Chr（34）＋textl．text＋”＊”＋Chr（34）＋”“
Datal．Refresh
EndSllb
PrlvateSubCornrnand2_Cliek（）
main．Enabled＝True
UnloadMe
EndSub
6.10 宿费提醒模块设计
宿费提醒的实现方法：
客人在住宿前首先要说明住宿天数，根据客人住宿天数和房间价格，酒店要向客人收取一定的住宿押金。如果客人住宿了10天，而只交付了5天的宿费，入住时间超过5天后，如果没有及时催要住宿费，很容易造成客人未交宿费便离宿，这样便会给酒店造成损失。为了解决这种情况，本系统设计了宿费提醒功能，可以及时提醒酒店客人什么时间需补交多少宿费。例如，本例根据押金的多少计算提醒日期。代码如下(Text9为押金金额，DBCombo3为房间价格，Text14为提醒日期）：
IfText9.Text＜＞”“Then
Text9.Text=Val(Text9.Text)
DTP2.Value＝DTP1.Value＋Int(Val(Text9.Text)／Val(DBCombolText))
Text14.Text＝DTP2.Value
EndIf
6.11 日结设计
该部分包括登记预收报表模块、客房销售报表模块和客房销售统计模块。便于酒店对于业务进行管理。其中：
在登记预收报表模块中主要实现按时间汇总应收宿费总额、预收宿费总额的功能。
在客房销售报表模块中主要实现按任意时间汇总客人结账后所需费用的总额的功能。
在客房销售统计模块中主要实现按任意年汇总客房应收宿费、杂费、电话费、会议费等的功能。
图6-13 登记预收报表界面
图6-14 客房销售报表界面
图6-15 客房销售统计界面
6.12 系统设置设计
6.12.1 操作员设置模块设计
程序启动后，选择“系统设置”菜单下的“操作员设置”项，将进入操作员设置模块。
在操作员设置模块中主要实现如下功能：
完成操作员及密码的设置。
支持鼠标和键盘操作。
操作员设置界面如图6-16所示。
图6-16 操作员设置界面
6.12.2 密码设置模块设计
程序启动后，选择“系统设置”菜单下的“密码设置”项，将进入密码设置模块。在密码设置模块中主要实现如下功能：
完成操作员密码的修改。
支持鼠标和键盘操作。
密码设置界面如图6-17所示。
图6-17 密码设置界面
程序代码：
Private Sub label1_Click() '修改操作员密码
Data1.RecordSource = "select * from qxsz where 操作员='" & Text1.Text & "'"
Data1.Refresh
If Text1.Text <> "" And Text2.Text <> "" And Text2.Text = Data1.Recordset.Fields("密码") Then
If Text3.Text <> "" Then
Data1.Recordset.Edit
Data1.Recordset.Fields("密码") = Text3.Text
MsgBox ("密码修改成功,退出操作员密码修改!")
Data1.Recordset.Update
main.Enabled = True
Unload Me
Else
MsgBox ("请输入新密码!!")
End If
Else
If Text1.Text = "" Then
MsgBox ("请输入操作员!")
Text1.SetFocus
Else
If Text1.Text <> Data1.Recordset.Fields("操作员") Then
Text1.SetFocus
Text1.Text = ""
MsgBox ("无此操作员,请重新输入!")
End If
End If
If Text2.Text = "" Then
MsgBox ("请输入操作员原密码!")
Text2.SetFocus
Else
If Text2.Text <> ma.Text Then
MsgBox ("原密码错误,请重新输入原密码!")
Text2.SetFocus
End If
End If
End If
End Sub
6.12.3 初始化模块设计
初始化界面如图6-18所示。
图6-18 初始化界面
6.12.4 权限设置模块设计
在权限设置模块中主要实现删除操作员信息及设置操作员权限的功能。
权限设置界面如图6-19所示
图6-19 权限设置界面
参考文献
[1]王春才、高春燕、李俊民，Visual Basic数据库系统开发完全手册，人民邮电出版社，2003
[2]韩亚萍，Visual Basic6.0基础培训百例，机械工业出版社，2003
[3]金英姿、邓少鹍，Visual Basic实用培训教程，人民邮电出版社，2004
[4]伍俊良，Visual Basic课程设计与系统开发案例，清华大学出版社，2004
[5]张勇等，Visual Basic课程设计案例精编，水利水电出版社，2005
[6]王道荣、林信成 ，Visual Basic6数据库处理-从入门到精通，中国铁道出版社，2004
[7]常晓波，Visual Basic 6.0高级编程，清华大学出版社，2004
[8]张朝昆、施丽娜，Visual Basic数据库开发基础与应用，人民邮电出版社，2005
[9]郭瑞军,唐邦民,谢晗昕，Visual Basic数据库开发实例精粹，电子工业出版社，2005
[10]王泰峰，软件项目开发综合实训--Visual Basic篇，人民邮电出版社，2005
[11]温小敏，Visual Basic数据库系统项目开发实践，科学出版社，2005
[12]赛奎春，Access数据库开发实例解析，机械工业出版社，2004
[13]刘远东,何思文,吴斌新，数据库基础及Access应用，机械工业出版社，2005
[14]苏瑞、曹斌，Access数据库系统项目开发实践，科学出版社，2004
[15]李淑馨，深入浅出Access数据库程序设计理论与实务，中国铁道工业出版社，2004
[16]郑小玲、王学军，Access项目案例导航，科学出版社，2005
[17]Raghu Ramakrishnan,Johannes，Database Management Systems，Gehrke，清华大学出版社，2003
812
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
