论文(酒店客房管理系统)

1、摘 要随着社会服务行业的发展，使用管理软件来管理整个宾馆企业的要求也逐年升温，有条件的酒店或宾馆都采用了相关的酒店管理系统，以解决宾馆全凭原始的手工记录管理，效率低、易出错的缺陷。宾馆行业对自身提供服务的质量和能力也有了更高的要求，宾馆信息管理系统正因此而越来越受到重视.宾馆信息管理系统主要实现宾馆酒店的客房管理、客户信息管理、客户添加管理、客户修改管理、客户删除管理功能。 一个宾馆信息管理系统应该包括基本的客房信息管理、客房客户信息管理、入住退房信息管理等相关的信息管理。 本文结合酒店管理信息系统的开发过程，详细介绍如何针对酒店的需求，将先进的软件应用技术融入现代酒店管理系统中，开发出功能更

2、完善的酒店管理信息系统。本系统运用Access 2000数据库系统和Visual Basic6。0程序语言开发实现，包括了住宿管理、客房管理、挂账管理、查询统计、日结、系统设置和系统维护等七大模块，具有操作简单、界面友善、灵活性好、系统安全性高、运行稳定等特点。论文简要介绍了“酒店管理信息系统的项目背景和意义，着重阐述了该系统开发实现过程，对系统的需求分析、方案论证、模块设计、数据库设计等各个环节进行了详尽的分析和描述。重点介绍了酒店管理信息系统所采取的关键技术，包括Visual Basic6.0的数据库访问技术、数据库设计的范式分析方法。论文最大的特点在于理论与实践相结合。本文所做的工作和创

3、新之处是比较客观准确地分析识别了酒店信息管理系统的需求问题，值得同行业参考借鉴,在调查分析的基础上,得到了酒店服务业务流程，提出了一套有效的数据处理方案。 本系统采用当前流行的客户机服务器体系结构,将酒店管理各方面信息集中存储于Access 2000数据库,实现了信息的实时共享，适合酒店业向集团化发展的需要。系统具有运行稳定、数据结构严谨、稳定性强等特点。关键词：酒店信息管理；数据访问组件；客户服务器模式经济型酒店管理信息系统的设计与实现目录 TOC o 1-3” h z u HYPERLINK l ”_Toc289507113” 目录 PAGEREF _Toc289507113 h 3 HY

4、PERLINK l ”_Toc289507114 第1章 绪论 PAGEREF _Toc289507114 h 4 HYPERLINK l ”_Toc289507115 1。1系统的开发背景 PAGEREF _Toc289507115 h 4 HYPERLINK l _Toc289507116 1.2现状分析 PAGEREF _Toc289507116 h 4 HYPERLINK l ”_Toc289507117 第2章 酒店客房管理系统需求分析 PAGEREF _Toc289507117 h 5 HYPERLINK l ”_Toc289507118 2.1可行性研究 PAGEREF _Toc

5、289507118 h 5 HYPERLINK l _Toc289507119 2.2需求分析 PAGEREF _Toc289507119 h 5 HYPERLINK l ”_Toc289507120” 2。2.1业务需求 PAGEREF _Toc289507120 h 5 HYPERLINK l ”_Toc289507121 2.2。2 用户需求 PAGEREF _Toc289507121 h 6 HYPERLINK l _Toc289507122” 2。2。3功能需求 PAGEREF _Toc289507122 h 7 HYPERLINK l _Toc289507123 2.3用户分析 P

6、AGEREF _Toc289507123 h 7 HYPERLINK l _Toc289507124 2。4主要业务需求分析 PAGEREF _Toc289507124 h 8 HYPERLINK l ”_Toc289507125 2。4。1 前台业务需求分析 PAGEREF _Toc289507125 h 8 HYPERLINK l ”_Toc289507126 第3章 酒店客房管理系统设计 PAGEREF _Toc289507126 h 9 HYPERLINK l ”_Toc289507127 3.1系统总体结构设计 PAGEREF _Toc289507127 h 9 HYPERLINK

7、l _Toc289507128 3。2 系统结构图 PAGEREF _Toc289507128 h 9 HYPERLINK l _Toc289507129” 3.3 数据库的设计 PAGEREF _Toc289507129 h 10 HYPERLINK l _Toc289507130” 第4章 系统实现与测试 PAGEREF _Toc289507130 h 12 HYPERLINK l _Toc289507131 4。1 基于Visual Basic6。0的系统实现 PAGEREF _Toc289507131 h 12 HYPERLINK l ”_Toc289507132 4.2软件功能描述

8、PAGEREF _Toc289507132 h 12 HYPERLINK l _Toc289507133” 4.3功能运行与测试 PAGEREF _Toc289507133 h 12 HYPERLINK l _Toc289507134 第5章系统详细设计 PAGEREF _Toc289507134 h 14 HYPERLINK l ”_Toc289507135 5。1界面设计与功能 PAGEREF _Toc289507135 h 14 HYPERLINK l _Toc289507136 5。2 用户登陆模块 PAGEREF _Toc289507136 h 14 HYPERLINK l ”_To

9、c289507137 5.3 主界面 PAGEREF _Toc289507137 h 17 HYPERLINK l ”_Toc289507138 第5章结论 PAGEREF _Toc289507138 h 26 HYPERLINK l _Toc289507139 致 谢 PAGEREF _Toc289507139 h 27 HYPERLINK l _Toc289507140 参考文献 PAGEREF _Toc289507140 h 28第1章 绪论1.1系统的开发背景随着我国经济发展水平的迅速提高,酒店业作为服务行业中的重要组成部分己经越来越显示出其强劲的发展势头.纵观国内外酒店业信息化发展轨

10、迹和趋势, 我们不难看出，随着酒店业竞争的加剧,酒店之间客源的争夺越来越激烈,客房销售的利润空间越来越小,酒店需要使用更有效的信息化手段，拓展经营空间，降低运营成本，提高管理和决策效率。而经济型酒店通过信息化管理提高收益的需求更加突出。高层次的酒店业信息化不再是仅仅追求计算机辅助管理,而是追求建立在集成化基础上的协同化应用。我国酒店业利用计算机管理系统来加强管理、提高服务水平,虽然至今已有了20多年的历史，但起步发展较晚,只是一些浅层次应用，大多数还停留于七拼八凑的MIS系统水平，甚至还仅限于简单的电算化和信息发布阶段,与国际酒店业先进信息化应用的差距非常明显。信息化程度不高导致企业决策失误、

11、市场反应速度缓慢等，己经成为制约我国酒店业进一步发展的重要瓶颈。中国信息化推进联盟副理事长张献军曾说，随着酒店信息化的发展，酒店将改变以往的经营理念和竞争模式，店内装潢、客房数量、房间设施等质量竞争和价格竞争将退居其次，取而代之的是酒店信息化竞争，信息化正改变着酒店业的竞争模式。国家旅游局2002年修订的旅游星级饭店评定的国家标准,已经把酒店管理的软件指标及服务方面作为主要测评手段。而现代化的酒店是集客房、餐饮、通讯、娱乐,商务文化及其他各种服务与设施为一体化的消费场所，酒店组织庞大,服务项目多，信息量大，要想提高劳动生产，降低成本,提高服务质量和管理水平,进而促进经济效益，必须借助计算机来进

12、行现代化的信息管理,本酒店管理系统正是为此而设计，目的是使酒店管理特别是经济型酒店在高效、低成本方面跨上一个新的台阶。1。2现状分析酒店计算机管理系统最早是于上世纪70年代初在国外开始发展起来的,到了上世纪80年代,国外的饭店管理系统，如EECO，HIS,CLS,Lodgistix等，整个模式已基本定型，技术较成熟，功能也比较全面。国内的酒店计算机管理系统最早是在80年代初开始的,从事该方面工作的有清华大学自动化系的金国芬教授、西安交大和浙江省计算技术研究所。到上世纪80年代中经济型酒店管理信息系统的设计与实现后期，；随着国外酒店计算机系统的大规模引进，国外酒店的先进管理技术进入我国,进打步促

13、进曩我国饭店管理技术的发展。国内系统正是在充分吸收国外管理系统的精华.,再结合国内的实际情况,逐步发展成熟，到上世纪90年代初期形成了几个较成熟的软件系统,同时产生了许多专职从事酒店计算机管理系统的公司。进入21世纪后，随着计算机在酒店中的普及应用,以及计算机技术的不断发展，酒店计算机系统的发展到了一个新的时期，新的系统平台、新的软件功能、新的系统特点及发展方向不断涌现，酒店管理系统逐渐向ERP方向发展。第2章 酒店客房管理系统需求分析2。1可行性研究可行性研究是在系统调查的基础上,针对新系统的开发是否具备必要性和可能性,对新系统的开发从技术、经济、社会的方面进行分析和研究，以避免投资失误,保

14、证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决.该系统的可行性分析包括以下几个方面的内容:经济可行性：主要是对项目的经济效益进行评价，本系统开发经费对于本企业在经济上是可以接受的，并且本系统实施后可以显著提高工作效率，有助于企业的信息化管理，所以为该企业开发酒店管理系统在经济上是可行的.技术上的可行性：技术上的可行性分析主要分析技术条件能否顺利完成开发工作，硬、软件能否满足开发者的需要等。该酒店管理系统采用了CS模式进行开发，开发工具选用Visual Basic6。0数据库服务器选用Access 2000数据库,能够处理大量数据，同时保持数据的完整性

15、并提供许多高级管理功能.它的灵活性、安全性和易用性为数据库编程提供了良好的条件。因此，系统的软件开发平台己成熟可行.硬件方面，科技飞速发展的今天，硬件更新的速度越来越快,容量越来越大，可靠性越来越高，价格越来越低,其硬件平台完全能满足此系统的需要.管理上的可行性：主要是管理人员是否支持，现有的管理制度和方法是否科学，规章制度是否齐全,原始数据是否正确等。规章制度和管理方法为酒店管理系统的建设提供了制度保障。综上所述，此系统开发目标已明确，在技术和经济等方面都可行，并且投入少、见效快.因此，系统的开发是完全可行的。2。2需求分析图21是酒店管理系统的层次化需求模型，最高层是业务需求，第二层将总体

16、的业务需求分解为各项用户需求，第三层再将用户需求具体分解为功能方面的需求.这样就使得系统的需求变得非常直观了。2.2.1业务需求从业务和全局来分析，酒店管理系统应有以下需求：(1)系统的设计思想应围绕拓展酒店及娱乐经营渠道,帮助酒店进行正确的经营决策来进行;建立一体化的酒店管理软件系统前台管理客房管理营销管理财务/数据管理图21系统的需求层次（2)系统适应当前行业内客源增长趋势；体现酒店个性化服务，从不同角度来满足客人需要；(3）系统设计工具先进、稳定,采用数据库结构完善;（4）设计必须考虑到能够处理非常大的事务量，保证系统长时间高效快速运转；（5）必须建立一套高效率、低运作成本和适合电脑化管

17、理的管理制度;(6)系统必须支持客人多点消费一次结账的店内签账功能；（7)前台、餐厅、娱乐、电话等各子系统必须能够统一联网，；(8)支持连续完整的事务操作,即使是系统网络失败，也保持事务的连续性，出故障后，恢复必须完全而可靠，不丢失数据,可保持数据的完整性；(9）系统必须能连续24小时不问断运行;（10)一旦系统出现故障，必须能在最短时间内恢复；（11）低廉的维护和支持费用，使用开放工业标准及软硬件平台；(12）结构必须支持远程异地维护；(13)最终工作站点具有有限的功能，每个地点有多个工作点，单个工作站出故障不会影响整个系统。（14）对先期投资的网络应具备良好的扩展性和先进性，便于在未来增加

18、工作站点时方便易行，不必重新更改网络结构以保护先期投资。2。2。2 用户需求从用户分析，本酒店管理系统应该具有如下特质：(1)前台收银系统，包括了客房管理、门锁接口系统和电话接口系统等。（2）商品管理系统提供库存管理以及往来物品管理等功能模块，提供商品库存管理，销售统计，成本金额与销售金额对比等。(3)房务管理系统是专为客房经理或房务中心提供的管理模块,可以方便的查看以及修改变更房间状态,方便前台办理各种手续赢得时间.(5)财务管理系统，主要是为经理、财务以及管理人员使用的部分，可以对整个系统进行设置、调整、数据分析、报表统计等等。2。2.3功能需求（1)服务器主机是软件的核心部分,包括管理软

19、件和数据库,数据库采用Access 2000,数据访问通过TCPIP协议，局域网内服务器与客户端分离,防止某一客户端操作系统出现问题时,其它客户端能正常工作。(2)前台管理功能：开房房态：提供浏览酒店的总房态图、楼层房态图和房型房态图三种样式，用户并可以在两种样式之间随时进行切换.系统实时显示房态并自动进行刷新，随时保持显示正确的房态。用户可进行开房、户籍登记、留言、续住、换房、团散互转等各项工作. (3）房务管理:维修管理:把有问题的房间改成维修房，阻止客房出租。清扫管理:将打扫过的房间改为干净房。客史查询：对住店宾客或离店宾客的查询。综合查询：本系统提供完善的查询功能，包括预定情况、住店宾

20、客信息、宾客入住情况、宾客离店情况、宾客历史档案、客房状态等；可以根据在店客人的任何一项条件进行查询(如客人姓名、房号、来期、离期等）。（5)财务数据管理催款报表：可以随时对在店客人的消费情况进行统计，根据信用情况打印催款通知单，有效地防止客人透支消费，以免造成酒店的损失。跑账处理：对跑账的客人，首先报告经理，接着将其所住房退掉，然后建立特殊账户,将其所有费用转入特殊账户。后台结算:提前结算宾客的某一类消费和提前结算宾客在未来一段时间的全部费用，并可延迟退房。往来单位结账：结算在酒店消费单位、团队等的所有费用；并可进行转账等。修改房价：调整宾客的客房价格及房租服务费.综合查询：本系统提供完善的

21、查询功能，如在店客人、离店客人查询.2。3用户分析该系统的用户一种:这种用户，是酒店的前台服务员,他们只能使用前台管理,进行客户登记，结账等操作，进行房务和商品管理等.现代酒店是由客房,餐厅,酒吧，商场以及宴会,会议，通讯,娱乐,健身等设施组成的，使客人在旅行目的地吃，住，行，游，购，娱乐，通讯，商务，健身等各种需求得到满足的,综合性的服务设施。酒店的业务框架如图22所示。系统应支持从前台服务到后台管理的各项业务，实现各种信息的快速查询, 提供有用的数据报表，综合分析财政状况，为酒店经营者提供决策依据。系统针对中小型酒店，提供适应酒店业务需求的各项功能，其最终用户包括系统管理员、普通业务人员和

22、酒店的经营管理者。 其中，系统管理员负责系统的管理和日常维护。应具备较高的计算机应用水平，熟悉系统的结构组成，熟练使用系统的中各项功能.应具备一定的数据库管理知识,熟练使用SQL Server提供的数据库维护功能;业务人员具备基本的计算机操作能力，熟练使用与其自身业务相关的系统功能：经营管理者:对酒店日常营业全方位统计分析，得到有价值的决策信息。2。4主要业务需求分析 一套完整的酒店管理软件其涉及的内容非常繁杂，鉴于篇幅原因，本文重点对酒店管理系统中的前台业务管理内容的分析、设计与实现进行阐述。2.4.1 前台业务需求分析前台业务主要包括接待客人的预定、办理客人入住手续、办理客人结账离店手续等

23、,事务流程如图22所示。客人预订接待取消预订离店客人图22前台系统示意图第3章 酒店客房管理系统设计3.1系统总体结构设计酒店客房管理系统部分实体E-R图如下所示: 用户名登陆密 码 码图3.1。1登陆模块ER图客 户住宿事由房间类型房间价格住宿日期退宿日期身份证号房间号姓名押金图3.1.2客户管理ER图调房登记源房间号交费单号缴费人目标房间号姓名房间价格图3.1.3调房登记ER图3。2 系统结构图客房管理住宿管理查询统计账管理询系统设置退出系统客房设置住宿登记调房登记退宿结账住宿查询退宿查询宿费提醒用户设置密码设置客房查询酒店客房管理系统 图3。2系统结构图 3。3 数据库的设计 （1） 用

24、户表用户表存放登陆系统所需要的用户名和密码，需要访问此表。 操作员：除了系统管理员之外，其他的任何操作员都首先要在这里登记，登记的资料可以随时修改或删除。表3。1用户表字段名数据类型可否为空用户名（主键）IntNOT NULL密码IntNOT NULL (2） 客户基本信息表客户表存放酒店内所有的客户信息，这些信息也是酒店客房管理的基本信息。表3。2客户基本信息表字段名数据类型可否为空姓名(主键)Char(10)NOT NULL房间号码Char(10)NOT NULL身份证号码Varchar(50)NOT NULL入住时间DatetimeNULL(3） 客房基本信息表客房表存放酒店内的所有房间

25、的信息，其中包括房间价格和房间类型.表3。3房间基本信息表字段名数据类型可否为空住址(主键)Char（10)NOT NULL房间结构Varchar(50)NOT NULL设备Float（8)NOT NULL客房面积Float（8)NOT NULL客房状态Char（20)NULL(4) 收费信息表住宿收费表存放酒店内客户的各种收费信息。表3.4住宿收费表字段名数据类型可否为空住址(主键)Char（10)NOT NULL住宿费Char（10）NOT NULL电话费Varchar(50）NOT NULL结账时间DatetimeNOT NULL第4章 系统实现与测试4。1 基于Visual Basic

26、6.0的系统实现酒店客房管理系统是典型的信息管理系统，本文所开发的系统采用 Visual Basic6.0作为当前最优秀的数据库前端开发工具之一， Visual Basic6.0有着最为灵活的数据库结构,对数据库应用有着强大的支持.本文将介绍怎样用Visual Basic6。0开发酒店客房管理系统的流程,系统包括五大组成部分,例如系统管理，入住子系统等。它涵盖了酒店管理系统的开发背景、系统分析、系统设计、系统实施、以及系统维护的信息系统开发的整个生命周期.同时，通过本文的阅读您可以了解到酒店管理的有关内容以及怎样使用该系统.本软件是在系统分析与设计的基础上开发而成,实现了酒店基本信息的录入与查

27、询的功能操作，界面友好,便于操作.4。2软件功能描述本系统实现后操作简便实用，其特点为:（1)房租折扣随开房率变化，帮助酒店提高平均房价,实用的分帐单功能，全面记录客人的用房爱好、嗜好、投诉、入住次数、消费情况、信用情况、遗留物品等个人资料,并能方便的查询和提示.（2）为适应酒店前台收银处和接待处合并，提高服务质量、减少人员成本的发展趋势，我们在开发过程中精心设计，通过系统参数设置，使系统可以满足两种运作模式的需要。（3）是成熟软件中操作最简单的酒店管理系统。我们在开发过程中,根据现代电脑的高速性能,设计了大量的自动操作功能,降低操作复杂性，减少误操作.(4)做到MDI“多文档界面的酒店管理系

28、统,使操作员可以轻松应付同时有几个客人要求服务的情形,提高操作效率和服务质量。（5）是成熟软件具开放性的系统，除可以连接电话交换机、电子门锁、各大财务软件外，还可以连接VOD、床控板等其他酒店常用设备，实现房间电视查帐单、留言，客人入住房间前由接待处自动开启房间空调预冷、预热,楼层服务员通过电脑掌握客人是否在房间等实用功能；并可为用户其他设备订做新的接口提供方便、易用的用户自定义报表功能，用户可以根据自己的需要增加、修改报表,另外系统中还提供了大量的分析图表,帮助管理者快速直观掌握情况。我们期望通过该系统实现以下效益:(1)提高服务质量(2)提高工作效率（3)提高经济效益4.3功能运行与测试当

29、设计和实现完成后，需要对系统进行全面的测试。主要分为三个阶段：（1）实现过程中，对模块各个功能的逐一测试，保证测试结果和需求分析的一致性。时间视该模块的复杂度和重要性而定，但单个模块的测试时间最长不超过7天。(2）在整个系统实现完成之后，利用部分人造数据对系统进行全面验证，查找和避免系统错误.时间约为半个月。（3）在实际应用场景中试运行一段时间,与酒店的管理同步，并在试运行期间采用人工管理和电子化管理并行的策略，在并行期间,定期进行检验。在对功能需求进行验证的同时，须对性能需求进行评价,如发现问题，则及时解决。此阶段测试时间约为1个月。部分模块运行与测试情况如下：（1）开房房态提供浏览酒店的总

30、房态图、楼层房态图和房型房态图三种样式，用户可以在两种样式之间随时进行切换.系统实时显示房态并自动进行刷新,随时保持显示正确的房态。用户可进行开房、户籍登记、留言、续住、换房、团散互转等各项工作. （3）散客开房接待员工只须录入客人的姓名、证件号码，后自动识别所在省市，完成宾客的开房操作。提供历史客人开房、预定开房、协议开房及VIP开房等多种开房形式，自动将对应的内容复制到入住单单中，实现客史资料、预定资料的有机结合，简化了宾客的入住操作.而且可以使用用户登记资料更为规范,为酒店的经营分析下良好的数据基础.第5章系统详细设计5。1界面设计与功能经过以上的分析及建摸模,已经完成了数据库的后台工作

31、。下面要完成的是人机交互的界面。本系统分为以下三部分：(1) 用户登陆；（2） 系统主体平台;(3) 通过主体平台调用的功能模块。接下来即对各部分作详细介绍:5。2 用户登陆模块启动系统程序后,首先进入系统登陆界面,在登陆进入主体平台的时候，系统会要求用户输入用户名及密码作为验证信息，为了防止非用户在使用，输入正常信息后便可以使用本系统。登陆模块图如下:图5。2登陆界面模块图Private Sub Command1_Click（） 修改操作员密码Adodc1.RecordSource = select * from tb_qxsz where 操作员= + Text1。text + ” Ado

32、dc1。Refresh If Adodc1.Recordset。RecordCount 0 Then ma.text = Adodc1。Recordset.Fields(”密码） Else ma。text = ” MsgBox 不存在该操作员!， ， ”系统提示 Exit Sub End If If Text1.text And Text2.text ” And Text2.text = Adodc1。Recordset.Fields（”密码”） Then If Text3。text ” Then adocon.Open Provider=Microsoft。Jet.OLEDB。4.0；Dat

33、a Source= App。Path & ”DB_KFGL。mdb；Persist Security Info=False” Set adoRs = adocon。Execute(”update tb_qxsz set 密码=” + Text3。text + ” where 操作员=” + Text1.text + ） adocon.Close Dim rs1 As New ADODB。Recordset rs1.Open select * from tb_user where 操作员=” + Text1.text + ， StrCnn, adOpenKeyset， adLockPessimi

34、stic If rs1.RecordCount 0 Then rs1.Fields(密码”) = Text3。text rs1.Update rs1。Close End If MsgBox 密码修改成功,退出操作员密码修改!， ， ”系统提示” Main。Enabled = True Unload Me Else MsgBox ”请输入新密码！!”, ， ”系统提示 End If Else If Text1。text = ” Then MsgBox 请输入操作员！”， , ”系统提示” Text1.SetFocus Else If Text1.text Adodc1。Recordset。Fie

35、lds(操作员”） 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。text = ” Text2.SetFocus End If End If End IfEnd SubPrivate Sub Command2_Clic

36、k（) Main.Enabled = True Unload MeEnd SubPrivate Sub Form_Load() 自动识别数据库路径 Adodc1.ConnectionString = Provider=Microsoft。Jet.OLEDB。4。0；Data Source=” App。Path & ”DB_KFGL。mdb；Persist Security Info=False” Adodc1。RecordSource = ”select * from tb_qxsz” Adodc1.RefreshEnd SubPrivate Sub Form_Activate() Text1

37、.SetFocus text1获得焦点End SubPrivate Sub Form_Unload（Cancel As Integer) Main。Enabled = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2。SetFocus 回车text2获得焦点End SubPrivate Sub text2_KeyDown（KeyCode As Integer, Shift As Integer） If KeyCode = v

38、bKeyReturn Then Text3。SetFocus 回车text3获得焦点End SubPrivate Sub Text3_KeyDown（KeyCode As Integer， Shift As Integer） If KeyCode = 13 Then Command1_ClickEnd Sub5。3 主界面主界面运行如图5.3所示图5.3主界面运行本模块代码如下：Dim strtemp As String * 60 定义字符变量存储路径Private Declare Function GetSystemDirectory Lib ”kernel32 Alias GetSyste

39、mDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long） As Long 声明API函数Private Sub Form_Load() 自动识别数据库路径 Adodc1.ConnectionString = ”Provider=Microsoft.Jet.OLEDB。4。0；Data Source= & App.Path & ”DB_KFGL.mdb;Persist Security Info=False Adodc1.RecordSource = select from tb_user Adodc1。Refresh Adodc2.

40、ConnectionString = Provider=Microsoft.Jet。OLEDB.4。0；Data Source=” & App.Path & ”DB_KFGL。mdb;Persist Security Info=False” Adodc2.RecordSource = select from tb_qxsz Adodc2.RefreshOn Error GoTo aa 错误处理。当找不到路径时则转向错误处理 Open （App.Path ”picture.txt”） For Input As 1 Line Input 1, intext Temp = intext Close

41、1 Image2.Picture = LoadPicture（intext) Exit Subaa:Image2。Picture = LoadPicture(App。Path image酒店客房管理系统主界面。bmp） 当找不到路径时，赋给一个固定的图片路径End SubPrivate Sub Form_Activate（) 设置操作员权限 Adodc1。RecordSource = select from tb_user where 操作员= + StatusBar1。Panels（4)。text + Adodc1。Refresh If Adodc1.Recordset。RecordCoun

42、t 0 Then Adodc2。RecordSource = ”select from tb_qxsz where 操作员=” + StatusBar1。Panels（4）.text + ” Adodc2。Refresh If Adodc2.Recordset。RecordCount 0 Then With Adodc2.Recordset Main。zjyj。Enabled = .Fields（追加押金） Main。ZSDJ.Enabled = .Fields（住宿登记) Main。tf。Enabled = .Fields(”退宿登记） Main.tfdj.Enabled = 。Fields

43、（”调房登记） Main.kfsz.Enabled = 。Fields(客房管理） Main。kfcx。Enabled = 。Fields(”客房查询”) Main.ftck.Enabled = 。Fields(”房态查看”） Main.gzcx。Enabled = .Fields(”挂账查询) Main.gzjk。Enabled = 。Fields（”挂账结款”) Main.zscx。Enabled = .Fields(”住宿查询”） Main.tfcx。Enabled = 。Fields（退宿查询”) Main。sftx。Enabled = .Fields（”宿费提醒”） Main。ysb

44、b.Enabled = 。Fields(登记预收报表) Main.xsbb。Enabled = .Fields(”客房销售报表”） Main。xstj。Enabled = .Fields（”客房销售统计报表”） Main.czysz.Enabled = .Fields（”操作员设置”） Main。ma.Enabled = .Fields(”密码设置”） Main.csh。Enabled = 。Fields（”初始化”) Main.qxsz.Enabled = .Fields（”权限设置”） Main.sztx。Enabled = .Fields(设置窗口图像） Main.sjbf.Enable

45、d = .Fields(”数据备份) Main.sjhf.Enabled = 。Fields（”数据恢复） Main.Toolbar1.Buttons（1)。Enabled = 。Fields(住宿登记”） Main.Toolbar1。Buttons(3).Enabled = .Fields（”退宿登记”） Main.Toolbar1。Buttons（5).Enabled = 。Fields（”房态查看) Main.Toolbar1.Buttons（7)。Enabled = .Fields(”住宿查询) Main.Toolbar1。Buttons(9）。Enabled = .Fields（”客

46、房销售报表) Main.Toolbar1.Buttons（11)。Enabled = .Fields（”宿费提醒”) End With End If End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button） Select Case Button.Key Case DJ” zsdj_Click 调入住宿登记 Case TF tf_Click 调入退宿结账 Case FT ftck_Click 调房态宿查询 Case CX zscx_Click 调入住宿查询 Case RJ xsbb_Clic

47、k 调入客房销售报表 Case TX” sftx_Click 调入提醒 Case ”counter Dim L, S 调用计算器 L = GetSystemDirectory（strtemp， Len（strtemp)） Paths = Left(strtemp, L） & CALC。EXE” S = Shell(Paths, 1) Shell 函数执行一个可执行文件，返回一个 Variant （Double),如果成功的话，代表这个程序的任务 ID，若不成功,则会返回 0。 Case ”CXDL 重新登录 Load main_Login main_Login。Show Case exit I

48、f MsgBox（”确定退出该系统？， 4， 系统提示） = vbYes Then End End If End SelectEnd SubPrivate Sub sztx_Click（) 设置主窗口图像Dim Str 定义变量CommonDialog1.Filter = ”BMP图片(.BMP)*。BMPJPG图片(.JPG)*.JPGGIF图片（*.GIF).GIF|所有文件（.*)|*。” 设置图片格式CommonDialog 控件CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。CommonDialog1。ShowO

49、pen 显示“打开对话框If CommonDialog1.FileName ” Then 如果文件不为空Image2。Picture = LoadPicture(CommonDialog1。FileName） 加载图片Str = CommonDialog1.FileName 将图片名赋给变量 Open （App。Path picture.txt”) For Output As #1 打开一个txt文件 Print 1， Str 打印图片名 Close #1 关闭文件 CommonDialog1.FileName = 把空值赋给文件名Else CommonDialog1。FileName = ”

50、 把空值赋给文件名End IfEnd SubPrivate Sub sjbf_Click（） 调入数据备份main_sjbf.ShowMain。Enabled = FalseEnd SubPrivate Sub sjhf_Click() 数据恢复main_sjhf。ShowEnd SubPrivate Sub zsdj_Click（) 调入住宿登记 main_kfdj。Show Main.Enabled = FalseEnd SubPrivate Sub zjyj_Click() 调入追加押金 Load main_zjyj main_zjyj。Show Main.Enabled = False

51、End SubPrivate Sub tfdj_Click（) 调入调房登记 main_tfdj。Show Main。Enabled = FalseEnd SubPrivate Sub tf_Click(） 调入退宿结账 main_tf.Show Main。Enabled = FalseEnd SubPrivate Sub kfsz_Click（） 调入客房管理 main_kfgl.Show Main。Enabled = FalseEnd SubPrivate Sub kfcx_Click（) 调入客房查询 main_kfcx。Show Main。Enabled = FalseEnd SubP

52、rivate Sub ftck_Click（) 调入房态查看 main_ftcx。Show Main。Enabled = FalseEnd SubPrivate Sub gzcx_Click（） 调入挂账查询 Load main_gzcx main_gzcx。Show Main。Enabled = FalseEnd SubPrivate Sub gzjk_Click(） 调入挂账结款 Load main_gzjk main_gzjk。Show Main。Enabled = FalseEnd SubPrivate Sub zscx_Click() 调入住宿查询 Load main_zscx ma

53、in_zscx。Show Main。Enabled = FalseEnd SubPrivate Sub tfcx_Click() 调入退宿查询 Load main_tfcx main_tfcx.Show Main.Enabled = FalseEnd SubPrivate Sub sftx_Click() 调入宿费提醒 Load main_xftx main_xftx.Show Main。Enabled = FalseEnd SubPrivate Sub ysbb_Click（) 调入登记预收报表 main_ysbb。Show Main。Enabled = FalseEnd SubPrivate Sub xsbb_Click() 调入客房