酒店管理系统毕业论文

叮叮小文库酒店管理系统设计摘要纵观近几年国内酒店业的发展趋势，随着酒店业竞争的加剧，酒店之间客源的争夺越来越激烈，客房销售的利润空间越来越小, 酒店需要使用更有效的智能化系统来拓展经营空间降低运营成本，提高管理和决策效率。酒店管理实质上是对酒店运行过程中人流、物流、资金流、信息流的管理，计算机管理就其表现形式看是对酒店大量的常规性信息的输入、存储、处理和输出。为实施这些战略，本次设计采用了基于vb的方法，最终实现了酒店管理系统的用户密码登陆功能，客户预定功能，修改功能，查询功能，入住功能，退房功能等，为酒店提供良好的信息环境。此系统的应用降低了经营成本，提高了酒店的管理效益及经济效益，使酒店的总体效益得到了有效提高!关键词：酒店管理系统； VB；ACCESS 2003； 数据库 HOTEL MANAGEMENT SYSTEM DESIGNABSTRACTIn recent years the development trend of the Chinese hotel, with the hotel industry competition intensifies, hotel patrons intensifying competition between the rooms sales profit space more and more small, hotel need to use more effective intelligent system to expand business space reduce operational costs, improve the management and decision-making efficiency. Hotel management is essentially to hotel operation process of transferring, logistics, cash flow, information management, the computer management is the form of the hotel is thewatch of the input, regular information storage, processing and output. To implement these strategies, this design based on vb methods, finally achieved hotel management system user password landing function, client reservation function, modify functions, inquires the function, check-in and check-out function for the hotel function etc, provide good information environment.This system application reduced operating costs, improves the management benefit and economic benefit, the overall benefit to hotel effectively improve!Key words: Hotel management system; VB; ACCESS 2003; Data base目 录1绪论11.1 系统开发的背景11.2 国内研究现状11.3 本课题研究意义22 系统开发技术32.1 系统开发语言32.2 系统开发所采用的数据库33系统分析43.1 可行性分析43.1.1 技术可行性43.1.2 经济可行性43.1.3 社会因素可行性分析53.2 业务需求分析53.2.1 系统需求53.2.2 功能需求63.2.3 性能需求64 系统总体设计84.1 系统功能设计842 业务流程图设计104.3 数据库设计114.3.1 概念结构设计114.3.2 逻辑结构设计134.3.3 物理结构设计135 系统实现165.1 登录功能的实现165.2 主界面功能的实现185.3 客房管理功能的实现195.4系统住宿管理功能的实现246 系统测试2961登陆界面功能测试2962主界面功能测试2963 系统设置功能测试3064 客房管理功能测试3165 住宿管理功能测试3266 员工管理功能测试3467 消费品管理功能测试3568 帐务管理功能测试3769 关于系统功能测试38结束语39参考文献40致谢41附录（部分程序源代码）附件附件一：开题报告附件二：英文翻译附件三：毕业设计全部电子文档（光盘）-叮叮小文库1 绪论1.1 系统开发的背景酒店行业的激烈竞争似的争取客源、提高酒店满员率、制定正确营销策略已经成为一项重要的任务，而借助于当前蓬勃发展的IT工具来拓展销售能力，创造客观的经济效益已经成为许多酒店的首选。作为一有效的统计分析手段，计算机管理系统具有明显的优势，它在数据保存、数据交换等方面均能够做到快速可靠，是手工操作所不能完成的1。随着我国市场经济的迅速发展，人们在生活水平有了显著提高，旅游经济和各种商务活动更促进了酒店行业的快速发展。同时，随着酒店的数量越来越多，人们的要求也越来越高，酒店行业的竞争愈演愈烈。如何在激烈的市场竞争中生存和发展，是酒店必须面临的问题。作为提供多功能服务的综合场所，吸引顾客是酒店生存的重要条件2。提高酒店的经营管理，为顾客提供更优质的服务，同时降低酒店的运营成本是酒店发展的关健。面对信息时代的机遇和挑战，利用科技手段提高企业管理无疑是一条行之有效的途径3。计算机的智能化管理技术可以极大限度地提高服务管理水平，进行准确、快捷和高效的管理。因此，采用全新的计算机酒店管理系统，已成为提高酒店管理效率、改善服务水平的重要手段之一。酒店管理方面的信息化已成为现代化酒店的重要标志。1.2 国内研究现状计算机在酒店中的普及和应用，新的技术平台、新的技术特点不断涌现，适合国内特点的信息系统慢慢进入酒店，使得酒店管理系统进入了一新的发展时期。应该看到，对于一、二星级甚至部分三星级酒店来说，信息环境的建设和应用还处在起步阶段，即使是五星级的酒店，信息化管理的进程与客户对酒店的需求也有相当的距离4。国内酒店信息化程度的低下，在很大程度上阻碍了酒店在网络时代的营销拓展，影响了酒店经营绩效与竞争能力的提升。这主要表现在三大问题上：一、观念问题。大多数酒店经营者认为酒店属于传统的服务行业，主要是靠出租客房和床位来创收，通常没把投资信息化与投资房间内的设施（如增添浴缸或沙发）的投资回报等同看待，没有把信息化建设与影响和改善酒店的经营、管理效率等方面的功效挂起钩来，没有把信息化的价值融入酒店自身价值链在竞争中发挥的作用挂起钩来5。二、行业问题。酒店业属于以人为本的劳动密集型服务行业，IT行业属技术密集型行业。由于这种行业间本质上的差异，致使很多IT公司尽管竭尽全力将最先进的产品设备或解决方案推销给酒店，其结果通常是酒店付出了昂贵的代价却不尽如人意。纠其原因，主要表现在：技术功能与酒店需求错位，目前的管理系统很多不能解决酒店面临的关键问题；管理决策层没有整体的规划，让开发商牵着鼻子走；供应商和酒店没有利益上的一致性。三、服务不到位问题。酒店是一个以服务为本的行业，依靠客人对各项服务的满意度来提升酒店的入住率和经营效益6。酒店信息化的实施，意味着酒店又增加了一项新的服务，即信息服务。IT公司负责策划和实施，但通常不承担日后的服务，因为他们是IT公司不属于服务行业。然而，倘若服务的责任落到酒店自身头上，酒店能应付的了吗？由于服务不到位，使系统不能充分发挥作用的已屡见不鲜，由谁来为酒店提供信息服务是一个值得商榷的问题。1.3 本课题研究意义在今后的几年中，酒店的竞争将主要在信息化、智能化方面展开。店内装潢、客房数量、房间设施等质量竞争和价格竞争将退居二线。酒店信息化的发展趋势主要分为三大应用领域：一是为酒店的管理者、决策者提供及时、准确地掌握酒店经营各个环节情况的信息技术；二是针对酒店的经营，为节省运营成本、提高运营质量和管理效率的信息化管理和控制技术；三是直接面对顾客所提供的信息化服务。对于酒店而言，信息化是一个工具，是一种手段，是一种服务，服务水平的好坏直接影响酒店的经济效益和竞争力7。2 系统开发技术2.1 系统开发语言Visual Basic 是Microsoft 公司为开发Windows应用程序而推出的一种可视化的快速编程的工具，它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，它以其简单易学、语法简介、功能强大的特点而深受广大编程人员的青睐8。Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。随着版本的提高，Visual Basic的功能也越来越强。5.0版以后，Visual Basic推出了中文版，与前一个版本相比，其功能有了很大提升9。2.2 系统开发所采用的数据库 Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。 比如“产品”表由10个记录组成，一个记录占一行，每一个记录由产品ID、产品名称、库存量、订货量、单价和折扣率6个字段组成。“产品ID”是字段名，其下面的1，2等是字段的值10。 表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。 Access数据库由七种对象组成，它们是表、查询、窗体、报表、宏、页和模块11。3系统分析3.1 可行性分析在现代酒店行业中，行业竞争使得争取客源、提高酒店入住率、制定正确营销策略已经成为一项重要的任务，而借助于当前蓬勃发展的IT工具来拓展销售能力，创造客观的经济效益已经成为许多酒店的首选。作为一种有效的统计分析手段，计算机管理系统发挥其强大的优势，在数据保存、数据交换等方面的快速可靠，是手工操作所不能完成的。所以，一套客房管理系统是每个酒店向前发展所必须的软件。这也就使得系统开发在经济上、技术上以及使用上都是可行的。3.1.1 技术可行性由系统开发、运行环境介绍可以看出开发本系统只需熟悉Visual Basic 6.0和 Access 数据库就可以，所以在技术上是完全可行的。其员工本身就对电脑设备和操作有一定的认识，该系统简单，不用过多培训。该酒店也拥有充足的电脑设备作为实施该管理信息系统的硬件，有良好的兼容性和易于在该操作系统实现，针对该酒店客房业务流程相对简单和清晰明了的特点，完全可以开发出适合该酒店应用的管理信息系统平台12。3.1.2 经济可行性（1）必要性。如果不采用该管理信息系统，其业务过程中所产生的数据将得不到及时、有效的存储和处理，显得比较杂乱无章，难以分析、归纳和比较，影响酒店的管理和决策，造成酒店效率低下，浪费人力资源、时间和金钱！（2）有益性。以较低成本开发出来的管理信息系统将整个业务流程数据进行系统的整合管理，从而能够有效地提高酒店内外的信息沟通效率，节省大量的人力、时间和金钱，从而降低成本，加快业务流程，提高酒店效益，给酒店带来巨大的经济回报！ （3）可能性。本系统的开发成本少，时间短，无需投入太多的人力、物力和财力，完全能够以最短的时间、最少的人力和最低的成本开发出该系统。3.1.3 社会因素可行性分析 现在的酒店越来越多，酒店的竞争也日益激烈。要想增加酒店的市场竞争力，首先要搞好管理。此系统正是为此设计开发。（1）必要性。如果不采用该系统，将会给酒店的内外沟通造成严重的障碍，不利于酒店的客户关系管理，在社会上也会造成一定的影响！（2）可能性。由于该系统能以较低的成本，较短的时间开发出来，且能极大地提高酒店的效率，便于酒店管理，必然能得到广大员工和酒店领导的支持。 （3）有益性。由于该系统能极大地提高酒店的效率和效益，从而能提高客户和员工的满意度，进而在社会上形成一定的声誉。3.2 业务需求分析3.2.1 系统需求 根据酒店客房管理系统的理念，此酒店客房管理系统必须满足以下需求：（1）具有设置酒店客房类型和房间信息的功能。（2）能快速准确的了解酒店的客房状态，以便订房和退房。（3）提供调房和追加押金的功能。（4）提供简单的工作人员的添加用户和修改密码功能。综上系统功能具备：（1）酒店住宿记录管理。通过该管理功能，系统可以通过计算机对客户的一些基本信息进行录入，从而成为客户查询的资料。而且，一个客户一经记录，会自动将占用的房间信息反映在系统中，即哪些房间已经占用，哪些房间仍然空余。在进行客户记录时，自动出现客房的房间号、配置、价格和房间可用的信息，系统可以自动判断该房间是否空余，从而决定是否可以入住该房间。记录时，用户可以选择房间号、价格等，可打印押金收款凭证给客户。（2）客户查询。在查询子系统中，可以对客户的一些信息作综合查询，查询到后可办理退房手续并打印结账凭证收据，退房的同时系统可以自动将客户占用的房间恢复备用。（3）客房管理和查询。通过该管理功能，管理人员可对所有客房进行管理，如增减房间，调整价格，进行查询等。（4）报表打印。可对过去的某一段时间经营状况进行统计并打印结果，方便管理员及时掌握经营情况并做出相应决策。（5）系统维护。包括：系统初始化，数据备份，用户口令更改和新用户注册。3.2.2 功能需求 根据系统的需求分析，本系统功能需求如下：（1）系统设置 修改密码 添加操作员 退出（2）客房管理 房客设置 客房查询 房态查看（3）住宿管理 住宿登记 住宿查询 调房登记 退宿查询（4）员工管理 添加员工 查询员工 （5）消费品管理 添加消费品 消费品查询 （6）账务管理 追加押金 退宿结账 挂账结款（7）关于系统系统简介 开发简介 3.2.3 性能需求 为了保证系统能够长期、安全、稳定、可靠的运行，系统应该满足以下性能需求：（1） 系统处理的准确性和及时性。系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应时间能够满足用户对信息的处理。由于系统的查询功能对整个系统的功能和性能完成很重要。（2）系统的开放性和可扩充性。 系统在开发过程中，应该充分考虑以后的可扩充性。例如系统权限和客房信息设置等模块也会不断更新和完善。所有这些都要求系统提供足够的手段进行功能的调整和扩充。而要实现这一点。应通过系统的开放性来完成。只要符合一定的规范，可以简单的加入和减少系统的模块。（3）系统的易用性。 本酒店客房管理系统面向的用户是酒店内工作人员，而有些使用人员往往对计算机并不是非常熟悉，所以系统操作上要求简单、方便、快捷。这就要求系统能够提供良好的用户接口，易用的人机交互界面。4 系统总体设计4.1 系统功能设计该酒店管理系统有七大功能模块：系统设置模块，客房管理模块，住宿管理模块，员工管理模块，消费品管理模块等。系统总体结构图如4.1所示： 酒店管理系统系统设置客房管理住宿管理员工管理消费品管理帐务管理关于系统添加操作员修改密码退出客房设置客房查询房态查询住宿登记调房登记住宿查询退宿查询添加员工查询员工添加消费 品消费品查询追加押金退宿结帐挂账结款系统简介开发简介图4.1 系统总体结构图具体模块功能如下：1系统设置模块 系统设置模块的主要功能有：添加操作员，修改密码，退出等。（1）添加操作员：管理员登陆系统后，可以添加新的操作员。（2）修改密码：管理员登陆系统后，可以重新修改密码。 （3）退出：管理员登陆系统后，可以直接退出系统。2客房管理模块客房管理模块的主要功能有：客房设置，客房查询，房态查询。 （1）客房设置：管理员登陆系统后，可以对客房进行房间类型，价格，房态设置等功能。 （2）客房查询：管理员登陆系统后，可以通过房间号查询房间价格，房态，房间类型，电器配置等功能。 （3）房态查询：管理员登陆系统后，可以查看房间是入住，空闲，还是维修等状态。3住宿管理模块住宿管理模块的主要功能有：住宿登记，调房登记，住房查询，退房查询。（1）住宿登记：管理员可以登记客户的姓名，身份证，联系地址等一些信息。 （2）调房登记：管理员可以对一些要求换房的客户进行基本信息登记。 （3）住宿查询：管理员可以查询客户的姓名，身份证，详细地址，房间号，住宿日期等信息。（4）退房查询：管理员可以查询客户的姓名，身份证，详细地址，房间号，退宿日期等信息。4员工管理模块员工管理模块的主要功能有：添加员工，查询员工。（1）添加员工：管理员可以添加员工的员工号，姓名，性别等信息。（2）查询员工：管理员可以查询员工的姓名，职务，详细地址等信息。5消费品管理模块消费品管理模块的功能主要有：添加消费品，消费品查询。（1）添加消费品：管理员可以添加消费品的名称，类型，单位，单价，数量等信息。（2）消费品查询：管理员可以查询消费品名名称的类型，单价，单位，消费日期等信息。6帐务管理模块帐务管理模块的主要功能有：追加押金，退宿结帐，挂帐结款。（1）追加押金：管理员对要求续住的客户进行服务。（2）退宿结帐：管理员对要求退宿的客户进行退宿服务。（3）挂帐结款：管理员对要求挂帐的客户进行挂帐服务。7关于系统模块关于系统模块的主要功能有：系统简介，开发简介。42 业务流程图设计现在国内的酒店住宿行业也越来越多.酒店客房管理的科学化、系统化、信息化也成为各个酒店追求的目标.因此,而要实现这些功能,就要求各个酒店配备一套客房管理信息系统,以便在酒店内实施良好的完善的管理且以最快地速度响应客户的需求,及时为他们提供服务,为他们提供一个高效、便捷的居住环境.业 务流程图如图4.2所示：图4.2业务流程图4.3 数据库设计4.3.1 概念结构设计E-R图为实体-联系图，提供了表示实体型、属性和联系的方法，用来描述现实世界的概念模型。构成E-R图的基本要素是实体型、属性和联系，其表示方法为：（1）实体型：用矩形表示，矩形框内写明实体名。（2）属性：用椭圆形表示，并用无向边将其与相应的实体连接起来；多值属性由双线连接；主属性名称下加下划线。（3）联系：用菱形表示，菱形框内写明联系名，并用无向边分别与有关实体连接起来，同时在无向边旁标上联系的类型。 这一设计阶段是在需求分析的基础上，设计出能满足用户需求的各种实体以及它们之间的联系，为后面的逻辑结构设计打下基础。根据上面的设计规划出的实体有客人、员工、客房。（1）退宿登记的初始局部信息E-R图如图4.3所示：图4.3退宿登记的初始局部E-R图（2）入住登记的初始局部信息E-R图如图4.4所示： 图 4.4入住登记的初始局部E-R图（3）查询登记的初始局部信息E-R图如图4.5所示： 图4.5查询登记的初始局部E-R图（5）房间所属的初始局部信息E-R图如图4.6所示：图4.6 房间所属的初始局部E-R图4.3.2 逻辑结构设计在本酒店客房管理信息系统中，“客人”联系与“客房”联系是多对多联系，将它们转换为关联模式如下：由E-R图及由其导出一般关系模型的基本原则，可得以下关系模型：入住（凭证号码、姓名、证件名称、证件号码、房间号、住宿日期、住宿天数、退宿日期、备注、日期、时间、押金）退宿（凭证号码、姓名、房间号、住宿日期、住宿时间、结款方式、折扣、押金、电话费、赔偿费、其他费用、退宿日期、退宿时间、备注、操作员）挂账（凭证号码、日期、挂账单位、住宿金额、欠款金额、还款金额、姓名、证件名称、证件号码、时间、是否结清）客房（房间号、类型编号、房态、配置、使用设置、营业时间、备注）房间类型（类型编号、客房类型、价格、备注）员工（员工编号、密码、权限）4.3.3 物理结构设计通过对数据库表及彼此之间的联系进行分析，为了便于使用者进行操作和管理，需要对有关代码进行统一设计。（1）旅客信息表为旅客的个人信息加入住客房信息，数据结构如表4-1：表 4-1 旅客信息表字段名类型大小说明登记号文本20旅客入住号姓名文本50旅客姓名身份证号码文本18旅客身份证号房间号文本20入住房间号登记日期文本日期/时间旅客入住时间预收金额文本20押金住址文本20旅客籍贯（2）客房信息表为客房入住情况的基本信息，数据结构如表4-2：表 4-2 客房信息表字段名类型大小说明房间号文本20房间号客房等级文本20客房等级客房类型文本20客房类型客房价格文本20客房价格客房状态文本20客房状态客房备注信息备注20客房备注信息（3）旅客退房记录表为旅客退房相关的一些记录信息，数据结构如表4-3：表 4-3 旅客退房记录表字段名类型大小说明登记号文本20旅客入住号登记日期日期/时间旅客登记时间退房时间日期/时间旅客退房时间付款金额文本20付费金额退房备注信息文本20退房备注信息（4）管理人员信息表存储宾馆管理人员使用该系统的帐号密码，数据结构表如表4-4：表 4-4 管理人员信息表字段名类型大小说明姓名Text20管理人员账号密码Text20管理人员密码权限Text1管理人员权限5 系统实现5.1 登录功能的实现登陆的作用是使用本程序的用户是否是合法用户。在程序进入登录界面时要求输入用户名和密码，如果用户名，密码正确程序继续执行。当密码错误输入的次数超过设定次数时，给出提示信息退出程序，这样防止了非法用户对本程序的使用。登陆界面的设计如图5.1所示：图5.1 用户登录界面登陆界面的核心代码如下：Private Sub cmd1_Click() 验证操作员及密码 If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst Data2.Recordset.FindFirst 操作员 like + Chr(34) + Text1.BoundText + Chr(34) + If Data2.Recordset.NoMatch Then MsgBox (操作员输入错误!) Else Data1.RecordSource = select * from qxsz where 操作员= & Text1.BoundText & Data1.Refresh If Text1.BoundText And Text2.Text And Text2.Text = Data1.Recordset.Fields(密码) Then Load main main.Show Unload Me Else If TIM = 3 Then 密码输错3次，退出系统 myval = MsgBox(密码输入错误,请向系统管理员查询!, 0, ) If myval = vbOK Then End End If If Text1.BoundText Data1.Recordset.Fields(操作员) Then MsgBox (查无此操作员,请重新输入操作员!) Text1.SetFocus Else If Text2.Text = Then MsgBox (请输入操作员密码!) Text2.SetFocus Else If Text2.Text Data1.Recordset.Fields(密码) Then MsgBox (密码错误,请重新输入密码!) TIM = TIM + 1 Text2.SetFocus End If End If End If End IfEnd Sub5.2 主界面功能的实现当系统运行时，首先进入登录界面，当输入账号，密码合法时，则启动系统主界面。主窗体是进入其他模块的入口。主界面如图5.2所示：图 5.2主界面主界面核心代码如下：Private Sub zsdj_Click() 调入住宿登记 main_kfdj.Show main.Enabled = FalseEnd SubPrivate Sub zjyj_Click() 调入追加押金 Load main_zjyj main_zjyj.Show main.Enabled = FalseEnd 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 SubPrivate Sub ftck_Click() 调入房态查看 main_ftcx.Show main.Enabled = FalseEnd Sub5.3 客房管理功能的实现(1)客房设置可以实现对酒店客房进行新房间、房态、价格、配置等房间基本信息的录入与更新房间信息表的功能。客房设置界面如图5.3所示：图 5.3 客房设置界面客房设置界面核心代码如下：Private Sub comsave_Click() 查找客房信息 Data1.Recordset.FindFirst 房间号 like + Chr(34) + Texfjh.Text + Chr(34) + If Data1.Recordset.NoMatch Then 添加客房 Data1.Recordset.AddNew If Texfjh.Text Then Data1.Recordset.Fields(房间号) = Texfjh.Text If Combo1.Text Then Data1.Recordset.Fields(房间类型) = Combo1.Text If Combo2.Text Then Data1.Recordset.Fields(房态) = Combo2.Text If Texjg.Text Then Data1.Recordset.Fields(价格) = Texjg.Text If DTP1.Value Then Data1.Recordset.Fields(营业日期) = DTP1.Value If Texsz.Text Then Data1.Recordset.Fields(使用设置) = Texsz.Text If Texpz.Text Then Data1.Recordset.Fields(配置) = Texpz.Text If Texbz.Text Then Data1.Recordset.Fields(备注) = Texbz.Text If Texfjh.Text Then Data1.Recordset.Fields(标志) = 0 Data1.Recordset.Update 更新记录 Data1.Refresh End If设置控件有效或无效 Comsave.Enabled = False: Comcancel.Enabled = False Comend.Enabled = True: Comdj.Enabled = TrueEnd SubPrivate Sub comcancel_Click() 取消操作 Texfjh.Text = : Texjg.Text = : Texsz.Text = Texpz.Text = : Texbz.Text = Comsave.Enabled = False: Comcancel.Enabled = False: Comdj.Enabled = TrueEnd Sub (2)客房查询是通过房间号来查询酒店各个客房的基本情况、配置信息、营业日期等一些信息。同时可以即时对各个房间进行修改与配置更新。可以从客房表中取得客房号和房间基本信息,同时可以看出哪些客房住有客人, 哪些客房还空着。客房查询界面如图5.4所示：图 5.4 客房查询界面客房查询界面核心代码如下：Private Sub Form_Load() 自动识别数据库路径 Data1.DatabaseName = App.Path & db.MDBEnd SubPrivate Sub Form_Unload(Cancel As Integer) main.Enabled = TrueEnd SubPrivate Sub MSFlexGrid1_Click()End SubPrivate Sub Text1_Change()查询客房信息 Data1.RecordSource = select * from kf where kf.房间号 like + Chr(34) + Text1.Text + * + Chr(34) + Data1.RefreshEnd SubPrivate Sub Command2_Click() 删除客房信息 If Data1.Recordset.RecordCount 0 Then Data1.Recordset.Delete Data1.Refresh End IfEnd SubPrivate Sub Command3_Click() main.Enabled = True Unload MeEnd Sub（3）客房状态查询是通过简约明了的设计画面直接链接住宿后的客房信息表，来显示酒店客房各个房间即时的状态信息，方便操作人员进行查询工作。房态查看界面如图5.5所示：图 5.5 房态查看界面房态查看界面核心代码如下：Private Sub Form_Activate()For i = 1 To 25 房态显示 criteria = 房间号 = & Command1(i).Caption & myrs1.FindFirst criteria If myrs1.NoMatch Then Else If myrs1.Fields(房态) = 空房 Then Command1(i).Picture = LoadPicture() 空房 If myrs1.Fields(房态) = 入住 Then Command1(i).Picture = LoadPicture(App.Path & tupianhappy.bmp) If myrs1.Fields(房态) = 维修 Then Command1(i).Picture = LoadPicture(App.Path & tupiandiamond.bmp) End If Next i If Not myrs2.EOF Then myrs2.MoveLast If Not myrs3.EOF Then myrs3.MoveLast Labsy.Caption = myrs2.RecordCount 客房入住数 Labwx.Caption = myrs3.RecordCount 客房维修数 Labkx.Caption = 25 - Val(Labwx.Caption) - Val(Labsy.Caption) 客房空闲数 Labsyl.Caption = Val(Labsy.Caption) / 25 * 100 & % 客房使用率End SubPrivate Sub Form_Unload(Cancel As Integer) main.Enabled = TrueEnd SubPrivate Sub Command1_Click(Index As Integer) 查询住宿信息 If Index = 0 = 25 Then main_zscx.Data1.RecordSource = select * from djb where 标志=1and 房间号= & Command1(Index).Caption & main_zscx.Data1.Refresh End If Load main_zscx main_zscx.ShowEnd Sub5.4系统住宿管理功能的实现（1）住宿登记用于客人入住登记工作, 前台服务员输入客人编号、客人名称、地址、身份证号、房间号、入住日期和入住时间等信息, 单击“确定”按钮, 则将相关数据分别存入客人表和定房表。为了便于服务员操作, 入住登记界面能根据客房类型选择可用房间。同时生成有凭证号的记录，以便于住宿查询。住宿登记界面如图5.6所示：图 5.6住宿登记界面住宿登记界面核心代码如下：Private Sub comok_Click()Data1.Recordset.FindFirst 房间号 like + Chr(34) + DBCombo1.Text + Chr(34) + and 标志 like + Chr(34) + 1 + Chr(34) + If Data1.Recordset.NoMatch Then 添加住宿信息 Data1.Recordset.AddNew If bh.Text Then Data1.Recordset.Fields(凭证号码) = bh.Text If ZSDJ(0).Text Then Data1.Recordset.Fields(姓名) = ZSDJ(0).Text If Combo1.Text Then Data1.Recordset.Fields(证件名称) = Combo1.Text If ZSDJ(1).Text Then Data1.Recordset.Fields(证件号码) = ZSDJ(1).Text If ZSDJ(2).Text Then Data1.Recordset.Fields(详细地址) = ZSDJ(2).Text If ZSDJ(3).Text Then Data1.Recordset.Fields(出差事由) = ZSDJ(3).Text If DBCombo1.Text Then Data1.Recordset.Fields(房间号) = Val(DBCombo1.Text) If ZSDJ(4).Text Then Data1.Recordset.Fields(客房类型) = ZSDJ(4).Text If DTP1.Value Then Data1.Recordset.Fields(住宿日期) = DTP1.Value If tim1.Value Then Data1.Recordset.Fields(住宿时间) = tim1.Value For i = 0 To 6 ZSDJ(i).Enabled = False Next i ZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False: ZSDJ(11).Enabled = False DBCombo1.Enabled = False: Combo1.Enabled = False End If Comok.Enabled = False: Comprint.Enabled = True: Comdj.Enabled = True Comprint.SetFocusEnd Sub（2）由于客人的住宿习惯不同，有些客人会在住宿过程中要求调房，例如客人要求换一个朝阳的房间或是空调房等，这就要求客房管理系统有调房的功能。调房模块的思路是：首先查看目标客房是否空闲，如果空闲，则可确认客人调房。调房登记界面如图5.7所示：图5.7 调房登记界面调房登记界面核心代码：Private Sub comdj_Click() 登记 Frame2.Enabled = True: Frame3.Enabled = True: DBCombo2.Enabled = True DBCombo1.Enabled = True: Texjg.Enabled = True: Comok.Enabled = True Comcancel.Enabled = True: Comok.Enabled = True: Comdj.Enabled = False DBCombo2.SetFocus DBCombo2获得焦点End SubPrivate Sub comok_Click() 确定调房 Dim bh As String 定义一个字符串类型的变量 查询空闲房间信息 Data2.RecordSource = select * from kf where 房间号= & DBCombo1.Text & and 房态=空房 Data2.Refresh If Data2.Recordset.RecordCount 0 Then Dim mydb1 As Database Dim myrs2 As Recordset Set mydb1 = Workspaces(0).OpenDatabase(App.Path & db.MDB) 查询所有住宿登记信息 Data1.RecordSource = select * from djb End If 编辑客房状态 Data2.Recordset.Edit Data2.Recordset.Fields(房态) = 入住 Data2.Recordset.Update Data2.RecordSource = select * fr