学生信息管理系统全套VBACCESS样本.doc

学生信息管理系统全套(VB+ACCESS)
［ 作者：Admin     来源：博景源     点击数： 2464     更新时间：-1-11   ］

学生信息管理系统是典型信息管理系统 (MIS)，其开发重要涉及后台数据库建立和维护以及前端应用程序开发两个方面。对于前者规定建立起数据一致性和完整性强、数据安全性好库。而对于后者则规定应用程序功能完备，易使用等特点。
通过度析，咱们使用MICROSOFT公司VISUAL BASIC开发工具，运用其提供各种面向对象开发工具，特别是数据窗口这一能以便而简洁操纵数据库智能化对象，一方面在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成顾客满意可行系统。

核心字：控件、窗体、域、数据库。

–––––––––––––––––前  言–––––––––––––––––
随着学校规模不断扩大，学生数量急剧增长，关于学生各种信息量也成倍增长。面对庞大信息量需要有学生管理系统来提高学生管理工作效率。通过这样系统可以做到信息规范管理、科学记录和迅速查询、修改、增长、删除等，从而减少管理方面工作量。
本系统重要用于学校学生信息管理，总体任务是实现学生信息关系系统化、规范化和自动化，其重要任务是用计算机对学生各种信息进行寻常管理，如查询、修改 、增长、删除，此外还考虑到学生选课，针对这些规定设计了学生信息管理系统本系统重要用于学校学生信息管理，总体任务是实现学生信息关系系统化、规范化和自动化，其重要任务是用计算机对学生各种信息进行寻常管理，如查询、修改 、增长、删除，此外还考虑到学生选课，针对这些规定设计了学生信息管理系统。
本系统重要涉及学生信息查询、教务信息维护和学生选课三某些。其功能重要有：
⒈关于学籍等信息输入，涉及输入学生基本信息、所在班级、所学课程和成绩等。
⒉学生信息查询，涉及查询学生基本信息、所在班级、已学课程和成绩等。
⒊学生信息修改。
⒋班级管理信息输入，涉及输入班级设立、年级信息等。
⒌班级管理信息查询。
⒍班级管理信息修改。
⒎学生课程设立和修改。

目     录

前言
第一章    Visual Basic 概述                        
1.1   Visual Basic 语言特点
1.2   Visual Basic 系统几种程序应用中惯用名词
第二章    Windows 下Visual Basic 编程环境简介
2.1 面对对象编程
2.2 实现菜单选项
2.3 实现工具栏
第三章    如何开发一种学生信息管理系统查询模块
3.1 学生信息系统设计分析
3.2 编程环境选取
3.3 关系型数据库实现
3.4 两者结合(DBA)
第四章    使用Access 创立数据库
4.1 数据库概念
4.2 新建一种数据库
4.3 修改已建数据库
第五章    可行性分析
第六章    系统总体规划
6.1 系统功能
6.2 系统流程图
第七章    系统详细实现
7.1 各功能实现
7.1.1 课程管理
7.1.2 打印记录
结束语
后记
重要参照文献

第一章     Visual Basic 概述
1.1 Visual 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)
模块是指某些运算量或过程进行声明或定义一种集合。系统程序大体可提成四个模块：数据输入、依照查询、数据打印和通讯。

第二章 Windows下Visual Basic 编程环境简介
2.1 面对对象编程
面向对象设计办法 (OOP，Objected Programming) 从应用领域内问题着手，以直观自然方式描述客观世界实体。Visual Basic 作为一种面向对象编程办法，把程序和数据封装起来作为一种对象，并为每个对象赋予相应属性。在设计对象时，不必编写建立和描述每个对象程序代码，而是用工具画在界面上，由 Visual Basic 自动生成对象程序代码并封装起来。Visual Basic 应用程序基本构建块是顾客所创立对象，每一种对象都具备某些特性和行为（属性、事件和办法）。开发人员可以最有效运用所创立每一种对象。使用应用程序具备可通用性可说扩展性和强有力功能。
Visual Basic 应用由一系列对象构成，涉及有函数、菜单、函数、构造和数据窗口、顾客对象、顾客事件等等，对象中又包括若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。
2.2 实现菜单选项
菜单是程序最重要特性之一，大多数程序都依赖一种定义良好菜单使程序易于使用和维护，Visual Basic 也提供了强大创立菜单功能是程序更加原则。
本系统使用 Visual Basic 菜单编辑器建立菜单或者修改已经存在菜单，您也可以使用Visual Basic Application Wizard 来操作。
2.3 实现工具栏
CoolBar控件与Office 中看到CoolBar是类似。CoolBar就是一种可以在窗体上浮动工具，同步也是其她ActiveX容器。通过在CoolBar中迁入其她空间你也可以向顾客提供更好灵活性和义用性。
选取“工程”下拉菜单中“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选取“Microsoft Windows Common Controls 6.0”后工具相中增长改控件。
本系统就用了Cool工具中Statubar控件，在系统这一界面中，添加了状态栏，在第一种栏中，在样式这一栏中选取了文本，在第二个栏中，选取了系统日期，第三个栏中选取了系统时间，这样，任何时候操作本系统，都可以看到当前时间和日期。

第三章 如何开发一种学生信息管理系统查询模块？
3.1查询模块设计分析
依照实际状况，咱们使用原型法(Rapid Prototyping) 即以少量代价迅速地构造一种可执行软件模型。使顾客可以较快地拟定需求，然后采用循环进化开发方式，对系统模型作持续精化，将系统需具备性质逐渐增长上去，直到所有性质所有满足。此时模块也发展成为最后产品了。
3.2编程环境选取
微软公司Visual Basic 6.0是Windows应用程序开发工具，使当前最为广泛、易学易用面向对象开发工具。Visual Basic提供了大量控件，这些控件可用于设计界面和实现各种功能，减少了编程人员工作量，也简化了界面设计过程，从而有效提高了应

用程序运营效率和可*性。故而，实现本系统VB是一种相对较好选取。
3.3关系型数据库实现
Access就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access长处在于它能使用数据表达图或自定义窗体收集信息。数据表达图提供了一种类似于Excel电子表格，可以使数据库一目了然。此外，Access容许创立自定义报表用于打印或输出数据库中信息。Access也提供了数据存储库，可以使用桌面数据库文献把数据库文献置于网络文献服务器，与其她顾客共享数据库。Access 是一种关系数据库工具，关系数据库是已开发最通用数据库之一。如上所述，Access作为关系数据库开发具备了许多长处，可以在一种数据包同步拥有桌面数据库便利和关系数据库强大功能。
3.4两者结合(DBA)
微软JET数据库引擎提供了与数据库打交道途径，咱们是通过它以及Visual Basic来访问数据库并对其进行各种操作。Visual Basic、Access以及其她微软软件产品都是通过共用JET数据库引擎，从而给顾客提供了丰富数据类型。
ADODC控件在数据库中信息与将信息显示给顾客看Visual Basic 程序之间架起了一座桥梁。咱们可以设立ADODC控件各个属性，告诉它要调用那个数据库哪个某些。缺省状况下，ADODC控件依照数据库中一种或各种数据库表建立一种dynaset-type（动态集合）类型记录集合。一种记录集合是动态也就意味着，当本来数据表中容变化了后来，该记录集合中记录也会随之变化。将ADODC控件放置在窗体中之后，咱们还必要在该控件与要解决数据库之间建立联系。

第四章 使用Access创立数据库
4.1数据库概念
数据库是一种存储数据并对数据进行操作工具。数据库作用在于组织和表达信息，简而言之，数据库就是信息集合。计算机数据库可以分为两类：非关系数据库(flat-file)和关系数据库（relational）。关系数据库中包括了各种数据表信息，数据库具有各个不同某些术语，象记录、域等。
4.2新建一种数据库
创立任何一种数据库第一步是仔细规划数据库，设计必要是灵活、有逻辑。创立一种数据库构造过程被以为是数据模型设计。
1．  标记需要数据；
2．  收集被子标记字段到表中；
3．  标记主核心字字段；
4．  规范数据；
5．  标记指定字段信息；

4.3修改已建数据库
   数据库修改分为；添加、编辑和删除记录。这三种操作均可由Visual Basic创立程序来完毕，下面章节将详细描述实现详细办法
第五章 可行性分析
学生信息，作为一种学校，就有一定工作量存在，而学生信息，它工作量也许是其他信息工作量几倍，班级增长、班级查找、班级修改；学生档案；课程管理；成绩管理；缴费管理；记录等等，每个信息数据都在不断地变化着，如果采用人工方式进行操作，那么，一天工作量，足以让人觉得比较繁琐，吃不消。针对这样状况，采用让数据查询变得简朴化，数据变更让每个人都在任何时刻都可以理解到。
学生信息管理系统是为本校开发，本系统所采用语言是Visual Basic，用Microsoft Access 数据库完毕。该系统总体有四某些构成，涉及学生信息查询、教务信息维护、学生选课及顾客管理。通过本系统，把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地筹划、组织和控制。通过本校内部信息，根据统一数据信息进行管理，把任何一块信息所产生数据变动及时地反映给其他有关信息，做到数据共享。
本系统重要信息流程为：教务信息维护接受学生信息，学生信息查询依照教务信息维护学生信息做出对所接受信息合理性进行判断，并交于信息维护进行相应修改，再把信息存入数据库中。学生选课是对学生进行相应选取自己有关课程。最后进行打印。
采用本系统，可以使整个系统内部所有信息工作简化，提高工作效益。由于采用统一数据信息，使有关资料可以迅速地查询所需数据、资料及其他信息，使信息迅速高效运营。

本系统中使用到数据表重要有班级表、成绩表、缴费表、课程表、学生档案、顾客资料，由这六个表，构成了名为信息数据库（如图一）。其中学生档案是本系统重要
（图一）
一张表，所有信息都是依照这张学生档案进行关于操作，重要字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其中日期数据类型为日期/时间天型，其他数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课教师、学时、上课地点、课程性质、考试性质；顾客资料中字段涉及：顾客名、密码、身份。
数据库与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流程图

[1] [2] [3] [4] [5]  下一页

学生注册

基本信息输入

学籍信息管理

班级管理

班级课程设立

课程基本信息

班级课程管理

成绩信息输入

成绩信息管理

班级设立

第七章 系统详细实现
7.1各功能实现
7.1.1课程管理：课程设立（如：界面如图二）
（图二）
运营程序后，进入课程管理模块，课程管理模块第一块是课程设立，在这模块中可以把专业、年级、学期、课程名称、教材、任课教师、学时、上课地点、课程性质和考试性质等信息输入，以便使用。
下面为其代码：
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
课程管理：课程查询（如：界面如图三）
（图三）
当输入查询类别、运算符和条件后可以查找到所需要课程设立，或按查询时间来查询，输入所要查找时间段，就可查到所要课程设立。
代码如下：
Dim sqlstr As String

Private Sub Combo1_Change()

End Sub

Private Sub Combo2_Change()

End Sub

Private Sub Combo4_Change()

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

a = Trim(Combo4)
Select Case a
    Case "="
        KCCX2 = "" & Combo3.Text & " " & Combo4.Text & " '" & Trim(Text2) & "'"
    Case "like"
        KCCX2 = "Instr(1," & Combo3.Text & ",'" & Trim(Text2.Text) & "')<>0 "
End Select

If Option1.Value = True Then
    If KCCX1 = "" Then
            strTiaoJian = "select * from 课程表 where " & KCCX2
    ElseIf KCCX2 = "" Then
     &
上一页  [1] [2] [3] [4] [5]  下一页
bsp;      strTiaoJian = "select * from 课程表 where " & KCCX1
        Else
            strTiaoJian = "select * from 课程表 where " & KCCX1 & "and " & KCCX2
    End If
ElseIf Option2.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 & "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
                    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(str2，"yyyy-mm-dd") & "#"
    Else
        sqlstr = sqlstr & " and " & Trim(Combo5.Text) & ">=#" & Format(str1，"yyyy-mm-dd") & "# and  " & Trim(Combo5.Text) & "<= #" & Format(str2，"yyyy-mm-dd") & "#"
    End If

    If sqlstr = "" Then
        MsgBox "请先输入查找时间！"
        Exit Sub
    End If

    strTiaoJian = "select 专业,年级,学期,课程名称,教材,任课教师,学时,上课地点,课程性质,考试性质 from 课程表 where " & sqlstr
    Unload Me
    Frm_UpdateGrean.Show 1
End If

If Option3.Value <> True And Option4.Value <> True Then
    MsgBox "请选取查询方式！"，vbOKOnly，"警告"
    Exit Sub
End If
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Form_Load()
Dim i，j As Integer
For i = 1999 To
    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 = ""
Combo2.Text = ""
Text1.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Text2.Text = ""
Combo