学生信息管理系统.doc

毕业论文 题题 目：目： 学生信息管理系统 学学 号：号： 姓姓 名：名： 联联 系系 电电 话：话： 电电 子子 邮邮 箱：箱： 院院 系：系： 计算机科学与技术学院 学学 习习 形形 式：式： 专专业业、年年级级、班班组组： 计算机科学与技术、 10 级本科班 指指 导导 教教 师：师： 学生信息管理系统 摘 要：学生信息管理系统是典型的信息管理系统 (mis)，其开发主要包括后台数据 库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性 和完整性强、数据安全性好的数据库。而对于后者则要求应用程序功能完备，易使用 等特点。 经过分析，我们使用 microsoft 公司的 visual basic 开发工具，利用其提供 的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化 对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不 断修正和改进，直到形成用户满意的可行系统。 关键词： 控件；窗体；域；数据库 student information management system abstract: student information management system is a typical management information system ( mis ), its development mainly includes the backstage database the establishment and the maintenance as well as front end application procedure development two aspects. the former set up the requirements for data consistency and integrity, good data security database. for the latter request application procedure function is complete, easy to use and so on characteristics of. after analysis, we use the microsoft companys visual basic development tool, its use of object-oriented development tools, especially the data window can be convenient and simple manipulation of the intelligence database objects, first in a short time establishes the system application prototype, then, for the initial prototype system needs iteration, and constantly revised and improved, until the formation of a viable system of user satisfaction. keywords: control; form; domain; database i 目目 录录 1 前言前言.1 2 visual basic 概述概述 .1 2.1 visual basic 语言的特点 .2 2.2 visual basic 系统几个程序应用中的常用名词 .2 3 windows 下的下的 visual basic 编程环境简介编程环境简介.2 3.1 面对对象的编程2 3.2 实现菜单选项2 3.3 实现工具栏2 4 怎样开发一个学生信息管理系统的查询模块怎样开发一个学生信息管理系统的查询模块.3 4.1 学生信息系统的设计分析3 4.2 编程环境的选择3 4.3 关系型数据库的实现3 4.4 二者的结合(dba).3 5 使用使用 access2000 创建数据库创建数据库3 5.1 数据库的概念3 5.2 新建一个数据库4 5.3 修改已建的数据库4 6 可行性分析可行性分析.3 7 系统总体规划系统总体规划.3 5.1 系统功能3 5.1 系统流程图3 8 系统具体实现系统具体实现.3 5.1 各功能的实现3 5.1 课程管理3 5.1 打印统计3 毕业论文体会毕业论文体会.25 致谢致谢.26 参考文献参考文献.27 1 1 1 前前 言言 随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增 长。面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。通过这样的 系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减 少管理方面的工作量。 本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化 和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增 加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主 要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化， 其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增加、删除， 另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。 本系统主要包括学生信息查询、教务信息维护和学生选课三部分。其功能主要有： 有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。 学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。 学生信息的修改。 班级管理信息的输入，包括输入班级设置、年级信息等。 班级管理信息的查询。 班级管理信息的修改。 学生课程的设置和修改。 2 2 visualvisual basicbasic 概述概述 2.1 visualvisual basicbasic 语言的特点语言的特点 visual basic 语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱动 编程。 2.1.1 可视化设计：可视化设计：表现在 vb 在设计应用于程序界面时有“所见即所得”的处理功 能。 2.1.2 事件驱动编程：事件驱动编程：在设计应用程序时，把对象添加到窗体中，在用户与程序进行 交互时，用户基本上是通过鼠标、键盘与应用程序进行交互的，那些对象就必须对 鼠标和键盘操作所引发的事件做出响应，来执行一段应用程序。 2.2 visual basic 系统几个在程序应用中的常用名词系统几个在程序应用中的常用名词 visual basic 系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名 词。其基本含义如下： 2.2.1 视窗（form） 视窗是进行人机交互的界面或接口，也叫窗体。vb 系统的人机交互界面或接口， 无论是在设计时或是在运行时，都是 windows 系统的标准视窗。 2.2.2 对象 (object) 对象是 vb 系统内部提供给设计者可以直接使用的处理输出的控制工具。本程 序所应用到的对象类型有标签框 (label box)，文本框 (text box)，命令按扭 (command button)，网格 (data grid)，ado 控件 (adodc1)等。当把这些工具放置到用 户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和 “方法” ，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构 都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。 2.2.3 属性 (properties) 属性是 vb 系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变 对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如， 对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表 现格式等。 2.2.4 事件 (events) 事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等） 的行为或系统状态发生的变化。vb 系统常用事件来引导计算机执行一段程序。程序所 用的键盘事件有 keypress（按键）事件，keydown 事件和 keyup 事件；鼠标事件有 click（单击鼠标）事件，dbdlicd（双击鼠标） 。 2.2.5 方法 (method) 方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计 算机执行的某种操作。其程序的方法有 show（显示）方法，hide（隐藏）方法， refresh（刷新）方法。 3 2.2.6 过程 (procedure) 过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。 2.2.7 模块 (module) 模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四 个模块：数据输入、根据查询、数据打印和通讯。 3 windows 下的下的 visual basic 编程环境简介编程环境简介 3.1面对对象的编程面对对象的编程 面向对象的设计方法 (oop, objected programming) 从应用领域内的问题着手，以 直观自然的方式描述客观世界的实体。visual basic 作为一种面向对象的编程方法，把 程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时， 不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，由 visual basic 自动生成对象的程序代码并封装起来。visual basic 应用程序基本的构建块是用户所创 建的对象，每一个对象都具有一些特性和行为（属性、事件和方法） 。开发人员可以最 有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功 能。 visual basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、 用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对 象和控件都可在许多应用中重复使用。 3.2实现菜单选项实现菜单选项 菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易 于使用和维护，visual basic 也提供了强大的创建菜单功能是程序更加标准。 本系统使用 visual basic 的菜单编辑器建立菜单或者修改已经存在的菜单，您 也可以使用 visual basic 的 application wizard 来操作。 3.3实现工具栏实现工具栏 coolbar 控件与 office2000 中看到的 coolbar 是类似的。coolbar 就是一个可以在 窗体上浮动的工具，同时也是其他 activex 的容器。通过在 coolbar 中迁入其他空间你 也可以向用户提供更好的灵活性和义用性。 选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选 项卡列表中选择“microsoft windows common controls 6.0”后工具相中增加改控件。 本系统就用了 cool 工具中的 statubar 控件，在系统这一界面中，添加了状态栏， 在第一个栏中，在样式这一栏中选择了文本，在第二个栏中，选择了系统日期，第三 个栏中选择了系统时间，这样，任何时候操作本系统，都可以看到当前的时间和日期。 4 怎样开发一个学生信息管理系统的查询模块？怎样开发一个学生信息管理系统的查询模块？ 4 4.1查询模块的设计分析查询模块的设计分析 根据实际情况，我们使用原型法(rapid prototyping) 即以少量代价快速地构造一个 可执行的软件模型。使用户可以较快地确定需求，然后采用循环进化的开发方式，对 系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满 足。此时模块也发展成为最终产品了。 4.2编程环境的选择编程环境的选择 微软公司的 visual basic 6.0 是 windows 应用程序开发工具，使目前最为广泛的、 易学易用的面向对象的开发工具。visual basic 提供了大量的控件，这些控件可用于设 计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有 效的提高了应 用程序的运行效率和可靠性。故而，实现本系统 vb 是一个相对较好的选择。 4.3关系型数据库的实现关系型数据库的实现 access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和 检索。access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提 供了一种类似于 excel 的电子表格，可以使数据库一目了然。另外，access 允许创建 自定义报表用于打印或输出数据库中的信息。access 也提供了数据存储库，可以使用 桌面数据库文件把数据库文件置于网络文件服务器，与其他用户共享数据库。access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述， access 作为关系数据库开发具备了许多优点，可以在一个数据包同时拥有桌面数据库 的便利和关系数据库的强大功能。 4.4二者的结合二者的结合(dba) 微软的 jet 数据库引擎提供了与数据库打交道的途径，我们是通过它以及 visual basic 来访问数据库并对其进行各种操作。visual basic、access 以及其他微软的软件产 品都是通过共用 jet 数据库引擎，从而给用户提供了丰富的数据类型。 adodc 控件在数据库中的信息与将信息显示给用户看的 visual basic 程序之间架 起了一座桥梁。我们可以设置 adodc 控件的各个属性，告诉它要调用那个数据库的 哪个部分。缺省情况下，adodc 控件根据数据库中的一个或多个数据库表建立一个 dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原 来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。将 adodc 控件 放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。 5 使用使用 access2000 创建数据库创建数据库 5.1数据库的概念数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达 信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数 据库(flat-file)和关系数据库（relational） 。关系数据库中包含了多个数据表的信息，数 据库含有各个不同部分的术语，象记录、域等。 5 5.2新建一个数据库新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑 的。创建一个数据库结构的过程被认为是数据模型设计。 5.2.1 标识需要的数据标识需要的数据 5.2.2 收集被子标识的字段到表中收集被子标识的字段到表中 5.2.3 标识主关键字字段标识主关键字字段 5.2.4 规范数据规范数据 5.2.5 标识指定字段的信息标识指定字段的信息 5.3修改已建的数据库修改已建的数据库 数据库的修改分为；添加、编辑和删除记录。这三种操作均可由 visual basic 创建 的程序来完成，下面的章节将详细描述实现的具体方法。 6 可行性分析可行性分析 6.1 信息系统分析信息系统分析 学生信息，作为一个学校，就有一定的工作量存在，而学生信息，它的工作量可 能是其它信息工作量的几倍，班级的增加、班级的查找、班级的修改；学生档案；课 程管理；成绩管理；缴费管理；统计等等，每个信息的数据都在不断地变化着，如果 采用人工的方式进行操作，那么，一天的工作量，足以让人觉得比较繁琐，吃不消。 针对这样的情况，采用让数据的查询变得简单化，数据变的更让每个人都在任何时刻 都可以了解到。 学生信息管理系统是为本校开发的，本系统所采用的语言是 visual basic，用 microsoft access 2000 数据库完成。该系统总体有四部分组成，包括学生信息查询、 教务信息维护、学生选课及用户管理。通过本系统，把本校内部查询学生信息、教务 信息、学生选课各个环节进行有效地计划、组织和控制。通过本校内部的信息，依据 统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信 息，做到数据共享。 本系统主要信息流程为：教务信息维护接受学生的信息，学生信息查询根据教务 信息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应 的修改，再把信息存入数据库中。学生选课是对学生进行相应选择自己相关的课程。 最后进行打印。 采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。由于采 用统一的数据信息，使相关资料能够快速地查询所需的数据、资料及其它信息的，使 信息快速高效运行。 6.2 数据表的实现数据表的实现 本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、 用户资料，由这六个表，组成了名为信息的数据库（如图一） 。 6 （图一） 其中学生档案是本系统主要的一张表，所有信息都是根据这张学生档案进行有关的操 作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治 面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其中日期的数据类型为日 期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、 学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课 程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、 课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。 数据库与 vb 的连接：本系统的数据链接采用的是 ado 方法，打开控制面板，打 开 odbc 数据源图标，选择“系统 dsn”标签，点击“添加”按钮，在弹出的“创建 新数据源”对话框中选择名称为“microsoft access drive（*.mdb） ” ，点击“完成”按 钮，在 odbc microsoft access 安装对话框中在数据源名中输入信息，在数据库这个 框中， 单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表 框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选 择选“access 数据库（*.mdb） ” ，在数据库名中选择本系统的数据库，点击“确定”按 钮即完成数据链接。 在 vb 中，用 adodc 链接数据库，用 datagrid 或 data 将库中的数据在界面中 显示出来，本系统采用 datagrid。在界面上右击 adodc 控制，在弹出的快捷菜单中选 择属性，在属性对话框中，在“属性”这一标签中， 选中单选框“use odbc data source name” ，并在下拉文本框中选择已经配置好的数据源名信息，再在 “recordsoure”标签中，在 commard text（sql）文本框中输入查询语句，如：select * from 学生档案。同时，将桌面的 datagrid 控件选中，在属性框中，将它的 datasoure 设为 adodc。 我们可以设置 datagrid 控件的外观：选中该控件，右击，在弹出的快捷菜单中选 择“检索字段” ，在弹出的对话框中单击“确定” ，这时，表格中出现了表的字段。然 后再右击，同样，在弹出的快捷菜单中选择“编辑” ，我们就可以所在的表格的宽度进 行调整。 7 系统（查询模块）总体规划系统（查询模块）总体规划 7.1 系统功能（查询模块）系统功能（查询模块） 7.1.1查询信息的情况查询信息的情况 7.1.2判断信息是否符合要求判断信息是否符合要求 7.1.3将符合条件的信息进行打印将符合条件的信息进行打印 7.2 流程图流程图 学生注册 基本 信息 输入 学籍信 息管理 班级管理班级课 程设置 课程基本 信息 班级课程 管理 成绩信 息输入 成绩信息管理 班级设置 7 8 系统具体实现系统具体实现 8.1 各功能的实现 8.1.1 登陆界面（如图二） （图二） 下面为其代码： if sf = “管理员“ then admin = 1 else admin = 0 end if end sub private sub command2_click() dim anw as integer anw = msgbox(“确定要退出系统吗？“, vbyesno, “请问“) if anw = 6 then unload me else text1.text = “ text2.text = “ text1.setfocus end if end sub private sub form_load() zong = 0 text1.text = “ 8 text2.text = “ combo1.text = “ combo1.additem (“管理员“) combo1.additem (“用户“) end sub private sub text1_keydown(keycode as integer, shift as integer) if keycode = 13 then text2.setfocus end if end sub 8.1.2 课程设置（如图三） （图三） 运行程序后，进入课程管理模块，课程管理模块的第一块是课程设置，在这模块中可 以把专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质和 考试性质等信息输入，以便使用。下面为其代码： private sub command1_click() dim mycon as new adodb.connection dim myrs as new adodb.recordset dim zhuanye, nianji, xueqi, kecheng, jiaocai, renkls, keshi, shangkedd, kechengxz, kaoshixz as string 9 zhuanye = text1.text nianji = text2.text xueqi = dtpicker1.value kecheng = text4.text jiaocai = text5.text renkls = text6.text keshi = text7.text shangkedd = text8.text kechengxz = combo1.text kaoshixz = combo2.text if trim(zhuanye) = “ or trim(nianji) = “ or trim(xueqi) = “ or trim(kecheng) = “ or trim(jiaocai) = “ or trim(renkls) = “ or trim(keshi) = “ or trim(shangkedd) = “ or trim(kechengxz) = “ or trim(kaoshixz) = “ then msgbox “请填写要修改课程资料的内容！“ combo1.text = “ combo2.text = “ exit sub end if mycon.open “dsn=信息“ myrs.open “select * from 课程表 where 专业=“ & text1.text & “, mycon, 3, 2 myrs!年级 = text2.text myrs!学期 = dtpicker1.value myrs!课程名称 = text4.text myrs!教材 = text5.text myrs!任课老师 = text6.text myrs!课时 = text7.text myrs!上课地点 = text8.text myrs!课程性质 = combo1.text myrs!考试性质 = combo2.text myrs.update myrs.close mycon.close msgbox “您确定要修改吗？“, vbyesno, “提示“ frm_updategrean.adodc1.refresh frm_updategrean.datagrid1.refresh text1.text = “ text2.text = “ text3.text = “ text4.text = “ text5.text = “ text6.text = “ text7.text = “ 10 text8.text = “ combo1.text = “ combo2.text = “ end sub private sub command2_click() unload me end sub private sub command3_click() unload me frm_findgrean.show 1 end sub private sub datagrid1_click() frm_updategrean.adodc1.recordsource = “select * from 课程表 where 专业 = “ & trim(datagrid1.row) & “ text1.text = frm_updategrean.adodc1.recordset.fields(“专业“) text2.text = frm_updategrean.adodc1.recordset.fields(“年级“) text3.text = frm_updategrean.adodc1.recordset.fields(“学期“) text4.text = frm_updategrean.adodc1.recordset.fields(“课程名称“) text5.text = frm_updategrean.adodc1.recordset.fields(“教材“) text6.text = frm_updategrean.adodc1.recordset.fields(“任课老师“) text7.text = frm_updategrean.adodc1.recordset.fields(“课时“) text8.text = frm_updategrean.adodc1.recordset.fields(“上课地点“) combo1.text = frm_updategrean.adodc1.recordset.fields(“课程性质“) combo2.text = frm_updategrean.adodc1.recordset.fields(“考试性质“) end sub private sub dtpicker1_callbackkeydown(byval keycode as integer, byval shift as integer, byval callbackfield as string, callbackdate as date) end sub private sub form_activate() frm_findgrean.adodc1.recordsource = strtiaojian frm_findgrean.adodc1.refresh set datagrid1.datasource = frm_findgrean.adodc1 end sub private sub form_load() combo1.additem (“必修“) combo1.additem (“选修“) combo1.additem (“自开“) 11 combo2.additem (“考试“) combo2.additem (“查考“) text1.text = “ text2.text = “ text3.text = “ text4.text = “ text5.text = “ text6.text = “ text7.text = “ text8.text = “ combo1.text = “ combo2.text = “ end sub private sub text1_change() end sub private sub text2_change() end sub private sub text8_change() end sub 8.1.3 课程查询（如图四） （图四） 当输入查询类别、运算符和条件后可以查找到所需要的课程设置，或按查询时间 来查询，输入所要查找的时间段，就可查到所要的课程设置。 代码如下： dim sqlstr as string private sub combo1_change() end sub private sub combo2_change() end sub private sub combo4_change() 12 end sub private sub combo5_change() end sub private sub combo7_change() end sub private sub command1_click() dim a as string dim kccx1 as string dim kccx2 as string dim str1 as string dim str2 as string if option3.value = true then a = trim(combo2) select case a case “=“ kccx1 = “ & combo1.text & “ “ & combo2.text & “ “ & trim(text1) & “ case “like“ kccx1 = “instr(1,“ & combo1.text & “,“ & trim(text1.text) & “)0 “ end select if option1.value = true then if kccx1 = “ then strtiaojian = “select * from 课程表 where “ & kccx2 elseif kccx2 = “ then strtiaojian = “select * from 课程表 where “ & kccx1 else strtiaojian = “select * from 课程表 where “ & kccx1 & “and “ & kccx2 end if elseif option2.value = true then 13 if kccx1 = “ then strtiaojian = “select * from 课程表 where “ & kccx2 elseif kccx2 = “ then strtiaojian = “select * from 课程表 where “ & kccx1 else strtiaojian = “select * from 课程表 where “ & kccx1 & “or “ & kccx2 end if else if kccx1 = “ then strtiaojian = “select * from 课程表 where “ & kccx2 elseif kccx2 = “ then strtiaojian = “select * from 课程表 where “ & kccx1 else msgbox “请选择连接方式！“, vbokonly, “警告“ exit sub end if end if if (kccx1 & kccx2) = “ then msgbox “请输入查询类别！“, vbokonly, “警告“ exit sub else unload me frm_updategrean.show 1 end if end if if option4.value = true then if val(combo6) val(combo9) then msgbox “请正确选择年份！“, vbokonly + vbexclamation, “信息提示“ combo6.setfocus exit sub else if val(combo6) = val(combo9) then if val(combo7) val(combo10) then msgbox “请正确选择月份！“, vbokonly + vbexclamation, “信息提示“ combo7.setfocus exit sub else if val(combo7) = val(combo10) then if val(combo8) val(combo11) then msgbox “请正确选择日期！“, vbokonly + vbexclamation, “信息 提示“ combo8.setfocus 14 exit sub end if end if end if end if end if if combo6.text = “ or combo7.text = “ or combo8.text = “ or combo9.text = “ or combo10.text = “ or combo11.text = “ then msgbox “请输入完整的日期“, vbokonly, “警告“ exit sub end if str1 = trim(combo6) & “-“ & trim(combo7) & “-“ & trim(combo8) str2 = trim(combo9) & “-“ & trim(combo10) & “-“ & trim(combo11) str1 = format(str1, “yyyy-mm-dd“) str2 = format(str2, “yyyy-mm-dd“) if sqlstr = “ then sqlstr = “ & trim(combo5.text) & “=#“ & format(str1, “yyyy-mm-dd“) & “# and “ & trim(combo5.text) & “=#“ & format(str1, “yyyy-mm- dd“) & “# and “ & trim(combo5.text) & “ true and option4.value true then msgbox “请选择查询方式！“, vbokonly, “警告“ exit sub end if end sub private sub command3_click() 15 unload me end sub private sub form_load() dim i, j as integer for i = 1999 to 2010 combo6.additem i combo9.additem i next i combo6.listindex = 0 combo9.listindex = 0 for i = 1 to 12 combo7.additem i combo10.additem i next i combo7.listindex = 0 combo10.listindex = 0 for i = 1 to 31 combo8.additem i combo11.additem i next i combo8.listindex = 0 combo11.listindex = 0 combo1.additem (“专业“) combo1.additem (“年级“) combo1.additem (“课程名称“) combo1.additem (“教材“) combo1.additem (“任课老师“) combo1.additem (“课时“) combo1.additem (“课程性质“) combo1.additem (“考试性质“) combo2.additem (“=“) combo3.additem (“专业“) combo3.additem (“年级“) combo3.additem (“课程名称“) combo3.additem (“教材“) combo3.additem (“任课老师“) combo3.additem (“课时“) combo3.additem (“课程性质“) combo3.additem (“考试性质“) combo4.additem (“=“) combo5.additem (“学期“) combo1.text = “ 16 combo2.text = “ text1.text = “ combo3.text = “ combo4.text = “ text2.text = “ combo5.text = “ combo6.text = “ combo7.text = “ combo8.text = “ combo9.text = “ combo10.text = “ combo11.text = “ end sub 8.1.4 打印统计 运行打印统计后可以按条件把符合条件的各种信息以报表形式罗列出来，各种信 息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、 课程统计分析、成绩统计分析和交费统计分析五类。 班级统计分析（如图五） （图五） 代码如下： private sub command1_click() dim sqloriginal as string dim sqladd as string dim sqlorder as string dim strsql as string sqloriginal = “select 年级,专业,人数,辅导员,备注 from 班级表 “ sqladd = “where 年级=年级 and 专业=专业 “ sqlorder = “ if check1.value = 1 and isnumeric(text1) then sqladd = sqladd + “and 年级=“ + text1 + “ end if 17 if check2.value = 1 and not isnull(text2) then sqladd = sqladd + “and 专业=“ + text2 + “ end if if check3.value = 1 and isnumeric(text3) then sqladd = sqladd + “and 人数=“ + text3 + “ end if if check4.value = 1 and not isnull(text4) then sqladd = sqladd + “and 辅导员=“ + text4 + “ end if strsql = sqloriginal + sqladd + sqlorde if dat_main.rsdat_class.state = 1 then dat_main.rsdat_class.close end if dat_main.rsdat_class.open strsql dat_class.show vbmodal text1.text = “ text2.text = “ text3.text = “ text4.text = “ end sub private sub command2_click() unload me end sub private sub form_load() text1.text = “ text2.text = “ text3.text = “ text4.text = “ end sub private sub text1_change() end sub private sub text3_change() end sub 18 档案分析统计（如图六） （图六） 代码如下： private sub command1_click() dim sqloriginal as string dim sqladd as string dim sqlorder as string dim strsql as string on error resume next sqloriginal = “select * from 学生档案 “ sqladd = “where 学号=学号 and 姓名=姓名 “ sqlorder = “ if check1.value = 1 and isnumeric(text1) then sqladd = sqladd + “and 学号=“ + text1 + “ end if if check2.value = 1 and not isnull(text2) then sqladd = sqladd + “and 姓名=“ + text2 + “ end if if check3.value = 1 and not isnull(text3) then sqladd = sqladd + “and 专业=“ + text3 + “ end if if check4.value = 1 and isdate(dtpicker1) then sqladd = sqladd + “ and 出生年月= # “ & dtpicker1.value & “#“ end if strsql = sqloriginal + sqladd + sqlorde if dat_main.rsdat_strudent.state = 1 then dat_main.rsdat_strudent.close end if dat_main.rsdat_strudent.open strsql 19 dat_strudent.show vbmodal text1.text = “ text2.text = “ text3.text = “ end sub private sub command2_click() unload me end sub private sub form_load() combo1.additem (“男“) combo1.additem (“女“) text1.text = “ text2.text = “ text3.text = “ end