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

1、玉林师范学院本科生毕业论文（设计）小型酒店管理系统的设计与开发The design and develop of the Small Hotel Management System院 系 数学与计算机科学系专 业 计算机科学与技术班 级 2008级（专升本）姓 名 刘 芳学 号指导教师单位 数学与计算机科学系指导教师姓名 周培春指导教师职称 讲师小型酒店管理系统的设计与开发计算机科学与技术2008级专升本 刘 芳指导教师 周培春摘要当今社会，酒店种类和客流的不断增加，对于管理造成了困难。采用计算机来管理酒店和住客的信息，提高了查询的速度，节约了人力和物力资源，达到了预期的要求。本系统根据小型酒

2、店管理的现状及未来的发展方向，结合有关小型酒店管理当中的管理学实践，设计了小型酒店管理系统。本系统是用于小型酒店服管理的系统软件。系统数据的管理采用了操作系统的最新管理方式，用户操作将会更简单、更直观、更方便。系统中各业务管理模块可以单机独立运行。使用本系统，可以大幅度提高酒店服务管理的工作效率。该系统应充分利用信息技术提高小型酒店客房的管理水平、服务水平。小型酒店管理系统要实现住宿登记、宿费提醒、追加押金、调房登记、退房结账、查询统计等等功能。其中宿费提醒可以在住宿费超过押金时预警，提示前台要客人补交押金，该功能可明显提高对住宿人员宿费的有效管理。将动态实时的住宿登记、客房调整、追加押金等有

3、机地联系在一起，对小型酒店客房进行全方位的管理。关键词：酒店管理系统; 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

4、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 th

5、e 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

6、 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

7、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.

8、 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 前言 . 1

9、1.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数

10、据库表结构设计 . 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参考文献 . 2711 前言本章对小型酒店管理系统的现状和管理信息化的必要性做

11、了初步的探讨，同时介绍了系统开发的目标以及该系统的运行环境等。1.1系统开发的背景酒店行业的激烈竞争似的争取客源、提高酒店满员率、制定正确营销策略已经成为一项重要的任务，而借助于当前蓬勃发展的IT 工具来拓展销售能力，创造客观的经济效益已经成为许多酒店的首选。作为一有效的统计分析手段，计算机管理系统具有明显的优势，它在数据保存、数据交换等方面均能够做到快速可靠，是手工操作所不能完成的。随着我国市场经济的迅速发展，人们在生活水平有了显著提高，旅游经济和各种商务活动更促进了酒店行业的快速发展。同时，随着酒店的数量越来越多，人们的要求也越来越高，酒店行业的竞争愈演愈烈。如何在激烈的市场竞争中生存和发

12、展，是第一个酒店必须面临的问题。作为提供多功能服务的综合场所，吸引顾客是酒店生存的重要条件。提高酒店的经营管理，为顾客提供更优质的服务，同时降低酒店的运营成本是酒店发展的关健。面对信息时代的机遇和挑战，利用科技手段提高企业管理无疑是一条行之有效的途径。计算机的智能化管理技术可以极大限度地提高服务管理水平，进行准确、快捷和高效的管理。因此，采用全新的计算机酒店管理系统，已成为提高酒店管理效率、改善服务水平的重要手段之一。酒店管理方面的信息化已成为现代化酒店的重要标志。1.2国内外研究现状酒店电脑管理系统最初出现于六十年代末、七十年代初的美国，其中较有代表性的有美国的Ecco 系统，该系统基本实现

13、前台业务中的排房、结帐、客房、餐厅、问询等模块，由于当时仍然没有个人电脑的出现，所以整个电脑是基于集中式的小型机/终端的管理，以后随着硬件技术的发展和各种网络系统、数据库技术的发展，操作系统的发展而推出了许多新型的酒店管理系统。计算机在酒店中的普及和应用，新的技术平台、新的技术特点不断涌现，适合国内特点的信息系统慢慢进入酒店，使得酒店管理系统进入了一个新的发展时期。应该看到，对于一、二星级甚至部分三星级酒店来说，信息环境的建设和应2用还处在起步阶段，即使是五星级的酒店，信息化管理的进程与客户对酒店的需求也有相当的距离。国内酒店信息化程度的低下，在很大程度上阻碍了酒店在网络时代的营销拓展，影响了

14、酒店经营绩效与竞争能力的提升。这主要表现在三大问题上：一、观念问题。大多数酒店经营者认为酒店属于传统的服务行业，主要是靠出租客房和床位来创收，通常没把投资信息化与投资房间内的设施（如增添浴缸或沙发）的投资回报等同看待，没有把信息化建设与影响和改善酒店的经营、管理效率等方面的功效挂起钩来，没有把信息化的价值融入酒店自身价值链在竞争中发挥的作用挂起钩来。二、行业问题。酒店业属于以人为本的劳动密集型服务行业，IT 行业属技术密集型行业。由于这种行业间本质上的差异，致使很多IT 公司尽管竭尽全力将最先进的产品设备或解决方案推销给酒店，其结果通常是酒店付出了昂贵的代价却不尽如人意。纠其原因，主要表现在：

15、技术功能与酒店需求错位，目前的管理系统很多不能解决酒店面临的关键问题；管理决策层没有整体的规划，让开发商牵着鼻子走；供应商和酒店没有利益上的一致性。三、服务不到位问题。酒店是一个以服务为本的行业，依靠客人对各项服务的满意度来提升酒店的入住率和经营效益。酒店信息化的实施，意味着酒店又增加了一项新的服务，即信息服务。IT 公司负责策划和实施，但通常不承担日后的服务，因为他们是IT 公司不属于服务行业。然而，倘若服务的责任落到酒店自身头上，酒店能应付的了吗？由于服务不到位，使系统不能充分发挥作用的已屡见不鲜，由谁来为酒店提供信息服务是一个值得商榷的问题。1.3本课题研究意义在今后的几年中，酒店的竞争

16、将主要在信息化、智能化方面展开。店内装潢、客房数量、房间设施等质量竞争和价格竞争将退居二线。酒店信息化的发展趋势主要分为三大应用领域：一是为酒店的管理者、决策者提供及时、准确地掌握酒店经营各个环节情况的信息技术；二是针对酒店的经营，为节省运营成本、提高运营质量和管理效率的信息化管理和控制技术；三是直接面对顾客所提供的信息化服务。对于酒店而言，信息化是一个工具，是一种手段，是一种服务，服务水平的好坏直接影响酒店的经济效益和竞争力。31.4相关技术介绍1.4.1 Visual Basic简介微软公司的Visual Basic 6.0是由微软公司于1998年推出的Windows 应用程序开发工具，是

17、目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB 是一个相对较好的选择。微软公司在Visual Basic 6.0增加了ADO （ActiveX Data Objects）。ADO 是一个用于存取数据源的COM 组件。它提供了编程语言和统一数据访问方式OLEDB 的一个中间层。开发人员通过ADO ，就可以很容易地编写出同时支持多种数据库的软件了。此外，借助COM/COM+强大的功能，使用Visual Bas

18、ic可以轻松地开发多层结构的分布式应用程序以及高效的Web 应用程序。为什么选择Visual Basic来开发本系统呢？下面来介绍一下Visual Basic的独到之处：(1 Visual Basic主要特性1易于学习和使用。Visual Basic 的中心思想就是便于程序员使用，无论是新手还是专家，都能轻松上手并很快掌握它。Visual Basic基于图形界面的开发环境使开发者对各种功能一目了然、容易理解。用户仅仅通过鼠标的简单操作就可以构建出一个复杂的软件图形界面。2 开发高效，功能强大。Visual Basic提供的图形用户界面和快速应用程序开发系统，使程序员可以轻松使用Visual B

19、asic提供的各种功能的组件快速搭建一个应用程序。在数据库编程方面，使用微软提供的DAO 、RDO 、ADO 等控件可以直观、高效地完成各种数据库操作。虽然Visual Basic易于使用，但这并不表明Visual Basic 的功能薄弱，使用Visual Basic 不仅可以开发简单的应用程序，还可以编写出商业级的客户端/服务器程序，以及强大的数据库应用程序。使用Visual Basic开发面向终端用户的具有良好界面的程序更是得以就手。3支持多种数据库访问机制。Visual Basic 6.0具有强大的数据库管理功能。利用其提供的ADO 访问机制和ODBC 数据库连接机制，可以访问多种数据库

20、，如Access 、SQL Server等。4 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 自治提供, 用于不使用指针的语言(如脚本语言 ; 另一种通过

21、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 （或DVD ROM ）软件环境：Windows9X 或者更高版本的

22、操作系统、Microsoft Access 2000以上数据库、Microsoft Basic 6.0开发平台。1.6系统开发技术(1Microsoft Basic 6.0(2Microsoft Access数据库2 系统分析系统分析是应用系统思想和方法，把复杂的对象分解成简单的组成部分，找出这些部分的基本属性和彼此间的关系。系统分析是解决目标系统“做什么”的问题，本章首先确定了系统所要达到的功能需求，然后将需求进一步细化转成业务需求，并对业务需求进行详细分析，解决了系统“做什么”的具体内容。2.1 系统的可行性研究也称为可行性研究，是在系统调查的基础上，针对新系统的开发是否具备必要性和可能性

23、，对新系统的开发从技术、经济、社会的方面进行分析和研究，以5避免投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。该系统的可行性分析包括以下几个方面的内容。 2.1.1技术可行性在开发技术方面，酒店管理系统开发技术非常成熟，开发工具很多。本人采用以下的组合可以满足小型酒店管理系统开发的要求 :Microsoft windows xp 操作系统、PC 机、 Microsoft Office Access2003。微软公司的Office Access2003数据库系统，适用于小型的系统开发，用于存储和管理系统所需要的数据。它以操作简单、易学易用

24、的特点而受到大多数用户的青眯。因此，系统的软件开发平台已成熟可行。硬件方面，科技飞速发展的今天，硬件更新的速度越来越快，容量越来越大，可靠性越来越高，价格越来越低，其硬件平台也完全能满足此系统的需要。2.1.2经济可行性使用本小型酒店管理系统可提高酒店客房管理水平，把大量繁琐工作简单化，能够有效地节省人力物力，并能够准确地进行统计和计算，避免人工统计或计算所带来的差错，保证酒店管理高效而有序地进行。综上所述，此系统开发目标已明确，在技术、经济等方面都可行，并且投入少、见效快。因此系统的开发是完全可行的。 2.2系统需求分析桂湖酒店是一家比较小型的酒店，设施较齐全。随着信息技术的发展和外务对酒店

25、的要求越来越高，该酒店已明显觉得手工管理已不能适应当前酒店高速发展的需要。在意识到使用计算机管理的重要性后，决定主要针对客房管理设计出符合要求的小型酒店管理系统。 2.3系统的功能框架根据以上的分析，小型酒店系统功能框架划分如图2.3所示。6 图2.3系统功能框架划分Fig2.3 The partitionthe of funcion frame of the system2.4系统业务流程图系统的流程图设计。系统启动后进入屏幕展示窗体可以大致了解本系统的开发环境和数据库情况等。使用系统登录时用户ID 和密码都要自己手动输入。不同的用户对系统具有不同的管理权限。管理员可以对客房信息进行查询、打

26、印、登记，也可以使用多种实用工具如：还可以修改自己的用户密码，还可以通过系统维护模块对系统进行数据库的管理，可以备份数据、恢复数据、初始化数据。具体系统的流程图如下所示：7 图2.4 系统操作流程Fig.2.4 The flow of system operation3系统结构分析和设计3.1关系模型设计在开发小型酒店管理系统时，对客户的信息的管理必不可少，通过对系统进8行的需求分析、业务流程设计以及系统功能结构的确定，规划出系统中使用的数据库实体对象及实体E-R 图。客房入住需要以客人信息及入住信息进行登记，这就存在一个登记信息实体，其实体E-R 图如图3.1所示： Fig.3.1 the

27、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所示： 9 Fig.3.3 the E-R chart of check registration table4数据库设计4.1Microsoft office Access

28、2003简介Microsoft Access 是一种关系式数据库，是由微软公司开发的。关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access 数据库以文件形式保存，文件的扩展名是MDB 。Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。表(Table是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。查询(Query可以按索引快速查找到需要的记录，按要

29、求筛选记录并能连接若干个表的字段组成新表。窗体(Form 提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。报表(Report 的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。宏(Macro 相当于DOS 中的批处理，用来自动执行一系列操作。模块(Module 的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。4.2数据库表结构设计10该系统使用了Access 数据库，名称为JDGL.mdb ，其各表的功能和具体设计结构如下：4.2.1用户信息表（tb_user）功能是保存系统的用户数据，其结构如表4.1所示

30、：表4.1用户信息表Table4.1The table of user information 4.2.2登记信息表（tb_djb）功能是用来保存客人住宿时的住宿登记信息，其结构如表4.2所示：表4.2登记信息表Table4.2The table of registration information 11 4.2.3客房基础信息表（tb_kf）功能是用来保存客房基础信息，其结构如表4.3所示：表4.3客房信息表Table4.3The table of rooms information 4.2.4退房登记信息表（tb_tfd）功能是用来保存客人退宿登记信息，其结构如表4.4所示：表4.4 参

31、考文献信息表Table4.4The table of check rooms information12 5系统详细设计与实现5.1系统公共模块设计在系统中使用公共模块，可节省系统资源，实现代码重用。在本系统中新建一个Module 模块，此模块主要用于共享数据库边接。其中ESQL(函数用于打开到数据库的连接，StrCnn(函数用于返回于一个连接串。公共模块代码如下： Public adocon As New ADODB.Connection ' 创建ADODB.Connection 对象 Public adoRs As New ADODB.Recordset ' 创建ADODB

32、.Recordset 对象13Public Sub Main( ' 打开数据库连接adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_JDGL.mdb;Persist Security Info=False" End SubPublic Function ESQL(ByVal sql As String As ADODB.Recordset ' 定义函数 Dim cnn As ADODB.Connection '

33、定义连接 Dim rs As ADODB.Recordset ' 定义记录集 Set cnn = New ADODB.Connection ' 创建连接 cnn.Open StrCnn ' 打开连接 Set rs = New ADODB.Recordsetrs.Open Trim(sql, cnn, adOpenKeyset, adLockOptimistic Set ESQL = rs End FunctionPublic Function StrCnn( ' 返回一个数据库连接StrCnn = "Provider=Microsoft.Jet.OLE

34、DB.4.0;Data Source=" & App.Path & "DB_JDGL.mdb;Persist Security Info=False" End Function 5.2主窗体的设计在登录窗体对话框中输入正确的操作员和操作员密码后才能进到主窗体。窗体如图5.2所示： 14图5.2登录窗体对话框 Fig5.2 Login form dialog box其中“确定”与“取消”按扭，采用的是.ico 图标。 主要代码如下： Private Sub Image1_Click( Static itimes As IntegerMain.Stat

35、usBar1.Panels(4.Text = Text1.TextAdodc1.RecordSource = "select * from tb_user where 操作员='" + Text1.Text + "'" ' 验证操作员及密码 Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 Then '如果记录数大于零 If Text2.Text = Adodc1.Recordset.Fields("密码" Then ' 验证密码 Load

36、 Main Main.Show Unload Me ElseIf Text2.Text <> Adodc1.Recordset.Fields("密码" Then MsgBox "密码错误, 请重新输入！", vbCritical, "系统提示" itimes = itimes + 1 Text2.Text = "" Text2.SetFocus End If End If ElseMsgBox "操作员不存在, 请重新输入！", vbCritical, "系统提示"

37、; itimes = itimes + 1 Text1.Text = "" Text2.Text = "" Text1.SetFocus End If15If itimes = 3 Then ' 错误3次，退出系统MyMsg = MsgBox("输入错误, 请向系统管理员查询！", vbCritical, "系统提示"If MyMsg = vbOK Then EndEnd IfEnd Sub5.3主窗体的设计与实现程序启动后，在系统登录界面验证完操作员和操作员密码后，将进入程序主窗体。在程序主窗体中通过选择

38、菜单命令或单击工具栏中的按钮，可调用相应程序窗体或进行相应操作；可根据操作员不同，确定操作员的相应权限，在主窗体状态栏中显示了系统时间和当前系统操作员。主窗体界面如下图5.3所示： 图5.3 主窗体界面Fig. 5.3 The Main form interface该系统主窗体主要通过菜单命令实现调出各个窗体或执行相应操作。同时在主窗体和添加一个Toolbar 控件，作为工具栏。通过Toolbar 控件的Click 事件，也可实现调出相应窗体或执行相应操作。16使用Button 对象的Key 属性标识被单击的按钮。例如，在主窗体模块中单击工具栏中的按钮，发生ButtonClick 事件，并用K

39、ey 属性标识被单击的按钮。代码如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.ButtonSelect Case Button.KeyCase "DJ"zsdj_Click ' 调入住宿登记Case "TF"tf_Click ' 调入退宿结账Case "CX"zscx_Click ' 调入住宿查询Case "TX"sftx_Click ' 调入提醒Case "CXDL" '

40、重新登录Load main_Loginmain_Login.ShowCase "exit"If MsgBox("确定退出该系统？", 4, "系统提示" = vbYes ThenEndEnd IfEnd SelectEnd Sub单击主窗体中的菜单项，通过菜单命令实现调出各个窗体或执行相应操作，在各子菜单的Click 事件下实现相应操作。部分代码如下：Private Sub sjbf_Click( ' 调入数据备份main_sjbf.ShowMain.Enabled = FalseEnd SubPrivate Sub sjhf

41、_Click( ' 数据恢复main_sjhf.Show17End SubPrivate Sub ma_Click( ' 调入密码设置main_mmsz.ShowMain.Enabled = FalseEnd Sub5.4住宿登记模块设计与实现程序启动后，选择菜单栏中“住宿管理”/“住宿登记”命令，或直接单击工具栏中的“登记”按钮，将打开住宿登记模块。在住宿登记模块中能够自动生成住宿登记凭证号码，提供空闲房间供用户选择，实现客人住宿登记，收取客人预交宿费，实际宿费、宿费提醒时间、退宿时间、打印住宿登记单据。住宿登记模块界面如下图5.4所示： 图5.4 住宿登记窗体界面Fig.

42、5.4The Accommodation Registration form interface住宿登记模块主要用于录入客人入住信息，此窗体包含了大量的文本框和时间控件等，但这些控件功能都比较简单，没有复杂的属性设置。打开住宿登记模块，单击“登记”按钮，开始进行住宿登记。“登记”按钮的Click 事件主要实现设置控件有效和无效、自动生成登记凭证号码等功能。自动生成登记凭证号码的主要代码发下：18Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &a

43、mp; "DB_JDGL.mdb;Persist Security Info=False"Adodc2.RecordSource = "select * from tb_djb order by 凭证号码" ' 按凭证号码排序数据Adodc2.RefreshIf Not Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast ' 移动记录集到最后一条记录If lsph.Text = "" Then bh.Text = Fdate & "d" &

44、amp; Format(1, "#000" ' 当lsph 值为空为凭证号码文本框赋值If lsph.Text <> "" Then ' 当lsph 值不空时y1.Text = Month(Fdate ' 把当前月份赋给y1y2.Text = Month(Left(lsph.Text, 10 ' 把lsph 中的月份赋给y2If y1.Text = y2.Text Then ' 如果y1文本框中内容与y2相同bh.Text = Fdate & "d" & Format

45、(Val(Right(lsph.Text, 3 + 1, "#000" ' 为凭证号码文本框赋值Text2.Text = Val(Right(lsph.Text, 3 + 1 'text1中存储lsph 文本框中后三位数End IfIf y1.Text <> y2.Text Then ' 如果y1文本框中内容与y2不同bh.Text = Fdate & "d" & Format(1, "#000" ' 为凭证号码文本框赋值End IfEnd If当住宿信息登记完成后，“打印”

46、按钮处于可用状态，可以单击“打印”按钮打印住宿证。主要代码如下：Private Sub comprint_Click(On Error GoTo 1 ' 出错转向标签“1”Dim X As Printer' 打印住宿登记单据19 Printer.Height = 8000: Printer.Width = 8000 ' 设置高度和宽度Printer.CurrentX = 1100: Printer.CurrentY = 300 ' 设置打印位置Printer.FontSize = 12 ' 设置字体大小 Printer.Print "桂湖酒店客

47、房 (住宿证 " ' 打印文字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

48、 ' 打印日期、时间和凭证号码B = B + d ' 为变量B 赋值Printer.Line (A, B + 100-(C, B + 100 ' 打印一条直线Printer.CurrentX = 100 + APrinter.CurrentY = B + 200Printer.Print "操作员: " & czy.Text & " 欢迎光临"Printer.EndDoc ' 输出给打印机Exit SubIf Err.Number = 482 ThenMsgBox "请连接打印机！",

49、, "系统提示"Err.ClearEnd IfEnd Sub5.5调房登记模块设计与实现在主窗体中，选择住宿管理菜单下的调房登记项，将进入调房登记模块。在调房登记模块中选择客人入住的房间号和空闲房间号，实现调房登记，系统只允许调换等价客房。调房登记界面如图5.5所示： 20图5.5 调房登记窗体界面Fig. 5.5The Housing Register Transfer form interface调房登记模块主要实现对客人房间进行调换的过程，源房间号列表是查询登记表中当前所有住宿客人的房间号码，在选择源房间号后，实现生成目标房间号。主要代码如下Private Sub C

50、ombo3_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 IfEnd IfCom