宾馆客户管理信息系统设计与实现 毕业论文 38页

宾馆客户管理信息系统设计与实现摘要随着社会的发展，科技的进步，宾馆对于人们提供的便捷也是不容质疑，而传统的宾馆客户管理已适应不了社会的需求，取而代之的则是计算机系统的管理。在正常的运营中需要对客房资源、客户信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。宾馆客户管理信息系统主要包括客房信息管理，订房信息管理，结算信息管理，金额统计等几个部分。整个系统有数据库文件和数据库管理系统两大部他构成，系统根据VisualBassic6.0的相关内容对系统中所含有的界面、控件、文本框等的属性进行操作和编程设计，使系统运行更加连贯，在此基础上，进一步完善系统的功能，以简明的方式表明系统本身的条理性，明确其使用范围；后台的Access2000数据库文件是集中存储并管理分类宾馆信息的大本营，而前台的数据库管理系统是用来为数据库中的各种资料进行各种基本操作和管理。【关键字】宾馆客户管理系统；VB6.0；Access； ⅠAbstractWiththesocialdevelopment,technologicaladvances,thehotelisalsoconvenientforpeoplewithunquestioned,butthetraditionalhotelcustomermanagementcannolongermeettheneedsofsociety,insteaditisthemanagementofcomputersystems.Innormaloperationstheneedforroomresources,customerinformation,billinginformationmanagement,useofhotelmanagementinformationsystemineveryaspectoftimelyinformationaboutchangestohelpimprovemanagementefficiency.HotelGuestRoomManagementInformationSystemincludesinformationmanagement,bookinginformationmanagement,billinginformationmanagement,statistics,theamountofparts.ThesystemdatabasefileanddatabasemanagementsystemsconstitutethetwomajorDepartmentofhim,thesystemunderVisualBassic6.0oftherelevantcontentcontainedonthesysteminterface,control,textboxpropertiessuchastheoperationandprogrammingdesignedtomakethesystemrunmorecoherent,Onthisbasis,furtherimprovethefunctionofthesystem,inaconcisemannerthatthesystemitselfberational,clearitsuse;thebackgroundoftheAccess2000databasefilesarecentrallystoredandmanagedinformationbasecamphotelcategory,whilethefrontofthedatabasemanagementsystemisusedforthedatabaseinavarietyofinformationofvariousbasicoperationsandmanagement.Keywords:hotelcustomermanagementsystem;VB6.0;Access; II毕业论文中文摘要I毕业论文外文摘要II第1章绪论11.1宾馆客户管理系统背景与现状11.2宾馆客户管理系统研发的意义21.3系统研发的期望31.4宾馆客户管理系统开发技术介绍31.4.1VB6.0技术相关介绍31.4.2Access技术相关介绍3第2章可行性分析42.1技术可行性52.2操作可行性52.3安全可行性52.4经济可行性6第3章需求分析63.1获取需求63.2需求分析63.2.1系统功能需求73.2.2系统性能需求73.3系统E-R图8第4章数据库设计104.1数据库功能分析10 4.2数据库结构设计104.2.1开发与运行环境10第5章系统概要设计105.1.系统功能结构图105.2系统主窗体的实现115.2.1创建系统工程115.2.2创建欢迎界面用户登陆及主窗体125.2.3创建登陆界面125.2.4主窗体的建立135.3客房信息管理135.3.1设置客房信息135.3.2设置客房标准145.3.3客房信息查询155.4订房信息管理155.4.1订房基本信息155.4.2客户信息查询165.5结算信息管理165.5.1结算信息165.6金额统计175.6.1账目统计175.7数据打印185.7.1客房标准185.7.2顾客信息185.8用户管理195.8.1修改用户19结 论20参考文献22致谢23附录24-35- 第1章绪论近年来，我国的现代酒店业得到了蓬勃的发展，无论是行业规模，设施质量还是经营理念或者管理水平，都取得了长足的进步，已经进入了现代化水平阶段。随着信息技术的发展，许多酒店都把管理信息系统作为酒店实施科学化管理的主要工具，并在应用技术上不断的加以完善和发展，大大的提高了酒店运营的质量与效益。作为计算机应用的一部分,使用计算机对酒店事务的管理,具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高酒店管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。在酒店前台的管理工作中，管理信息系统在客户预订，登记，问讯，收银和日常管理方面得到了广泛的应用。设于酒店前台各处的计算机终端，直接与酒店计算机控制中心联网，它可以非常方便地查阅客人档案，实时调整和显示房间状态。还可以编制各种营业报表进行市场销售分析，可以说在酒店管理方面应用计算机技术，是很有必要的，这对改善酒店的管理机制，提高管理效率具有非常重要的意义。酒店信息管理系统是一个由酒店工作人员、计算机及数据库组成的对酒店信息管理的系统。即对相关的信息进行收集、整理、使用和维护的过程。从1946年第一台计算机诞生至此，随着科学技术日新月异的发展，计算机技术也日渐成熟，其强大的功能已被人们深刻认识，并在社会各个领域里发挥着越来越重要的作用。人们将大量工作交给计算机处理，将海量的数据信息存储在数据库里，从而大幅度提高了工作效率，也方便了数据信息的统计。酒店管理项目众多、信息量繁杂，要降低管理成本，提高酒店管理的水平，增进经济利润，则必然要借助于计算机进行信息管理，进而实现酒店信息管理的规范化、自动化和人性化。当今，席卷全球的信息化大潮已把信息管理推到了时代的前沿，信息化管理成为社会关注的热点。在许多发达国家里早已采用这项先进技术，取得了卓著的成绩。而我国起步较晚，但在投入使用过程中，产生了显著的经济效益和社会效益，扮演起越来越重要的角色。-35-第1章绪论-35-长春税务学院学士学位论文1.1宾馆客户管理系统背景与现状宾馆业是一个前景广阔而又竞争激烈的行业。改革开放以来，我国的酒店业迅速发展，已经成为一个具有相当规模的产业。由于我国的旅游业迅速发展，通过调查，-35- 长春税务学院学士学位论文我国在2020年将成为世界上第四大旅游国家；同时我国加入世界贸易组织，酒店业将完全开放，这个时候，我国的酒店业将面临着前所未有的机遇和挑战。但是，现在甚至还有一些酒店还停留在由人工操作和管理阶段，这样已经无法适应当前的发展趋势。因此，要想使酒店的工作质量和效率提高，采用先进的计算机网络通信技术改变酒店业务模式，实现酒店业务管理的自动化已经成为一种必然。随着我国经济体制改革的不断深化和我国经济的快速发展，我国人民的收入不断提高，消费观念也有提高，对服务质量的要求也有很大的提高。各地把旅游业当作本地经济发展的重要支柱之一。宾馆作为人们食宿、娱乐、休闲的场所而得到了快速的发展。社会上也成立了各种类型，不同规模的宾馆服务企业。如何为客户提供更加准确及时的服务，成为各个宾馆竞争关键。所以宾馆业务信息化建设就成为了客户衡量酒店提供商服务标准的一个准则，信息系统成为了基础。现代酒店作为一个对外来人员的接待场所，是一个城市的窗口。对一个以旅游行业为支柱产业的城市而言，酒店有着举足轻重的作用。目前的管理软件系统未能有效解决宾馆目前面临的关键问题--销售与成本控制。现在酒店管理软件多是用于内部运作和管理，其主要诉求点在于提高效率，还谈不上直接降低成本。在某种程度上，宾馆运用电脑以后，人工成本未必降低，甚至有可能增加。运用电脑以后，仅是管理的量化程度提高、数据的流转速度加快。然而宾馆迫在眉睫的矛盾是，在行业不景气的情况下，总在权衡投入成本与产出效益的比重。在中国宾馆行业尚处于比较困难的现阶段，开源节流尤为重要，直接对市场的技术要求日益凸显，而目前酒店直接面对市场的销售手段还停留在拜访、打电话、发传真等传统形式。现有的软件不能直接帮助开源节流，这是目前技术与需求的差距。一个软件开发商发出这样的感叹：“目前再好的宾馆软件也不能使宾馆的经营有特色，对客人有直接影响。譬如，已在其他行业运用得非常纯熟的CRM(客户关系管理)概念，在宾馆国内的宾馆业中尚未得到充分应用。”总体而言，国内酒店IT技术开发的现状是：1、需求不明确，使宾馆项目工程性强，产品化不足，开发商的总体成本居高不下，研发缺乏原动力。2、没有行业统一标准，厂商各自为政，市场分化导致产品整合难度大。3、产品推广依赖行政手段和关系网，抑制了新技术的引进和技术的创新，不利于形成自己的产品特色和质量控制。-35-长春税务学院学士学位论文1.2宾馆客户管理系统研发的意义对宾馆整个来说，对宾馆经营状况起决定作用的是宾馆的服务管理水平。如何利用先进的管理手段来提高宾馆的管理水平成为宾馆业务发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高宾馆的管理无疑是一条行之有效的途径。虽然计算机管理并不是宾馆管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对宾馆的业务管理提供强有力的支持。因此，采用全新的计算机网络和-35- 长春税务学院学士学位论文宾馆业务管理系统，已成为提高宾馆的管理效率，使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助宾馆有效地进行业务管理，释放最大价值。宾馆业务管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求。1.3系统研发的期望随着科学技术的迅猛发展，计算机已经得到了广泛的应用。几乎各行各业都有关于计算机的使用，这使得计算机已成为社会中普遍存在的事物。由于计算机的使用，使得人们在管理、应用及服务等各个领域使用数据方面变得更加简洁，更加方便，大大提高了工作效率，产生了以计算机为主体，以人为辅助的局面。在此我所设计的宾馆管理系统就是为了方便宾馆服务人员在为客户服务时候能够更加的简易，快捷，使的宾客能够享受到更好的服务。本研究设想以某人来宾客消费，宾客入店登记时，服务人员通过本宾馆管理系统的客户开单功能，能够及时、完善的记录宾客信息，宾客结账离店时，服务人员通过本系统的客户结账功能，能够最快的显示出宾客在店消费时的所有金额，使宾客能够很好的结账离店。1.4宾馆管理系统开发技术介绍在当今软件的世界里，面向对象技术一统天下，渗透到几乎所有软件设计领域、应用领域和工程领域。与此同时，在数据库领域中，关系数据库占据了绝大部分的市场份额，面向对象技术和数据库技术的结合，创造出来许多优秀的产品。-35-长春税务学院学士学位论文1.4.1VB6.0技术相关介绍VisualBasic(VB)，它是Microsoft公司推出的一种Windows应用程序开发工具。由于VB简单易学、操作方便、功能强大等特点，已经成为普通用户首选的程序设计语言。微软公司的VisualBasic是在Windows操作平台下设计应用程序的最迅速、最简捷的工具之一。VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，采用VisualBasic实现本系统是个很好的选择。1.4.2Access技术相关介绍Access-35- 长春税务学院学士学位论文是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。Access是一种关系型数据库管理系统，其主要特点如下：（1）存储方式单一Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件种，便于用户的操作和管理。（2）面向对象Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。（3）界面友好、易操作Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。（4）集成环境、处理多种数据信息Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。（5）Access支持ODBC（开发数据库互连，OpenDataBaseConnectivity），利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet/Intranet的应用。第2章可行性分析本系统的总目标是为用户提供迅速、高效的服务，减免手工处理的繁琐与误差，及时、准确地反映酒店的工作情况、经营情况，从而提高酒店的服务质量，获得更好的经济效益；实现客房管理的规范化、自动化。-35- 长春税务学院学士学位论文可行性分析是指在允许的成本、性能要求下，分析每项需求实施的可行性，提出需求实现的相关风险，包括与其它需求的冲突，对外界因素的依赖和技术障碍。可行性分析包括操作可行性、技术可行性、经济可行性和进度可行性。下面是对酒店管理系统的可行性分析。2.1技术可行性该宾馆管理系统的开发语言主要采用的是VB语言，采用的数据库是Access2000。VisualBasic是由微软公司推出的一套完整的Windows系统软件开发工具，可用于开发Windows环境下的各类应用程序，是一种可视化、真正面向对象、采用事件驱动方式的结构化高级程序设计语言和工具的完美集成。编程简单、方便、功能强大，具有与其它语言及环境的良好接口。Access2000不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。Access2000是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access2000也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。该系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。2.2操作可行性鉴于本系统的特点，Windows友好的用户界面和本系统良好的安全性设置，可以使系统操作员很好的掌握使用方法。在开发过程中，我们还尽量给操作员以方便，考虑到操作员的实际情况，对房间号码、宾客姓名等的输入都设置了限定，当输入方式错误后系统会自动报错。这样就大大提高工作效率。而且该系统简单易操作，易维护，减少了不必要的麻烦。-35-第2章可行性分析-35-长春税务学院学士学位2.3安全可行性本系统应用的开发工具为VB6.0，可以保证系统开发过程的安全性要求。数据库的开发为Access2000数据库，此数据库对数据有加密功能，可设置数据库管理员的权限，可根据不同情况对数据库中的数据进行更新。该系统中的对操作人员基本信息修改、删除，不是所有用户都可以应用的。因此就需要在安全方面进行设置。本系统设置了管理员权限和普通用户。-35- 长春税务学院学士学位2.4经济可行性现在，随着社会的进步,计算机的普及,计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为宾馆管理带来了一个质的飞跃，为此主要表现有以下几个方面：1、该系统的运行可以代替以往单以人工进行许多繁杂的劳动；实现了一个电子化的信息管理平台。2、本系统的运行可以大大的提高宾馆服务人员的工作效率。3、该系统的运行可以为企业节省许多不必要浪费的资源。4、本系统可以使宾馆管理更加合理化,安全化,信息化。第3章需求分析需求分析是指对要解决的问题进行详细的分析，弄清楚问题的要求，包括需要输入什么数据，要得到什么结果，最后应输出什么。它是软件定义时期的最后一个阶段，它的基本任务是准确地回答“系统必须做什么？”这个问题。3.1获取需求确定系统必须具有的功能和性能，系统要求的运行环境。必须仔细分析系统中的资料，既要分析系统中的数据流，又要分析长期使用的资料储存。该阶段不是确定系统怎样的完成它的工作，而仅仅是确定系统必须完成哪些工作，也就是对目标系统提出完整、准确、清晰、具体的要求。需求获取是在问题及其最终解决方案之间架设桥梁的第一步。开发者只有和客户充分理解了需求之后才能开始设计系统，否则，对需求定义的任何改进，在设计上都必须大量的返工。系统的客户端能够在Windows平台下运行，服务器端可在Windows平台下运行。系统还需要有较好的安全性和可扩展性。-35-东北电力大学学士学位论文-35-长春税务学院学士学位论文3.2需求分析需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。这个步骤是对理解需求的升华，直接关系到该系统的质量。-35- 长春税务学院学士学位论文通过双方调研得到的需求规格，得到以下几个方面：1、系统功能需求。2、系统性能需求。3、系统运行环境需求。3.2.1系统功能需求系统开发的总体任务是实现宾馆各种信息的系统化、规范化、自动化。经过实际考察与分析，典型的宾馆管理信息系统主要应具有以下功能：l设置客房信息：有关客房信息的添加、删除和修改等。l设置客房标准：客房标准信息的添加、删除、修改等。l客房信息查询：可以显示所有客房信息并查询出未满客房的信息。l订房基本信息：订房信息的输入即添加新顾客。l顾客信息查询：按姓名或身份证号查询顾客信息。l结算信息：可以显示所有未退房顾客信息并查询要退房顾客的信息。l帐目统计：统计所有金额。l数据打印：打印客房标准和顾客信息，以便于管理。l修改用户：适当修改用户、密码，防止窃取。为完善系统的管理功能，只有宾馆管理员可以运行系统所有功能，从而有效保证系统数据的安全性。3.2.2系统性能需求为了保证系统能够长期、安全、稳定、可靠、高效地运行，公交查询系统应该满足以下性能需求：1、系统处理的准确性和及时性系统处理的准确性和及时性是系统的必要性能。查询时应保证查全率，所有相应域包含查询关键字的记录都应能查到。在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应时间能够满足系统管理员对信息处理的需求。响应时间，更新处理时间都比较迅速，完全满足用户要求。一般操作的响应时间应在1-2s内，对数据的导入、导出的操作也应在可接受的时间内完成。2、系统的开放性和系统的可扩充性系统在开发过程中，应该充分考虑以后的可扩充性。例如，用户查询的需求也会不断地更新和完善。这就要求系统提供足够的手段进行功能的调整和扩充。而要实现这一点，应通过系统的开放性来完成，即系统应是一个开放系统，只要符合一定的规范，可以简单地加入和减少系统的模块，配置系统的硬件。通过软件的修补、替换，完成系统的升级和更新换代。-35- 长春税务学院学士学位论文系统是直接面对使用人员的，而使用人员往往对计算机并不是非常熟悉。这就要求系统能够提供良好的用户接口，易用的人机交互界面。所以在系统开发的时候就考虑到了这一点。其次，要实现本系统的易用性就要求系统应该尽量使用用户熟悉的术-35-第3章需求分析语和中文信息的界面。性和易维护性3.3系统E-R图用实体——联系的方法来描述概念模型，是通过E—R图（ENTITY—RELATIONS）来实现的，E—R图有三种基本成分，实体，联系，和属性。实体和属性：实体指客观存在并可相互区分的事物，可以是人、物、实际对象、某些概念、事物本身，也可指事物和事物之间的联系。属性是实体具有的某一特性。一个实体可以由若干个属性来描述。实体间联系：联系是指现实世界的事物之间的联系。这种联系反映到信息世界中，就分为两类，一类是实体内部的联系，另一类是实体之间的联系。两个实体之间的联系可分为三类：一对一的联系（1：1）；一对多的联系（1：n）；一对多的联系（1：n）。在此宾馆管理系统中，实体有客房的信息实体，预订/接待信息实体，收银信息实体，客人基本信息实体等。客房的信息实体，其属性包括客房编号，客房种类，客房单价，客房电话号码等。客房标准信息的属性包括，标准编号，标准名称，住房单价。接待信息实体主要包括的属性有，客房编号，客房的种类，客房位置，顾客姓名，性别，顾客证件号码，证件类型，入住时间，退房时间等。预订信息实体属性包括：宾客姓名，房间类型，预抵时间，联系电话，备注等。收银信息实体属性包括：客房编号，客房种类，客房位置，客房备注信息，顾客姓名，顾客证件号码，证件类型，入住时间，折扣，结算时间，备注等。客人基本信息实体包括：姓名，身份证号码，房号，入住时间，单价等。各实体之间E-R图见图3-1所示。-35--35- 客房标准信息客房标准设置登记预订预订/接待管理入住客人基本信息标准名称单价标准编号状态房号客人姓名预订/入住时间房号备注姓名身份证号单价房号入住时间单价输入收银管理时间金额信息图3-1各实体关系连接图-35- 第4章数据库设计4.1数据库功能分析数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。在访问数据库时，采用了VisualBasic6.0新增的数据环境设计实现。在实现各个独立功能模块之前，首先在数据环境设计器中创建访问数据库需要的命令对象。在数据环境设计器中创建的命令对象可在各个功能模块中被直接使用，采用数据环境设计器，可以大大减少代码的编写，从而提高系统开发的效率。4.2数据库结构设计现在需要将上面的数据库概念结构转化为SQLServer2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。系统设计是对整个管理系统功能进行分析，并划分和构建系统功能模块，而数据库设计则是对分析和创建保存管理系统数据的数据结构进行设计，两者对整个系统的开发具有同等重要的关键作用。4.2.1开发与运行环境开发与运行环境的选择会影响数据库设计,本系统开发与运行的环境为:系统运行环境需求如表4-2-1所示。表4-2-1客户端环境配置CPUPIII800以上内存256M以上硬盘10G以上操作系统MicrosoftWindows2000/XP第5章系统概要设计5.1系统功能模块结构图-35- 按照结构化的系统设计方法，将整个系统分解成相对独立的若干模块，通过对模块的设计和模块之间关系的协调来实现整个软件系统的功能，从而得到系统的功能模块结构图。本系统的功能模块结构如下图所示。宾馆客户管理信息系统顾客信息查询订房基本信息客房信息查询设置客房标准设置客房信息结算信息账目统计客房标准修改用户顾客信息退出结算信息管理订房信息管理客房信息管理其他数据打印金额统计5.2管理系统主窗体的实现5.2.1创建系统工程启动VisualBasi6.0。并创建一个标准的EXE文件。为工程添加一个数据环境设计器，用于设计数据库的工具，可视化地创建和修改表、表集和报表的数据环境。数据环境结构如图5-1。-35- 图5-15.2.2创建欢迎界面用户登陆及主窗体在启动窗体之后,系统首先进入滚动式的欢迎界面,如图5-2所示。图5-2代码见附录5.2.3创建登陆界面-35- 功能：单击欢迎界面进入用户登录界面。用户登录后进入宾馆管理信息系统。系统启动后，首先要做的就是用户登录。若不登录系统，所有功能都无法使用。登陆窗体如图5-3所示。图5-3代码见附录。5.2.4主窗体的建立系统主窗体使用MDI窗体，并采用菜单来集成各个系统模块。如图5-4：图5-4总界面代码见附录。5.3客房信息管理5.3.1设置客房信息-35- 功能：宾馆管理员需要对宾馆的客房信息进行统一的设置。主要内容有：“客房编号”，“客房类型”，“客房位置”，“客房单价”，“目前状态”，“顾客上限”“已住人数”等。设置完之后，才能正式的运营。客房标准信息的添加、删除、修改等。设置客房信息窗体如图5-5所示：图5-5代码见附录。5.3.2设置客房标准功能：作为一个宾馆，都得有自己的客房条件和客房标准，让人看后能一目了然，在设置客房标准是需要考虑到方方面面，主要内容有：“客房类型”，“住房单价”，“是否有空调”，“是否有电视”，“是否有电话”，“是否有卫生间”等。具体有添加、删除和保存功能。在工程中添加一个窗体，界面如图5-6所示。图5-6代码见附录。-35- 5.3.3客房信息查询功能：可以根据客房的标准对所有的客房信息进行查询，并且进行统一的浏览，具体界面如图5-7所示。图5-7代码见附录。5.4订房信息管理5.4.1订房基本信息功能：新来了顾客之后，都要进行登记，主要登记项目有：“姓名”，“性别”，“身份证号”，“入住日期”；客房方面需要登记的的内容有“客房编号”，“客房类型”“客房位置”“客房单价”“空余床位”，然后进行保存。具体完成界面如图5-8所示。图5-8代码为见附录-35- 5.4.2客户信息查询功能：入住的旅客多了之后要进行查找就得有一个查询的条件，而这一模块就是对宾馆所有顾客的信息进行综合的查询。此模块有两种查询方式：一是按姓名。在输入顾客姓名之后，表中就会显示出所有此姓名的的顾客姓名；二是按照身份证号查询。输入顾客身份证号后，表中就会显示出顾客的个人信息。在工程中添加一个窗体，界面如图3-9所示。图5-9代码见附录5.5结算信息管理5.5.1结算信息功能：可以查询所有未退房顾客的信息，并且可以进行浏览；同时对要退房顾客的信息也可以进行查询，并进行浏览。界面如图5-10所示。-35- 图5-10代码见附录5.6金额统计5.6.1帐目统计功能：在宾馆里过往的人都非常多，如果没有系统的结算，对工作就会带来好多不便，所以帐目统计就是对所有的金额进行统计浏览，界面如图5-11所示。图5-11代码见附录-35- 5.7数据打印5.7.1客房标准功能：对客房标准进行浏览，如图5-12所示。图5-125.7.2顾客信息功能：宾馆的顾客在很多的时候就要对每一位顾客信息进行浏览，如图3-13所示。图3-13-35- 5.8用户管理5.8.1修改用户功能：设置用户主要是对管理者的用户名及口令进行修改，防止窃取。先输入要使用的新的用户名，在输入旧密码以及新密码，并且要对新密码进行确认，确定之后在用户表中即得到了修改，添加一个标准窗体，修改用户的窗体如图5-14所示：图5-14代码见附录-35- 结束语 在这次毕业设计中，我选用了VB6.0进行开发，VisualBasic6.0是新一代VisualBasic.它不仅简单的在原有的visualbasic基础上添加了一些特性。从开发个人使用到大型的企业应用程序，甚至通过Internet遍及全球的分布式系统都可以在VisualBasic中各取所需，在实践中让我对VB6.0有了更深刻、更全面的认识。在对该系统版本升级的过程中，微软对它进行了重新设计，以便开发者能够更加容易的开发分布式应用程序，如基于WEB的应用程序以及其它的多层系统。VisualBasic.NET现在完全集成在语言中，它可以使用一种语言编写的类中派生使用另一种语言编写的类，可以通过不同的语言开发组件，还可以通过交叉语言继承。通过设计和开发宾馆管理信息系统，使我学到了许多有关数据库方面和软件开发的知识，对软件工程和软件开发有了进一步的了解，通过这次毕业设计，巩固了我所学到的课本知识，提高了我思考和解决问题的能力，做到了学以致用。经过这段时间的精心设计，系统的基本功能已经实现，并能实践于一些业务管理过程中，但宾馆客户管理系统是一个庞大的工程，要使功能完美的实现，非一朝一夕可尽善尽美的，这需要一个长期的摸索与完善过程，同时还要在实践中发现与操作者使用要求不相符合的地方还要修改。系统功能虽已基本实现，但仍有诸多地方需要修改。在本次设计中，因为设计的知识点太多，所以放弃了这个部分。在一些模块设计中，有的设计思路没有考虑进去，在以后的时间里还要加以补充，还有的细节的地方也需要进一步修改和完善。-35- 在劳动密集型的服务性企业中，酒店是较早应用了计算机管理系统的行业。随着酒店业务的扩展，服务的增加，酒店业务管理系统也逐渐发展、完善。如果没有一套可靠的酒店业务管理系统,但凭手工操作,不仅效率低下,而且会极大地形象到酒店的服务质量。要在酒店服务中选择好适合自己酒店实际情况的业务管理系统不仅要考虑该系统在酒店的实用性，还要考虑酒店对该系统所能够承担费用的能力，以及这个系统对操作员来说的操作难易程度。此系统所能实现的功能较全面，可以实现对宾馆管理的计算机管理，可以避免人为管理出现的不便和漏洞，而在建立数据库时也考虑到了人事信息的各个方面，在系统设置上也尽量做到合理、实用和方便。此系统易学易懂，对没有计算机基础的人来说也可以很快上手使用，操作简单。但是VB功能强大，加之对它的掌握还不够全面，加上时间紧迫和我的经验不足，系统难免有不足之处，还请老师给予指正和帮助。-35- 参考文献[1]曹戈.《VisualBasic使用教程》电子工业出版社,2003年12月[2]《轻松学用VB6.0》.美WallaceWang电子工业出版社,2002年5月[3]明月工作室.《VB6.0编程百例》人民邮电出版社,2001年5月[4]王兴晶.《VB6.0数据库开发典型实例》电子工业出版社,2002年9月[5]安忠,佟志臣.《管理信息系统实用教程》中国铁道出版社,2002年9月[6]美Robina.Reyholds.hear《VB6.0和VB.NET面向程序设计》清华大学出版,2002[7]刘韬、骆娟、何旭洪《数据库系统开发实力导航》人民邮电出版社,2003年8月[8]黄梯云，李一军.管理信息系统(第三版)[M].北京：高等教育出版社，2004注：[J]指期刊，[M]指著作，[N]指报刊，[D]指学位论文-35- 附录图5-2代码：PrivateSubForm_Click()登录界面.ShowUnloadMeEndSubPrivateSubForm_Load()Label1.Left=4850EndSubPrivateSubTimer1_Timer()Label1.Left=Label1.Left-50IfLabel1.Left<=-3500ThenLabel1.Left=4850EndSub图5-3代码：PrivateSubCommand1_Click()Adodc1.RecordSource="select*from用户修改"Adodc1.RefreshIfText1.Text=""ThenMsgBox"请输入用户名！"Text1.SetFocusElseIfText2.Text=""ThenMsgBox"请输入密码！"Text2.SetFocusElseIfText1.Text<>Adodc1.Recordset.Fields("用户名")ThenMsgBox"用户名错误！重新输入。"Text1.SetFocusText1.Text=""ElseIfText2.Text<>Adodc1.Recordset.Fields("密码")ThenMsgBox"密码错误！请重新输入。"Text2.SetFocusText2.Text=""Elsemain.ShowUnloadMeEndIf-35- EndIfEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Activate()Text1.SetFocusEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenText2.SetFocusEndSubPrivateSubText2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenCommand1.SetFocusEndSub图5-4代码：PrivateSubmenu1_Click()设置客房信息.ShowEndSubPrivateSubmenu4_Click()订房信息管理.ShowEndSubPrivateSubmenu5_Click()顾客信息查询.ShowEndSubPrivateSubqq_Click()退房管理.ShowEndSubPrivateSubmenu3_Click()客房查询.ShowEndSubPrivateSubSJDY_Click()Form2.Show-35- EndSubPrivateSubmenu2_Click()设置客房标准.ShowEndSubPrivateSubmenu6_Click()DataReport1.ShowEndSubPrivateSubmenu7_Click()DataReport2.ShowEndSubPrivateSubmenu8_Click()用户密码修改.ShowEndSubPrivateSubmenu9_Click()Dimmm=MsgBox("是否退出系统？",vbOKCancel+vbQuestion,"退出")Ifm=1ThenEndEndIfEndSubPrivateSubzm_Click()帐目统计.ShowEndSub图5-5代码：PrivateSubCommand1_Click()Adodc1.Recordset.MoveLastAdodc1.Recordset.AddNewText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndSub-35- PrivateSubCommand2_Click()IfText1=""ThenMsgBox"请输入客房编号！"Text1.SetFocusElseIfText2=""ThenMsgBox"请输入客房类型！"Text2.SetFocusElseIfText3=""ThenMsgBox"请输入客房位置！"Text3.SetFocusElseIfText4=""ThenMsgBox"请输入客房单价！"Text4.SetFocusElseIfText5=""ThenMsgBox"请输入目前状态！"Text5.SetFocusElseIfText6=""ThenMsgBox"请输入顾客上限！"Text6.SetFocusElseIfText7=""ThenMsgBox"请输入已住人数！"Text7.SetFocusElseAdodc1.Recordset.MoveLastMsgBox"已保存！"Adodc1.Recordset.UpdateAdodc1.RefreshEndIfEndIfEndIfEndIfEndIfEndIfEndIfEndSubPrivateSubCommand3_Click()UnloadMemain.Show-35- EndSubPrivateSubCommand4_Click()DimmagIfText1=""ThenMsgBox"没有要删除的记录！"Elsemag=MsgBox("确定要删除吗?",vbYesNo,"删除")Ifmag=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveLastEndIfEndIfEndSub图5-6代码：PrivateSubCommand1_Click()Adodc1.Recordset.MoveLastAdodc1.Recordset.AddNewText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()UnloadMemain.ShowEndSubPrivateSubCommand2_Click()IfText1=""ThenMsgBox"请输入客房编号！"Text1.SetFocusElseIfText2=""ThenMsgBox"请输入客房类型！"Text2.SetFocusElseIfText3=""ThenMsgBox"请输入客房位置！"-35- Text3.SetFocusElseIfText4=""ThenMsgBox"请输入客房单价！"Text4.SetFocusElseIfText5=""ThenMsgBox"请输入目前状态！"Text5.SetFocusElseIfText6=""ThenMsgBox"请输入顾客上限！"Text6.SetFocusElseAdodc1.Recordset.MoveLastMsgBox"已保存！"Adodc1.Recordset.UpdateAdodc1.RefreshEndIfEndIfEndIfEndIfEndIfEndIfEndSubPrivateSubCommand4_Click()DimmagIfText1.Text=""ThenMsgBox"当前无可删除的记录！"Elsemag=MsgBox("确定要删除吗?",vbYesNo,"删除")Ifmag=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveLastAdodc1.RefreshEndIfEndIfEndSub图5-7代码：PrivateSubCheck2_Click()DataCombo2.Enabled=TrueEndSub-35- PrivateSubCommand3_Click()UnloadMemain.ShowEndSubPrivateSubCommand1_Click()Adodc2.RecordSource="select*from客房信息where目前状态="未满"and客房类型=""&DataCombo1.BoundText&"""Adodc2.RefreshEndSubPrivateSubCommand2_Click()Adodc2.RecordSource="select*from客房信息"Adodc2.RefreshEndSub图5-8代码：PrivateSubCommand1_Click()Adodc2.Recordset.MoveLastAdodc2.Recordset.AddNewText5.Text=""Text6.Text=""Text7.Text=""Text8.Text=DateText5.SetFocusEndSubPrivateSubCommand2_Click()IfText5=""ThenMsgBox"请输入顾客姓名！"Text5.SetFocusElseIfText6=""ThenMsgBox"请输入顾客性别！"Text6.SetFocusElseIfText7=""ThenMsgBox"请输入顾客身份证号！"Text7.SetFocusElseAdodc2.Recordset!所需金额=0Adodc2.Recordset!入住日期=Date-35- Adodc2.Recordset!客房编号=DataCombo1.BoundTextAdodc2.Recordset!客房类型=Text1Adodc2.Recordset.UpdateMsgBox"记录已保存！"Adodc2.RefreshAdodc3.Recordset!已住人数=Adodc3.Recordset!已住人数+1IfAdodc3.Recordset!顾客上限-Adodc3.Recordset!已住人数=0ThenAdodc3.Recordset!目前状态="已满"EndIfEndIfEndIfEndIfAdodc3.Recordset.UpdateAdodc3.RefreshAdodc1.RefreshEndSubPrivateSubCommand4_Click()EndSubPrivateSubCommand5_Click()UnloadMemain.ShowEndSubPrivateSubDataCombo1_Click(AreaAsInteger)Adodc3.RecordSource="select*from客房信息where客房编号=""&DataCombo1.BoundText&""and目前状态="未满""Adodc3.RefreshText4=Adodc3.Recordset!顾客上限-Adodc3.Recordset!已住人数EndSub图5-9代码：PrivateSubCommand2_Click()Adodc1.RecordSource="select*from顾客信息where身份证号=""&Text2&"""Adodc1.RefreshEndSubPrivateSubCommand1_Click()Adodc1.RecordSource="select*from顾客信息where顾客姓名=""&Text1&"""Adodc1.RefreshEndSubPrivateSubCommand3_Click()-35- Adodc1.RecordSource="select*from顾客信息"Adodc1.RefreshEndSubPrivateSubOption2_Click()Text1.Enabled=FalseText2.Enabled=TrueCommand2.Visible=TrueCommand1.Visible=FalseText1=""EndSubPrivateSubOption1_Click()Text1.Enabled=TrueText2.Enabled=FalseCommand2.Visible=FalseCommand1.Visible=TrueText2=""EndSub图5-10代码：PrivateSubCommand1_Click()Adodc1.RecordSource="select*from顾客信息where客房编号=""&Text1&""and所需金额=0"Adodc1.RefreshCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()IfAdodc1.Recordset.EOFOrAdodc1.Recordset.EOFThenMsgBox"当前无记录，请指定记录！"ElseAdodc2.RecordSource="select*from客房信息where客房编号=""&Text1&"""Adodc2.RefreshAdodc1.Recordset!所需金额=Adodc2.Recordset!客房单价*(Date-Adodc1.Recordset!入住日期)Adodc1.Recordset!退房日期=DateAdodc2.Recordset!已住人数=Adodc2.Recordset!已住人数-1Adodc2.Recordset!目前状态="未满"Adodc2.Recordset.UpdateAdodc1.Recordset.UpdateMsgBox"退房成功！所需金额为"&Adodc1.Recordset!所需金额Adodc1.RefreshAdodc2.RefreshEndIf-35- EndSubPrivateSubCommand3_Click()Adodc1.RecordSource="select*from顾客信息where所需金额=0"Adodc1.RefreshCommand2.Enabled=FalseEndSub图5-11代码：PrivateSubCommand1_Click()DimaAsLonga=0x=Adodc1.Recordset.RecordCountFori=1ToxAdodc1.Recordset.MoveFirsta=a+Adodc1.Recordset.Fields("所需金额")Adodc1.Recordset.MoveNextNextText3=aEndSubPrivateSubCommand2_Click()UnloadMeEndSub图5-14代码：PrivateSubCommand9_Click()Adodc1.RecordSource="select*from用户修改"Adodc1.RefreshIfText1.Text<>""AndText2.Text=Adodc1.Recordset.Fields("密码")AndText2.Text<>""AndText3.Text<>""AndText4.Text<>""AndText4.Text=Text3.TextThenAdodc1.Recordset.Fields("用户名")=Text1.TextAdodc1.Recordset.Fields("密码")=Text4.TextMsgBox"修改成功！"Adodc1.Recordset.UpdateText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text1.SetFocusElseIfText1.Text=""ThenMsgBox"请输入新用户名！"Text1.SetFocus-35- ElseIfText2.Text=""ThenMsgBox"请输入原密码！"Text2.SetFocusElseIfText2.Text<>Adodc1.Recordset.Fields("密码")ThenMsgBox"原密码错误！请重新输入。"Text2.Text=""Text2.SetFocusElseIfText3.Text=""ThenMsgBox"请输入新密码！"Text3.SetFocusElseIfText4.Text=""ThenMsgBox"请确认新密码！"Text4.SetFocusElseIfText3.Text<>Text4.TextThenMsgBox"密码不一致！请重新输入。"Text3.Text=""Text4.Text=""Text3.SetFocusEndIfEndIfEndIfEndIfEndIfEndIfEndIfEndSub-35- -35-