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

本科生毕业论文（设计）小型酒店管理系统的设计与开发THEDESIGNANDDEVELOPOFTHESMALLHOTELMANAGEMENTSYSTEM小型酒店管理系统的设计与开发摘要当今社会，酒店种类和客流的不断增加，对于管理造成了困难。采用计算机来管理酒店和住客的信息，提高了查询的速度，节约了人力和物力资源，达到了预期的要求。本系统根据小型酒店管理的现状及未来的发展方向，结合有关小型酒店管理当中的管理学实践，设计了小型酒店管理系统。本系统是用于小型酒店服管理的系统软件。系统数据的管理采用了操作系统的最新管理方式，用户操作将会更简单、更直观、更方便。系统中各业务管理模块可以单机独立运行。使用本系统，可以大幅度提高酒店服务管理的工作效率。该系统应充分利用信息技术提高小型酒店客房的管理水平、服务水平。小型酒店管理系统要实现住宿登记、宿费提醒、追加押金、调房登记、退房结账、查询统计等等功能。其中宿费提醒可以在住宿费超过押金时预警，提示前台要客人补交押金，该功能可明显提高对住宿人员宿费的有效管理。将动态实时的住宿登记、客房调整、追加押金等有机地联系在一起，对小型酒店客房进行全方位的管理。关键词酒店管理系统VBACCESS2003数据库THEDESIGNOFTHESMALLHOTELMANAGEMENTSYSTEMCOMPUTERSCIENCEANDTECHNOLOGY20082008LIUFANGSUPERVISORZHOUPEICHUNABSTRACTATPRESENT,THESMALLHOTELSCATEGORYFLOWSWITHINCREASINGOFTHEGUESTSCONTINUOUSLY,RESULTEDINTHEDIFFICULTYTOTHEMANAGEMENTUSINGTHECOMPUTERTOMANAGETHEHOTELANDTHERESIDENTINFORMATION,ENHANCEDTHEINQUIRYSPEED,SAVEDTHEWORKFORCEANDTHERESOURCESANDHASMETTHEANTICIPATEDREQUIREMENTSINTHISSYSTEM,WEDESIGNSTHESMALLHOTELMANAGEMENTSYSTEMWHICHACCORDSTOTHEPRESENTSITUATIONOFTHESMALLHOTELSERVICEMANAGEMENTANDTHEWAYITDEVELOPSINTHEFUTUREANDSMALLHOTELMANAGEMENTSTUDYPRACTICETHISSYSTEMISASOFTWAREWHICHISUSEDFORTHESMALLHOTELSERVICEMANAGEMENTTHEMANAGEMENTOFTHESYSTEMDATAUSESTHEOPERATINGSYSTEMNEWESTMANAGEMENTMETHOD,SOTHEUSEROPERATIONWILLBESIMPLERTHEVARIOUSBUSINESSMANAGEMENTMODULESINTHISSYSTEMMAYRUNSINDEPENDENTLYTHESEADVANTAGESCANINCREASETHEBIGGESTEFFICIENCYOFTHEGUESTHOUSEMANAGEMENT,ISALSOAGUESTHOUSETOSERVESCIENTIFICANDREGULARTOTURNTHETERMOFTHEMANAGEMENTTHISSYSTEMMAYMAKEFULLUSEOFINFORMATIONTECHNOLOGYTOINCREASETHEMANAGEMENTLEVEL,SERVICELEVELOFTHEHOTELTHESYSTEMWILLREALIZETHEFUNCTIONSUCHASTHELODGINGSREGISTRATION,THELODGINGALLOWANCEREMINDER,SUPPLEMENTSTHEDEPOSIT,THEACCENTROOMREGISTRATION,RETURNSAHOUSETIESTHEACCOUNT,INQUIRYSTATISTICSTHEDYNAMICREALTIMELODGINGSREGISTRATION,THEGUESTROOMADJUSTMENT,THESALESREPORTFORM,WILLSUPPLEMENTTHEDEPOSITANDSOONORGANICALLYTORELATEINTOGETHER,WILLCARRYONTHEMANAGEMENTWELLTOTHESMALLHOTELSROOMKEYWORDSHOTELMANAGEMENTSYSTEMVBACCESS2003DATABASE目录1前言111系统开发的背景112国内外研究现状113本课题研究意义214相关技术介绍3141VISUALBASIC简介3142ADO访数据库技术介绍415系统运行环境416系统开发技术42系统分析421系统的可行性研究4211技术可行性5212经济可行性522系统需求分析523系统的功能框架524系统业务流程图63系统结构分析和设计731关系模型设计74数据库设计941MICROSOFTOFFICEACCESS2003简介942数据库表结构设计9421用户信息表（TB_USER）10422登记信息表（TB_DJB）10423客房基础信息表（TB_KF）11424退房登记信息表（TB_TFD）115系统详细设计与实现1251系统公共模块设计1252主窗体的设计1353主窗体的设计与实现1554住宿登记模块设计与实现1755调房登记模块设计与实现1956追加押金模块设计2156系统维护模块的具体实现22结束语26致谢27参考文献271前言本章对小型酒店管理系统的现状和管理信息化的必要性做了初步的探讨，同时介绍了系统开发的目标以及该系统的运行环境等。11系统开发的背景酒店行业的激烈竞争似的争取客源、提高酒店满员率、制定正确营销策略已经成为一项重要的任务，而借助于当前蓬勃发展的IT工具来拓展销售能力，创造客观的经济效益已经成为许多酒店的首选。作为一有效的统计分析手段，计算机管理系统具有明显的优势，它在数据保存、数据交换等方面均能够做到快速可靠，是手工操作所不能完成的。随着我国市场经济的迅速发展，人们在生活水平有了显著提高，旅游经济和各种商务活动更促进了酒店行业的快速发展。同时，随着酒店的数量越来越多，人们的要求也越来越高，酒店行业的竞争愈演愈烈。如何在激烈的市场竞争中生存和发展，是第一个酒店必须面临的问题。作为提供多功能服务的综合场所，吸引顾客是酒店生存的重要条件。提高酒店的经营管理，为顾客提供更优质的服务，同时降低酒店的运营成本是酒店发展的关健。面对信息时代的机遇和挑战，利用科技手段提高企业管理无疑是一条行之有效的途径。计算机的智能化管理技术可以极大限度地提高服务管理水平，进行准确、快捷和高效的管理。因此，采用全新的计算机酒店管理系统，已成为提高酒店管理效率、改善服务水平的重要手段之一。酒店管理方面的信息化已成为现代化酒店的重要标志。12国内外研究现状酒店电脑管理系统最初出现于六十年代末、七十年代初的美国，其中较有代表性的有美国的ECCO系统，该系统基本实现前台业务中的排房、结帐、客房、餐厅、问询等模块，由于当时仍然没有个人电脑的出现，所以整个电脑是基于集中式的小型机/终端的管理，以后随着硬件技术的发展和各种网络系统、数据库技术的发展，操作系统的发展而推出了许多新型的酒店管理系统。计算机在酒店中的普及和应用，新的技术平台、新的技术特点不断涌现，适合国内特点的信息系统慢慢进入酒店，使得酒店管理系统进入了一个新的发展时期。应该看到，对于一、二星级甚至部分三星级酒店来说，信息环境的建设和应用还处在起步阶段，即使是五星级的酒店，信息化管理的进程与客户对酒店的需求也有相当的距离。国内酒店信息化程度的低下，在很大程度上阻碍了酒店在网络时代的营销拓展，影响了酒店经营绩效与竞争能力的提升。这主要表现在三大问题上一、观念问题。大多数酒店经营者认为酒店属于传统的服务行业，主要是靠出租客房和床位来创收，通常没把投资信息化与投资房间内的设施（如增添浴缸或沙发）的投资回报等同看待，没有把信息化建设与影响和改善酒店的经营、管理效率等方面的功效挂起钩来，没有把信息化的价值融入酒店自身价值链在竞争中发挥的作用挂起钩来。二、行业问题。酒店业属于以人为本的劳动密集型服务行业，IT行业属技术密集型行业。由于这种行业间本质上的差异，致使很多IT公司尽管竭尽全力将最先进的产品设备或解决方案推销给酒店，其结果通常是酒店付出了昂贵的代价却不尽如人意。纠其原因，主要表现在技术功能与酒店需求错位，目前的管理系统很多不能解决酒店面临的关键问题；管理决策层没有整体的规划，让开发商牵着鼻子走；供应商和酒店没有利益上的一致性。三、服务不到位问题。酒店是一个以服务为本的行业，依靠客人对各项服务的满意度来提升酒店的入住率和经营效益。酒店信息化的实施，意味着酒店又增加了一项新的服务，即信息服务。IT公司负责策划和实施，但通常不承担日后的服务，因为他们是IT公司不属于服务行业。然而，倘若服务的责任落到酒店自身头上，酒店能应付的了吗由于服务不到位，使系统不能充分发挥作用的已屡见不鲜，由谁来为酒店提供信息服务是一个值得商榷的问题。13本课题研究意义在今后的几年中，酒店的竞争将主要在信息化、智能化方面展开。店内装潢、客房数量、房间设施等质量竞争和价格竞争将退居二线。酒店信息化的发展趋势主要分为三大应用领域一是为酒店的管理者、决策者提供及时、准确地掌握酒店经营各个环节情况的信息技术；二是针对酒店的经营，为节省运营成本、提高运营质量和管理效率的信息化管理和控制技术；三是直接面对顾客所提供的信息化服务。对于酒店而言，信息化是一个工具，是一种手段，是一种服务，服务水平的好坏直接影响酒店的经济效益和竞争力。14相关技术介绍141VISUALBASIC简介微软公司的VISUALBASIC60是由微软公司于1998年推出的WINDOWS应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。VISUALBASIC提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。微软公司在VISUALBASIC60增加了ADO（ACTIVEXDATAOBJECTS）。ADO是一个用于存取数据源的COM组件。它提供了编程语言和统一数据访问方式OLEDB的一个中间层。开发人员通过ADO，就可以很容易地编写出同时支持多种数据库的软件了。此外，借助COM/COM强大的功能，使用VISUALBASIC可以轻松地开发多层结构的分布式应用程序以及高效的WEB应用程序。为什么选择VISUALBASIC来开发本系统呢下面来介绍一下VISUALBASIC的独到之处1VISUALBASIC主要特性1易于学习和使用。VISUALBASIC的中心思想就是便于程序员使用，无论是新手还是专家，都能轻松上手并很快掌握它。VISUALBASIC基于图形界面的开发环境使开发者对各种功能一目了然、容易理解。用户仅仅通过鼠标的简单操作就可以构建出一个复杂的软件图形界面。2开发高效，功能强大。VISUALBASIC提供的图形用户界面和快速应用程序开发系统，使程序员可以轻松使用VISUALBASIC提供的各种功能的组件快速搭建一个应用程序。在数据库编程方面，使用微软提供的DAO、RDO、ADO等控件可以直观、高效地完成各种数据库操作。虽然VISUALBASIC易于使用，但这并不表明VISUALBASIC的功能薄弱，使用VISUALBASIC不仅可以开发简单的应用程序，还可以编写出商业级的客户端/服务器程序，以及强大的数据库应用程序。使用VISUALBASIC开发面向终端用户的具有良好界面的程序更是得以就手。3支持多种数据库访问机制。VISUALBASIC60具有强大的数据库管理功能。利用其提供的ADO访问机制和ODBC数据库连接机制，可以访问多种数据库，如ACCESS、SQLSERVER等。142ADO访数据库技术介绍ADOACTIVEXDATAOBJECT是建立在ODBCOPENDATABASECONNECTIVITY和OLEDBOLEDATABASE基础之上的基于对象的高层数据库APIAPPLICATIONPROGRAMMINGINTERFACE,ADO通过封装在低层OLEDB功能中的不同对象、方法和属性以提供高层接口由于ADO基于ACTIVEX标准,因此具有很强的可扩展性ADO提供两种接口,一种是通过OLE自治提供,用于不使用指针的语言如脚本语言另一种通过VTABLE虚拟函数表向使用指针的语言提供接口如C,可实现与各种数据库的连接ADO包含了DAODATAACCESSOBJECT和RDOREMOTEDATAOBJECT所有的功能,并且又增加了新的功能,是DAO和RDO的超集ADO具有速度高、对象层次简单、低开销、低磁盘空间等优点,是当前基于对象的最好的数据库接口15系统运行环境硬件环境CPUINTELP420GHZ或更高、内存64MB以上、硬盘1G以上、显卡32MB显存以上、光驱52XCDROM（或DVDROM）软件环境WINDOWS9X或者更高版本的操作系统、MICROSOFTACCESS2000以上数据库、MICROSOFTBASIC60开发平台。16系统开发技术1MICROSOFTBASIC602MICROSOFTACCESS数据库2系统分析系统分析是应用系统思想和方法，把复杂的对象分解成简单的组成部分，找出这些部分的基本属性和彼此间的关系。系统分析是解决目标系统“做什么”的问题，本章首先确定了系统所要达到的功能需求，然后将需求进一步细化转成业务需求，并对业务需求进行详细分析，解决了系统“做什么”的具体内容。21系统的可行性研究也称为可行性研究，是在系统调查的基础上，针对新系统的开发是否具备必要性和可能性，对新系统的开发从技术、经济、社会的方面进行分析和研究，以避免投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。该系统的可行性分析包括以下几个方面的内容。211技术可行性在开发技术方面，酒店管理系统开发技术非常成熟，开发工具很多。本人采用以下的组合可以满足小型酒店管理系统开发的要求MICROSOFTWINDOWSXP操作系统、PC机、MICROSOFTOFFICEACCESS2003。微软公司的OFFICEACCESS2003数据库系统，适用于小型的系统开发，用于存储和管理系统所需要的数据。它以操作简单、易学易用的特点而受到大多数用户的青眯。因此，系统的软件开发平台已成熟可行。硬件方面，科技飞速发展的今天，硬件更新的速度越来越快，容量越来越大，可靠性越来越高，价格越来越低，其硬件平台也完全能满足此系统的需要。212经济可行性使用本小型酒店管理系统可提高酒店客房管理水平，把大量繁琐工作简单化，能够有效地节省人力物力，并能够准确地进行统计和计算，避免人工统计或计算所带来的差错，保证酒店管理高效而有序地进行。综上所述，此系统开发目标已明确，在技术、经济等方面都可行，并且投入少、见效快。因此系统的开发是完全可行的。22系统需求分析桂湖酒店是一家比较小型的酒店，设施较齐全。随着信息技术的发展和外务对酒店的要求越来越高，该酒店已明显觉得手工管理已不能适应当前酒店高速发展的需要。在意识到使用计算机管理的重要性后，决定主要针对客房管理设计出符合要求的小型酒店管理系统。23系统的功能框架根据以上的分析，小型酒店系统功能框架划分如图23所示。图23系统功能框架划分FIG23THEPARTITIONTHEOFFUNCIONFRAMEOFTHESYSTEM24系统业务流程图系统的流程图设计。系统启动后进入屏幕展示窗体可以大致了解本系统的开发环境和数据库情况等。使用系统登录时用户ID和密码都要自己手动输入。不同的用户对系统具有不同的管理权限。管理员可以对客房信息进行查询、打印、登记，也可以使用多种实用工具如还可以修改自己的用户密码，还可以通过系统维护模块对系统进行数据库的管理，可以备份数据、恢复数据、初始化数据。小型酒店管理系统系统维护住宿管理住宿登记调房登记退房登记数据备份追加押金数据恢复客房管理查询统计系统设置客户设置客房查询住宿查询退宿查询宿费提醒操作员设置密码设置重新登录设置主窗口图像初使化权限设置具体系统的流程图如下所示小型酒店管理系统主界面登录操作员登录系统维护住宿管理住宿登记调房登记退房登记数据备份追加押金数据恢复客房管理查询统计系统设置客户设置客房查询住宿查询退宿查询宿费提醒操作员设置密码设置重新登录设置主窗口图像初使化权限设置图24系统操作流程FIG24THEFLOWOFSYSTEMOPERATION3系统结构分析和设计31关系模型设计在开发小型酒店管理系统时，对客户的信息的管理必不可少，通过对系统进行的需求分析、业务流程设计以及系统功能结构的确定，规划出系统中使用的数据库实体对象及实体ER图。客房入住需要以客人信息及入住信息进行登记，这就存在一个登记信息实体，其实体ER图如图31所示FIG31THEERCHARTOFREGISTRATIONINFORMATIONTABLE在此系统中，客房是一个重要的实体，客房实体包含了客房的基本配置信息，以及当前房间状态，其ER图如图32所示FIG32THEERCHARTOFREGISTRATIONROOMSTABLE住宿时间住宿日期提醒日期凭证号码摘要登记信息住宿天数客房价格实收宿费姓名客房类型房间号详细地址证件号码证件名称标志退宿提醒客房房间号房间类型价格标志营业日期房态配置使用设置客人退房时需要对退房信息进行登记，退房登记实体包含人的基本信息以及对房费进行结算登记的信息，退房登记实体的ER图如图33所示FIG33THEERCHARTOFCHECKREGISTRATIONTABLE4数据库设计41MICROSOFTOFFICEACCESS2003简介MICROSOFTACCESS是一种关系式数据库，是由微软公司开发的。关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。ACCESS数据库以文件形式保存，文件的扩展名是MDB。ACCESS数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。表TABLE是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。查询QUERY可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。窗体FORM提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。报表REPORT的功能是将数据库中的数据分类汇总，然后打印出来，住宿时间住宿日期退宿日期凭证号码摘要退房登记住宿天数客房价格实收宿费姓名客房类型房间号详细地址证件号码证件名称预收宿费退还宿费以便分析。宏MACRO相当于DOS中的批处理，用来自动执行一系列操作。模块MODULE的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。42数据库表结构设计该系统使用了ACCESS数据库，名称为JDGLMDB，其各表的功能和具体设计结构如下421用户信息表（TB_USER）功能是保存系统的用户数据，其结构如表41所示表41用户信息表TABLE41THETABLEOFUSERINFORMATION字段名称数据类型字段大小操作员文本10密码文本50422登记信息表（TB_DJB）功能是用来保存客人住宿时的住宿登记信息，其结构如表42所示表42登记信息表TABLE42THETABLEOFREGISTRATIONINFORMATION字段名称数据类型字段大小凭证号码文本20姓名文本50证件名称文本20证件号码文本20详细地址文本50房间号文本20客房类型文本10客房价格货币8住宿日期日期/时间8住宿时间日期/时间8住宿天数数字双精度型应收宿费货币8预收金额货币8提醒日期日期/时间8退宿日期日期/时间8备注文本50标志文本1日期日期/时间8时间日期/时间8退宿时间日期/时间8提醒时间日期/时间8摘要文本200BZ数字双精度型423客房基础信息表（TB_KF）功能是用来保存客房基础信息，其结构如表43所示表43客房信息表TABLE43THETABLEOFROOMSINFORMATION字段名称数据类型字段大小房间号文本30房间类型文本50价格货币8房态文本4标志是/否1备注文本100配置文本100使用设置文本10营业日期日期/时间8424退房登记信息表（TB_TFD）功能是用来保存客人退宿登记信息，其结构如表44所示表44参考文献信息表TABLE44THETABLEOFCHECKROOMSINFORMATION字段名称数据类型字段大小凭证号码文本20姓名文本50证件名称文本20证件号码文本20详细地址文本50房间号文本20客房类型文本10客房价格货币8住宿日期日期/时间8住宿时间日期/时间8住宿天数数字双精度型应收宿费货币8金额总计货币8预收宿费货币8退还宿费货币8退房日期日期/时间8退房时间日期/时间8备注文本50BZ数字双精度型5系统详细设计与实现51系统公共模块设计在系统中使用公共模块，可节省系统资源，实现代码重用。在本系统中新建一个MODULE模块，此模块主要用于共享数据库边接。其中ESQL函数用于打开到数据库的连接，STRCNN函数用于返回于一个连接串。公共模块代码如下PUBLICADOCONASNEWADODBCONNECTION创建ADODBCONNECTION对象PUBLICADORSASNEWADODBRECORDSET创建ADODBRECORDSET对象PUBLICSUBMAIN打开数据库连接ADOCONOPEN“PROVIDERMICROSOFTJETOLEDB40DATASOURCE“PERSISTSECURITYINFOFALSE“ENDSUBPUBLICFUNCTIONESQLBYVALSQLASSTRINGASADODBRECORDSET定义函数DIMCNNASADODBCONNECTION定义连接DIMRSASADODBRECORDSET定义记录集SETCNNNEWADODBCONNECTION创建连接CNNOPENSTRCNN打开连接SETRSNEWADODBRECORDSETRSOPENTRIMSQL,CNN,ADOPENKEYSET,ADLOCKOPTIMISTICSETESQLRSENDFUNCTIONPUBLICFUNCTIONSTRCNN返回一个数据库连接STRCNN“PROVIDERMICROSOFTJETOLEDB40DATASOURCE“PERSISTSECURITYINFOFALSE“ENDFUNCTION52主窗体的设计在登录窗体对话框中输入正确的操作员和操作员密码后才能进到主窗体。窗体如图52所示图52登录窗体对话框FIG52LOGINFORMDIALOGBOX其中“确定”与“取消”按扭，采用的是ICO图标。主要代码如下PRIVATESUBIMAGE1_CLICKSTATICITIMESASINTEGERMAINSTATUSBAR1PANELS4TEXTTEXT1TEXTADODC1RECORDSOURCE“SELECTFROMTB_USERWHERE操作员“TEXT1TEXT“验证操作员及密码ADODC1REFRESHIFADODC1RECORDSETRECORDCOUNT0THEN如果记录数大于零IFTEXT2TEXTADODC1RECORDSETFIELDS“密码“THEN验证密码LOADMAINMAINSHOWUNLOADMEELSEIFTEXT2TEXTADODC1RECORDSETFIELDS“密码“THENMSGBOX“密码错误,请重新输入“,VBCRITICAL,“系统提示“ITIMESITIMES1TEXT2TEXT“TEXT2SETFOCUSENDIFENDIFELSEMSGBOX“操作员不存在,请重新输入“,VBCRITICAL,“系统提示“ITIMESITIMES1TEXT1TEXT“TEXT2TEXT“TEXT1SETFOCUSENDIFIFITIMES3THEN错误3次，退出系统MYMSGMSGBOX“输入错误,请向系统管理员查询“,VBCRITICAL,“系统提示“IFMYMSGVBOKTHENENDENDIFENDSUB53主窗体的设计与实现程序启动后，在系统登录界面验证完操作员和操作员密码后，将进入程序主窗体。在程序主窗体中通过选择菜单命令或单击工具栏中的按钮，可调用相应程序窗体或进行相应操作；可根据操作员不同，确定操作员的相应权限，在主窗体状态栏中显示了系统时间和当前系统操作员。主窗体界面如下图53所示图53主窗体界面FIG53THEMAINFORMINTERFACE该系统主窗体主要通过菜单命令实现调出各个窗体或执行相应操作。同时在主窗体和添加一个TOOLBAR控件，作为工具栏。通过TOOLBAR控件的CLICK事件，也可实现调出相应窗体或执行相应操作。使用BUTTON对象的KEY属性标识被单击的按钮。例如，在主窗体模块中单击工具栏中的按钮，发生BUTTONCLICK事件，并用KEY属性标识被单击的按钮。代码如下PRIVATESUBTOOLBAR1_BUTTONCLICKBYVALBUTTONASMSCOMCTLLIBBUTTONSELECTCASEBUTTONKEYCASE“DJ“ZSDJ_CLICK调入住宿登记CASE“TF“TF_CLICK调入退宿结账CASE“CX“ZSCX_CLICK调入住宿查询CASE“TX“SFTX_CLICK调入提醒CASE“CXDL“重新登录LOADMAIN_LOGINMAIN_LOGINSHOWCASE“EXIT“IFMSGBOX“确定退出该系统“,4,“系统提示“VBYESTHENENDENDIFENDSELECTENDSUB单击主窗体中的菜单项，通过菜单命令实现调出各个窗体或执行相应操作，在各子菜单的CLICK事件下实现相应操作。部分代码如下PRIVATESUBSJBF_CLICK调入数据备份MAIN_SJBFSHOWMAINENABLEDFALSEENDSUBPRIVATESUBSJHF_CLICK数据恢复MAIN_SJHFSHOWENDSUBPRIVATESUBMA_CLICK调入密码设置MAIN_MMSZSHOWMAINENABLEDFALSEENDSUB54住宿登记模块设计与实现程序启动后，选择菜单栏中“住宿管理”/“住宿登记”命令，或直接单击工具栏中的“登记”按钮，将打开住宿登记模块。在住宿登记模块中能够自动生成住宿登记凭证号码，提供空闲房间供用户选择，实现客人住宿登记，收取客人预交宿费，实际宿费、宿费提醒时间、退宿时间、打印住宿登记单据。住宿登记模块界面如下图54所示图54住宿登记窗体界面FIG54THEACCOMMODATIONREGISTRATIONFORMINTERFACE住宿登记模块主要用于录入客人入住信息，此窗体包含了大量的文本框和时间控件等，但这些控件功能都比较简单，没有复杂的属性设置。打开住宿登记模块，单击“登记”按钮，开始进行住宿登记。“登记”按钮的CLICK事件主要实现设置控件有效和无效、自动生成登记凭证号码等功能。自动生成登记凭证号码的主要代码发下ADODC2CONNECTIONSTRING“PROVIDERMICROSOFTJETOLEDB40DATASOURCE“PERSISTSECURITYINFOFALSE“ADODC2RECORDSOURCE“SELECTFROMTB_DJBORDERBY凭证号码“按凭证号码排序数据ADODC2REFRESHIFNOTADODC2RECORDSETEOFTHENADODC2RECORDSETMOVELAST移动记录集到最后一条记录IFLSPHTEXT“THENBHTEXTFDATE“D“FORMAT1,“000“当LSPH值为空为凭证号码文本框赋值IFLSPHTEXT“THEN当LSPH值不空时Y1TEXTMONTHFDATE把当前月份赋给Y1Y2TEXTMONTHLEFTLSPHTEXT,10把LSPH中的月份赋给Y2IFY1TEXTY2TEXTTHEN如果Y1文本框中内容与Y2相同BHTEXTFDATE“D“FORMATVALRIGHTLSPHTEXT,31,“000“为凭证号码文本框赋值TEXT2TEXTVALRIGHTLSPHTEXT,31TEXT1中存储LSPH文本框中后三位数ENDIFIFY1TEXTY2TEXTTHEN如果Y1文本框中内容与Y2不同BHTEXTFDATE“D“FORMAT1,“000“为凭证号码文本框赋值ENDIFENDIF当住宿信息登记完成后，“打印”按钮处于可用状态，可以单击“打印”按钮打印住宿证。主要代码如下PRIVATESUBCOMPRINT_CLICKONERRORGOTO1出错转向标签“1”DIMXASPRINTER打印住宿登记单据PRINTERHEIGHT8000PRINTERWIDTH8000设置高度和宽度PRINTERCURRENTX1100PRINTERCURRENTY300设置打印位置PRINTERFONTSIZE12设置字体大小PRINTERPRINT“桂湖酒店客房住宿证“打印文字DIMA,B,C,DASINTEGER定义变量A100B500C4800D400为变量赋值PRINTERFONTSIZE10设置字体大小PRINTERCURRENTX100A设置打印横坐标PRINTERCURRENTYB200设置打印纵坐标PRINTERPRINTD“T“NO“BHTEXT打印日期、时间和凭证号码BBD为变量B赋值PRINTERLINEA,B100C,B100打印一条直线PRINTERCURRENTX100APRINTERCURRENTYB200PRINTERPRINT“操作员“CZYTEXT“欢迎光临“PRINTERENDDOC输出给打印机EXITSUBIFERRNUMBER482THENMSGBOX“请连接打印机“,“系统提示“ERRCLEARENDIFENDSUB55调房登记模块设计与实现在主窗体中，选择住宿管理菜单下的调房登记项，将进入调房登记模块。在调房登记模块中选择客人入住的房间号和空闲房间号，实现调房登记，系统只允许调换等价客房。调房登记界面如图55所示图55调房登记窗体界面FIG55THEHOUSINGREGISTERTRANSFERFORMINTERFACE调房登记模块主要实现对客人房间进行调换的过程，源房间号列表是查询登记表中当前所有住宿客人的房间号码，在选择源房间号后，实现生成目标房间号。主要代码如下PRIVATESUBCOMBO3_CLICKCOMBO2CLEAR清空COMBO2中的内容IFCOMBO3TEXT“THEN如果COMBO3不为空ENDIF赋值给BHTEXT等WITHADODC1RECORDSETWITH快IFFIELDS“凭证号码“THENBHTEXTFIELDS“凭证号码“为“凭证号码”字段赋值ENDWITH结束WITH快ENDIFENDIFCOMBO2ENABLEDTRUECOMBO2可用TEXBZENABLEDTRUETEXBZ可用ENDIFENDSUB56追加押金模块设计在主窗体中，选择住宿管理菜单下的追加押金项，将进入追加押金模块。在“凭证号码”下拉列表框中选择客人入住的凭证号码，在“追加押金”文本框中输入客人续交的押金后，在相应的文本框中将显示客人的入住信息，并自动计算宿费提醒日期和时间，还可打印追加押金票据。追加押金界面如图56所示图56追加押金窗体界面FIG56THEADDITIONALDEPOSITFORMINTERFACE在窗体的A事件中，主要实现查询数据表中住宿客人信息，对“凭证号码”列表框赋值。主要代码如下PRIVATESUBFORM_ACTIVATEDIMIASINTEGERCZYTEXTMAINSTATUSBAR1PANELS4TEXT赋值给CZYTEXT，显示当前操作员查询住宿登记信息ADODC1RECORDSOURCE“SELECT凭证号码FROMTB_DJBWHERE标志1ORDERBY凭证号码“ADODC1REFRESH刷新记录IFADODC1RECORDSETRECORDCOUNT0THEN如果记录数大于0FORI1TOADODC1RECORDSETRECORDCOUNT循环从1到记录数值COMBO1ADDITEMADODC1RECORDSETFIELDS“凭证号码“VALUE从COMBO1中添加项目ADODC1RECORDSETMOVENEXT记录下移NEXTIENDIFENDSUB在追加押金模块中单击“确定”按扭，将把追加押金信息保存在数据表中，自动计算新的提醒日期，并设定其他控件的有效和无效。部分代码如下PRIVATESUBCOMMAND1_CLICK保存追加押金信息IFTEXT1TEXT“ANDCOMBO1TEXT“THEN查询住宿登记信息ADORSFIELDS“预收金额“VALTEXT3TEXTVALTEXT1TEXT把已收押金和追加押金的和赋给预收金额字段ADODC2REFRESH刷新数据编辑住宿登记预收信息MSGBOX“请填写完整的数据,再保存“,“系统提示“如果凭证号码为空或追加押金为空，提示消息ENDIFENDSUB56系统维护模块的具体实现系统维护模块包括子模块数据备份、数据恢复和初始化。数据备份模块，可以将系统的所有数据库内容都备份到指定的备份文件夹中。窗体如下图571所示图571数据备份界面FIG571THESURFACEOFDATABACKUP部分代码如下PRIVATESUBCOMMAND1_CLICKAMSGBOX“确定备份数据“,4,“系统提示“IFAVBYESTHENCOMMAND1ENABLEDFALSEPROGRESSBAR1VISIBLETRUEPROGRESSBAR1MAXUBOUNDWORKAREAPROGRESSBAR1VALUEPROGRESSBAR1MINFORCOUNTERLBOUNDWORKAREATOUBOUNDWORKAREAWORKAREACOUNTER“INITIALVALUE“COUNTERPROGRESSBAR1VALUECOUNTEROPENSTR1FORBINARYAS1OPENSTR2FORBINARYAS2DOWHILENOTEOF1GET1,CHARPUT2,CHARLOOPCLOSENEXTCOUNTERPROGRESSBAR1VALUEPROGRESSBAR1MINMSGBOX“数据库备份成功“,“系统提示“COMMAND1ENABLEDTRUEENDIFENDSUB数据恢复模块，可以将备份文件夹中的数据库内容恢复到原来的数据库中。如下图572所示图572数据恢复界面FIG572THESURFACEOFDATARECOVERY主要代码如下PRIVATESUBCOMMAND1_CLICKAMSGBOX“确认恢复数据库“,4,“系统提示“IFAVBYESTHENCOMMAND1ENABLEDFALSEPROGRESSBAR1VISIBLETRUEPROGRESSBAR控件通过从左到右用一些方块填充矩形来表示一个较长操作的进度。PROGRESSBAR1MAXUBOUNDWORKAREAPROGRESSBAR1VALUEPROGRESSBAR1MINFORCOUNTERLBOUNDWORKAREATOUBOUNDWORKAREALBOUND函数返回一个LONG型数据，其值为指定数组维可用的最小下标。UBOUND函数返回一个LONG型数据，其值为指定的数组维可用的最大下标。WORKAREACOUNTER“INITIALVALUE“COUNTERPROGRESSBAR1VALUECOUNTEROPENSTR1FORBINARYAS1OPENSTR2FORBINARYAS2DOWHILENOTEOF1GET1,CHARPUT2,CHARLOOPCLOSENEXTCOUNTERPROGRESSBAR1VALUEPROGRESSBAR1MINMSGBOX“数据库恢复成功“,“系统提示“COMMAND1ENABLEDTRUEENDIFENDSUB初始化模块，对系统数据进行初始化即删除数据库中的数据，用户在使用本系统之前，需要先对本系统进行初始化操作，但是在使用过程中则要谨慎初始化，因为执行初始化后原有的数据将被删除。如下图573所示图493初始化界面FIG493THESURFACEOFDATAINITIALI