展会管理系统毕业论文

1、 . . . I / 25所 在 系：专 业：姓 名：学 号：指导教师： 本科生毕业论文（设计）本科生毕业论文（设计）题目：展会管理系统题目：展会管理系统 数学与信息技术院 计算机科学与技术 薇薇 0921410012 潇论文完成日期： 2011 年 4 月 30 日 . . . I / 25目录一、绪论 1（一）选题的目的与意义 1（二）课题的开发环境 1（三）开发平台的特点 1二、开发平台的相关技术 3（一）VISUAL BASIC6.0 平台概述与相关技术 3（二）ADO 数据库访问技术与其在 VB 中的应用 4三、展会管理系统的设计 5（一）系统的总体设计 5（二）系统应用软件架构设计

2、 5（三）系统的功能设计 5（四）系统的后台数据库设计 8（五）设计规的约定 12四、展会管理系统的实现 13（一）登录窗体模块的实现 13（二）主窗口模块的实现 14（三）展位查询窗体模块的实现 15（四）收款管理窗体模块的实现 17（五）收费查询窗体模块的实现 19总结 21参考文献 21致 21 . . . I / 25展会管理系统展会管理系统薇薇薇薇 09214100120921410012摘要摘要随着目前国会议会展的日趋增多，传统的以手工方式为主的展会管理模式受到了很大的冲击，展会资源不能合理得到利用，管理者不能实时掌握展会的各项动态资料。因此有必要开发出一套针对展会组织者专用的计算

3、机辅助管理软件，展会管理系统便应运而生。展会管理信息系统能够帮助组委会在展会筹备阶段对展商，观众，活动和花费进行管理。系统高度抽象了展会筹备阶段的业务模型，在设计上采用弹性，活动的设计方法，具有一定的独到之处。允许用户根据实际需要定义展会中的活动的各项属性，使得组委会能够根据实际情况在系统中定制展会活动，并对活动和资源计划以与发生的费用进行全程的监控，做出正确的决策。 关键词关键词 展会管理；管理信息系统；VB；Access 中图分类号：中图分类号：tp315tp315 文献标识码文献标识码: : A AAbstractAbstract Can exhibition along with th

4、e present domestic conference increases day by day, the tradition primarily exhibition by the manual way can manage the pattern to be under the very big impact, exhibition meets the resources not to be able to obtain the use reasonably, the superintendent cannot real-time grasp exhibitions the meeti

5、ng each item of dynamic material. Therefore has the necessity to develop a set in view of to exhibition meets the organizer special-purpose computer assistance to manage the software, exhibitions can the management system management system then arise at the historic moment. This exhibition managemen

6、t system helps the committee to plan and design in several aspets, such as size of exhibitor and vistor, activities and budges of eshibition. It does not only integrate the abstract work flow in eshibition , but aso contains some special features to provided a flexible manner. With the help of custo

7、mized definitions of activities and different properties in the system, different users can design according to different real world circumstances, observing the procedure and resources of the exhibit on-time so as make correct dscisions. KeyKey WordsWordsexhibition management ; Management Informati

8、on System ; Visual Basic ; access. . . . 1 / 25一、 绪 论（一）选题的目的与意义信息技术的飞速发展大大推动了社会的进步，已经逐渐改变了人类的生活、工作、学习等方式，数据库技术和网络技术是信息技术中最重要的两大支柱。随着我国经济的蓬勃发展并逐渐与世界接轨，各行各业都在举办各种规模的国际展会，展会经济已经成为社会活动的热点。但是大多数展会主办机构对展会筹备的整个过程缺乏信息化，智能化管理，仍停留在分散的，手工管理的初级水平上，已经不能满足人们的需求，甚至会影响到展会产业的长期可持续发展。如何利用先进的管理手段，提高展会的管理水平，是当今大多数展会主办

9、机构面临的一个重要课题。要想提高展会的管理水平，必须全方位的提高展会管理意识。只有以为展商和观众提供高标准，高质量的服务为目标才能满足人们的需要。面对信息时代的挑战，利用高科技手段计算机管理系统来提高展会管理的组织和协调过程无疑是一条行之有效的途径。在某种意义上，信息与科技在展会管理与展会经济现代化建设中显现出越来越重要的地位。展会管理的信息化与科学化，已成为展会经济现代化水平步入高台阶的重要标志。因此有必要开发出一套针对展会组织者专用的计算机辅助管理软件，展会管理系统便应运而生。（二）课题的开发环境Visual Basic6.0 版是微软公司出品的一个可视化程序开发工具软件,它不仅继承了以往

10、版本的各种先进技术,而且适应目前计算机技术的发展潮流，提供了基于组件、Web 与多层结构的快速开发环境。它借助微软在操作系统和办公软件的垄断地位，Visual Basic6.0在短短的几年就风靡了全球。Visual Basic6.0 是极有特色和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，轻易维护的生成代码。功能：Visual Basic6.0 具有强大的数据访问、internet 编程、使用新的控件、利用增强的控件提高性能、熟悉语言特性的向导功能等重要特性。Visual Basic6.0 具有的这些特点可以大大简化利用 Visual Basic6

11、.0 开发的美观实用程序的难度。随着数据库技术的发展，面向对象的数据库、分布式数据库、多媒体数据库、数据库开发工具的研究方兴未艾，这些技术的发展使应用软件的开发速度更快、成本更低、质量更好、功能更强。Visual Basic6.0 是其中最杰出的代表之一，它集面向对象数据库技术、分布式应用技术、多媒体技术于一身,是目前最有代表性的数据库开发工具，几乎已发展成为客户/服务器前端工具的标准。因此，在开发展会管理系统时，我选用了 Visual Basic6.0作为开发工具。（三）开发平台的特点展会管理系统的开发将采用 VB 6.0 和 Microsoft Access 2000 数据库作为开发平台。

12、 Visual Basic 是运行于 windows 平台上的可视化集成开发环境。面对对象的编程；面向对象的设计方法 (OP, Objected Programming) 从应用领域的问题着手，以直观自然的方式描述客观世界的实体。Visual Basic 作为一种面向对象的编程方法，把程序和数据封 . . . 2 / 25装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法） 。开发人员可以最有效利用所创建的每一

13、个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。VB6.0 以人们所熟知的 BASIC 语言为基础，不仅易于学习、掌握，它的可视化特性还为应用程序的界面设计提供了迅速便捷的途径。在 VB 编程中不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象拖放到适当位置即可。VB 同时还是一个包括了编辑、测试和程序调试等各种程序开发工具的集成开发环境（IDE） ，从应用程序的界面设计、程

14、序编码、测试和调试、编译并建立可执行程序，直到应用程序的发行，种种功能VB 无不包容。不论是 Microsoft Windows 应用程序的专业开发人员，还是初学者，VB 都为他们提供了完整的开发工具。Microsoft Access 2000，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加与更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析与打印数据。Access 2000 是一种关系型数据库管理系统，其主要特点如下： 1.存储方式单一 Access 管理

15、的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件种，便于用户的操作和管理。 2.界面友好、易操作 Access 是一个可视化工具，是风格与 Windows 完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以与数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。 3.集成环境、处理多种数据信息 Access 基于 Windows 操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面

16、、设计数据查询、报表打印等可以方便有序地进行。 4.Access 支持 ODBC（开发数据库互连，Open Data Base Connectivity） ，利用Access 强大的 DDE（动态数据交换）和 OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel 表格、Word 文档，还可以建立动态的数据库报表和窗体等。Access 还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成 HTML 文件，轻松构建 Internet/Intranet 的应用。5.支持广泛，易于扩展，弹性较大能够将通过表的方式来打开 EXCEL 文件、格式化文本文件等

17、，这样就可以利用数据库的高效率对其中的数据进行查询、处理。还可以通过以 Access 作为前台客户端，以 SQL Server 作为后台数据库的方式（如 ADP）开发大型数据库应用系统。总之，Access 是一个既可以只用来存放数据的数据库，也可以作为一个客户端开发工具来进行数据库应用系统开发；即可以开发方便易用的小型软件，也可以用来开发大型的应用系统。 . . . 3 / 25二、 开发平台的相关技术（一）Visual Basic6.0 平台概述与相关技术为了理解应用程序开发过程，先要理解 Visual Basic 赖以创建的一些关键概念。因为 Visual Basic 是 Windows

18、开发语言，所以有必要与 Windows 环境保持一定的相似性。 如果不熟悉 Windows 编程，就需要明白在 Windows 环境下编程和在其它环境下编程的一些根本性的差别。全面地讨论 Windows 的部工作机制将需要整整一本书的容量。没有必要深入了解所有的技术细节。Windows 的工作机制，简单地说就是三个关键的概念：窗口、事件和消息。Microsoft Windows 操作系统通过给每一个窗口指定一个唯一的标识号来管理所有的窗口。操作系统连续地监视每一个窗口的活动或事件的信号。事件可以通过诸如单击鼠标或按下按键的操作而产生，也可以通过程序的控制而产生，甚至可以由另一个窗口的操作而产生

19、。每发生一次事件，将引发一条消息发送至操作系统。操作系统处理该消息并广播给其它窗口。然后，每一个窗口才能根据自身处理该条消息的指令而采取适当的操作（例如，当窗口解除了其它窗口的覆盖时，重显自身窗口） 。可以想象，处理各种窗口、事件和消息的所有可能的组合将有惊人的工作量。幸运的是 Visual Basic 使您摆脱了所有的低层消息处理。许多消息由 Visual Basic 自动处理了，其它的作为事件过程由编程者自行处理。这样可以快速创建强大的应用程序而毋需处理不必要的细节。事件驱动模型在传统的或“过程化”的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并

20、按应用程序中预定的路径执行，必要时调用过程。在事件驱动的应用程序中，代码不是按照预定的路径执行，而是在响应不同的事件时执行不同的代码片段。事件可以由用户操作触发，也可以由来自操作系统或其它应用程序的消息触发，甚至由应用程序本身的消息触发。这些事件的顺序决定了代码执行的顺序，因此应用程序每次运行时所经过的代码的路径都是不同的。因为事件的顺序是无法预测的，所以在代码中必须对执行时的“各种状态”作一定的假设。当作出某些假设时（例如，假设在运行来处理某一输入字段的过程之前，该输入字段必须包含确定的值） ，应该组织好应用程序的结构，以确保该假设始终有效（例如，在输入字段中有效值之前禁止使用启动该处理过程

21、的命令按钮） 。在执行中代码也可以触发事件。例如，在程序中改变文本框中的文本将引发文本框的 Change 事件。如果 Change 事件中包含有代码，则将导致该代码的执行。如果原来假设该事件仅能由用户的交互操作所触发，则可能会产生意料之外的结果。正因为这一原因，所以在设计应用程序时事件驱动模型并牢记在心是非常重要的。交互式开发传统的应用程序开发过程可以分为三个明显的步骤：编码、编译和测试代码。但是 Visual Basic 与传统的语言不同，它使用交互式方法开发应用程序，使三个步骤之间不再有明显的界限。在大多数语言里，如果编写代码时发生了错误，则在开始编译应用程序时该错误就会被编译器捕获。此时

22、必须查找并改正该错误，然后再次进行编译，对每一个发现的错误都要重复这样的过程。Visual Basic 在编程者输入代码时便进行解释，即时捕获并突出显示大多数语法或拼写错误。看起来就像一位专家在监视代码的输入。除即时捕获错误以外，Visual Basic 也在输入代码时部分地编译该代码。当准备运行和测试应用程序时，只需极短时间即可完成编译。如果编译器发现了错误，则将错误突出显示于代码中。这时可以更正错误并继续编译，而不需从头开始。 . . . 4 / 25由于 Visual Basic 的交互特性，因此可以发现在开发应用程序时，您自己正频繁地运行着您的应用程序。通过这种方式，代码运行的效果可以

23、在开发时进行测试，而不必等到编译完成以后。Basic 的工作环境常常是指集成开发环境或 IDE，这是因为它在一个公共环境里集成了许多不同的功能，例如，设计、编辑、编译和调试。在大多传统开发工具中，每个功能都是以一个独立的程序运行，并都有自己的界面。当运行 Visual Basic 安装程序时，允许将程序项置于已存在的程序组中，或在 Windows 中为 Visual Basic 创建一个新的程序组和程序项。这时可准备从 Windows 启动 Visual Basic。（二）ADO 数据库访问技术与其在 VB 中的应用ActiveX Data Objects (ADO) 是微软最新的数据访问技术

24、。它被设计用来同新的数据访问层OLEDB Provider 一起协同工作，以提供通用数据访问（Universal Data Access） 。OLEDB 是一个低层的数据访问接口，用它可以访问各种数据源，包括传统的关系型数据库，以与电子系统与自定义的商业对象。ADO 向我们提供了一个熟悉的，高层的对 OLEDB 的 Automation 封装接口。对那些熟悉 RDO 的程序员来说，你可以把 OLEDB 比作是 ODBC 驱动程序。如同 RDO 对象是 ODBC 驱动程序接口一样，ADO 对象是 OLE DB 的接口；如同不同的数据库系统需要它们自己的 ODBC 驱动程序一样，不同的数据源要求它

25、们自己的 OLE DB 提供者（OLE DB provider） 。目前，虽然 OLE DB 提供者比较少，但微软正积极推广该技术，并打算用 OLE DB 取代 ODBC。ADO 向 VB 程序员提供了很多好处。包括易于使用，熟悉的界面，高速度以与较低的存占用（已实现 ADO2.0 的 Msado15.dll 需要占用 342K 存，比 RDO 的 Msrdo20.dll 的 368K 略小，大约是 DAO3.5 的Dao350.dll 所占存的 60） 。同传统的数据对象层次（DAO 和 RDO）不同，ADO 可以独立创建。因此你可以只创建一个Connection对象，但是可以有多个，独立的

26、对象来使用它。ADO 针对客户服务器以与 WEB 应用程序作了优化。 ODBC 是 Open DataBase Connectivity 的缩写，称为开放式数据库，它相当于是一个数据库引擎，或者简单理解为是一种数据库驱动程序。由于不同数据库系统的运作方式和存取方法是各不一样的，为了能统一对不同数据库的存取操作，为此，就诞生了 ODBC。有了 ODBC 驱动程序，就可实现用同样的方法，来存取各种不同类型的关系型数据库，而不必关心所存取数据库类型。利用 ODBC ，可实现存取和访问任何符合 ODBC 标准的关系型数据库。ADO 对象模型的使用技巧ADO 提供了 7 个独立的对象，利用这些对象，可实

27、现对数据库的存取和访问。在这 7 个对象中，Connection、Command 和 RecordSet 对象是整个 ADO 的核心，通过 Connection 对象与一个数据库建立连接，然后利用 Command 对象执行查询，从而返回查询结果，并将结果（记录集）存入 RecordSet 对象中，利用服务器端脚本，通过访问 RecordSet 对象遍可获得所查询到的记录容。 除了 Command 对象可以执行查询外，另外，利用 Connection 对象的 Execute 方法和 RecordSet 对象的 Open 方法，也可以执行一个查询，从而返回一个记录集。使用 adodata（ADO

28、Data Control)控件访问数据库可以完全不用编写代码,只需要通过简单的设置和操作其属性就可以实现与数据库的连接,通过绑定数据感知控件,就能提供一个访问数据库的界面,用来实现对数据库的浏览,贴加,删除,修改等操作. . . . 5 / 25三、 展会管理系统的设计（一）系统的总体设计程序功能设计软件分为系统管理、展会数据初始化、查询与收费管理、展会管理、系统维护 5 大模块。1.系统管理：用户管理、更改密码、登录系统、退出系统。2.展会数据初始化：展会展位登记、展会登记、客户资料登记。3.查询与收费管理：展会展位查询、展会查询、客户资料查询、收费登记、收费查询。4.展会管理：展会管理人员

29、登记、展会展位合同管理、收款管理、展会管理人员查询、展会展位合同查询、收款情况查询。5.系统维护：数据库备份、数据库恢复。6.帮助：关于展会管理。 系统结构图:图 1 系统结构图（二）系统应用软件架构设计1.采用 C/S 结构设计。2.数据库运行在 Server 机上。3.展会管理信息系统程序分别运行在 Client 机上4.主办机构负责人、总监、具有不同的权限来使用系统的各个功能。（三）系统的功能设计1.展会管理系统功能结构图展会管理系统系统维护展会管理系统管理展会数据初始化查询与收费管理 . . . 6 / 25图 2 系统功能结构图系统功能模块说明（1）系统功能的说明系统管理部分：系统管

30、理具有用户管理和退出系统的功能。对系统支持性数据作维护。用户管理：可以添加，删除，修改用户，设置用户登陆密码，以与确认用户角色。退出系统：断开与数据库的连接，退出系统。系统维护查询与收费管理收费登记收费查询系统管理展会管理信息系统用户管理退出系统登录系统更改密码客户资料登记展会展位登记展会登记展会数据初始化客户资料查询展会展位查询数据库备份数据库恢复帮助展会展位合同管理展会管理人员登记收款管理展会管理收款情况查询展会管理人员查询展会展位合同查询 . . . 7 / 25展会数据初始化部分：展会信息包括（展会名称、场馆、开始时间、地点、展会组办机构等信息） 。客户资料包括(单位法人名，单位地址，

31、等信息)。删除展会信息时需检查。查询与收费管理部分：管理和查看展会展位与参展单位的负责人，实现对单位按其名称执行模糊查询，还能够按照其他属性进行全方位的查找。操作员添加参展单位后，记录该单位的展会活动和活动明细。每项活动的收费金额合计（应收账款）=（资源单价*资源数量） ，员选择参展单位后，系统自动调出该单位的活动和活动明细。并可对收费纪录进行票据打印。（2）展会管理部分：展会管理人员的信息包括：,等信息。展会展位合同管理：是对展会展位合同管理和查看，实现对合同按其名称执行模糊查询，还能够按照其他属性进行全方位的查找。收款管理：是对展会展位租金的收取，其中收款资料包括：交款日期，收款编号，交款

32、方式等信息。并可对其打印。展会管理人员查询：可以按照展会管理人员的编号和查询。展会展位合同查询：展会展位合同查询包括按照合同编号的查询和按照展会展位综合编号查询等。收款情况查询：收款情况查询包括按照合同编号查询，按照展会展位综合编号查询和按照交费日期时间围查询等。系统维护部分：包括对数据备份和数据恢复，实现将现有的后台数据库进行备份和恢复功能。帮助部分:对本系统的开发和使用进行简要的说明。主要程序结构的流程图图 3 用户登陆数据流图（1）用户登陆数据流图展位类别表系统信息登陆信息缺少项目用户界面登陆信息用户口令用户表登陆信息初始化主界面身份验证处理用户权限系统登陆提交数据检验 . . . 8

33、/ 25图 4 展位管理模块的数据流图图 5 收款管理模块的数据流图（四）系统的后台数据库设计1数据库平台的选择 在分析阶段已确定本系统的数据库平台选择微软公司的 Access 2000。2. 关系数据表的建立（2）展位管理模块的数据流图展位类别展位登记展位清单表展位类别表展位清单（3）收款管理模块的数据流图收款单活动活动收款单活动收款单表单位活动收款明细表收款处理收款登记收款单 . . . 9 / 25(1) 展会信息表字段的定义：表 1 展会信息表字段名数据类型主键说明ZongID文本Yes展会展位综合编号ExhID文本No展位代码ExhName文本No展会名称Exhprice货币No展位

34、单位价格(2) 参展单位信息表字段的定义：表 2 参展单位信息表字段名数据类型主键说明CompanyID文本Yes参展单位代码（法人号）CompanyName文本No单位名称Address文本No单位地址PostCode文本NoEmail文本No电子Btithday日期No出生日期（法人）Sex文本No性别（联系人）Name文本No联系人Carcode文本No车牌号Tel文本NoMobtel文本No手机ExhNo浮点No参展次数Remark文本No备注(3) 场馆表字段的定义表 3 场馆表字段名数据类型主键说明ExhID文本Yes展位代码MaxArea浮点No展位面积MaxStationNo浮

35、点No部面积HighLimit文本No展位形状WeightLimit文本No图片Remark文本No简介 . . . 10 / 25(4) 合同资料信息表字段的定义表 4 合同资料信息表 字段名数据类型主键数据说明PctID浮点Yes合同编号ExhID文本Yes展位代码CompanyID文本Yes单位代码SampleClassID文本Yes联系人SaleID文本Yes销售人员编号Price文本No租金单价Discountrate浮点No折扣率Discoutcash货币No折扣金额Number文本No车位号TotalValue货币No车位租金TransMark文本No仓库号TransExplai

36、n货币No仓库租金Basement文本No付款方式Bank文本No贷款银行Remark数字No是否交款BeginDate日期No签订日期EndDate日期No付款日期(5) 单位活动表字段的定义表 5 单位活动表字段名数据类型主键数据说明CompanyActiveID文本Yes单位活动代码ExhCompanyID文本No参展单位代码Remark文本No备注IsCharge逻辑No是否收费ShouldReceive货币No应收金额AlreadyReceive货币No实收金额ConfirmDate日期No审核日期OperateDate日期No操作日期Operator文本No操作员 . . . 11

37、 / 25(6) 活动资源明细表字段的定义表 6 活动资源明细表字段名数据类型主键说明ExhlID文本Yes展位代码ResourceID文本Yes资源代码Price货币No单价MaxNot浮点No最大数量ResourceNo文本No资源名称Unit货币No单位(7) 销售管理人员表字段的定义表 7 销售管理人员表字段名数据类型主键说明PeopleID文本Yes销售管理人员代码ID文本Yes号PeopleName文本NoZipcode文本NoBrithday日期No出生日期Sex逻辑No性别OfficeTel文本No办公Mobile文本No手机Email文本No电子Remark文本No备注(8)

38、 收费表字段的定义表 8 收费信息表字段名数据类型主键说明ReceiveID文本Yes收款代码ExhID文本Yes展位代码ReceiveValue货币No收费金额ReceiveDate日期No收费日期Operator文本No收费人Checker文本No交费人Zanwfee货币No展位管理费Telfee货币No机与网络通信费 . . . 12 / 25(9) 收款单明细字段的定义表 9 收款信息表字段名数据类型主键说明ReceiveID文本Yes收款代码CompanyActiveID文本Yes单位活动代码ReceiveDetailID文本Yes回款明细代码MinusShould货币No减应收金额

39、FactReceive货币No实收金额Remark文本No备注(10) 系统管理表字段的定义表 10 系统管理表字段名数据类型主键说明czyz文本Yes操作员号password文本No操作员密码qx文本No权限（五）设计规的约定1.结构化编码约定编码应清晰、可读性好，运用缩进、空行，结合大小写区别等方法保持程序结构良好。凡与数据库操作相关的模块一律加上容错代码，涉与多表操作的模块应运用“事务”处理，以保持数据完整性。2.数据源的约定数据源组件是数据显示组件和数据集组件之间的中介。数据集从数据库获得数据后，将其发送到数据源，然后数据源将数据送到界面上的数据显示组件进行显示。当使用数据模块时，数据

40、源组件是数据模块的一部分。3.数据集约定 数据集是数据库应用程序的核心，数据集组件保存了一系列从底层的数据库取出的记录。这些记录的数据可以取自一个表，一个表中的若干字段，多个数据表的若干字段。数据集组件实际上为应用程序提供了一个缓冲区，来保存数据库中实际存在表中的数据。如果系统要用到数据集组件，一律使用 ADO 页中的数据集组件。 . . . 13 / 25四、 展会管理系统的实现（一）登录窗体模块的实现程序运行时最先启动此窗口，连接数据库并验证登录用户身份，输入用户名与密码，验证通过后进入系统主窗口。1.登录窗体模块的界面设计窗体样式：图 1 登录窗体2.登录窗体模块实现的代码代码如下：Pr

41、ivate Sub cmdcancel_Click() conn.Close 关闭数据库连接 Set conn = NothingEnd SubPrivate Sub cmdok_Click() If Trim(cmbName.Text) = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation cmbName.SetFocus Else 判断用户名和密码是否正确 sql = select * from 系统管理表 where czyh= & cmbName.Text & rs_login.Open sql, con

42、n, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, cmbName.SetFocus Else 检验密码是否正确 If Trim(rs_login.Fields(1) = Trim(txtPwd.Text) Then userID = cmbName.Text username = rs_login.Fields(2) 记录登录用户的类型，以便权限设置 Unload Me frmMain.Show rs_login.Close . . .

43、14 / 25 Exit Sub Else MsgBox 密码不正确, vbOKOnly + vbExclamation, txtPwd.SetFocus End If End If End IfPrivate Sub Form_Load() connectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & House.mdb conn.Open connectionstring 打开数据库 sql = select * from 系统管理表 检索系统管理表 rs_log

44、in.Open sql, conn, adOpenKeyset, adLockPessimistic 打开记录集 If rs_login.EOF = False Then 有记录时逐一添加到 cmbName 组合框 Do While rs_login.EOF = False cmbName.AddItem (rs_login.Fields(0) rs_login.MoveNextLoop cmbName.ListIndex = 0 默认显示第一个子项 End If rs_login.Close t = 0 初始化输入次数End Sub（二）主窗口模块的实现主程序窗体，是其它窗口的容器，负责调用

45、其它子程序模块，并在其容器窗口进行显示与操作。 主窗体模块的界面设计窗体样式: . . . 15 / 25图 2 主窗体界面 登录窗体模块实现的代码代码如下：Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(确实要退出本系统吗？, vbYesNo + vbQuestion, 提示) = vbNo Then Cancel = True 如果用户不退出，则取消卸载 Else If conn.State 0 Then conn.Close 关闭数据库连接 Set conn = Nothin

46、g End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key 按关键字选择 Case bt_loupan frmBuildingFind.Show 1 Case bt_kehu frmKehuFind.Show 1 Case bt_shoufei frmShoufeiFind.Show 1 Case bt_shoulou frmHetongLogin.Show 1 Case bt_shoukuan frmShoukuanLogin.Show 1

47、 Case bt_tuichu Unload MeEnd SelectEnd Sub . . . 16 / 25（三）展位查询窗体模块的实现查询展位户型信息，可查看展位的详细介绍资料，提供按展位编号，展位面积和展位结构三种方式查找，支持模糊查找。1.展位查询窗体模块的界面设计窗体样式：图 3 用户查询窗体界面2.展位查询窗体模块实现的代码代码如下：Private Sub cmdfind_Click() On Error GoTo finderror Dim sql As StringCInt(Trim(txtmianji1.Text) & and & CInt(Trim(txt

48、mianji2.Text) rs_huxing.CursorLocation = adUseClient rs_huxing.Open sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid rs_huxing.Close Exit SubEnd If If Option3.Value = True Then 选择户型结构作为查询条件 sql = select * from 户型资料表 where Hst_type = & Trim(Combo1.Text) & rs_huxing.C

49、ursorLocation = adUseClient rs_huxing.Open sql, conn, adOpenKeyset, adLockPessimistic . . . 17 / 25 setgrid setgridhead displaygrid rs_huxing.Close Exit Sub End If Exit Subfinderror: MsgBox Err.DescriptionEnd Sub（四）收款管理窗体模块的实现本窗体主要用来对是对展会展位租金的收取进行统计，其中收款资料包括：交款日期，收款编号，付费方式等信息收费资料进行登记，可以进行添加，打印等操作。1.

50、收款管理窗体模块的界面设计窗体样式：图 4 收款管理窗体界面2.收款管理窗体模块实现的代码代码如下：Private Sub cmdsave_Click()Dim i As IntegerIf Trim(txtloupannum.Text) = Then MsgBox 展位编号不能为空！, vbOKOnly + vbExclamation txtloupannum.SetFocus Exit SubEnd IfLabel7.Caption = CStr(CCur(Trim(txtprice.Text)Label6.Caption = ChineseFormat(CCur(Trim(txtpric

51、e.Text) . . . 18 / 25rs_shoufei.AddNewrs_shoufei.Fields(0) = Val(Trim(Label5.Caption)rs_shoufei.Fields(1) = Val(Trim(Combo1.Text)rs_shoufei.Fields(2) = Trim(txtloupannum.Text)rs_shoufei.Fields(3) = Daters_shoufei.Fields(4) = CCur(Trim(txtprice.Text)rs_shoufei.Fields(5) = Trim(Combo2.Text)rs_shoufei.

52、Fields(6) = Trim(txtskr.Text)rs_shoufei.Fields(7) = Trim(txtjkr.Text)rs_shoufei.UpdateMsgBox 保存成功！, vbOKOnly + vbExclamationExit SubEnd SubPrivate Sub cmdprint_Click() Dim X% X% = BitBlt(Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, _ Picture1.hDC, 0, 0, SRCCOPY) Picture1.Picture = Picture1.I

53、mage Printer.PaintPicture Picture1.Picture, 0, 0End SubPrivate Sub cmdexit_Click()rs_shoufei.CloseUnload MeEnd SubPrivate Sub Form_Load()Dim sql As StringDim i As IntegerOn Error GoTo loaderrorsql = select * from 收款登记表If rs_shoufei.State 0 Then rs_shoufei.Closers_shoufei.CursorLocation = adUseClient

54、 rs_shoufei.Open sql, conn, adOpenKeyset, adLockPessimistic txtprice.Text = 0.00 i = rs_shoufei.RecordCount Label2.Caption = Year(Date) Date 取得当前系统日期 Label3.Caption = Month(Date) Month 函数取得日期的月数部分 Label4.Caption = Day(Date) Label5.Caption = Format(i + 1, 000000) 系统中现有记录条数加 1 Combo2.AddItem (现金) Comb

55、o2.AddItem (刷卡) Combo2.AddItem (银行票据) Combo2.ListIndex = 0 sql = select * from 合同资料表 . . . 19 / 25 If rs_hetong.State 0 Then rs_hetong.Close rs_hetong.CursorLocation = adUseClient rs_hetong.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_hetong.RecordCount 0 Then rs_hetong.MoveFirst Do While N

56、ot rs_hetong.EOF Combo1.AddItem (Trim(rs_hetong.Fields(0) rs_hetong.MoveNextLoop Combo1.ListIndex = 0 End If rs_hetong.Close Exit Subloaderror: MsgBox Err.DescriptionEnd Sub（五）收费查询窗体模块的实现本窗体主要用来对收费资料进行查询，包括以收费单号，展会编号，交款人以与交款日期进行查询。1.收费查询窗体模块的界面设计：窗体样式：图 5 收费查询窗体界面2.收费查询窗体模块实现的代码代码如下：Private Sub cmdf

57、ind_Click()Dim sql As StringOn Error GoTo loaderrorgrdShoufeiFind.ClearIf optionid.Value = True Then . . . 20 / 25 sql = select * from 收费信息表 where fee_ID = & CInt(txtshoufeinum.Text) rs_shoufei.CursorLocation = adUseClient rs_shoufei.Open sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid rs_shoufei.Close Exit SubEnd IfEnd IfIf Optionjkr.Value = True Then sql = select * from 收费信息表 where fee_jkr = & tx