学生信息管理系统-设计与实现论文-大学论文.doc

上海开放大学
信息管理设计与实践课程报告

报告题目：学生信息管理系统的设计与实现

分校：嘉定分校
专业：计算机信息管理
学号：138120821______________________
姓名：严荣________________________

2015年6月

摘要

随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。
本文介绍了在Visual Basic2005环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析某一学校学生管理的不足，创建了一套行之有效的计算机管理学生的方案。文章介绍了学生管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法,本系统界面友好，操作简单，比较实用。

关键字：管理信息系统、学生管理、Visual Basic应用。

前 言

伴随学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。
本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。
本系统主要包括学生信息查询、教务信息维护和学生选课三部分。其功能主要有：
1.有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。
2.学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。
3.学生信息的修改。
4.班级管理信息的输入，包括输入班级设置、年级信息等。
5.班级管理信息的查询。
6.班级管理信息的修改。
7.学生课程的设置和修改。

第一章 Visual Basic 概述
1．1Visual Basic 语言的特点
Visual Basic 语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱动编程。
（1） 可视化设计：表现在VB在设计应用于程序界面时有“所见即所得”的处理功能。
（2） 事件驱动编程：在设计应用程序时，把对象添加到窗体中，在用户与程序进行交互时，用户基本上是通过鼠标、键盘与应用程序进行交互的，那些对象就必须对鼠标和键盘操作所引发的事件做出响应，来执行一段应用程序。

1．2 Visual Basic 系统几个在程序应用中的常用名词
Visual Basic 系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：
(1) 视窗（Form）
视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows 系统的标准视窗。
(2) 对象 (Object)
对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，网格 (Data Grid)，ADO控件 (Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。
(3) 属性 (Properties)
属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。
(4) 事件 (Events)
事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。
(5) 方法 (Method)
方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。
(6) 过程 (Procedure)
过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。
(7) 模块 (Module)
模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。

第二章 开发环境及实现技术
2．1开发环境
硬件系统：奔腾100以上CPU、64M以上内存、1G以上硬盘、光驱。
软件系统：Windows 9x或更高版本、Visual Basic 2005中文版、Access数据库。
2．2开发工具简介
微软公司的Visual Basic 2005是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。
Access2005 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。
DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。
ADO是Mcrosoft提出的第三种数据库访问对象，是Microsoft数据库访问技术的一个主要发展方向，ADO将OLE DB封装在一个数据对象中，使得VB程序中以方便地实现对数据库的访问。
具体的与数据库的关系如下：
VB数据库应用程序一般由用户界面、数据库引擎和数据仓库三大部分组成。
1．用户界面: 用户界面是指应用程序与用户进行交互的界面，包括用于交互的所有界面元素和代码。它可以显示数据并提供查看或更新数据的所有对象，比如数据作业窗体，添加、删除记录或执行查询的VB代码等，这些对象隐含着用来请求数据库服务的属性、事件和方法。
2．数据库引擎:所谓数据库引擎，是一种管理数据怎样被存储和检索的软件系统，是应用程序与物理数据库之间的桥梁。它把应用程序的请求翻译成对各种类型数据库的物理操作,并向应用程序返回结果。
3．数据仓库:数据仓库是包含数据库表的一个或多个文件，是存放数据的地方。对于本地的VB数据库来说，就是.mdb格式文件；对于不同的数据库，它可能具备其它格式。
VB访问数据库通常有三种途径:
1.使用数据控件和数据绑定控件访问数据库；
2.通过VB提供的数据访问变量编程访问；
3.通过ODBC接口访问ODBC API函数。
VB程序的数据访问通过数据访问接口来实现。
在 VB 中，主要的数据访问接口有三种：数据存取对象(Data Access Object；DAO)、远程数据对象(Remote Data Object；RDO)、ActiveX数据对象(ActiveX Data Objects；ADO)。
VB通过数据库引擎可以访问的数据库分如下三类:内部数据库、外部数据库和 ODBC数据库。
1、内部数据库——即.MDB格式的数据库，包括DAO API、Microsoft Access和Microsoft Excel创建的数据源，也称为本地数据库。由于是由Jet引擎直接创建和操作这些数据库，可以提供最大程度的灵活性和速度。
2、外部数据库——即"索引顺序存取方法(ISAM)数据库，例如Btrieve、dBASE、FoxPro以及Paradox等。VB能够创建和操作所有这些数据库，还可以访问Microsoft Excel或Lotus l-2-3电子表格，以及一些标准的文本文件。
3、ODBC数据库——即符合开放式数据库连接性(ODBC)协议的数据库。VB可以访问ODBC标准客户/服务器数据库--如Microsoft SQL Server、Oracle和Sybase。可使用ODBC Object直接把命令传递给服务器处理，以创建真正的客户机/服务器程序。

第三章 系统设计
3．1查询模块的设计分析
根据实际情况，我们使用原型法(Rapid Prototyping) 即以少量代价快速地构造一个可执行的软件模型。使用户可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。

3．2编程环境的选择
微软公司的Visual Basic 2005是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。

3．3关系型数据库的实现
Access2003就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包同时拥有桌面数据库的便利和关系数据库的强大功能。

3．4两者的结合(DBA)
微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。
ADODC控件在数据库中的信息与将信息显示给用户看的Visual Basic 程序之间架起了一座桥梁。我们可以设置ADODC控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADODC控件根据数据库中的一个或多个数据库表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。将ADODC控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。

第四章 数据库设计
4．1数据库Access简介
Access中文版是Microsoft Office 2003套装软件的数据库管理系统软件，是目前比较流行的小型桌面数据库管理系统，它适用于小型企业、学校、个人等用户，可以通过多种方式实现对数据收集、分类、筛选处理，提供用户查询或打印报表。
Access具有良好的界面，采用了与Windows和Microsoft Office系列软件完全一致的风格，用户可以通过菜单和对话框操作，不用编写任何命令便能有效地实现各种功能的操作，完成数据管理任务。Microsoft Office的一个集成化的程序设计语言是VBA(Visual Basic for Applications)，使用VBA可以创建非常实用的数据库应用系统。
Access可以作为个人计算机终端和大型主机系统之间的桥梁。通过如SQL、ODBC等特定技术，方便地存储、检索和处理服务器平台上的关键信息，提供了灵活、可靠、安全的客户/服务器解决方案。
Access可以接受多种格式的数据，从而方便了用户在不同系统之间进行数据转换。
随着Internet网络应用的发展，Access还增加了使用信息发布Web 向导和用HTML格式导出对象的功能。
数据库的概念
数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。
4．2新建一个数据库

创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。
1． 标识需要的数据；
2． 收集被标识的字段到表中；
3． 标识主关键字字段；
4． 绘制一个简单的数据图表；
5． 规范数据；
6． 标识指定字段的信息；
7．创建物理表。

第五章 可行性分析
学生信息，作为一个学校，就有一定的工作量存在，而学生信息，它的工作量可能是其它信息工作量的几倍，班级的增加、班级的查找、班级的修改；学生档案；课程管理；成绩管理；缴费管理；统计等等，每个信息的数据都在不断地变化着，如果采用人工的方式进行操作，那么，一天的工作量，足以让人觉得比较繁琐，吃不消。针对这样的情况，采用让数据的查询变得简单化，数据变的更让每个人都在任何时刻都可以了解到。
学生信息管理系统是为本校开发的，本系统所采用的语言是Visual Basic，用Microsoft Access 2003数据库完成。该系统总体有四部分组成，包括学生信息查询、教务信息维护、学生选课及用户管理。通过本系统，把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地计划、组织和控制。通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。
本系统主要信息流程为：教务信息维护接受学生的信息，学生信息查询根据教务信息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中。学生选课是对学生进行相应选择自己相关的课程。最后进行打印。
采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。由于采用统一的数据信息，使相关资料能够快速地查询所需的数据、资料及其它信息的，使信息快速高效运行。

本系统中使用到的数据表主要有班级表、成绩表、科目表、学生基本信息表、用户表，由这五个表，组成了名为信息的数据库（如图一）。其中学生档案是本系统主要的
（图一）
一张表，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。
数据库与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控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。

第六章 系统（查询模块）总体规划
6．1系统功能（查询模块）
1、查询信息的情况；
2、判断信息是否符合要求；
3、将符合条件的信息进行；
6．2流程图
学生注册
基本信息输入
学籍信息管理
班级管理
班级课程设置
课程基本信息
班级课程管理
成绩信息输入
成绩信息管理
班级设置

第七章 系统的具体实现
7．1系统登录模块的实现
1．流程图
Y
N
开始
输入登录密码
是否正确
主界面

2．界面：

界面包括的控件有标签、文本框、命令按钮等控件。
3．实现过程：
第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图：

第二步，选择窗体或控件进行属性设置，如图为窗体的属性设置界面:

第三步双击相应的控件，在控件的相应过程中编写代码：
如此窗体上“进入”与“退出”按钮的代码如下：

７．2主界面的实现
主界面是用菜单形式表现的，如图

菜单的制作过程如下：
首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图：

此过程中要注意各菜单的名称唯一，还要注意菜单的级别，另外此设计过程中我们还可以给菜单加快捷键。
最后设置如下的代码（只要单击菜单即可设置各菜单代码），代码如下：

主要是通过Show方法调用相应的窗体。
7．3各功能的实现
7．3．1学科管理模块的实现：
１、运行界面：

2．实现过程：
第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。
第二步，选择窗体或控件进行属性设置，同上一小结。
其它属性和控件的设置方法类似。
第三步双击相应的控件，在控件的相应过程中编写代码：
窗体的load事件为：
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
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 = ""
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 ("自开")
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

7．3．2打印统计：
运行打印统计后可以按条件把符合条件的各种信息以报表形式罗列出来，各种信息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、课程统计分析、成绩统计分析和交费统计分析五类。
班级统计分析

代码如下：
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

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
档案分析统计

代码如下：
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
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 Sub

Private Sub Text1_Change()

End Sub
课程统计分析

代码如下：
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 Not IsNull(Text1) Then
SQLadd = SQLadd + "and 专业='" + Text1 + "'"
End If

If Check2.Value = 1 And Not IsNull(Combo1) Then