基于酒店管理系统的开发与实现

基于酒店管理系统的开发与实现 摘 要为了搞好酒店的事务处理工作和服务质量，使公司内信息流通体系能协调一致地运行，节约公司管理费用，提高管理人员的管理水平，及时准确迅速地提供有关信息资料，为经理提供决策依据。我们根据酒店行业的特点，进行了实地调查与研究。酒店综合管理信息管理系统包括计算机网络工程和应用软件开发两部分。传统的酒店客房管理往往令管理者花大量的时间来处理顾客投诉，例如错误查询、烦琐的登记和结帐手续、旅客费用计算错误、空余客房资料不能及时提供等，从而影响出租率，使的管理人员不得不集中精力规划管理运行策略和进行决策。以上问题可通过电脑系统辅助解决，酒店客房管理的电脑化，不仅是体现酒店现代化形象的一个重要标志 ，而且对于提高员工工作效率，加速资金周转、降低各项成本及改善服务质量都有十分积极的作用。开发本系统主要是为了改善对酒店的管理，更好的利用计算机在管理方面的发挥。关键词： 酒店客房管理，顾客，VBAbstractIn order to do well the hotel business to process the work and the grade of service, enables in the company the information circulation system coordination to move, saves the corporate management expense, raises administrative personnels management level, promptly accurately rapidly provides the related information paper, provides the policy-making basis for manager. We according to the hotel profession the characteristic, has carried on the on-the-spot investigation and the research. The hotel synthesis management information management system develops two parts including the computer network project and the application software.The traditional hotel management is often spent the superintendent the massive time to process the customer to sue, for example the wrong inquiry, the troublesome registration and the paying up procedure, the passenger calculation of charge mistake, the spatial -odd guest room material cannot promptly provide and so on, thus influence, causes the administrative personnel can not but concentrate the energy plan management movement strategy and carry on the decision-making. Above the question may through the computer system assistance solution, the hotel management computerization, not only is manifests the hotel modernization image an important symbol, moreover regarding enhances the staff working efficiency, the acceleration turnover of capital, reduces each cost and the improvement grade of service all has the extremely positive function.Develops this system mainly is for improve to the hotel management, better use computer in management aspect display.Key words: Hotel management, customer, VB目 录第一章绪论11.1 可行性研究与计划11.2 系统可行性分析2第二章 开发工具的介绍32.1系统的架构32.2系统运行环境操作系统32.3系统开发环境32.4开发工具42.4.1 Visual Basic的简介42.4.2 ACCESS简介5第三章 需求分析73.1客房预定系统73.2前台接待系统73.3前台收银系统73.4帐务系统83.5管家系统83.6电话系统83.7客历系统83.8合约系统83.9经理系统93.10总经理系统93.11密码管理系统93.12报表系统93.13帐务报表93.14分析与数据流图设计10第四章系统实现154.1登录界面154.2系统主界面164.3客房信息模块174.4客人信息模块194.5客房查询模块214.6报表输出信息模块22结束语24参考文献25致 谢26 29第一章 绪论1.1 可行性研究与计划 随着旅游业的发展，酒店、餐饮娱乐行业日趋发达，引入全方位的电脑服务和电脑管理日益流行。同时，酒店和餐厅娱乐业引入电脑服务和管理也取得了优良的经济效益和社会效益。为此，国家建设部已于最近作出明确规定：凡星级酒店在项目审批时，其设计方案必须包括电脑管理系统，否则不予立项。可见，酒店客房管理电脑化势在必行。酒店客房管理系统将先进的电脑技术与现代酒店服务管理完美地结合起来，实现了住宿、餐饮、娱乐全新概念的服务和管理方式。传统的酒店客房管理往往令管理者花大量的时间来处理顾客投诉，例如错误查询、烦琐的登记和结帐手续、旅客费用计算错误、空余客房资料不能及时提供等，从而影响出租率，使的管理人员不得不集中精力规划管理运行策略和进行决策。以上问题可通过电脑系统辅助解决，酒店客房管理的电脑化，不仅是体现酒店现代化形象的一个重要标志 ，而且对于提高员工工作效率，加速资金周转、降低各项成本及改善服务质量都有十分积极的作用。 我们在经过对市场深入细致的分析和研究后，运用国际上的先进计算机技术，采用国际先进的管理模式，结合中国酒店的实际特点，开发了这套酒店客房管理系统。一个成熟的酒店客房管理系统不仅仅是记录酒店客人的信息，提供查询，报表打印等一系列简单的工作，它能让工作人员从烦琐的手工操作中解脱，并且酒店客房管理系统本身就代表着一种管理方法。随着它的深入，将带动企业的运做，为管理和决策提供支持。为了达到这个要求，它必须依靠高起点的硬件环境和软件开发工具来保证系统的稳定和正常运行。酒店电脑系统要求24小时连续运行，数据量大，可靠性要求高，因此整个电脑系统供电采用专线方式，加配UPS（不间断供电系统），并合理接地，以便保障整套系统的正常运行。总之，使用该酒店客房管理系统，将会有以下好处：1.电脑收银，打印帐单：快速准确，减少宾客等待时间，并可杜绝收银过程中的舞弊现象。 2.高效的客房管理：能有效的提高房率，增加营业收入。3.提高决策依据：管理者可以随时了解经营情况，以制定相应的经营方针。4.减轻员工的工作负担：从而使员工把更多的精力放在提高为宾客服务的质量上。5.简单、方便地保存和查询历史资料。6.树立良好的酒店形象。1.2 系统可行性分析技术上可行：该系统所需硬件设备，市场上销售且价格较低，甚至可以使用原有的设备，软件上，操作系统采用Windows系列操作系统，数据库管理系统采用Visual Basic，这些软件在MIS开发中已被大量应用，技术上都比较成熟。因此在技术上是可行的。经济上可行：由于酒店急需采用计算机来进行管理，因此对开发酒店客房管理系统大力支持，开发经费没有问题。综上所述，开发酒店客房管理系统在技术上、经济上、都是可行的。第二章 开发工具的介绍2.1系统的架构本系统开发使用的系统只是普通的PC机，操作系统为Windows 2000 Professional版本。考虑到使用的数据量不大，数据库的建立使用的是Office 2000 中的Microdoft Access。数据访问方法为使用ADO(Active数据对象ActiveDataObjects)通过ODBC的方法同数据库借口。使用这种方式访问数据，可以使用任何一种ODBC数据源，即不止适合于SQL Server、 Oracle、 Access等数据库应用程序，也适合与Excel表格、文本文件、图形文件和无格式的数据文件。2.2系统运行环境操作系统采用的是当前流行的主流操作系统微软公司的WindowsXP。2.3系统开发环境系统开发环境包括硬件平台和软件平台两种。硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的MIS管理系统，因此对计算机硬件的要求不高，比较经济，只要配备有PII300处理器（或以上）、64M内存（或以上）、20G硬（或以上）的普通微机即可顺利运行。软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的Windows XP中文专业版和Visual Basic6.0作为开发语言，同时选用了Access数据库，由于这些软件产品都是Microsoft公司的产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。Visual Basic 6.0具有可视化的开发环境，可以快速完成系统的开发，内部集成的数据库访问通道，使得可以轻松方便的对数据库管理。数据库采用MICROSOFT ACCESS，由于我们的系统要求，采用它完全可以适合我们的工作需求，并且它所支持的数据类型十分丰富，维护简便，费用较低，容易升级。2.4开发工具在确定了操作系统后，就该选择开发工具了。经过了综合的比较而且最重要的是本人在学校期间学习的就是Visual Basic。这个是个数据库管理系统，系统，所以我们必须得选一个合适的数据库。考虑到我这个系统针对的用户，已经价格方面的考虑，完全可以使用Access来进行开发，而且我在使用Visual Basic的时候，操作数据库方面使用的是微软提供的数据访问接口，先我们来了介绍一下Visual Basic以及微软提供了哪些数据库访问方法，并且各自都有什么特点。2.4.1 Visual Basic的简介首先，我们还从Visual Basic这个名字开始，来认识这个软件。所谓“Visual”指的是开发图形用户界面 (GUI) 的方法。它不需编写大量的代码去描述界面元素的外观和位置，而只要把预先建立的对象添加到屏幕上的某一位置即可。如果已使用过诸如 Paint 之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。“Basic”指的是 BASIC (Beginners All-Purpose Symbolist Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的编程语言。Visual Basic 在原有 BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic 不仅是 Visual Basic 编程语言。Visual Basic 编程系统和 VBA 都使用这一语言。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集。这样，在学习 Visual Basic 中得到的经验可应用到所有这些领域中。接着，我们再从Visual Basic的发展历史来进一步地认识一下它。Visual Basic的最初版本是Visual Basic1.0，那时的Visual Basic只是简单地以对象的属性为中心来进行编程。到了Visual Basic2.0时，开始正式地采用面向对象技术，其有一个重要的新特性就是可拥有对象变量，并把Variant型变量作为缺省数据类型变量。没过多久Visual Basic的下两个版本Visual Basic3.0和Visual Basic4.0接踵而至，一种内建的新的控件类型数据控件，能够使创建一个与数据库交互作用的应用程序变得令人惊讶的容易。在微软的其它应用程序，如WORD字处理软件、EXCEL电子报表软件、ACCESS数据库软件中都做了改变，使得它们可以与Visual Basic一致工作。这种新技术被称作为Visual Basic For Applications，它帮助实现了Visual Basic的最初设想。理论上，人们总是能够通过某种叫做动态数据交换（DDE）的技术使视窗系统应用程序彼此交互。但那样既慢而且又麻烦。Visual Basic的完美之处在于它能使程序员获得一块数据如报表，并将它看作是Visual Basic的对象。其目的就是要使视窗系统下的每一件事情都支持同样的易于使用的高级语言。Visual Basic5.0出现以后，在某些方面有了重大的突破。它给予了程序员长期期待的不用离开Visual Basic环境，就可以创建新的定制控件类型和创建其它项目类型的能力。除了一般应用程序外，程序员还能创建文档、DLLs、OLE服务器和ActiveX控件。当Visual Basic逐渐复杂时，世界已经在围着它转了。项目类型的增加不是用来迷惑程序员，而是提供灵活性的。视窗系统已经成为一个特别丰富的环境，可使应用程序彼此交流和共享数据。我们现在所使用的Visual Basic6.0被看着是Visual Basic的网络版本。可以看出它投入了相当一部分的精力去支持微软日益在Internet和分布式（网络）计算方面的重视程度。虽然它没有象Visual Basic5.0所引起的那样激动人心，但它还是在某些方面做了一些有用的改进。其最重要的一个改进就是增加了ADO数据控件，它可以缩小本地和远程数据控件之间的差别。换句话说，程序员在很大程度上可以与数据库交互作用，而不用担心网络上由谁来提供服务。此外，Visual Basic在数据开发方面提供了十分强大的功能。有自带的数据管理器（Data Manager）、数据控件（Data Control）及数据访问对象(DAO)等一系列功能强大的工具来协助管理人员轻松地进行与数据库的连接和管理。2.4.2 ACCESS简介数据库选用Microsoft公司的Access产品作为数据库应用程序。目前的Access 2000是Microsoft强大的桌面数据库平台的第六代产品，是3 2位Access的第三个版本。Access有以下一些基本定义：（1）数据库是一个包含各种Access “对象”(表、查询、窗体、报表、宏和模块)的文件，Access中所有工作都是建立在此基础之上的。（2）表是存放数据的容器，被设计成行和列的格式，就像电子表中的那样。每一列叫做一个“字段”，包含特定类型的信息，如姓名或学历。每一行称为一个“记录”，包含与单个实体有关的所有信息，如某个员工的姓名、性别、所在部门、学历等。对于像Access这样的关系数据库管理程序，一个数据库通常包含几个存放相关数据的不同表。（3）查询是一个Access对象，它询问数据库中有关数据的问题。根据设计方法的不同，查询能够在数据库中检索并组合来自不同表的数据。例如，可以设计一个查询来告知在公司中工作超过1年的职员有多少。查询还可以对一组数据执行操作，如更新或删除某组记录。（4）窗体是一个窗口，它提供一种很方便的途径来查看数据库中已有记录或向数据库中增添新记录。在Access中，可以创建一个窗体，用来同时查阅单个表或多个表中的数据，还可以打印和显示窗体。（5）报表是一个Access对象，设计来显示数据，其作用类似于窗体，但主要是用于数据打印，不能输入数据。（6）页是一种特殊类型的窗体，它使用户能够利用Web浏览器查看和编辑Access的表。（7）宏用来保存Access中的一系列操作。可自动执行一些日常的任务，以便简化在Access中的工作。（8）模块是用Visual Basic for Applications(VBA) 编写的过程，VBA是Access的基础程序设计语言。利用VBA可以编写程序代码来完成Access宏所不能完成的特定任务。 第三章 需求分析3.1客房预定系统客房预订系统包括：散客预订，团体预定，客房预定，预定未到处理，预售查询。预定系统可随时查询30天以内酒店客房预售一览表，及可售房间数，可查询某间客房预定情况。对常客可使用系统的客历资料预定及陪房，可大大减少资料的输入3.2前台接待系统前台接待系统包括：散客入住登记，合约入住登记，团体自动入住和手动入住，补填客单，修改客人信息、转房、调房、设置房态、客人留言，预定客房查询，可售客房查询。客人一旦入住酒店，将允许客人先消费（签单），后付帐（使用一卡通）。系统还设计了限制消费的功能。团体入住后除了每个团员有自己的帐外，系统还自动产生该团的主帐号，操作员每一个消费记入成员帐还是记入团体帐，该团成员的房租将自动记入团主帐。3.3前台收银系统前台收银系统包括：记帐 （包括客人在酒店各营业场点的消费），埋单，限制客人消费，退房，押金加入，查帐 （可查总客帐、总收入帐、总消费帐），转帐，设置跑单，客用保险箱管理，团体埋单及退房。每一个客人从预定房间起系统（一卡通系统）内已自动产生了该客人的帐号，住店的客人享受酒店的短期贷款，可以在酒店绝大部分签单，这将刺激客人的消费心理，增加酒店的收入，记帐功能主要加入酒店暂无连网的那些消费场所和诸如赔偿、日租、特别消费等。酒店客房管理者还可根据客人的情况锁住其帐号，以限制其消费。前台收银系统的埋单又与其他营业场所不同，前台的埋单允许客人一帐多单，分期埋单，分类别埋单，退房时能自动检测：客人的帐务余额为零；客人帐号的帐项为空；保险箱钥匙以归还，否则系统拒绝退房。转帐功能也具有万能分帐的功能，既不但可以把几个帐号的消费转入另一帐号，也可把某一帐号特定时期特定几类消费转入另一帐号，转帐帐项将留下记号并且留下记录以方便查核人员核对。团体埋单与其他埋单相同，而团体退房则采用全自动方式，不必一一输入房号。如果系统检测到某团的成员全部已退房，团主单也随即自动退出。3.4帐务系统除具有收银系统的功能外，还具有纠错、报表输出等功能，能将损失降至最低。3.5管家系统管家系统包括：设置净房、脏房、坏房、及取消坏房，设置SKIP房、SLEEP房，查询净房表、脏房表、坏房表，房间状态，新入住查询。3.6电话系统 电话系统有：自动计费和夜审系统。夜间稽核应该是控制酒店经营的一个核心部分,每天的经营情况都必须经由夜间审核.本系统提供的功能有:过房租.每天一次地将在住客的帐目加上当天的房租费用日营业报表.将当天的收入分类统计.产生客人余额表.客人明细帐查询.便于夜审人员核对明细帐.可以进行：客人信息查询，动态房态查询，房间明细帐查询，收银员报表，当日入住客人报表。3.7客历系统客人历史系统包括对客人资料手工、自动输入，客人资料查询与修改，黑名单，入住客人自动查询客历，入住客人自动归入客历，客历合并。3.8合约系统可将酒店签约的单位或个人的资料输入电脑，并可随时查询、修改和删除。凡合约单位或个人入住，均可自动填单。系统还可自动打印与合约单位或个人来往的信函信封等。3.9经理系统经理系统有修改客房定价，增加、删除、修改各级密码，修改特别客单，设置系统参数，内部银行系统（即IC卡功能），数据整理，自我诊断，数据备份。3.10总经理系统总经理系统包括：住店客单查询，查询客房状态，查询可售情况，客房占用统计，帐务查询，万能查询，报表输出。3.11密码管理系统3.12报表系统报表系统包含以下几个方面：(1).客房占用表；(2).转房改租表；(3).预定未到表；(4).客房取消表；(5).房租分析表；(6).经营统计表；(7).可售情况表；(8).房间状况表；(9).坏房报告表；(10).日租统计表；(11).合约销售表。3.13帐务报表 账务报表功能可以进行以下查询：(1).收入报表 （前台收入明细表、现付收入明细表）；(2).消费报表；(3).顾客帐务（住客帐务、离店客人帐务和跑单帐务）；(4).交班报表；(5).信用卡报表；(6).街帐报表；(7).应收报表；(8).催帐报表；(9).转帐报表；(10).借贷总表；(11).联网消费；(12).酒店总表。3.14分析与数据流图设计1.系统各模块分析、DFD图和数据字典如表1所示： 表1 系统总流程数据字典数据流名： 登记组 成： 客户信息+房间信息+押金+时间数 据 项： 客户信息备 注： 个人或团队组 成： 身份证号+姓名+性别+年龄+民族+VIP+人数+单位+单位地址+电话+手机号码+E-MAIL地址+照片组 织： 身份证号数 据 项： 客房信息组 成： 房号+类型+单价+状态组 织： 房号数 据 项： 状态取 值： 空房可用，空房待修，预订占用，正在占用数 据 项： 押金组 成： 预订金+入住押金+入住租金取 值： 现金；信用卡；转帐支票；挂帐；免费数 据 项： 时间组 成： 预订时间+入住时间+预计离店时间+住宿时间数据流名： 离店凭据备 注： 指客人办理手续后，所持有的酒店开出的票据组 成： 住店发票+停车场收据+其它票据2.第二层流程图如表2所示：表2 流程图数据字典数据处理名：前台加工简 述：在酒店中直接与客人发生关系的活动，为客人提供的一切服务，包括客人进入酒店前的预订，预订后的入住，消费，以及离店前的手续办理。组 成：预订+接待+取消预订+离店数据处理名：后台加工简 述：在酒店中不直接与客人发生关系的活动，包括间接为客人提供的服务，以及酒店的内部管理体系，主要是库房管理，IC卡管理，总理查询等。 组 成：数据备份+经理查询数据处理名：停车场加工简 述：为酒店内外客人提供停车的系统。数 据 库1：所有在前台与客人有关的信息库。组 成：历史客人信息表+房间占用信息表+IC卡管理表数 据 库2：组 成：酒店日常消耗品库存管理表+日现金帐目表数 据 库3：说 明：停车场建立的有关车辆进出停车场的时间及费用信息表。备注： 按照客人从住店、离店的过程将系统划分为预订、接待、取消预订和离店四个处理过程。客人通过预订，也可直接到酒店登记住宿。客人预订后，也可能取消预订。客人分为个人与团体两类。（1） 个人预订：个人预订数据字典如表3所示：表3 个人预定数据字典数据处理名：房间查询简 述：根据客人的预订要求，查询客房预订信息表，确定是否有空房输 入：客户信息，来源：外部实体“客人”输 出：1 无客房，去处：外部实体“客人” 2 有客房，预订登记表，去处：“客人信息”数据流名称：预订登记表简 述：在房间查询有房时所填的表，用于记载客人信息组 成：身份证号+姓名+性别+年龄+民族+国籍+家庭住址+VIP+电话数据处理名：订房简 述：根据客人的预订要求，确定客人订什么房，哪类房，多少间房，是否 确定具体房间。输 入：订金收据，来源：收银输 出：预订证明表，去处：外部实体“客人” 数据流名称：预订证明表简 述：在订房、收银后所填的表，用于记载客人订房的信息和证明组 成：身份证号+姓名+性别+家庭住址+电话+押金+房间数量、类别+时间备注：客人来店预订，服务员查询“客房预订信息表”，无空房则返回客人。有客房则登记，并核对“客人黑名单”（进行消费而未付帐的客人名单）及“挂帐表”，无误后收取预订押金并记入“预订金入帐表”。进行订房，将预订信息记入“客人预订信息表”，修改“客房预订信息表”的客房状态，给客人预订证明表。预订完成。（2）团队预订表如表4所示：表4 团队预订数据字典数据处理名：房间查询简 述：根据客人的预订要求，查询客房预订信息表，确定是否有空房输 入：客户信息，来源：外部实体“客人”输 出：1 无客房，去处：外部实体“客人” 2 有客房，预订登记表，去处：“客人信息”数据流名称：预订证明表简 述：在订房、收银后所填的表，用于记载客人订房的信息和证明组 成：团队ID号+团队名称+地址+联系电话+人数+进店日期+离店日期+房间 数量+押金。 数据流名称：预订登记表简 述：在房间查询有房时所填的表，用于记载客人信息组 成：团队ID号+团队名称+领队人+领队手机+团队开户行+帐号+地址+联系 电话+人数+人员名单+房间数量数据处理名：订房简 述：根据客人的预订要求，确定客人订什么房，哪类房，多少间房，是否 确定具体房间。输 入：订金收据，来源：收银输 出：预订证明表，去处：外部实体“客人” 备注：团体预订与个人预订基本一样，只是将团队预订信息记入“团体预订信息表”。（3）取消预订表如表5所示：表5 取消预订数据字典数据处理名：预订查询简 述：核对客人的“预订证明表”。输 入：预订证明表，来源：外部实体“客人”输 出：预订收据，去处：退款处理备注：客人要取消预订，只需将“预订证明表”和“预订收据”交给服务员，经核对后退款并修改“客房预订信息表”及“团队或个人预订信息表”。（4） 接待团体（未预订的客人）表如表6所示：表6 接待团体数据字典数据处理名：空房查询简 述：根据客人的住房要求，查询“目前房间占用信息表”，确定是否有空房输 入：客户信息，来源：外部实体“客人”输 出：1 无客房，去处：外部实体“客人” 2 有客房，住房登记表，去处：“客人查询”数据流名称：住房登记表简 述：在房间查询有空房时所填的表，用于记载客人信息组 成：身份证号+姓名+性别+年龄+民族+国籍+家庭住址+电话+单位数据处理名：客人查询简 述：根据客人的住房登记表，从“客人黑名单”、“挂帐单位”等多个表中 查询核对。输 入：住房登记表，来源：查询空房输 出：交款，去处：收银处理 数据流名称：押金收据简 述：在收银后所开出的证明，用于记载客人住房时交的押金组 成：身份证号+姓名+押金金额+房间数量、类别+入住时间+离开时间（5）接待个人（未预订的客人）接待的客人是个人时，过程基本与接待团队相同，首先通过“目前房间占用信息表”查询目前有无空房，有则填“住房登记表”，根据客人的信息核对 “客人黑名单”、“挂帐个人”等多个表，确认后收取住房押金，将客人的有关信息记入“历史客人信息表”并用写卡机将客人的ID写入IC卡。（6）接待团体（已预订）表如表7所示：表7：接待预订团体数据字典数据处理名：查询验证预订表简 述：核对客人的预订表是否与数据库中的相符输 入：预订证明表，来源：外部实体“客人” 输 出：登记表，去处：查询客房备注：接待团队（已预定）的过程与接待未预订的相似，只是开始要验证“预订表”，同时不必进行客人查询而可直接入住。将预订金转为住房押金。（7） 接待个人（已预订）接待个人（已预定）的过程与接待未预订的相似，只是开始要验证“预订表”，同时不必进行客人查询而可直接入住。将预订金转为住房押金。（8）离店表如表8所示：表8 离店收银数据字典数据处理名：退房简 述：在客人离店的时候，核实房间的物件等，同时更改“客房占用信息表”输 入：有客人ID的IC卡，来源：外部实体“客人”输 出：1 有问题，去处：外部实体“客人” 2 无问题，退房凭证，去处：收银数据流名称：退房凭证简 述：在房间核实无误后开给客人的允许结帐凭证组 成：身份证号+姓名+性别+IC卡ID号+客房核实结果数据处理名：收银简 述：根据客人的消费进行收取费用、退还押金。调用IC卡管理子模块使该 卡号作废。将客人信息记入数据库备查。 输 入：退房凭证 ，来源：退房输 出：离店发票，去处：外部实体“客人” 第四章 系统实现4.1登录界面在登录界面中，如图主要是对用户的身份进行确认，在界面中需要输入用户名和密码，密码用*号显示，确保用户信息的安全性。同时通过登录信息输入来确认使用权限，管理员通过登录系统后，便可进行管理和维护。如图4。1所示。图4.1 登录界面主要代码如下所示：Private Sub cmdOk_Click()Dim strUserName As StringDim strPassword As StringStatic intLoginTimes As Integer If Trim(txtUserName.Text) = Then 如果用户名为空 MsgBox 用户名不能为空！, vbOKOnly + vbCritical, 错误 txtUserName.SetFocus Exit Sub End If 打开数据库中的 Users 表 adoUsers.Refresh 查找用户名 adoUsers.Recordset.Find Name= & txtUserName.Text & , , adSearchForward, 1 也可以用下面的过滤方式 adoUser.Recordset.Filter = Name= & txtUserName.Text & If Not adoUsers.Recordset.EOF Then 找到记录 strUserName = adoUsers.Recordset!Name strPassword = adoUsers.Recordset!Password Else 没找到记录 strUserName = strPassword = End If If strUserName = txtUserName.Text And strPassword = txtPassword.Text Then adoUsers.Recordset.Close 关闭数据库中的 Users 表 Unload Me 关闭窗体 frmMDI.Show 显示主窗体 Else 用户名或密码不对 MsgBox 用户名或密码不对！, vbOKOnly + vbInformation, 提示 intLoginTimes = intLoginTimes + 1 If intLoginTimes = 3 Then 超过三次 adoUsers.Recordset.Close 关闭数据库中的 Users 表 End 退出整个程序 End If txtPassword.SetFocus 重新输入密码 SendKeys HOME+END End IfEnd Sub4.2 系统主界面当输入用户名和密码正确则进入系统主界面，如图4.2所示。界面美观，大方，相信会蒙受大家的喜欢。图4.2 系统主界面4.3客房信息模块 本功能模块可以查看并修改客房的信息资料，可以对客房的编号，房间的级别，房间类型，房间价格，是否有人住等信息进行随时更新。管理员可以通过本模块对系统的进行新房间的添加，对已有房间资料的修改或删除等操作，界面简单，易于操作。如图4.3,4.4所示图4.3查看客房信息图图4.4添加新客房图主要代码如下所示：Private Sub cmdAddNew_Click() With frmRoomInfoEdit 窗体标题 .Caption = 添加新客房 清空班级编号并设为可修改 .txtRoomNo.Locked = False .txtRoomNo.Text = 默认班级类型为第一项 If .cboRoomGrade.ListCount = 0 Then .cboRoomGrade.ListIndex = -1 Else .cboRoomGrade.ListIndex = 0 End If 默认教师为第一项 If .cboRoomType.ListCount = 0 Then .cboRoomType.ListIndex = -1 Else .cboRoomType.ListIndex = 0 End If .txtRoomRate = 显示为模式窗体 .Show vbModal End WithEnd SubPrivate Sub cmdDelete_Click() With frmMDI.adoRoom.Recordset If .EOF True And .BOF True Then If !RoomStatus Then MsgBox 当前房间有客人居住，您不能删除该房间！, vbOKOnly + vbInformation, 提示 Exit Sub End If If MsgBox(确认要删除当前记录吗？, vbYesNo + vbQuestion + vbDefaultButton2, 确认框) = vbYes Then .Delete dtgRoomInfo.SetFocus End If End If End With Exit SubEnd SubPrivate Sub cmdEdit_Click()If frmMDI.adoRoom.Recordset.EOF True And frmMDI.adoRoom.Recordset.BOF True Then With frmRoomInfoEdit 窗体标题 .Caption = 修改客房信息 学员编号，设为不可修改 .txtRoomNo.Text = frmMDI.adoRoom.Recordset!RoomNo .txtRoomNo.Locked = True If frmMDI.adoRoom.Recordset!RoomGrade Then 标准间 .cboRoomGrade.ListIndex = 0 Else 豪华间 .cboRoomGrade.ListIndex = 1 End If If frmMDI.adoRoom.Recordset!RoomType Then 单人间 .cboRoomType.ListIndex = 0 Else 双人间 .cboRoomType.ListIndex = 1 End If .txtRoomRate = frmMDI.adoRoom.Recordset!RoomRate .Show vbModal End WithEnd IfEnd Sub4.4客人信息模块 本模块是主要是对客人模块的资料进行操作，本模块需要记录客人的姓名，身份证号码，房间号，登记日期等等资料，若发现错漏，可以进行添加及修改等功能。主要代码如下所示：Private Sub cmdAddNew_Click()With frmGuestInfoEdit 窗体标题 .Caption = 添加新客人 .txtBookNo.Locked = False .txtBookNo.Text = .txtGuestName.Text = .txtCardID.Text = .txtRoomNo.Text = .dtpBookDate.Value = Date 显示为模式窗体 .Show vbModal End WithEnd SubPrivate Sub cmdDelete_Click()If frmMDI.adoGuest.Recordset.EOF True And frmMDI.adoGuest.Recordset.BOF True Then With frmMDI.adoRoom.Recordset If MsgBox(确认要删除当前记录吗？, vbYesNo + vbQuestion + vbDefaultButton2, 确认框) = vbYes Then .Find RoomNo= & frmMDI.adoGuest.Recordset!RoomNo & , , adSearchForward, 1 If Not .EOF Then 有就提示，然后退出 !RoomStatus = False End If With frmMDI.adoGuest.Recordset .Delete End With dtgGuestInfo.SetFoc