[精品小论文]小型酒店管理系统的设计与开发毕业论文

本科生毕业论文（设计）小型酒店管理系统的设计与开发The design and develop of the Small Hotel Management System院 系 网络教育学院 专 业 计算机科学与技术 小型酒店管理系统的设计与开发摘要当今社会，酒店种类和客流的不断增加，对于管理造成了困难。采用计算机来管理酒店和住客的信息，提高了查询的速度，节约了人力和物力资源，达到了预期的要求。本系统根据小型酒店管理的现状及未来的发展方向，结合有关小型酒店管理当中的管理学实践，设计了小型酒店管理系统。本系统是用于小型酒店服管理的系统软件。系统数据的管理采用了操作系统的最新管理方式，用户操作将会更简单、更直观、更方便。系统中各业务管理模块可以单机独立运行。使用本系统，可以大幅度提高酒店服务管理的工作效率。该系统应充分利用信息技术提高小型酒店客房的管理水平、服务水平。小型酒店管理系统要实现住宿登记、宿费提醒、追加押金、调房登记、退房结账、查询统计等等功能。其中宿费提醒可以在住宿费超过押金时预警，提示前台要客人补交押金，该功能可明显提高对住宿人员宿费的有效管理。将动态实时的住宿登记、客房调整、追加押金等有机地联系在一起，对小型酒店客房进行全方位的管理。关键词：酒店管理系统; VB; ACCESS 2003; 数据库 The design of the Small Hotel Management SystemComputer Science and Technology 2008-2008 liu FangSupervisor: Zhou PeichunAbstractAt present, the small hotels 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 system, we designs the small hotel management system which accords to the present situation of the small hotel service management and the way it develops in the future and small hotel management study practice. This system is a software which is used for the small 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 the lodgings registration, the lodging allowance reminder, supplements the deposit, the accent room registration, returns a house ties the account, inquiry statistics. 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 small hotels room.Key words: Hotel management system; VB; ACCESS 2003; Data base目录1 前言11.1系统开发的背景11.2国内外研究现状11.3本课题研究意义21.4相关技术介绍31.4.1 Visual Basic简介31.4.2 ADO访数据库技术介绍41.5系统运行环境41.6系统开发技术42 系统分析42.1 系统的可行性研究42.1.1技术可行性52.1.2经济可行性52.2系统需求分析52.3系统的功能框架52.4系统业务流程图63系统结构分析和设计73.1关系模型设计74数据库设计94.1Microsoft office Access2003简介94.2数据库表结构设计94.2.1用户信息表（tb_user）104.2.2登记信息表（tb_djb）104.2.3客房基础信息表（tb_kf）114.2.4退房登记信息表（tb_tfd）115系统详细设计与实现125.1系统公共模块设计125.2主窗体的设计135.3主窗体的设计与实现155.4住宿登记模块设计与实现175.5调房登记模块设计与实现195.6追加押金模块设计215.6系统维护模块的具体实现22结束语26致谢27参考文献27玉林师范学院本科生毕业生论文（设计）1 前言本章对小型酒店管理系统的现状和管理信息化的必要性做了初步的探讨，同时介绍了系统开发的目标以及该系统的运行环境等。1.1系统开发的背景酒店行业的激烈竞争似的争取客源、提高酒店满员率、制定正确营销策略已经成为一项重要的任务，而借助于当前蓬勃发展的IT工具来拓展销售能力，创造客观的经济效益已经成为许多酒店的首选。作为一有效的统计分析手段，计算机管理系统具有明显的优势，它在数据保存、数据交换等方面均能够做到快速可靠，是手工操作所不能完成的。随着我国市场经济的迅速发展，人们在生活水平有了显著提高，旅游经济和各种商务活动更促进了酒店行业的快速发展。同时，随着酒店的数量越来越多，人们的要求也越来越高，酒店行业的竞争愈演愈烈。如何在激烈的市场竞争中生存和发展，是第一个酒店必须面临的问题。作为提供多功能服务的综合场所，吸引顾客是酒店生存的重要条件。提高酒店的经营管理，为顾客提供更优质的服务，同时降低酒店的运营成本是酒店发展的关健。面对信息时代的机遇和挑战，利用科技手段提高企业管理无疑是一条行之有效的途径。计算机的智能化管理技术可以极大限度地提高服务管理水平，进行准确、快捷和高效的管理。因此，采用全新的计算机酒店管理系统，已成为提高酒店管理效率、改善服务水平的重要手段之一。酒店管理方面的信息化已成为现代化酒店的重要标志。1.2国内外研究现状酒店电脑管理系统最初出现于六十年代末、七十年代初的美国，其中较有代表性的有美国的Ecco系统，该系统基本实现前台业务中的排房、结帐、客房、餐厅、问询等模块，由于当时仍然没有个人电脑的出现，所以整个电脑是基于集中式的小型机/终端的管理，以后随着硬件技术的发展和各种网络系统、数据库技术的发展，操作系统的发展而推出了许多新型的酒店管理系统。计算机在酒店中的普及和应用，新的技术平台、新的技术特点不断涌现，适合国内特点的信息系统慢慢进入酒店，使得酒店管理系统进入了一个新的发展时期。应该看到，对于一、二星级甚至部分三星级酒店来说，信息环境的建设和应用还处在起步阶段，即使是五星级的酒店，信息化管理的进程与客户对酒店的需求也有相当的距离。国内酒店信息化程度的低下，在很大程度上阻碍了酒店在网络时代的营销拓展，影响了酒店经营绩效与竞争能力的提升。这主要表现在三大问题上：一、观念问题。大多数酒店经营者认为酒店属于传统的服务行业，主要是靠出租客房和床位来创收，通常没把投资信息化与投资房间内的设施（如增添浴缸或沙发）的投资回报等同看待，没有把信息化建设与影响和改善酒店的经营、管理效率等方面的功效挂起钩来，没有把信息化的价值融入酒店自身价值链在竞争中发挥的作用挂起钩来。二、行业问题。酒店业属于以人为本的劳动密集型服务行业，IT行业属技术密集型行业。由于这种行业间本质上的差异，致使很多IT公司尽管竭尽全力将最先进的产品设备或解决方案推销给酒店，其结果通常是酒店付出了昂贵的代价却不尽如人意。纠其原因，主要表现在：技术功能与酒店需求错位，目前的管理系统很多不能解决酒店面临的关键问题；管理决策层没有整体的规划，让开发商牵着鼻子走；供应商和酒店没有利益上的一致性。三、服务不到位问题。酒店是一个以服务为本的行业，依靠客人对各项服务的满意度来提升酒店的入住率和经营效益。酒店信息化的实施，意味着酒店又增加了一项新的服务，即信息服务。IT公司负责策划和实施，但通常不承担日后的服务，因为他们是IT公司不属于服务行业。然而，倘若服务的责任落到酒店自身头上，酒店能应付的了吗？由于服务不到位，使系统不能充分发挥作用的已屡见不鲜，由谁来为酒店提供信息服务是一个值得商榷的问题。1.3本课题研究意义在今后的几年中，酒店的竞争将主要在信息化、智能化方面展开。店内装潢、客房数量、房间设施等质量竞争和价格竞争将退居二线。酒店信息化的发展趋势主要分为三大应用领域：一是为酒店的管理者、决策者提供及时、准确地掌握酒店经营各个环节情况的信息技术；二是针对酒店的经营，为节省运营成本、提高运营质量和管理效率的信息化管理和控制技术；三是直接面对顾客所提供的信息化服务。对于酒店而言，信息化是一个工具，是一种手段，是一种服务，服务水平的好坏直接影响酒店的经济效益和竞争力。1.4相关技术介绍1.4.1 Visual Basic简介微软公司的Visual Basic 6.0是由微软公司于1998年推出的Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。微软公司在Visual Basic 6.0增加了ADO（ActiveX Data Objects）。ADO是一个用于存取数据源的COM组件。它提供了编程语言和统一数据访问方式OLEDB的一个中间层。开发人员通过ADO，就可以很容易地编写出同时支持多种数据库的软件了。此外，借助COM/COM+强大的功能，使用Visual Basic可以轻松地开发多层结构的分布式应用程序以及高效的Web应用程序。为什么选择Visual Basic来开发本系统呢？下面来介绍一下Visual Basic的独到之处：(1) Visual Basic主要特性1易于学习和使用。Visual Basic的中心思想就是便于程序员使用，无论是新手还是专家，都能轻松上手并很快掌握它。Visual Basic基于图形界面的开发环境使开发者对各种功能一目了然、容易理解。用户仅仅通过鼠标的简单操作就可以构建出一个复杂的软件图形界面。2 开发高效，功能强大。Visual Basic提供的图形用户界面和快速应用程序开发系统，使程序员可以轻松使用Visual Basic提供的各种功能的组件快速搭建一个应用程序。在数据库编程方面，使用微软提供的DAO、RDO、ADO等控件可以直观、高效地完成各种数据库操作。虽然Visual Basic易于使用，但这并不表明Visual Basic的功能薄弱，使用Visual Basic不仅可以开发简单的应用程序，还可以编写出商业级的客户端/服务器程序，以及强大的数据库应用程序。使用Visual Basic开发面向终端用户的具有良好界面的程序更是得以就手。3支持多种数据库访问机制。Visual Basic 6.0具有强大的数据库管理功能。利用其提供的ADO访问机制和ODBC数据库连接机制，可以访问多种数据库，如Access、SQL Server等。1.4.2 ADO访数据库技术介绍ADO(ActiveX Data Object) 是建立在ODBC(Open Database Connectivity) 和OLE DB(OLE Database) 基础之上的基于对象的高层数据库API(Application Programming Interface) ,ADO 通过封装在低层OLE DB 功能中的不同对象、方法和属性以提供高层接口. 由于ADO 基于ActiveX 标准,因此具有很强的可扩展性.ADO提供两种接口,一种是通过OLE 自治提供,用于不使用指针的语言(如脚本语言) ; 另一种通过Vtable (虚拟函数表) 向使用指针的语言提供接口(如C + ) ,可实现与各种数据库的连接. ADO 包含了DAO(Data Access Object) 和RDO (Remote Data Object) 所有的功能,并且又增加了新的功能,是DAO 和RDO 的超集.ADO 具有速度高、对象层次简单、低开销、低磁盘空间等优点,是当前基于对象的最好的数据库接口.1.5系统运行环境硬件环境：CPU：Intel P4 2.0GHZ或更高、内存：64MB以上、硬盘：1G以上、显卡：32MB显存以上、光驱：52X CDROM（或DVDROM）软件环境：Windows9X或者更高版本的操作系统、Microsoft Access 2000以上数据库、Microsoft Basic 6.0开发平台。1.6系统开发技术(1)Microsoft Basic 6.0(2)Microsoft Access数据库2 系统分析系统分析是应用系统思想和方法，把复杂的对象分解成简单的组成部分，找出这些部分的基本属性和彼此间的关系。系统分析是解决目标系统“做什么”的问题，本章首先确定了系统所要达到的功能需求，然后将需求进一步细化转成业务需求，并对业务需求进行详细分析，解决了系统“做什么”的具体内容。2.1 系统的可行性研究也称为可行性研究，是在系统调查的基础上，针对新系统的开发是否具备必要性和可能性，对新系统的开发从技术、经济、社会的方面进行分析和研究，以避免投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。该系统的可行性分析包括以下几个方面的内容。2.1.1技术可行性在开发技术方面，酒店管理系统开发技术非常成熟，开发工具很多。本人采用以下的组合可以满足小型酒店管理系统开发的要求 :Microsoft windows xp操作系统、PC机、 Microsoft Office Access2003。微软公司的Office Access2003数据库系统，适用于小型的系统开发，用于存储和管理系统所需要的数据。它以操作简单、易学易用的特点而受到大多数用户的青眯。因此，系统的软件开发平台已成熟可行。硬件方面，科技飞速发展的今天，硬件更新的速度越来越快，容量越来越大，可靠性越来越高，价格越来越低，其硬件平台也完全能满足此系统的需要。2.1.2经济可行性使用本小型酒店管理系统可提高酒店客房管理水平，把大量繁琐工作简单化，能够有效地节省人力物力，并能够准确地进行统计和计算，避免人工统计或计算所带来的差错，保证酒店管理高效而有序地进行。综上所述，此系统开发目标已明确，在技术、经济等方面都可行，并且投入少、见效快。因此系统的开发是完全可行的。2.2系统需求分析桂湖酒店是一家比较小型的酒店，设施较齐全。随着信息技术的发展和外务对酒店的要求越来越高，该酒店已明显觉得手工管理已不能适应当前酒店高速发展的需要。在意识到使用计算机管理的重要性后，决定主要针对客房管理设计出符合要求的小型酒店管理系统。2.3系统的功能框架根据以上的分析，小型酒店系统功能框架划分如图2.3所示。小型酒店管理系统系统维护住宿管理住宿登记调房登记退房登记数据备份追加押金数据恢复客房管理查询统计系统设置客户设置客房查询住宿查询退宿查询宿费提醒操作员设置密码设置重新登录设置主窗口图像初使化权限设置图2.3系统功能框架划分Fig2.3 The partitionthe of funcion frame of the system2.4系统业务流程图系统的流程图设计。系统启动后进入屏幕展示窗体可以大致了解本系统的开发环境和数据库情况等。使用系统登录时用户ID和密码都要自己手动输入。不同的用户对系统具有不同的管理权限。管理员可以对客房信息进行查询、打印、登记，也可以使用多种实用工具如：还可以修改自己的用户密码，还可以通过系统维护模块对系统进行数据库的管理，可以备份数据、恢复数据、初始化数据。具体系统的流程图如下所示：小型酒店管理系统主界面登录操作员登录系统维护住宿管理住宿登记调房登记退房登记数据备份追加押金数据恢复客房管理查询统计系统设置客户设置客房查询住宿查询退宿查询宿费提醒操作员设置密码设置重新登录设置主窗口图像初使化权限设置图2.4 系统操作流程Fig.2.4 The flow of system operation3系统结构分析和设计3.1关系模型设计在开发小型酒店管理系统时，对客户的信息的管理必不可少，通过对系统进行的需求分析、业务流程设计以及系统功能结构的确定，规划出系统中使用的数据库实体对象及实体E-R图。 客房入住需要以客人信息及入住信息进行登记，这就存在一个登记信息实体，其实体E-R图如图3.1所示：住宿时间住宿日期提醒日期凭证号码 摘要登记信息住宿天数客房价格实收宿费姓名客房类型房间号详细地址证件号码证件名称 标志退宿提醒Fig.3.1 the E-R chart of registration information table在此系统中，客房是一个重要的实体，客房实体包含了客房的基本配置信息，以及当前房间状态 ，其E-R图如图3.2所示：客房房间号房间类型价格标志营业日期房态配置使用设置Fig.3.2 the E-R chart of registration rooms table客人退房时需要对退房信息进行登记，退房登记实体包含人的基本信息以及对房费进行结算登记的信息，退房登记实体的E-R图如图3.3所示：住宿时间住宿日期退宿日期凭证号码 摘要退房登记住宿天数客房价格实收宿费姓名客房类型房间号详细地址证件号码证件名称 预收宿费退还宿费Fig.3.3 the E-R chart of check registration table4数据库设计4.1Microsoft office Access2003简介Microsoft Access是一种关系式数据库，是由微软公司开发的。关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。表(Table)是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。查询(Query)可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。窗体(Form) 提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。报表(Report) 的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。宏(Macro) 相当于DOS中的批处理，用来自动执行一系列操作。模块(Module) 的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。4.2数据库表结构设计该系统使用了Access数据库，名称为JDGL.mdb，其各表的功能和具体设计结构如下：4.2.1用户信息表（tb_user）功能是保存系统的用户数据，其结构如表4.1所示：表4.1用户信息表Table4.1The table of user information字段名称数据类型字段大小操作员文本10密码文本504.2.2登记信息表（tb_djb）功能是用来保存客人住宿时的住宿登记信息，其结构如表4.2所示：表4.2登记信息表Table4.2The table of registration information字段名称数据类型字段大小凭证号码文本20姓名文本50证件名称文本20证件号码文本20详细地址文本50房间号文本20客房类型文本10客房价格货币8住宿日期日期/时间8住宿时间日期/时间8住宿天数数字双精度型应收宿费货币8预收金额货币8提醒日期日期/时间8退宿日期日期/时间8备注文本50标志文本1日期日期/时间8时间日期/时间8退宿时间日期/时间8提醒时间日期/时间8摘要文本200BZ数字双精度型4.2.3客房基础信息表（tb_kf）功能是用来保存客房基础信息，其结构如表4.3所示：表4.3客房信息表Table4.3The table of rooms information字段名称数据类型字段大小房间号文本30房间类型文本50价格货币8房态文本4标志是/否1备注文本100配置文本100使用设置文本10营业日期日期/时间84.2.4退房登记信息表（tb_tfd）功能是用来保存客人退宿登记信息，其结构如表4.4所示：表4.4 参考文献信息表Table4.4The table of check rooms information字段名称数据类型字段大小凭证号码文本20姓名文本50证件名称文本20证件号码文本20详细地址文本50房间号文本20客房类型文本10客房价格货币8住宿日期日期/时间8住宿时间日期/时间8住宿天数数字双精度型应收宿费货币8金额总计货币8预收宿费货币8退还宿费货币8退房日期日期/时间8退房时间日期/时间8备注文本50BZ数字双精度型5系统详细设计与实现5.1系统公共模块设计 在系统中使用公共模块，可节省系统资源，实现代码重用。在本系统中新建一个Module模块，此模块主要用于共享数据库边接。其中ESQL()函数用于打开到数据库的连接，StrCnn()函数用于返回于一个连接串。公共模块代码如下：Public adocon As New ADODB.Connection 创建ADODB.Connection对象Public adoRs As New ADODB.Recordset 创建ADODB.Recordset对象Public Sub Main() 打开数据库连接 adocon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & DB_JDGL.mdb;Persist Security Info=FalseEnd SubPublic Function ESQL(ByVal sql As String) As ADODB.Recordset 定义函数 Dim cnn As ADODB.Connection 定义连接 Dim rs As ADODB.Recordset 定义记录集 Set cnn = New ADODB.Connection 创建连接 cnn.Open StrCnn 打开连接 Set rs = New ADODB.Recordset rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic Set ESQL = rsEnd FunctionPublic Function StrCnn() 返回一个数据库连接 StrCnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & DB_JDGL.mdb;Persist Security Info=FalseEnd Function5.2主窗体的设计在登录窗体对话框中输入正确的操作员和操作员密码后才能进到主窗体。窗体如图5.2所示：图5.2登录窗体对话框Fig5.2 Login form dialog box其中“确定”与“取消”按扭，采用的是.ico图标。主要代码如下：Private Sub Image1_Click()Static itimes As Integer Main.StatusBar1.Panels(4).Text = Text1.Text Adodc1.RecordSource = select * from tb_user where 操作员= + Text1.Text + 验证操作员及密码 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then 如果记录数大于零 If Text2.Text = Adodc1.Recordset.Fields(密码) Then 验证密码 Load Main Main.Show Unload Me Else If Text2.Text Adodc1.Recordset.Fields(密码) Then MsgBox 密码错误,请重新输入！, vbCritical, 系统提示 itimes = itimes + 1 Text2.Text = Text2.SetFocus End If End If Else MsgBox 操作员不存在,请重新输入！, vbCritical, 系统提示 itimes = itimes + 1 Text1.Text = Text2.Text = Text1.SetFocus End If If itimes = 3 Then 错误3次，退出系统 MyMsg = MsgBox(输入错误,请向系统管理员查询！, vbCritical, 系统提示) If MyMsg = vbOK Then End End IfEnd Sub5.3主窗体的设计与实现程序启动后，在系统登录界面验证完操作员和操作员密码后，将进入程序主窗体。在程序主窗体中通过选择菜单命令或单击工具栏中的按钮，可调用相应程序窗体或进行相应操作；可根据操作员不同，确定操作员的相应权限，在主窗体状态栏中显示了系统时间和当前系统操作员。主窗体界面如下图5.3所示：图5.3 主窗体界面Fig. 5.3 The Main form interface该系统主窗体主要通过菜单命令实现调出各个窗体或执行相应操作。同时在主窗体和添加一个Toolbar控件，作为工具栏。通过Toolbar控件的Click事件，也可实现调出相应窗体或执行相应操作。使用Button对象的Key属性标识被单击的按钮。例如，在主窗体模块中单击工具栏中的按钮，发生ButtonClick事件，并用Key属性标识被单击的按钮。代码如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case DJ zsdj_Click 调入住宿登记 Case TF tf_Click 调入退宿结账 Case CX zscx_Click 调入住宿查询 Case TX sftx_Click 调入提醒 Case CXDL 重新登录 Load main_Login main_Login.Show Case exit If MsgBox(确定退出该系统？, 4, 系统提示) = vbYes Then End End If End SelectEnd Sub单击主窗体中的菜单项，通过菜单命令实现调出各个窗体或执行相应操作，在各子菜单的Click事件下实现相应操作。部分代码如下：Private Sub sjbf_Click() 调入数据备份main_sjbf.ShowMain.Enabled = FalseEnd SubPrivate Sub sjhf_Click() 数据恢复main_sjhf.ShowEnd SubPrivate Sub ma_Click() 调入密码设置 main_mmsz.Show Main.Enabled = FalseEnd Sub5.4住宿登记模块设计与实现程序启动后，选择菜单栏中“住宿管理”/“住宿登记”命令，或直接单击工具栏中的“登记”按钮，将打开住宿登记模块。在住宿登记模块中能够自动生成住宿登记凭证号码，提供空闲房间供用户选择，实现客人住宿登记，收取客人预交宿费，实际宿费、宿费提醒时间、退宿时间、打印住宿登记单据。住宿登记模块界面如下图5.4所示：图5.4 住宿登记窗体界面Fig. 5.4The Accommodation Registration form interface住宿登记模块主要用于录入客人入住信息，此窗体包含了大量的文本框和时间控件等，但这些控件功能都比较简单，没有复杂的属性设置。 打开住宿登记模块，单击“登记”按钮，开始进行住宿登记。“登记”按钮的Click事件主要实现设置控件有效和无效、自动生成登记凭证号码等功能。自动生成登记凭证号码的主要代码发下：Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & DB_JDGL.mdb;Persist Security Info=FalseAdodc2.RecordSource = select * from tb_djb order by 凭证号码 按凭证号码排序数据Adodc2.Refresh If Not Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast 移动记录集到最后一条记录 If lsph.Text = Then bh.Text = Fdate & d & Format(1, #000) 当lsph值为空为凭证号码文本框赋值 If lsph.Text Then 当lsph值不空时 y1.Text = Month(Fdate) 把当前月份赋给y1 y2.Text = Month(Left(lsph.Text, 10) 把lsph中的月份赋给y2 If y1.Text = y2.Text Then 如果y1文本框中内容与y2相同 bh.Text = Fdate & d & Format(Val(Right(lsph.Text, 3) + 1, #000) 为凭证号码文本框赋值 Text2.Text = Val(Right(lsph.Text, 3) + 1 text1中存储lsph文本框中后三位数 End If If y1.Text y2.Text Then 如果y1文本框中内容与y2不同 bh.Text = Fdate & d & Format(1, #000) 为凭证号码文本框赋值 End If End If当住宿信息登记完成后，“打印”按钮处于可用状态，可以单击“打印”按钮打印住宿证。主要代码如下：Private Sub comprint_Click() On Error GoTo 1 出错转向标签“1” Dim X As Printer 打印住宿登记单据 Printer.Height = 8000: Printer.Width = 8000 设置高度和宽度 Printer.CurrentX = 1100: Printer.CurrentY = 300 设置打印位置 Printer.FontSize = 12 设置字体大小 Printer.Print 桂湖酒店客房 (住宿证) 打印文字 Dim A, B, C, d As Integer 定义变量 A = 100: B = 500: C = 4800: d = 400 为变量赋值 Printer.FontSize = 10 设置字体大小 Printer.CurrentX = 100 + A 设置打印横坐标 Printer.CurrentY = B + 200 设置打印纵坐标 Printer.Print d & & t & NO. & bh.Text 打印日期、时间和凭证号码 B = B + d 为变量B赋值 Printer.Line (A, B + 100)-(C, B + 100) 打印一条直线 Printer.CurrentX = 100 + A Printer.CurrentY = B + 200 Printer.Print 操作员: & czy.Text & 欢迎光临 Printer.EndDoc 输出给打印机 Exit Sub If Err.Number = 482 Then MsgBox 请连接打印机！, , 系统提示 Err.Clear End IfEnd Sub5.5调房登记模块设计与实现在主窗体中，选择住宿管理菜单下的调房登记项，将进入调房登记模块。在调房登记模块中选择客人入住的房间号和空闲房间号，实现调房登记，系统只允许调换等价客房。调房登记界面如图5.5所示：图5.5 调房登记窗体界面Fig. 5.5The Housing Register Transfer form interface调房登记模块主要实现对客人房间进行调换的过程，源房间号列表是查询登记表中当前所有住宿客人的房间号码，在选择源房间号后，实现生成目标房间号。主要代码如下Private Sub Combo3_Click()Combo2.Clear 清空Combo2中的内容 If Combo3.Text Then 如果Combo3不为空 End If 赋值给bh.text等 With Adodc1.Recordset with快 If .Fields(凭证号码) Then bh.Text = .Fields(凭证号码) 为“凭证号码”字段赋值 End With 结束with快 End If End If Combo2.Enabled = True Combo2可用 Texbz.Enabled = True Texbz可用 End IfEnd Sub5.6追加押金模块设计在主窗体中，选择住宿管理菜单下的追加押金项，将进入追加押金模块。在“凭证号码”下拉列表框中选择客人入住的凭证号码，在“追加押金”文本框中输入客人续交的押金后，在相应的文本框中将显示客人的入住信息，并自动计算宿费提醒日期和时间，还可打印追加押金票据。追加押金界面如图5.6所示：图5.6 追加押金窗体界面Fig. 5.6The Additional Deposit form interface在窗体的A事件中，主要实现查询数据表中住宿客人信息，对“凭证号码”列表框赋值。主要代码如下：Private Sub Form_Activate()Dim i As Integerczy.Text = Main.StatusBar1.Panels(4).Text 赋值给czy.text，显示当前操作员 查询住宿登记信息Adodc1.RecordSource = select 凭证号码 from tb_djb where 标志= 1order by 凭证号码Adodc1.Refresh 刷新记录 If Adodc1.Recordset.RecordCount 0 Then 如果记录数大于0 For i = 1 To Adodc1.Recordset.Record