学生档案管理系统 题目：学生档案管理系统 专业：电子商务 班级：09电商T-1班 姓名： 李 萍 指导老师：段志祥 1
目 录 第一部分 前 言........................................................................................................................... 3 第二部分 绪论............................................................................................................................... 4 第三章 总体设计........................................................................................................................... 5 3．1 系统功能描述 ................................................................................................................... 5 3．2 数据流图与数据字典 ......................................................................................................... 6 3．2．1 数据流图 ................................................................................................................... 6 2．3 数据库设计 ....................................................................................................................... 11 2．3．1 库设计 ..................................................................................................................... 11 第四章 详细设计......................................................................................................................... 13 第五章 系统具体实现................................................................................................................... 15 5.1各功能的实现 ....................................................................................................................... 15 主要参考文献................................................................................................................................. 23
2
第一部分 前 言
随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。
本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统；本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。
本系统主要包括学生信息查询、教务信息维护和学生选课三部分。其功能主要有： 1、有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。 2、学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。 3、学生信息的修改。
4、班级管理信息的输入，包括输入班级设置、年级信息等。 5、班级管理信息的查询。
6、班级管理信息的修改。 7、学生课程的设置和修改。
学生信息管理系统是典型的信息管理系统 (MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。
经过分析，我们使用MICROSOFT公司的VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。
关键字：控件、窗体、域、数据库。
3
第二部分 绪论
学生信息管理系统是一个教育单位不可缺少的部分。一个功能齐全、简单易用的信息管理系统不但能有效地减轻学校相关工作人员的工作负担，它的内容对于学校的决策者和管理者来说都至关重要。所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案、统计和查询数据，这种管理方式存在着许多缺点,如:效率低、保密性差,人工的大量浪费；另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着来越重要的作用。
作为计算机应用的一部分,使用计算机对学校的各类信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查询方便、效率高、可靠性好、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学校信息管理的效率,也是一个单位科学化、正规化管理,与世界接轨的重要条件。
4
第三章 总体设计
3．1 系统功能描述
本系统的主要任务是实现对学校教导处的学生信息管理、成绩管理、课程管理及相关查询。其主要功能包括：
1、学生信息管理功能
班级管理。提供给班主任进行本班学生的信息更新、删除。
添加学生。以班级为单位，进行学生入库。其中分为单个添加和成批添加。单个添加学生供数量较少的学生信息入库；成批添加可以从现存的学生信息EXCEL文件中成批录入到数据库中。
删除学生。当学生毕业后，学生信息转移备份数据库中，系统的基本数据库中需要删除学生信息。该功能主要进行成批地删除学生信息，如连续学号区段的多位学生信息删除，整个班级的删除，所有学生信息的删除。
新生管理。本部分的功能主要有新生导入、分班、及设置学号。新生导入实现从现存的EXCEL新生名单中录入学生信息。分班功能实现按新生的报考专业、成绩及性别进行分班。设置学号实现自动为各班学生编发学号。
学生信息备份。在学生信息删除前，将其按班级为单位保存到备份数据库。 2．学生成绩管理功能
分数录入。以班级为单位，录入各科目的期中、期末、总评成绩。 总分及名次。计算指定班级学生的总分及名次。
补考成绩录入。修改总评成绩，以决定最终补考人数。
成绩备份。为指定班级及指定的学期数的学生成绩保存到备份数据库中。 3、课程信息管理功能
课程管理。提供本学期各年级各专业所开课程名称的录入、修改、删除。它是学生成绩管理的基础。用以保证数据库中一致性原则。
4、查询功能。
学生信息查询。根据用户的要求，查询学生数据库的所有可能的信息，其中包括成绩查询。
备份成绩查询。按班级为单位查询备份数据库的学生信息，补考情况。
5
3．2 数据流图与数据字典 3．2．1 数据流图
根据以上的系统功能描述，设计出数据流图如下： 一、顶层数据流图与0层数据流图（图2-1至图2-2
系统时钟 学生信息管理 学 成绩管理 生 当前日期 信 学生信息 息 课程信息管理 管 查询要求 管理系统 理
系 统 查询结果 用 统计表 户 图2-1 顶层数据流图 系统时钟 2学生信 息处理 学生情况 学生信息管理 学生信息管理要求 3成绩信 成绩管理 1 成绩管理要求 息处理 成绩表 用户要 求有效 课程管理 性检查 查询要求 课程管理要求 5课程信 课程 息处理 6查询 处理 查询结果 图2-2 0层数据流图
6
二、1层数据流图（图2-3至图2-8）
2．3班 新生数据处理要求 学生信息 级管理 学生信息管理要求 班级名称及修改要求 添加要求及学生数据 2．1要求2．4添类型处加学生 理 当前时钟 数据删除单 备份数据单 2．6信息备份 图2-3 1层数据流图（a）
3．2成绩录入 2．5删除学生 2．2新生管理 新生数据处理结果
成绩管理要求
3．1要求类型处理 班级及成绩数据 班级名称 3．3总分计算 3．4成绩备份 成绩表 备份数据及班级信息
图2-4 1层数据流图（b）
7
三、学生信息管理模块分层数据流图（图2-9至图2-15）
2．2．2新
生导入 新生数据 2．2．3分2．2．1班
要求类新生数据处理要求 型处理 2．2．4新生数据及班数 设置学号
起始学号及班级名称
图2-9 新生处理
新生记录 2.2.2.1检查
记录有效性 有效记录 2.2.2.3逐行 读取记录
新生记录 成绩记录 无效记录格式 总分记录 2.2.2.2启动EXCEL调整 学生表 分班名单 2.2.3.2按报考 专业、成绩及男女生比例分班 男、女生人数 专业 班数 成绩表 学生表 学生表 2.2.3.1统计新生数据
2.2.4.1查询 班级名称 指定班级学生名单 相关记录 起始学号
图2-10 新生数据导入、分班及设置学号
2.2.4.2 按总分降序设置学号 总
8
班级名称 2.3.1查询 相关记录 信息
添加要求 2.4.1要求 类型处理 单个学生数据
2.4.3.1检查
数据格式 学生记录
学生表
指定班级学生记录 2.3..2修改 学生记录 学生记录为空
修改要求
图2-11 班级管理 单个学生数据 成批学生数据 2.4.2单个 添加学生 2.4.3成批 添加学生 图2-12 添加学生
总分表 学生表
2.4.2.1数 据录入 成绩表 图2-13 单个添加学生
成绩表
学生记录
有效格式记录 无效格式 2.4.3.2启动EXCEL调整 2.4.3.3逐行读取记录 总分表 学生表 图2-13 成批添加学生数据
9
备份数据单
2.6.1查询备份数据 学生表
备份表
备份数据 2.6.2数 据备份 图2-14 数据备份
成绩表 总分表
2.5.2删除指定范围数据 起止学号
数据删除单 班级名称 2.5.1确认数据类型 所有学生数据 2.5.3删除指定班级数据 学生表 2.5.4删除所有学生数据 成绩表 图2-15 删除学生数据
四、成绩管理模块分层数据流图：（图2-16至2-18）
课程表
总分表
班级名称 学生与课程数据 3.2.1查询学生及课程信息 成绩数据 3.2.2成 绩录入 成图2-16 成绩录入 学生表
10
成绩表
班级名称 3.3.1查询成绩数据 成绩数据 3.3.2计算总分及名次 成绩信息 总分表
图2-17 总分计算
备份数据单
3.4.1查询成绩数据 备份数据 3.4.2数 据备份 成绩表
图2-18 成绩备份
成绩备份表
七、查询模块分层数据流图：（图2-24至图2-26）
总分表
成绩表
学生信息查询要求 6.2.1要求加工 查询规则 6.2.2查 询处理 查询结果 学生表
图2-24 学生信息查询
2．3 数据库设计 2．3．1 库设计
本系统涉及到的信息主要有5类：学生信息、成绩信息、教师信息、图书信息、后备信息。由于成绩信息和教师信息与学生信息关系密切，因此将这三类信息存放在同一数据库中，以提高多种信息同时读取的速度。按以上分析，将系统的数据库设计为三个：
11
一、学生数据库：
该数据库为中包含有以下各表：
1、学生表：记录学生的基本信息，是进行学生及其它各类信息处理的基础。 2、成绩表：记录学生的期中、期末及总评的各科成绩。 3、总分表：记录学生的期中、期末及总评的总分及名次。
4、课程表：记录各专业各年级开课情况，在添加学生记录时，可根据该表的情况决定在成绩表添加学生记录的个数。
三、后备数据库：
该数据库主要保存两类信息：学生信息、成绩信息。其数据表是按用户的要求在运行过程中动态建立的。
2．3．2 表设计：
1、学生表结构： 表2.1
编号 1 2 3 4 5 6 7 8 9 10 11 12 2、课程表结构： 表2.2
编号 1 2 3
3、成绩表结构： 表2.3
编号 1 2 3 4 5 6 12
字段名称 学号 姓名 性别 出生日期 电话 家庭住址 班级 原毕业学校 是否住宿 政治面貌 入学总分 专业
字段类型 CHAR CHAR CHAR DATE CHAR CHAR CHAR CHAR CHAR CHAR LONG char 字段宽度 15 10 2 8 10 50 20 50 4 6 4 20 字段名称 课程名称 年级 专业 字段类型 CHAR CHAR char 字段宽度 15 10 20 字段名称 学号 课程名称 期中成绩 期末成绩 总评成绩 班级 字段类型 CHAR CHAR LONG LONG LONG char 字段宽度 15 15 4 4 4 20
4、总分表结构： 表2.4
编号 1 2 3 4 5 6
字段名称 学号 期中总分 期末总分 期中名次 期末名次 班级 字段类型 CHAR LONG LONG LONG LONG char 字段宽度 15 4 4 4 4 20 第四章 详细设计
根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。在这一阶段的工作中，主要任务有以下几项：
1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。
2、进行系统的流程分析，为模块的细化做好准备。 3、对每个模块进行详细的算法设计。 3．1 系统界面设计
一、登录及系统主窗口界面设计
该部分界面主要包括登录窗口、系统主窗口、修改密码窗口。 1、登录窗口界面：
本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、用户资料，由这六个表，组成了名为信息的数据库（如图一）。其中学生档案是本系统主要的
13
（图一）
一张表，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。
数据库与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控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。
14
第五章 系统具体实现
5.1各功能的实现
5.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
15
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 & \"'\ 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 \"您确定要修改吗？\提示\" 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
16
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 = \"\"
17
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
18
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 & \End Select
a = Trim(Combo4) Select Case a Case \"=\"
KCCX2 = \"\" & Combo3.Text & \" \" & Combo4.Text & \" '\" & Trim(Text2) & \"'\" Case \"like\"
KCCX2 = \"Instr(1,\" & Combo3.Text & \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
19
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 \"请选择连接方式！\警告\" Exit Sub End If End If
If (KCCX1 & KCCX2) = \"\" Then
MsgBox \"请输入查询类别！\警告\" 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 \"请正确选择年份！\信息提示\" Combo6.SetFocus Exit Sub Else
If Val(Combo6) = Val(Combo9) Then
If Val(Combo7) > Val(Combo10) Then
MsgBox \"请正确选择月份！\信息提示\" Combo7.SetFocus Exit Sub Else
If Val(Combo7) = Val(Combo10) Then If Val(Combo8) > Val(Combo11) Then
20
MsgBox \"请正确选择日期！\信息提示\"
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 \"请输入完整的日期\警告\" 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 \"请选择查询方式！\警告\"
21
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 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 (\"任课老师\")
22
'Combo3.AddItem (\"课时\") Combo3.AddItem (\"课程性质\") Combo3.AddItem (\"考试性质\") Combo4.AddItem (\"=\") Combo5.AddItem (\"学期\") Combo1.Text = \"\" 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
主要参考文献
本系统的过程中，主要的参考文献有：
《Visual Basic6.0》 林陈雷 《面向对象程序设计系列教材》 龚沛曾 《Visual Basic6.0编程实例精解》 何文俊 《学用Visual Basic 编程》 潭 浩 《Visual Basic6.0 数据库开发与专业应用》 敬 铮 《Visual Basic6.0 数据库程序设计高手》 温贤发 《Visual Basic6.0 程序设计》 陈明 人民邮电出版社 高等教育出版社 西安电子科技大学出版社 国防工业出版社 科学出版社 广播电视大学出版社
23
因篇幅问题不能全部显示，请点此查看更多更全内容