毕业设计（论文）VB6.0高校缴费系统实现与设计

《毕业设计（论文）VB6.0高校缴费系统实现与设计》由会员分享，可在线阅读，更多相关《毕业设计（论文）VB6.0高校缴费系统实现与设计（34页珍藏版）》请在装配图网上搜索。

1、摘 要本论文是对针对日益复杂化的高校收费工作而设计开发的高校缴费系统的说明，主要介绍了系统开发的主要过程和方法，并且给出了基本的关系模型，完成了模型的静态分析与动态分析。缴费管理系统是个典型的信息管理系统（MIS）。其设计开发主要包括了后台数据库设计建立和维护以及前台应用程序的设计开发两方面。整个开发的过程中，我们使用的工具是Microsoft公司的Visual Basic 6.0。利用的是其强大的开发单机和C/S模式数据库应用程序功能。尤其是数据窗口这个能方便而简洁操纵数据库的智能化对象。使用本系统，我们能清楚方便得进行学生的信息录入、缴费情况处理、查询、统计以及生成报表。其中的统计报表功能

2、在查询的基础上，完成了对缴费信息总体上的概括总结，方便用户浏览查阅。关键字：缴费；缴费系统；统计报表 - II -ABSTRACTThis paper is to address the growing complexity of the design and development work in colleges and universities and the colleges and universities pay system that introduces a system development process and the main methods, and given t

3、he fundamental relationship model, and completed the static analysis and dynamic model analysis.Fee Management System is a typical management information system (MIS). Its design and development include the creation and maintenance of a background database design and application design and developme

4、nt prospects for both. The entire development process, we are using the tools Microsoft Corporation Visual Basic 6.0. Use its strong development and C/S single aircraft model database applications function. In particular to facilitate the window and concise data manipulation database intelligent obj

5、ects. Use of the system, we can facilitate a clear message to school students, payment of premiums processing, information, statistics and generated statements. The statistical statements in enquiries functional basis for the completion of the overall payment information summarized to facilitate use

6、r access to everybody.Keywords： Pay; Fee Collection System; Statistics statements目 录第一章 概 述11.1 产生背景11.2 设计开发思想11.3 系统功能模块设计11.4 系统功能模块分析21.5 系统开发环境3第二章 Visual Basic 6.0编程环境42.1 Visual Basic的特点42.2 Visual Basic的启动和退出62.3 Visual Basic其他窗口72.3.1 窗体设计器和工程资源管理器72.3.2 属性窗口和工具箱窗口8第三章 缴费系统分析103.1 数据库需求分析10

7、3.2 数据库结构的设计103.3 缴费系统的数据流图143.4 数据库逻辑结构设计143.5 数据库的创建17第四章 数据统计以及报表产生功能模块194.1 概述194.2 系统登陆界面204.3 主界面介绍234.4 统计功能介绍244.4.1综合统计功能244.4.2 单条件统计功能264.5 报表功能介绍274.5.1 综合报表功能274.5.2 单条件报表功能28第五章 数据统计以及报表产生功能模块特点与不足315.1 统计和报表功能的特点315.1.1 错误避免设置315.1.2 通用性325.2 统计和报表功能的不足325.2.1 统计报表功能模块的不足325.2.2 系统的不足

8、335.3 总结33参考文献34致 谢35- III -第一章 概 述1.1 产生背景学校教育事业的主要经费来源是根据国家政策向学生收取书本费、学费、住宿费等费用。因此对于学校来讲，收取此类费用是很重要的，直接关系到学校的办学。但随着各个学校的体制改革和办学规模的扩大，收费在学校的财务工作变得日益繁琐，直接影响到了学校的日常办学工作，所以加强收费管理力度显得非常迫切。本缴费系统就此应运而生，针对性地解决学校收费难题。1.2 设计开发思想高校收费的主要问题在于收费人员众多、数量庞大、时间短暂等，这也是本系统所主要针对的。为了提高效率，减少错误，保证安全，该系统设计时只要体现了以下的特点：面向对象

9、的体系设计使用VB6.0作为开发工具功能全面、强大，覆盖了缴费全过程界面友好，设置错误避免设计高度智能，简单易用，操作方便系统安全，具备数据备份功能各种自动填充功能，有效提高效率代码标准，易于软件维护和功能扩充提供多种小工具，方便拥护使用1.3 系统功能模块设计功能模块如下页图1.1所示：图1.1 功能模块图1.4 系统功能模块分析A 系统管理模块：用户管理和系统维护主要就是用户身份的管理以及系统数据的维护。前者有普通用户和超级用户之分，起区别在于功能使用上的权限不同，系统只有部分功能对普通用户开放，超级用户则拥有系统全部功能的权限。后者包括了数据的备份和数据的恢复，是为了保障系统的使用安全。

10、B 缴费录入模块：学生缴费数据录入实现全屏幕处理或者单条记录的处理，管理员可以在表格中任意修改、增加、删除记录。由于缴费涉及到找零，需有自动计算功能；实现缴费日期的选择输入。C 统计报表产生功能模块：数据统计以及报表产生统计主要是根据用户不同的需求对数据进行统计，分别有以全校、系别、班级为单位进行统计，统计的结果以图的方式显示出来。报表的产生主要就是将统计的数据生成报表，打印出来，方便用户浏览传阅。D 综合查询功能模块：系统数据查询查询功能是本系统最为强大的功能，是为方便用户清楚详细了解学生缴费情况的模块。主要体现在查询功能分条件进行，用户可以以自己的任何想法来对数据进行查询，只要满足系统自身

11、的包含条件。E 其他功能的模块：系统自带工具和帮助主要有日历、计算器、帮助等，提供用户使用，属于附属功能模块，有效提高用户使用效率。1.5 系统开发环境 硬件：AMD Athlon（tm）XP 2500+1.84 GHz512 MB内存 软件： Windows XP操作系统 Visual Basic 6.0 Access 2000 数据库第二章 Visual Basic 6.0编程环境Visual Basic是Microsoft公司1991年推出的可视化BASIC语言。在语言功能方面，它与以前的BASIC语言（GW BASIC、BASICA、Quick BASIC等）基本兼容，但功能更强，使用

12、更方便。在这一章中，主要介绍有关Visual Basic(以下简称VB)程序语言的基本特点、基本概念。在Visual Basic基本特点中，介绍了可视化设计、事件驱动编程、面向对象的程序设计等。在Visual Basic基本概念中，介绍了窗体、控件、属性、事件及方法等。 2.1 Visual Basic的特点Visual Basic是一种可视化面向对象和采用时间驱动的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C编程基础。在Visual Basic环境下，利用时

13、间驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口（API）函数，以及动态连接库（DLL）、动态数据交换（DDE）、对象的连接与嵌入（OLE）、开放式数据访问（ODBC）等技术，可以高效、快速的开发Windows环境下功能强大、图形界面丰富的应用软件系统。总体来讲，Visual Basic具有以下的几点特点：1 可视化编程用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程编译修改的操作可能要反复多次，大大影响了软

14、件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码，只需按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性，大大提高了程序员的编程效率。2 面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言（如C）不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法（OOP），把程序和数据封装起来作为一个对象，并为每

15、个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。3 结构化程序设计语言Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计编写Visual Basic程序的过程中，随时可以运行程序，而在整个应用程序设计好之后，可以编译生成可执行文件（.EXE），脱离Visual Basic环境，直接在Windows环境下运行。4 事件驱动编程机制Vis

16、ual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。在Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，有用户操作引发某个事件来驱动完成某个特定的功能，或者有事件驱动程序调用通过过程来执行指定的操作，这样可以方便编程人员，提高效率。5 访问数据库Visual Basic系统具有很强的数据库管理功能。利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据库存储和检索功能。同时，Visual Ba

17、sic还能直接编辑和访问其他外部数据库，如Btrieve，dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接（open database connectivity），即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的苦操作指令和多用户数据访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，动态数据交换

18、（DDE）。6 对象的连接与嵌入（OLE）对象链接与嵌入将每个应用程序都看作时一个对象，将不同的对象链接起来，在嵌入某个应用程序中，从而可以得到具有声音、影像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化技术。7 动态链接库（DLL）Visual Basic是一种高级程序语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以象调用内部函数一样调用其他语言编

19、写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口（API）函数，实SDK所具有的功能。2.2 Visual Basic的启动和退出单击Microsoft Visual Basic 6.0图标。系统显示“New Project（新工程）”对话框。在该对话框中选择希望创建的工程类型（该对话框的精确内容依赖于正在使用的Visual Basic版本）。单击“Open（打开）”按钮接受缺省设置，即新工程是个32位的 Visual Basic程序。新工程在Visual Basic编程环境中打开，同时显示下页图2.1中的几个窗口和工具。退出Visual Basic 6.0只需点击“文件”

20、菜单下的“退出”菜单项或者单击右上角的关闭按钮即可退出程序。若文件未保存，则弹出对话框，询问是否要保存修改过的文件。图2.1 VB初始界面2.3 Visual Basic其他窗口2.3.1 窗体设计器和工程资源管理器1 设计器窗口窗体设计器窗口简称窗体（Form），是应用程序最终面向用户的窗口。它对应于应用程序的运行结果，各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。当打开一个新的工程文件时，Visual Basic建立一个空的窗体，并命名为Form X（这里的X为1，2，3），如图2.2 所示。 图2.2 窗体设计器窗口2 代码编辑窗口代码编辑是VB中主要的设计手段，设计出来的

21、软件实现的功能都源于代码。所以代码编译窗口对于VB来说是最重要的一个窗口。设计者就是在下图2.6所示的代码编辑窗口中编辑代码的。图2.6 代码编辑窗口3 工程资源管理器窗口在工程资源管理器中，含有建立一个应用程序所需要的文件清单。工程资源管理器窗口中的文件可以分成6类，即窗体文件(.frm)、程序模块文件(.bas)、类模块文件(.cls)、工程文件(.vbp)、工程组文件(.vbg)和资源文件(.res)。如图2.3所示的窗体。在工程资源管理器窗口中，括号内是工程、窗体、程序模块、类模块等的存盘文件名，在括号外是相应的名字。每个工程名左侧都有一个方框，当方框内为“-”号时，该工程处于展开状态

22、。此时如果单击“-”号方框，则变为折叠状态，方框内变为“”号。图2.3 资源管理器窗口2.3.2 属性窗口和工具箱窗口1 属性窗口属性窗口主要针对窗体和控件设置的。在Visual Basic中，窗体和控件被称为对象。每个对象都可以用一组属性来刻画其特征，而属性窗口就是用来设置窗体或窗体中控件的属性的。如图2.4 所示。对象框位于属性窗口的顶部，可以通过单击其右端向下的箭头下拉显示列表，其内容为应用程序中每个对象的名字及其对象的类型。属性显示方式分为两种，即按字母排序和按分类排序。图2.4 属性窗口2 工具箱窗口工具箱窗口由工具图标组成。这些图标是Visual Basic应用程序的构件，称为图形

23、对象或控件。每个控件有工具箱中的一个工具图标来表示，如图2.5 所示。图2.5 工具箱窗口在一般情况下，工具箱位于窗体左侧。工具箱中的工具分为两类，一类称为内部控件或标准控件，一类称为ActiveX控件。启动Visual Basic 后，工具箱中只有内部控件，如果需要一些在工具箱上没有的控件,则需要添加部件,单击右键-部件就可以添加一些部件了。第三章 缴费系统分析数据库在一个信息管理系统中占有一个非常重要的地位，数据库结构设计的好坏直接影响到系统的效率以及实现的效果。合理的数据库结构设计可以提高数据库存储效率，保证数据的完整性和一致性。3.1 数据库需求分析用户的需求具体体现在各种信息的提供、

24、保存、更新和查询。这就要求数据库结构能够充分的满足各种信息的输入和输出。收集基本数据、数据结构和数据处理流程，组成一份详细的数据字典，为下一步的具体设计做好充分的准备。根据以上的要求以及结合实际，我们得到以下图3.1的系统缴费流图：年级录入院系录入专业录入班级录入缴费信息管理缴费删除信息录入学生信息登记缴费信息登记录入登记缴费项目录入住房类型录入经手人录入图3.1系统缴费流图3.2 数据库结构的设计分析之后可以设计出能够满足用户需求的各种实体以及他们之间的关系，为下一节的逻辑结构设计打下基础。这些实体包括各种信息，通过相互之间的作用形成数据的流动。本系统数据库的各实体E-R图如下所示：年级实体

25、年级编号名称 图3.3 年级实体E-R图班级学号学生实体年级专业姓名院系图3.4 学生实体E-R图班级实体专业班级编号年级 图3.5 班级实体E-R图项目编号项目名称缴费项目图3.6 缴费项目实体E-R图院系编号名称院系实体图3.7 院系实体E-R图专业编号专业名称专业实体图3.8 专业实体E-R图用户实体用户类型密码帐号图3.9 用户实体E-R图住房实体类型名称类型编号图3.10 住房实体E-R图专业院系班级学生姓名年级学生编号住房类型缴费信息实体缴费项目缴费数目经手人清单缴费日期现缴数目找零 图3.11 缴费信息实体E-R图专业实体院系实体住房实体年级实体班级实体学生登记学生实体缴费项目实

26、体缴费缴费信息实体图3.12 各个实体间关系E-R图3.3 缴费系统的数据流图数据流图是描述数据处理的有力工具,是描述数据传递和加工的角度,以图形的方式刻画数据流从输入到输出的移动变换过程的一种图形。是软件工程结构化分析的一种重要的工具。收费系统的数据流图如下所示：数据录入储存修改修改数据查询查询用户或管理员数据表验证数据报表验证失败查找帐号用户信息表数据统计查询统计图3.13 缴费系统的数据流图3.4 数据库逻辑结构设计现将上面的数据库结构分析转化成VB 6.0 所支持的实际数据模型，也就是数据库的逻辑结构。字段名称字段类型字段大小索引是否忽略空值编号自动编号关键索引否班级编号TEXT否年级

27、TEXT否专业TEXT否表3.1 班级信息表字段名称字段类型字段大小索引是否忽略空值学生编号TEXT关键索引否学生姓名TEXT否院系TEXT否专业TEXT否班级TEXT否年级TEXT否住房类型TEXT否缴费数目TEXT否缴费日期DATE/TIME否现缴数目TEXT否找零TEXT否清单TEXT否经手人TEXR否缴费项目TEXT否表3.2 缴费信息表字段名称字段类型字段大小索引是否忽略空值学号TEXT关键索引否姓名TEXT否院系TEXT否专业TEXT否年级TEXT否班级TEXT否表3.3 学生信息表字段名称字段类型字段大小索引是否忽略空值编号自动编号关键索引否年度TEXT否表3.4 学生年度表字段

28、名称字段类型字段大小索引是否忽略空值编号自动编号关键索引否项目编号TEXT否项目名称TEXT否表3.5 缴费项目表字段名称字段类型字段大小索引是否忽略空值用户编号自动编号关键索引否用户名TEXT否用户密码TEXT否用户类型TEXT否表3.6 用户信息表字段名称字段类型字段大小索引是否忽略空值编号自动编号关键索引否专业名称TEXT否系别名称TEXT否表3.7 专业信息表字段名称字段类型字段大小索引是否忽略空值编号自动编号关键索引否院系名称TEXT否学费货币否代管费货币否表3.8 院系表字段名称字段类型字段大小索引是否忽略空值编号自动编号关键索引否住房类型TEXT否住房价格货币否表3.9 住房信息

29、表3.5 数据库的创建该系统的数据库是用VB默认支持的Microsoft公司产品ACCESS 2000来建立的。步骤主要有以下：（1） 点击ACCESS图标打开，初始界面如下图3.14。图3.14 ACCESS的初始界面（2） 使用设计器创建表，设计器界面如下图3.15所示。图3.15 ACCESS表设计界面（3） 添加各个字段，数据类型等，完成对表的建立。最终所建立的数据库表如下图3.16所示。图3.16 最终数据库表第四章 数据统计以及报表产生功能模块4.1 概述统计报表功能模块作为本系统的重要模块之一，主要的作用体现在显示出来的统计和打印出来的报表是直观的反映整个学校学生的缴费情况，这对

30、于不直接参与缴费工作的人员来讲是最佳的了解缴费情况的途径。也是缴费工作到最后关头的收关环节。全面的统计报表功能主要在完成数据模块之后进行，尤其是数据库的建立。本模块所涉及引用到的数据库的数据表主要是表4.1：缴费系统数据库缴费信息表院系表专业表班级表住房类型表缴费项目表年级表表4.1 数据表结构数据统计报表功能模块的设计主要的针对对象是不直接参与缴费工作的人员，其目的是在短时间内让这类人员能清晰明白的了解到缴费的进展情况。因此，该模块将功能进行了区分，只要包括了统计和报表产生两个部分。在统计部分，按照不同的统计单位，系统分为按全校、按院系、按专业、按班级分别进行统计。这样做的目的无非是为了更加

31、仔细的对缴费情况进行统计，让浏览的人了解更透彻。在报表产生部分，根据已缴和未缴进行初步的划分，在各自的下面又进行详细的分类。已缴部分主要分为：院系、专业、班级、项目、年级五类；未缴部分则分：全校、院系、专业三类。具体的操作功能模块如下页图4.1所示。统计报表产生功能模块报表产生功能统计功能未缴报表已缴报表班级统计专业统计院系统计全校统计全校报表专业报表院系报表院系报表年级报表项目报表班级报表专业报表图4.1 操作功能模块图4.2 系统登陆界面整个系统的初始程序就是登陆界面，好的登陆界面给人的感觉应该简单，友好，这是软件设计的基本要求。为此设计如下图4.2所示的登陆界面。图4.2 缴费系统登陆界

32、面图4.3是登陆过程的具体流程图：超级用户界面是验证超级用户正确权限提升验证登陆用户否普通用户界面错误图4.3 登陆过程流程图模块主要代码 通用代码 Private yh As New ADODB.RecordsetPrivate conn_yh As New ADODB.Connection确定按钮代码：Private Sub Command1_Click()If yh.State adStateClosed Then Set yh = Nothing strconn_yh = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path

33、& db6.mdb ;Persist Security Info=False conn_yh.CursorLocation = adUseClient yh.Open Select * from 用户表 where 用户名= & Text1.Text & and 用户密码= & Text2.Text & , conn_yh, adOpenDynamic, adLockOptimistic Else strconn_yh = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db6.mdb ;Persist Security I

34、nfo=False conn_yh.CursorLocation = adUseClient conn_yh.Open strconn_yh yh.Open Select * from 用户表 where 用户名= & Text1.Text & and 用户密码= & Text2.Text & , conn_yh, adOpenDynamic, adLockOptimistic End If If yh.RecordCount 0 Then 主窗口.Show Unload Me Else If yh.State adStateClosed Then Set yh = Nothing strco

35、nn_yh = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db6.mdb ;Persist Security Info=False conn_yh.CursorLocation = adUseClient yh.Open Select * from 用户表 where 用户名= & Text1.Text & , conn_yh, adOpenDynamic, adLockOptimistic Else strconn_yh = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=

36、& App.Path & db6.mdb ;Persist Security Info=False conn_yh.CursorLocation = adUseClient conn_yh.Open strconn_yh yh.Open Select * from 用户表 where 用户名= & Text1.Text & , conn_yh, adOpenDynamic, adLockOptimistic End If If yh.RecordCount 0 Then MsgBox 密码错误 Else MsgBox 用户名错误 End If End IfEnd Sub取消按钮代码 Priva

37、te Sub Command2_Click()Unload MeEnd Sub4.3 主界面介绍若用户登陆成功，系统将转入主界面。这是用户进行操作的主要界面，各种功能都集中在上面。用户根据界面上的不同功能区进行不同需求的的操作，主界面如下图4.4所示。 图4.4 系统主界面主界面包含了信息浏览、缴费录入、条件查询、综合查询等功能。还有一些辅助的工具例如：菜单栏，工具栏、状态栏、说明性的文字、日历等。此窗体集中了本系统的大多数主要的功能，它能实现学生缴费数据的录入、修改、删除、打印和查询。制作这样一个窗体是为了提高用户的效率。因为此窗体中的功能在其他独立功能的窗体中都能实现，所有在这里就不在解释

38、其中的代码了。 此界面功能强大，datagrid控件中显示出需要的记录，在其中选择不同的记录，详细信息中就会显示详细信息，能使用户看到详细信息。点击“显示所有”按钮显示所有记录。点击“重新填写”按钮，重置综合查询控件的信息。点击“添加记录”按钮，详细信息中的控件变为可编写状态，此时，若选定“缴费项目”，则自动计算出“缴费总数”。“学生学号”文本框中输入学号，若学号不符合格式，则弹出对话框说明格式错误，若在学生信息表中已经存在，则自动填充“学生姓名”，“所在院系”，“所在年级”，“所在班级”。若在“缴费数据库”中已经存在，则弹出对话框说明已经存在此信息。还有，条件查询包括学号、姓名、经手人、院系

39、、班级、年度、缴费日期的查询。而综合查询，顾名思义：是符合N项条件的查询（N项包括日期、经手人、年级、院系、班级这几项）。菜单栏包括本系统的所有功能（数据操作、查询、报表、统计、数据管理、可用工具）。工具栏里一些常用的功能，是为了操作方便才设计的。而状态栏是提供一些辅助的信息（例：当前的用户、当前的时间等）。4.4 统计功能介绍4.4.1综合统计功能总的来说，统计和报表的生成都是建立在查询的基础之上的。基本的思路是通过查询找出满足条件的内容，然后将查询结果生成统计图和报表。所以用户所希望的统计条件就是查询条件，用户只要在综合查询面板上进行操作就可以，下图4.5就是综合查询面板。图4.5 综合查

40、询面板当用户查询完毕之后，就可以对查询结果进行操作，可以进行统计，也可以直接生成报表。操作很方便，只用点击右边的统计按钮就可以了。模块主要代码统计按钮代码Private Sub Command36_Click()综合统计.Show 综合统计.Label2.Caption = 查询统计Command36.Enabled = FalseEnd Sub需要说明的是上面代码中的“综合统计.Show”是指的统计图所显示在的界面，如下图4.6就是综合统计显示界面。我们还可以看到，界面的下部分有统计单位详细的信息，思路上是将满足统计条件的内容逐列的排下来，然后从头到尾依次显示在对应的控件上，用户可以通过方向

41、键来对每个单位进行浏览。图4.6 统计结果显示界面4.4.2 单条件统计功能综合统计用于用户详细的统计，有多个条件供用户进行选择，产生的统计结果十分精确。单条件则是粗略得进行统计，由用户确定一个条件进行统计。单条件统计操作区域在系统主界面的上方工具条中，如下图4.8所示。图4.8 单条件统计选择好统计的条件之后，系统弹出操作面板，如下图4.9。由于系统包含了多个单条件，这里只举例一个院系统计来进行说明。图4.9 单条件统计操作界面模块主要代码Private Sub stat1_Click()统计选择1.Label2.Caption = 院系统计统计选择2.Label2.Caption = 院系

42、统计统计选择1.DataCombo4.Visible = True统计选择1.Adodc1.ConnectionString =Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db6.mdb统计选择1.Adodc1.RecordSource = 院系表统计选择1.Adodc1.RefreshSet 统计选择1.DataCombo4.RowSource = 统计选择1.Adodc1 统计选择1.DataCombo4.ListField = 院系统计选择1.DataCombo4.Text = 选择所在院系统计选择1.ShowEn

43、d Sub上面的一段代码主要确定了院系统计条件的来源。统计条件的来源是数据库中的院系表，当选择好条件按确定按钮进行统计时，系统跳转到统计结果显示界面，如图4.10。 图4.10 统计结果显示界面4.5 报表功能介绍4.5.1 综合报表功能报表的产生的过程非常简单，和统计差不多，只是在按钮的代码上作了小小的修改。模块主要代码报表按钮代码Private Sub Command35_Click()strconn_con2 = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db6.mdb ;Persist Security Inf

44、o=Falseconn_con2.CursorLocation = adUseClientDataEnvironment2.Connection1.Open strconn_con2strconn_con1 = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db6.mdb ;Persist Security Info=Falseconn_con1.CursorLocation = adUseClientDataEnvironment1.Connection1.Open strconn_con1Set DataEnviron

45、ment2.rsCommand1.DataSource = rsDataReport2.ShowDataReport2.Caption = 查询报表Command35.Enabled = FalseEnd Sub这段代码的主要内容是确定所生成的报表数据来源，所生成的报表样式如下图4.7所示。图4.7 生成报表4.5.2 单条件报表功能单条件报表功能类似于但条件统计，只是功能换成报表。操作上也雷同。如下图4.8所示。图4.8 单条件报表选择好报表条件，系统弹出操作界面供用户使用，如下图4.9所示。图4.9 单条件报表操作界面模块主要代码确定按钮代码Private Sub Command2_Cli

46、ck()bb2 = & bb1 & = & DataCombo4.Text & If bb.State adStateClosed ThenSet bb = NothingstrConn_bb = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db6.mdbConn_bb.CursorLocation = adUseClientMsgBox & sel1 & , vbOKOnly + vbInformation, 信息提示MsgBox & sel2 & , vbOKOnly + vbInformation, 信息提示bb.

47、Open Select * from 缴费信息表 where & bb2 & , Conn_bb, adOpenKeyset, adLockOptimisticElsestrConn_bb = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db6.mdbConn_bb.CursorLocation = adUseClientConn_bb.Open strConn_bbMsgBox & sel1 & , vbOKOnly + vbInformation, 信息提示MsgBox & sel2 & , vbOKOnly + vbInformation, 信息提示bb.Open Select * from 缴费信息表 where & bb2 & , Conn_bb, adOpenKeyset, adLockOptimisticEnd IfSet DataEnvironment2.rsCommand1.DataSource = bbDataReport2.ShowUnload MeDataReport2.Caption = 报表来源: & 报表选择.DataCombo4.Text & End Sub这段代码的基本功能是确定报表的数据来源以及操作提示，所生成的报表与图4.7所示的类似。31