《展会管理系统毕业论文(22页).doc》由会员分享，可在线阅读，更多相关《展会管理系统毕业论文(22页).doc（22页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、-展会管理系统毕业论文-第 18 页 本科生毕业论文（设计）题目：展会管理系统 数学与信息技术院 计算机科学与技术 李薇薇 0921410012 刘潇论文完成日期： 2011年 4月30日 目录一、 绪 论1（一）选题的目的与意义1（二）课题的开发环境1（三）开发平台的特点1二、 开发平台的相关技术3（一）Visual Basic6.0平台概述及相关技术3（二）ADO数据库访问技术及其在VB中的应用4三、 展会管理系统的设计5（一）系统的总体设计5（二）系统应用软件架构设计5（三）系统的功能设计5（四）系统的后台数据库设计8（五）设计规范的约定12四、 展会管理系统的实现13（一）登录窗体模块
2、的实现13（二）主窗口模块的实现14（三）展位查询窗体模块的实现15（四）收款管理窗体模块的实现17（五）收费查询窗体模块的实现19总结21参考文献21致谢21展会管理系统李薇薇 0921410012【摘要】随着目前国内会议会展的日趋增多，传统的以手工方式为主的展会管理模式受到了很大的冲击，展会资源不能合理得到利用，管理者不能实时掌握展会的各项动态资料。因此有必要开发出一套针对展会组织者专用的计算机辅助管理软件，展会管理系统便应运而生。展会管理信息系统能够帮助组委会在展会筹备阶段对展商，观众，活动和花费进行管理。系统高度抽象了展会筹备阶段的业务模型，在设计上采用弹性，活动的设计方法，具有一定的
3、独到之处。允许用户根据实际需要定义展会中的活动的各项属性，使得组委会能够根据实际情况在系统中定制展会活动，并对活动和资源计划以及发生的费用进行全程的监控，做出正确的决策。【关键词】 展会管理；管理信息系统；VB；Access 中图分类号：tp315 文献标识码: A【Abstract】 Can exhibition along with the present domestic conference increases day by day, the tradition primarily exhibition by the manual way can manage the pattern
4、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 meeting each item of dynamic material. Therefore has the necessity to develop a set in view of to exhibition meets the organizer spec
5、ial-purpose computer assistance to manage the software, exhibitions can the management system management system then arise at the historic moment. This exhibition management system helps the committee to plan and design in several aspets, such as size of exhibitor and vistor, activities and budges o
6、f 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 customized definitions of activities and different properties in the system, different users can design according to different real wo
7、rld circumstances, observing the procedure and resources of the exhibit on-time so as make correct dscisions. 【Key Words】exhibition management ; Management Information System ; Visual Basic ; access.一、 绪 论（一）选题的目的与意义信息技术的飞速发展大大推动了社会的进步，已经逐渐改变了人类的生活、工作、学习等方式，数据库技术和网络技术是信息技术中最重要的两大支柱。随着我国经济的蓬勃发展并逐渐与世界
8、接轨，各行各业都在举办各种规模的国际展会，展会经济已经成为社会活动的热点。但是大多数展会主办机构对展会筹备的整个过程缺乏信息化，智能化管理，仍停留在分散的，手工管理的初级水平上，已经不能满足人们的需求，甚至会影响到展会产业的长期可持续发展。如何利用先进的管理手段，提高展会的管理水平，是当今大多数展会主办机构面临的一个重要课题。要想提高展会的管理水平，必须全方位的提高展会管理意识。只有以为展商和观众提供高标准，高质量的服务为目标才能满足人们的需要。面对信息时代的挑战，利用高科技手段计算机管理系统来提高展会管理的组织和协调过程无疑是一条行之有效的途径。在某种意义上，信息与科技在展会管理与展会经济现
9、代化建设中显现出越来越重要的地位。展会管理的信息化与科学化，已成为展会经济现代化水平步入高台阶的重要标志。因此有必要开发出一套针对展会组织者专用的计算机辅助管理软件，展会管理系统便应运而生。（二）课题的开发环境Visual Basic6.0版是微软公司出品的一个可视化程序开发工具软件,它不仅继承了以往版本的各种先进技术,而且适应目前计算机技术的发展潮流，提供了基于组件、Web及多层结构的快速开发环境。它借助微软在操作系统和办公软件的垄断地位，Visual Basic6.0在短短的几年内就风靡了全球。Visual Basic6.0是极有特色和功能强大的软件，主要表现在：所见即所得的界面设计，基于
10、对象的设计方法，极短的软件开发周期，轻易维护的生成代码。功能：Visual Basic6.0 具有强大的数据访问、internet编程、使用新的控件、利用增强的控件提高性能、熟悉语言特性的向导功能等重要特性。Visual Basic6.0 具有的这些特点可以大大简化利用Visual Basic6.0 开发的美观实用程序的难度。随着数据库技术的发展，面向对象的数据库、分布式数据库、多媒体数据库、数据库开发工具的研究方兴未艾，这些技术的发展使应用软件的开发速度更快、成本更低、质量更好、功能更强。Visual Basic6.0是其中最杰出的代表之一，它集面向对象数据库技术、分布式应用技术、多媒体技术
11、于一身,是目前最有代表性的数据库开发工具，几乎已发展成为客户/服务器前端工具的标准。因此，在开发展会管理系统时，我选用了Visual Basic6.0作为开发工具。（三）开发平台的特点展会管理系统的开发将采用VB 6.0和Microsoft Access 2000数据库作为开发平台。 Visual Basic 是运行于windows平台上的可视化集成开发环境。面对对象的编程；面向对象的设计方法 (OP, Objected Programming) 从应用领域内的问题着手，以直观自然的方式描述客观世界的实体。Visual Basic 作为一种面向对象的编程方法，把程序和数据封装起来作为一个对象，
12、并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。VB6.0以人们所熟知的BASIC语言为基础，不仅易于学习、掌握，它的可视化特性还为应用程序
13、的界面设计提供了迅速便捷的途径。在VB编程中不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象拖放到适当位置即可。VB同时还是一个包括了编辑、测试和程序调试等各种程序开发工具的集成开发环境（IDE），从应用程序的界面设计、程序编码、测试和调试、编译并建立可执行程序，直到应用程序的发行，种种功能VB无不包容。不论是Microsoft Windows应用程序的专业开发人员，还是初学者，VB都为他们提供了完整的开发工具。Microsoft Access 2000，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；
14、可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。Access 2000是一种关系型数据库管理系统，其主要特点如下： 1.存储方式单一 Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件种，便于用户的操作和管理。 2.界面友好、易操作 Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使
15、得操作简便，容易使用和掌握。 3.集成环境、处理多种数据信息 Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。 4.Access支持ODBC（开发数据库互连，Open Data Base Connectivity），利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动
16、态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet/Intranet的应用。5.支持广泛，易于扩展，弹性较大能够将通过链接表的方式来打开EXCEL文件、格式化文本文件等，这样就可以利用数据库的高效率对其中的数据进行查询、处理。还可以通过以Access作为前台客户端，以SQL Server作为后台数据库的方式（如ADP）开发大型数据库应用系统。总之，Access是一个既可以只用来存放数据的数据库，也可以作为一个客户端开发工具来进行数据库应用系统开发；即可以开发方便易用的小型软件，也可以用来开发大型的应用系统。二、 开发平台的相关技术（一）Visual Basic6.0平
17、台概述及相关技术为了理解应用程序开发过程，先要理解 Visual Basic 赖以创建的一些关键概念。因为 Visual Basic 是 Windows 开发语言，所以有必要与 Windows 环境保持一定的相似性。 如果不熟悉 Windows 编程，就需要明白在 Windows环境下编程和在其它环境下编程的一些根本性的差别。 全面地讨论 Windows 的内部工作机制将需要整整一本书的容量。没有必要深入了解所有的技术细节。Windows 的工作机制，简单地说就是三个关键的概念：窗口、事件和消息。Microsoft Windows 操作系统通过给每一个窗口指定一个唯一的标识号来管理所有的窗口。
18、操作系统连续地监视每一个窗口的活动或事件的信号。事件可以通过诸如单击鼠标或按下按键的操作而产生，也可以通过程序的控制而产生，甚至可以由另一个窗口的操作而产生。每发生一次事件，将引发一条消息发送至操作系统。操作系统处理该消息并广播给其它窗口。然后，每一个窗口才能根据自身处理该条消息的指令而采取适当的操作（例如，当窗口解除了其它窗口的覆盖时，重显自身窗口）。可以想象，处理各种窗口、事件和消息的所有可能的组合将有惊人的工作量。幸运的是Visual Basic 使您摆脱了所有的低层消息处理。许多消息由Visual Basic 自动处理了，其它的作为事件过程由编程者自行处理。这样可以快速创建强大的应用程
19、序而毋需处理不必要的细节。事件驱动模型在传统的或“过程化”的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定的路径执行，必要时调用过程。在事件驱动的应用程序中，代码不是按照预定的路径执行，而是在响应不同的事件时执行不同的代码片段。事件可以由用户操作触发，也可以由来自操作系统或其它应用程序的消息触发，甚至由应用程序本身的消息触发。这些事件的顺序决定了代码执行的顺序，因此应用程序每次运行时所经过的代码的路径都是不同的。因为事件的顺序是无法预测的，所以在代码中必须对执行时的“各种状态”作一定的假设。当作出某些假设时（例如，假设在运行来处理某一
20、输入字段的过程之前，该输入字段必须包含确定的值），应该组织好应用程序的结构，以确保该假设始终有效（例如，在输入字段中有效值之前禁止使用启动该处理过程的命令按钮）。在执行中代码也可以触发事件。例如，在程序中改变文本框中的文本将引发文本框的 Change 事件。如果 Change 事件中包含有代码，则将导致该代码的执行。如果原来假设该事件仅能由用户的交互操作所触发，则可能会产生意料之外的结果。正因为这一原因，所以在设计应用程序时事件驱动模型并牢记在心是非常重要的。交互式开发传统的应用程序开发过程可以分为三个明显的步骤：编码、编译和测试代码。但是 Visual Basic 与传统的语言不同，它使用交
21、互式方法开发应用程序，使三个步骤之间不再有明显的界限。在大多数语言里，如果编写代码时发生了错误，则在开始编译应用程序时该错误就会被编译器捕获。此时必须查找并改正该错误，然后再次进行编译，对每一个发现的错误都要重复这样的过程。Visual Basic 在编程者输入代码时便进行解释，即时捕获并突出显示大多数语法或拼写错误。看起来就像一位专家在监视代码的输入。除即时捕获错误以外，Visual Basic 也在输入代码时部分地编译该代码。当准备运行和测试应用程序时，只需极短时间即可完成编译。如果编译器发现了错误，则将错误突出显示于代码中。这时可以更正错误并继续编译，而不需从头开始。由于 Visual
22、Basic 的交互特性，因此可以发现在开发应用程序时，您自己正频繁地运行着您的应用程序。通过这种方式，代码运行的效果可以在开发时进行测试，而不必等到编译完成以后。Basic 的工作环境常常是指集成开发环境或 IDE，这是因为它在一个公共环境里集成了许多不同的功能，例如，设计、编辑、编译和调试。在大多传统开发工具中，每个功能都是以一个独立的程序运行，并都有自己的界面。当运行 Visual Basic 安装程序时，允许将程序项置于已存在的程序组中，或在 Windows 中为 Visual Basic 创建一个新的程序组和程序项。这时可准备从 Windows 启动 Visual Basic。（二）A
23、DO数据库访问技术及其在VB中的应用ActiveXDataObjects(ADO)是微软最新的数据访问技术。它被设计用来同新的数据访问层OLE DBProvider一起协同工作，以提供通用数据访问（UniversalDataAccess）。OLE DB是一个低层的数据访问接口，用它可以访问各种数据源，包括传统的关系型数据库，以及电子邮件系统及自定义的商业对象。ADO向我们提供了一个熟悉的，高层的对OLE DB的Automation封装接口。对那些熟悉RDO的程序员来说，你可以把OLEDB比作是ODBC驱动程序。如同RDO对象是ODBC驱动程序接口一样，ADO对象是OLEDB的接口；如同不同的数
24、据库系统需要它们自己的ODBC驱动程序一样，不同的数据源要求它们自己的OLEDB提供者（OLEDBprovider）。目前，虽然OLEDB提供者比较少，但微软正积极推广该技术，并打算用OLEDB取代ODBC。ADO向VB程序员提供了很多好处。包括易于使用，熟悉的界面，高速度以及较低的内存占用（已实现ADO2.0的Msado15.dll需要占用342K内存，比RDO的Msrdo20.dll的368K略小，大约是DAO3.5的Dao350.dll所占内存的60）。同传统的数据对象层次（DAO和RDO）不同，ADO可以独立创建。因此你可以只创建一个Connection对象，但是可以有多个，独立的对象
25、来使用它。ADO针对客户服务器以及WEB应用程序作了优化。ODBC 是 Open DataBase Connectivity 的缩写，称为开放式数据库链接，它相当于是一个数据库引擎，或者简单理解为是一种数据库驱动程序。由于不同数据库系统的运作方式和存取方法是各不相同的，为了能统一对不同数据库的存取操作，为此，就诞生了ODBC。有了 ODBC 驱动程序，就可实现用同样的方法，来存取各种不同类型的关系型数据库，而不必关心所存取数据库类型。利用 ODBC ，可实现存取和访问任何符合 ODBC 标准的关系型数据库。ADO对象模型的使用技巧ADO 提供了7个独立的对象，利用这些对象，可实现对数据库的存取
26、和访问。在这7个对象中，Connection、Command 和 RecordSet 对象是整个 ADO 的核心，通过 Connection 对象与一个数据库建立连接，然后利用 Command 对象执行查询，从而返回查询结果，并将结果（记录集）存入 RecordSet 对象中，利用服务器端脚本，通过访问 RecordSet 对象遍可获得所查询到的记录内容。 除了 Command 对象可以执行查询外，另外，利用 Connection 对象的 Execute 方法和 RecordSet 对象的 Open 方法，也可以执行一个查询，从而返回一个记录集。使用adodata（ADO Data Contr
27、ol)控件访问数据库可以完全不用编写代码,只需要通过简单的设置和操作其属性就可以实现与数据库的连接,通过绑定数据感知控件,就能提供一个访问数据库的界面,用来实现对数据库的浏览,贴加,删除,修改等操作.三、 展会管理系统的设计（一）系统的总体设计程序功能设计软件分为系统管理、展会数据初始化、查询与收费管理、展会管理、系统维护5大模块。1.系统管理：用户管理、更改密码、登录系统、退出系统。2.展会数据初始化：展会展位登记、展会登记、客户资料登记。3.查询与收费管理：展会展位查询、展会查询、客户资料查询、收费登记、收费查询。4.展会管理：展会管理人员登记、展会展位合同管理、收款管理、展会管理人员查询
28、、展会展位合同查询、收款情况查询。5.系统维护：数据库备份、数据库恢复。6.帮助：关于展会管理。 系统结构图:展会管理系统系统维护展会管理系统管理展会数据初始化查询与收费管理图1系统结构图（二）系统应用软件架构设计1.采用C/S结构设计。2.数据库运行在Server机上。3.展会管理信息系统程序分别运行在Client机上4.主办机构负责人、总监、具有不同的权限来使用系统的各个功能。（三）系统的功能设计1.展会管理系统功能结构图查询与收费管理收费登记收费查询系统管理展会管理信息系统用户管理退出系统登录系统更改密码客户资料登记展会展位登记展会登记展会数据初始化客户资料查询展会展位查询 展会展位合同
29、管理展会管理人员登记收款管理展会管理收款情况查询展会管理人员查询展会展位合同查询数据库恢复系统维护数据库备份帮助图2 系统功能结构图系统功能模块说明（1）系统功能的说明系统管理部分：系统管理具有用户管理和退出系统的功能。对系统支持性数据作维护。用户管理：可以添加，删除，修改用户，设置用户登陆密码，以及确认用户角色。退出系统：断开与数据库的连接，退出系统。展会数据初始化部分：展会信息包括（展会名称、场馆、开始时间、地点、展会组办机构等信息）。客户资料包括(单位法人名，单位地址，电话等信息)。删除展会信息时需检查。查询与收费管理部分：管理和查看展会展位及参展单位的负责人，实现对单位按其名称执行模糊
30、查询，还能够按照其他属性进行全方位的查找。操作员添加参展单位后，记录该单位的展会活动和活动明细。每项活动的收费金额合计（应收账款）=（资源单价*资源数量），员选择参展单位后，系统自动调出该单位的活动和活动明细。并可对收费纪录进行票据打印。（2）展会管理部分：展会管理人员的信息包括：姓名,身份证号码等信息。展会展位合同管理：是对展会展位合同管理和查看，实现对合同按其名称执行模糊查询，还能够按照其他属性进行全方位的查找。收款管理：是对展会展位租金的收取，其中收款资料包括：交款日期，收款编号，交款方式等信息。并可对其打印。展会管理人员查询：可以按照展会管理人员的编号和姓名查询。展会展位合同查询：展会
31、展位合同查询包括按照合同编号的查询和按照展会展位综合编号查询等。收款情况查询：收款情况查询包括按照合同编号查询，按照展会展位综合编号查询和按照交费日期时间范围查询等。系统维护部分：包括对数据备份和数据恢复，实现将现有的后台数据库进行备份和恢复功能。帮助部分:对本系统的开发和使用进行简要的说明。主要程序结构的流程图（1）用户登陆数据流图系统登陆用户权限身份验证处理初始化主界面登陆信息用户表用户口令登陆信息用户界面缺少项目登陆信息系统信息提交数据检验展位类别表 图3 用户登陆数据流图（2）展位管理模块的数据流图展位类别展位登记展位清单表展位类别表展位清单图4 展位管理模块的数据流图（3）收款管理模
32、块的数据流图活动收款单活动活动收款单收款单表单位活动收款明细表收款处理收款登记收款单 图5 收款管理模块的数据流图（四）系统的后台数据库设计1数据库平台的选择 在分析阶段已确定本系统的数据库平台选择微软公司的Access 2000。2. 关系数据表的建立(1) 展会信息表字段的定义：表1 展会信息表字段名数据类型主键说明ZongID文本Yes展会展位综合编号ExhID文本No展位代码ExhName文本No展会名称Exhprice货币No展位单位价格(2) 参展单位信息表字段的定义：表2 参展单位信息表字段名数据类型主键说明CompanyID文本Yes参展单位代码（法人身份证号）CompanyN
33、ame文本No单位名称Address文本No单位地址PostCode文本No邮编Email文本No电子邮件Btithday日期No出生日期（法人）Sex文本No性别（联系人）Name文本No联系人姓名Carcode文本No车牌号Tel文本No电话Mobtel文本No手机ExhNo浮点No参展次数Remark文本No备注(3) 场馆表字段的定义表3 场馆表字段名数据类型主键说明ExhID文本Yes展位代码MaxArea浮点No展位面积MaxStationNo浮点No内部面积HighLimit文本No展位形状WeightLimit文本No图片Remark文本No简介(4) 合同资料信息表字段的定义
34、表4 合同资料信息表 字段名数据类型主键数据说明PctID浮点Yes合同编号ExhID文本Yes展位代码CompanyID文本Yes单位代码SampleClassID文本Yes联系人身份证号码SaleID文本Yes销售人员编号Price文本No租金单价Discountrate浮点No折扣率Discoutcash货币No折扣金额Number文本No车位号TotalValue货币No车位租金TransMark文本No仓库号TransExplain货币No仓库租金Basement文本No付款方式Bank文本No贷款银行Remark数字No是否交款BeginDate日期No签订日期EndDate日期N
35、o付款日期(5) 单位活动表字段的定义表5 单位活动表字段名数据类型主键数据说明CompanyActiveID文本Yes单位活动代码ExhCompanyID文本No参展单位代码Remark文本No备注IsCharge逻辑No是否收费ShouldReceive货币No应收金额AlreadyReceive货币No实收金额ConfirmDate日期No审核日期OperateDate日期No操作日期Operator文本No操作员(6) 活动资源明细表字段的定义表6 活动资源明细表字段名数据类型主键说明ExhlID文本Yes展位代码ResourceID文本Yes资源代码Price货币No单价MaxNot
36、浮点No最大数量ResourceNo文本No资源名称Unit货币No单位(7) 销售管理人员表字段的定义表7 销售管理人员表字段名数据类型主键说明PeopleID文本Yes销售管理人员代码ID文本Yes身份证号PeopleName文本No姓名Zipcode文本No邮编Brithday日期No出生日期Sex逻辑No性别OfficeTel文本No办公电话Mobile文本No手机Email文本No电子邮件Remark文本No备注(8) 收费表字段的定义表8 收费信息表字段名数据类型主键说明ReceiveID文本Yes收款代码ExhID文本Yes展位代码ReceiveValue货币No收费金额Rece
37、iveDate日期No收费日期Operator文本No收费人Checker文本No交费人Zanwfee货币No展位管理费Telfee货币No电话机及网络通信费(9) 收款单明细字段的定义表9 收款信息表字段名数据类型主键说明ReceiveID文本Yes收款代码CompanyActiveID文本Yes单位活动代码ReceiveDetailID文本Yes回款明细代码MinusShould货币No减应收金额FactReceive货币No实收金额Remark文本No备注(10) 系统管理表字段的定义表10 系统管理表字段名数据类型主键说明czyz文本Yes操作员号password文本No操作员密码qx
38、文本No权限（五）设计规范的约定1.结构化编码约定编码应清晰、可读性好，运用缩进、空行，结合大小写区别等方法保持程序结构良好。凡与数据库操作相关的模块一律加上容错代码，涉及多表操作的模块应运用“事务”处理，以保持数据完整性。2.数据源的约定数据源组件是数据显示组件和数据集组件之间的中介。数据集从数据库获得数据后，将其发送到数据源，然后数据源将数据送到界面上的数据显示组件进行显示。当使用数据模块时，数据源组件是数据模块的一部分。3.数据集约定 数据集是数据库应用程序的核心，数据集组件保存了一系列从底层的数据库取出的记录。这些记录的数据可以取自一个表，一个表中的若干字段，多个数据表的若干字段。数据
39、集组件实际上为应用程序提供了一个缓冲区，来保存数据库中实际存在表中的数据。如果系统要用到数据集组件，一律使用ADO页中的数据集组件。四、 展会管理系统的实现（一）登录窗体模块的实现程序运行时最先启动此窗口，连接数据库并验证登录用户身份，输入用户名及密码，验证通过后进入系统主窗口。1.登录窗体模块的界面设计窗体样式：图1登录窗体2.登录窗体模块实现的代码代码如下：Private Sub cmdcancel_Click() conn.Close 关闭数据库连接 Set conn = NothingEnd SubPrivate Sub cmdok_Click() If Trim(cmbName.Te
40、xt) = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation cmbName.SetFocus Else 判断用户名和密码是否正确 sql = select * from 系统管理表 where czyh= & cmbName.Text & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, cmbName.SetFocus Els
41、e 检验密码是否正确 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 Exit Sub Else MsgBox 密码不正确, vbOKOnly + vbExclamation, txtPwd.SetFocus End If End If End IfPrivate Sub Form_Load() connectionstring
42、 = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & House.mdb conn.Open connectionstring 打开数据库 sql = select * from 系统管理表 检索系统管理表 rs_login.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.MoveNext Loop cmbName.ListIndex = 0 默认显示第一个子项 End If rs_login.Close cnt = 0 初始化输入次数End Sub（二）主窗口模块的实现主程序窗体，是其它窗口的容器，负