宾馆管理系统--毕业设计.doc

毕业设计题 目 宾馆管理信息系统 此设计还有源程序，有需要的朋友下载了文档后留下你的邮箱，方便我传给你。摘 要随着社会的发展，科技的进步，宾馆对于人们提供的便捷也是不容质疑，而传统的宾馆管理已适应不了社会的需求，取而代之的则是计算机系统的管理。在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。宾馆管理信息系统主要包括客房信息管理，订房信息管理，结算信息管理，金额统计等几个部分。整个系统有数据库文件和数据库管理系统两大部他构成，系统根据Visual Bassic 6.0的相关内容对系统中所含有的界面、控件、文本框等的属性进行操作和编程设计，使系统运行更加连贯，在此基础上，进一步完善系统的功能，以简明的方式表明系统本身的条理性，明确其使用范围；后台的Access 2000数据库文件是集中存储并管理分类宾馆信息的大本营，而前台的数据库管理系统是用来为数据库中的各种资料进行各种基本操作和管理。前 言随着计算机科学的不断发展，数据库技术的出现极大的方便了人们对信息的储存，处理。在上个世纪六、七十年代，会计还在用算盘计算数字，数据的存储更是厚厚的帐本，从成堆的资料中寻找到自己需要的东西其难度可想而知，而且纸张怕湿怕潮，存储上更有难度。但是数据库的出现可以说解决了上述的更种难题，一张小小的磁盘可以存储成百上千本书，资料的查询更可通过计算机手段瞬间完成任务，这种工作效率在过去是难以想象的。所以，数据库技术被各个领域运用，数据库的开发，完善也成为当今企业的重中之重。自1991年以来Microsoft公司陆续推出Visual Basic1.0到Visual Basic6.0等版本。Visual Basic已经成为了使用者最多的一种程序设计语言。Visual Basic的应用非常广泛，可以开发科学计算，数据库管理，客户/服务器模式，Internet/Intranet等多个领域的应用程序。在本系统中，通过所学内容的运用，全面的介绍了Visual Basic在数据管理系统开发的应用。系统的开发是一项复杂而细致的工作，不但要求开发人员具有丰富的变成经验，而且还要了解企业的运营机制，功能的可行性。本数据库是针对某宾馆的信息管理系统，适合中小型宾馆使用，对数据的管理，分析，以及未来发展战略有指导性帮助，易学易懂，对没有计算机基础的人来说也可以很快上手使用。宾馆管理信息系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。系统共分为客房信息管理、订房信息管理、结算信息管理、金额统计、数据打印和其他六个部分。系统各部分内容既相互联系又相对独立，并依据宾馆信息管理的特点精心制作，方便管理员根据实际需要进行选择。由于时间仓促，加之作者水平有限，不当之处在所难免，恳请您的批评指正。 作 者2009年5月目 录 前 言.31章 系统设计.6 1.1 开发背景.7 1.2 系统分析.81.3 系统功能模块设计.92章 数据库设计. 9 2.1 数据库功能分析. 9 2.2.1开发与运行环境.10 2.2 数据库结构设计.10 3章 管理系统的功能. 113.1 管理系统主窗体的实现.113.1.1 创建系统工程.11 3.1.2 创建欢迎界面及主界面.12 创建欢迎界面.创建用户登录窗体.主窗体的建立.133.2 客房信息管理.133.2.1 设置客房信息.133.2.2 设置客房标准.143.2.3 客房信息查询.143.3 订房信息管理.153.3.1 订房基本信息.153.3.2 顾客信息查询.163.4 结算信息管理.17 3.4.1 结算信息.173.5 金额统计.18 3.5.1 帐目统计.183.6 数据打印.183.6.1 客房标准183.6.2 顾客信息.193.7 用户管理.193.7.1 修改用户.19结 束 语.21 谢 词.22参考文献.22附 录.24宾馆管理信息系统1章 系统设计1.1开发背景 电子计算机科学的飞速发展，给宾馆计算机应用带来了蓬勃生机，出现了宾馆计算机管理信息系统、安全保卫系统、电子门锁系统、宾馆信息服务系统、客房电脑保险系统以及计算机娱乐系统。 管理信息系统(Management Information System简称MIS)是信息科学的一个分支，是由人和计算机组成的能进行信息的收集、传递、储存、加工、维护和使用的系统。宾馆计算机管理系统是MIS中的一个重要分支，它实现的是计算机管理系统在宾馆中的具体应用。它最早是于70年代初在国外开始发展起来的，到了80年代，国外的酒店管理系统，如EECO、HIS、CLS、Lodgistix等，整个模式已基本定型，技术较成熟，功能也较齐全。 国内的宾馆计算机管理系统最早是在80年代初开始的，从事该方面工作的有清华大学自动化系之金国芬教授、西安交大和浙江省计算技术研究所。到了80年代中后期，随着国外宾馆计算机系统的大规模引进，国外宾馆的先进管理技术进入我国，进一步促进了我国宾馆管理技术的发展。国内系统正是在充分吸收国外管理系统的精华，再结合国内的实际情况，逐步发展成熟，到90年代初期形成了几个较成熟的软件系统，同时产生了许多专职从事宾馆计算机管理系统的公司。到了90年代中期，随着计算机在宾馆中的普及应用，以及计算机技术的不断发展，宾馆计算机系统的发展到了一个新的时期，新的系统平台、新的软件功能、新的系统特点及发展方向不断涌现.Visual Basic(VB)，它是Microsoft公司推出的一种Windows应用程序开发工具。由于VB简单易学、操作方便、功能强大等特点，已经成为普通用户首选的程序设计语言。微软公司的Visual Basic是在Windows操作平台下设计应用程序的最迅速、最简捷的工具之一。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，采用Visual Basic实现本系统是个很好的选择。 近年来，随着我国改革开放的发展，国内的宾馆服务业得到了日新月异的发展。现代宾馆作为一体化的接待场所，是一个旅游城市的窗口，也可以说是一个小型社会。作为一种以服务为主的无烟工业，世界各国对此行业的重视程度并不亚于其它工业。 宾馆在其运作期间，服务水平的高低，直接影响到酒店的形象和声誉，如：服务的安排、调度是否周到；客人的要求是否能迅速、很好地得到满足；市场的预测分析是否快捷、准确等。这其中的核心就是对每天大量的信息（客人、费用、房间等）的正确处理和保存。采用计算机这一现代化工具作为管理的辅助手段是必须的。计算机的应用包括OA（办公自动化）、MIS（管理信息系统）、CAD（计算机辅助设计）等，宾馆的计算机系统正是典型的MIS应用。 本系统，是针对宾馆的具体业务而开发的，业务管理以宾馆的前台管理为核心，为用户提供迅速、高效的服务，减免手工处理的繁琐与误差，及时、准确地反映宾馆的工作情况、经营情况，从而提高宾馆的服务质量，并配合现代化的酒店管理，获得更好的经济效益。随着科学技术的不断发展，社会上各个宾馆的规模在日趋增大，随之而来的旅客数量也不断增加，这就为宾馆的管理水平提出了新的要求，使用计算机系统进行管理就有了必要性，它不仅仅可以减少工作时管理的难度，也可以减少管理中出现的失误并提高效率。在我国加入世界贸易组织，宾馆服务业与国际市场接轨已成为大势所趋，宾馆管理要迎接这场挑战，就必须提高整体竞争能力，提高整体竞争能力必须变革宾馆的管理模式，提高管理水平，实施信息化建设无疑是实现这一目的的必由之路和明智之举。目前，我国宾馆服务信息化管理的进程缓慢，跟国外的宾馆相比管理依然落后。在激烈的宾馆业竞争中，如何能把握机会，保持自己的优势，立于不败之地呢？这就需要提供最好的服务，提供最完善的设施和最先进的技术。一个成功的宾馆，其经营者不仅要提高服务水平和服务质量，从而提高客房占有率和回头率，还要有好的工作效率，并控制成本。在信息时代，更重要的是还必须要有一个完善的管理信息系统，便于方便客人和更好地管理宾馆。应用管理系统通过节省大量的人力物力，增加宾馆的服务项目，提高宾馆的服务档次，减少管理上的漏洞，从整体上提高宾馆的经济效益。如完善的预订功能可防止有房不能租或满房重订的情况出现，可随时提供准确的房间使用和预订情况，从而提高客房出租率。客人费用的直接记帐，可有效防止逃帐的发生。完善的分析功能可用于市场销售，如确定宣传的重点地区和如何掌握价格的浮动等。正确控制房价，控制客人优惠，从而减少管理漏洞，提高客房收入。一套优秀的宾馆管理信息系统应该是一套适用于星级宾馆使用的优秀系统，操作简单、灵活性好、系统安全性高、运行稳定，是管理者的理想选择。我的毕业设计题目就是设计一个小型宾馆管理信息系统，在前期的考察和分析之后，对系统进行了设计，虽然受水平所限，实践经验十分匮乏，独立完成一套完备的优秀的酒店管理信息系统有很大的难度，但是我努力在实践中巩固以及整理自己在大学期间所学的知识，尽量把这个系统设计的更好。1.2系统分析 宾馆管理信息系统涉及到对员工的基本信息进行添加、修改、删除、查询、统计、报表输出等功能。系统开发的总体任务是实现宾馆各种信息的系统化、规范化、自动化。经过实际考察与分析，典型的宾馆管理信息系统主要应具有以下功能：l 设置客房信息：有关客房信息的添加、删除和修改等。l 设置客房标准：客房标准信息的添加、删除、修改等。l 客房信息查询：可以显示所有客房信息并查询出未满客房的信息。l 订房基本信息：订房信息的输入即添加新顾客。l 顾客信息查询：按姓名或身份证号查询顾客信息。l 结算信息：可以显示所有未退房顾客信息并查询要退房顾客的信息。l 帐目统计：统计所有金额。l 数据打印：打印客房标准和顾客信息，以便于管理。l 修改用户：适当修改用户、密码，防止窃取。为完善系统的管理功能，只有宾馆管理员可以运行系统所有功能，从而有效保证系统数据的安全性。1.3系统功能模块设计 根据系统功能分析和宾馆管理信息的特点,经过对模块化的分析,得到如图1-1的结构模块图：图1-12章 数据库设计21数据库功能分析 数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。 在访问数据库时，采用了Visual Basic6.0新增的数据环境设计实现。在实现各个独立功能模块之前，首先在数据环境设计器中创建访问数据库需要的命令对象。在数据环境设计器中创建的命令对象可在各个功能模块中被直接使用，采用数据环境设计器，可以大大减少代码的编写，从而提高系统开发的效率。2.2 数据库结构设计 现在需要将上面的数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。系统设计是对整个管理系统功能进行分析，并划分和构建系统功能模块，而数据库设计则是对分析和创建保存管理系统数据的数据结构进行设计，两者对整个系统的开发具有同等重要的关键作用。2.2.1 开发与运行环境开发与运行环境的选择会影响数据库设计,本系统开发与运行的环境为:开发环境: Windows XP开发工具: Visual Basic 6.0数据库管理系统: Access2.2.2物理设计物理设计的目的是根据具体DBMS特征，确定数据库的物理结构（存储结构）。关系数据库的物理设计比较简单，对于一般关系的数据库系统建立，这一阶段的任务包括：确定所有数据文件的名称及其所含字段的名称、类型和宽度。确定各数据库文件需要建立的索引，在什么字段上建立索引等。下面列举出几个表的结构：顾客信息的结构表2-1字段名字类型段宽度说明顾客编号Char10顾客编号顾客姓名Char10顾客姓名性别Char10性别身份证号Char20身份证号客户编号Char6客户编号客房类型Char10客房类型入住日期Char10入住日期退房日期Char10退房日期所需金额Char10所需金额客房标准的结构表2-2字段名段类型字段宽度说明客房类型Char10客房类型住房单价Char10住房单价空调Char10空调电视Char10电视电话Char10电话单独卫生间Char10单独卫生间客房信息的结构表2-3字段名段类型字段宽度说明客房编号Char10客房编号客房类型Char10客房类型客房位置Char10客房位置客房单价Char10客房单价目前状态Char10目前状态顾客上限Char10顾客上限已住人数Char10已住人数3章 管理系统的功能3.1 管理系统主窗体的实现3.1.1创建系统工程启动Visual Basi6.0。并创建一个标准的EXE文件。为工程添加一个数据环境设计器，用于设计数据库的工具，可视化地创建和修改表、表集和报表的数据环境。数据环境结构如图3-1。 图3-13.1.2创建欢迎界面用户登陆及主窗体 在启动窗体之后,系统首先进入滚动式的欢迎界面,如图3-2所示。 图3-2 代码见附录 创建登陆界面功能：单击欢迎界面进入用户登录界面。用户登录后进入宾馆管理信息系统。系统启动后，首先要做的就是用户登录。若不登录系统，所有功能都无法使用。 登陆窗体如图3-3所示。图3-3 代码见附录。主窗体的建立系统主窗体使用MDI窗体，并采用菜单来集成各个系统模块。如图3-4：图3-4 总界面代码见附录。3.2 客房信息管理3.2.1 设置客房信息 功能：宾馆管理员需要对宾馆的客房信息进行统一的设置。主要内容有：“客房编号”，“客房类型”，“客房位置”，“客房单价”，“目前状态”，“顾客上限”“已住人数”等。设置完之后，才能正式的运营。客房标准信息的添加、删 除、修改等。设置客房信息窗体如图3-5所示： 图3-5 代码见附录。3.2.2设置客房标准功能：作为一个宾馆，都得有自己的客房条件和客房标准，让人看后能一目了然，在设置客房标准是需要考虑到方方面面，主要内容有：“客房类型”，“住房单价”，“是否有空调”，“是否有电视”，“是否有电话”，“是否有卫生间”等。具体有添加、删除和保存功能。在工程中添加一个窗体，界面如图3-6所示。 图3-6 代码见附录。 3.2.3客房信息查询 功能：可以根据客房的标准对所有的客房信息进行查询，并且进行统一的浏览，具体界面如图3-7所示。 图3-7 代码见附录。3.3 订房信息管理3.3.1 订房基本信息 功能：新来了顾客之后，都要进行登记，主要登记项目有：“姓名”，“性别”，“身份证号”，“入住日期”；客房方面需要登记的的内容有“客房编号”，“客房类型”“客房位置”“客房单价”“空余床位”，然后进行保存。具体完成界面如图 3-8所示.图3-8 代码为见附录3.3.2 顾客信息查询功能：入住的旅客多了之后要进行查找就得有一个查询的条件，而这一模块就是对宾馆所有顾客的信息进行综合的查询。此模块有两种查询方式：一是按姓名。在输入顾客姓名之后，表中就会显示出所有此姓名的的顾客姓名；二是按照身份证号查询。输入顾客身份证号后，表中就会显示出顾客的个人信息。在工程中添加一个窗体，界面如图3-9所示。图3-9 代码见附录3.4 结算信息管理3.4.1结算信息功能： 可以查询所有未退房顾客的信息，并且可以进行浏览；同时对要退房顾客的信息也可以进行查询，并进行浏览。界面如图3-10所示。 图3-10 代码见附录3.5 金额统计3.5.1帐目统计功能：在宾馆里过往的人都非常多，如果没有系统的结算，对工作就会带来好多不便，所以帐目统计就是对所有的金额进行统计浏览，界面如图3-11所示。 图3-11 代码见附录3.6 数据打印3.6.1客房标准功能：对客房标准进行浏览，如图3-12所示。图3-123.6.2顾客信息功能：宾馆的顾客在很多的时候就要对每一位顾客信息进行浏览，如图3-13所示。图3-133.7 用户管理3.7.1修改用户功能：设置用户主要是对管理者的用户名及口令进行修改，防止窃取。先输入要使用的新的用户名，在输入旧密码以及新密码，并且要对新密码进行确认，确定之后在用户表中即得到了修改，添加一个标准窗体，修改用户的窗体如图3-14所示： 图3-14 代码见附录结 束 语在这次毕业设计中，我选用了VB6.0进行开发，Visual Basic6.0是新一代Visual Basic.它不仅简单的在原有的visual basic基础上添加了一些特性。从开发个人使用到大型的企业应用程序，甚至通过Internet遍及全球的分布式系统都可以在Visual Basic 中各取所需，在实践中让我对VB6.0有了更深刻、更全面的认识。在对该系统版本升级的过程中，微软对它进行了重新设计，以便开发者能够更加容易的开发分布式应用程序，如基于WEB的应用程序以及其它的多层系统。Visual Basic.NET 现在完全集成在语言中，它可以使用一种语言编写的类中派生使用另一种语言编写的类，可以通过不同的语言开发组件，还可以通过交叉语言继承。通过设计和开发宾馆管理信息系统，使我学到了许多有关数据库方面和软件开发的知识，对软件工程和软件开发有了进一步的了解，通过这次毕业设计，巩固了我所学到的课本知识，提高了我思考和解决问题的能力，做到了学以致用。此系统所能实现的功能较全面，可以实现对宾馆管理的计算机管理，可以避免人为管理出现的不便和漏洞，而在建立数据库时也考虑到了人事信息的各个方面，在系统设置上也尽量做到合理、实用和方便。此系统易学易懂，对没有计算机基础的人来说也可以很快上手使用，操作简单。但是VB功能强大，加之对它的掌握还不够全面，加上时间紧迫和我的经验不足，系统难免有不足之处，还请老师给予指正和帮助。谢 辞在系统功能实现的过程中，我的指导老师给了我很大的帮助，无论是系统的功能模块还是论文的书写格式都给我提出了宝贵的意见。其他很多老师和同学也给了我许多鼓励与帮助，在此我一并向他们表示感谢!因为有他们的帮助，才使我的系统更加合理，系统才能顺利完成。 参考文献1、Visual Basic 使用教程 作者：曹戈出版社：电子工业出版社出版日期：2003年12月2、轻松学用VB 6.0 作者: 美 Wallace Wang 出版社:电子工业出版社出版日期:2002年5月 3、VB 6.0编程百例作者：明月工作室出版社：人民邮电出版社出版日期：2001年5月4、VB6.0数据库开发典型实例作者：王兴晶出版社：电子工业出版社出版日期：2002年9月5、管理信息系统实用教程作者：安忠 佟志臣出版社：中国铁道出版社出版日期：2002年9月6、VB 6.0和VB.NET面向程序设计作者：美 Robina.Reyholds.hear 出版社：清华大学出版社 出版日期：2002年7月7、数据库系统开发实力导航作者：刘韬、骆娟、何旭洪出版社：人民邮电出版社出版日期：2003年8月 附 录图3-2代码：Private Sub Form_Click()登录界面.ShowUnload MeEnd SubPrivate Sub Form_Load()Label1.Left = 4850End SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left - 50If Label1.Left = -3500 Then Label1.Left = 4850End Sub图3-3代码：Private Sub Command1_Click()Adodc1.RecordSource = select * from 用户修改Adodc1.RefreshIf Text1.Text = ThenMsgBox 请输入用户名！Text1.SetFocusElseIf Text2.Text = ThenMsgBox 请输入密码！Text2.SetFocusElseIf Text1.Text Adodc1.Recordset.Fields(用户名) ThenMsgBox 用户名错误！重新输入。Text1.SetFocusText1.Text = ElseIf Text2.Text Adodc1.Recordset.Fields(密码) ThenMsgBox 密码错误！请重新输入。Text2.SetFocusText2.Text = Elsemain.ShowUnload MeEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Activate() Text1.SetFocusEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Command1.SetFocusEnd Sub图3-4代码：Private Sub menu1_Click()设置客房信息.ShowEnd SubPrivate Sub menu4_Click()订房信息管理.ShowEnd SubPrivate Sub menu5_Click()顾客信息查询.ShowEnd SubPrivate Sub qq_Click()退房管理.ShowEnd SubPrivate Sub menu3_Click()客房查询.ShowEnd SubPrivate Sub SJDY_Click()Form2.ShowEnd SubPrivate Sub menu2_Click()设置客房标准.ShowEnd SubPrivate Sub menu6_Click()DataReport1.ShowEnd SubPrivate Sub menu7_Click()DataReport2.ShowEnd SubPrivate Sub menu8_Click()用户密码修改.ShowEnd SubPrivate Sub menu9_Click()Dim mm = MsgBox( 是否退出系统？, vbOKCancel + vbQuestion, 退出)If m = 1 Then End End IfEnd SubPrivate Sub zm_Click()帐目统计.ShowEnd Sub图3-5代码：Private Sub Command1_Click()Adodc1.Recordset.MoveLastAdodc1.Recordset.AddNewText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text1.SetFocusEnd SubPrivate Sub Command2_Click()If Text1 = Then MsgBox 请输入客房编号！ Text1.SetFocusElseIf Text2 = Then MsgBox 请输入客房类型！ Text2.SetFocusElseIf Text3 = Then MsgBox 请输入客房位置！ Text3.SetFocusElseIf Text4 = Then MsgBox 请输入客房单价！ Text4.SetFocusElseIf Text5 = Then MsgBox 请输入目前状态！ Text5.SetFocusElseIf Text6 = Then MsgBox 请输入顾客上限！ Text6.SetFocusElseIf Text7 = Then MsgBox 请输入已住人数！ Text7.SetFocusElseAdodc1.Recordset.MoveLastMsgBox 已保存！Adodc1.Recordset.UpdateAdodc1.RefreshEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command3_Click()Unload Memain.ShowEnd SubPrivate Sub Command4_Click()Dim magIf Text1 = ThenMsgBox 没有要删除的记录！Elsemag = MsgBox(确定要删除吗?, vbYesNo, 删除)If mag = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveLastEnd IfEnd IfEnd Sub图3-6代码：Private Sub Command1_Click()Adodc1.Recordset.MoveLastAdodc1.Recordset.AddNewText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text1.SetFocusEnd SubPrivate Sub Command3_Click()Unload Memain.ShowEnd SubPrivate Sub Command2_Click()If Text1 = Then MsgBox 请输入客房编号！ Text1.SetFocusElseIf Text2 = Then MsgBox 请输入客房类型！ Text2.SetFocusElseIf Text3 = Then MsgBox 请输入客房位置！ Text3.SetFocusElseIf Text4 = Then MsgBox 请输入客房单价！ Text4.SetFocusElseIf Text5 = Then MsgBox 请输入目前状态！ Text5.SetFocusElseIf Text6 = Then MsgBox 请输入顾客上限！ Text6.SetFocusElseAdodc1.Recordset.MoveLastMsgBox 已保存！Adodc1.Recordset.UpdateAdodc1.RefreshEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command4_Click()Dim magIf Text1.Text = ThenMsgBox 当前无可删除的记录！Elsemag = MsgBox(确定要删除吗?, vbYesNo, 删除)If mag = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveLastAdodc1.RefreshEnd IfEnd IfEnd Sub图3-7代码：Private Sub Check2_Click()DataCombo2.Enabled = TrueEnd SubPrivate Sub Command3_Click()Unload Memain.ShowEnd SubPrivate Sub Command1_Click()Adodc2.RecordSource = select * from 客房信息 where 目前状态=未满 and 客房类型 = & DataCombo1.BoundText & Adodc2.RefreshEnd SubPrivate Sub Command2_Click()Adodc2.RecordSource = select * from 客房信息 Adodc2.RefreshEnd Sub图3-8代码：Private Sub Command1_Click()Adodc2.Recordset.MoveLastAdodc2.Recordset.AddNewText5.Text = Text6.Text = Text7.Text = Text8.Text = DateText5.SetFocusEnd SubPrivate Sub Command2_Click()If Text5 = ThenMsgBox 请输入顾客姓名！Text5.SetFocusElseIf Text6 = ThenMsgBox 请输入顾客性别！Text6.SetFocusElseIf Text7 = ThenMsgBox 请输入顾客身份证号！Text7.SetFocusElseAdodc2.Recordset!所需金额 = 0Adodc2.Recordset!入住日期 = DateAdodc2.Recordset!客房编号 = DataCombo1.BoundTextAdodc2.Recordset!客房类型 = Text1Adodc2.Recordset.UpdateMsgBox 记录已保存！Adodc2.RefreshAdodc3.Recordset!已住人数 = Adodc3.Recordset!已住人数 + 1If Adodc3.Recordset!顾客上限 - Adodc3.Recordset!已住人数 = 0 ThenAdodc3.Recordset!目前状态 = 已满End IfEnd IfEnd IfEnd IfAdodc3.Recordset.UpdateAdodc3.RefreshAdodc1.RefreshEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()Unload Memain.ShowEnd SubPrivate Sub DataCombo1_Click(Area As Integer)Adodc3.RecordSource = select * from 客房信息 where 客房编号= & DataCombo1.BoundText & and 目前状态=未满Adodc3.RefreshText4 = Adodc3.Recordset!顾客上限 - Adodc3.Recordset!已住人数End Sub图3-9代码：Private Sub Command2_Click()Adodc1.RecordSource = select * from 顾客信息 where 身份证号 = & Text2 & Adodc1.RefreshEnd SubPrivate Sub Command1_Click()Adodc1.RecordSource = select * from 顾客信息 where 顾客姓名= & Text1 & Adodc1.RefreshEnd SubPrivate Sub Command3_Click()Adodc1.RecordSource = select * from 顾客信息 Adodc1.RefreshEnd SubPrivate Sub Option2_Click()Text1.Enabled = FalseText2.Enabled = TrueCommand2.Visible = TrueCommand1.Visible = FalseText1 = End SubPrivate Sub Option1_Click()Text1.Enabled = TrueText2.Enabled = FalseCommand2.Visible = FalseCommand1.Visible = TrueText2 = End Sub图3-10代码：Private Sub Command1_Click()Adodc1.RecordSource = select * from 顾客信息 where 客房编号= & Text1 & and 所需金额 =0Adodc1.RefreshCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()If Adodc1.Recordset.EOF Or Adodc1.Recordset.EOF ThenMsgBox 当前无记录，请指定记录！ElseAdodc2.RecordSource = select * from 客房信息 where 客房编号= & Text1 & Adodc2.RefreshAdodc1.Recordset!所需金额 = Adodc2.Recordset!