基于VB的学生成绩管理系统设计说明_0

---------------------------------------------------------------最新资料推荐------------------------------------------------------ 基于VB的学生成绩管理系统设计说明学生成绩管理系统设计说明（本设计以 VB 为前台对数据库进行操作） 1. 需求本系统主要用于学校的学生成绩管理。

1. 用户身份的验证
2. 学生基本信息管理
3. 按班级选课
4. 学生成绩的管理 2. 总体设计本系统包括：
标准模块、系统登录模块、主界面模块、系统管理模块、学生基本信息管理模块、选课模块、成绩管理模块。

1. 标准模块定义公共变量和过程。

2. 系统登录模块进行用户身份的验证。

3. 主界面模块作为系统总界面，供用户进行各项选择。

4. 系统管理模块用户管理及系统退出。

5. 学生基本信息管理模块学生基本信息的录入和查询。

6. 选课模块为班级选课。

7. 成绩管理模块进行学生成绩的录入及查询。

3. 数据库设计及配置 3.1. 数据库设计该数据库由以下几个表组成：
用户表、学生基本信息表、班级课程表、学生成绩表。

3.1.1 用户表包括用户名、密码、是否是超级用户。

字段名称用户名密码是否为超级用户数据类型文本文本布尔 3.1.2 学生基本信息表包括学号、姓名、电话、地址、班级名称、性别。

1/ 18
字段名称数据类型学号文本姓名电话地址班级名称性别文本文本文本文本文本 3.1.3 班级课程表包括班级名称、课程名称。

字段名称班级名称课程名称数据类型文本文本 3.1.4 学生成绩表包括学号、课程名称、成绩。

字段名称学号课程名称成绩数据类型文本文本数值（单精度浮点型） 3.2. 数据库中各表关系学生基本信息表与班级课程表通过班级名称字段相关联，学生基本信息表与学生成绩表通过学号字段相关联，班级课程表与学生成绩表通过课程名称字段相关联。

4. 系统实现 4.1. 标准模块（公有模块） 4.1.1 标准模块中的数据定义用于定义全局变量及过程。

本系统定义了当前用户名及用户类型。

序号变量名 1 UserName 2 UserType 数据类型String Boolean 4.1.2 标准模块代码设计 Option Explicit Public UserName As String Public UserType As Boolean 4.2. 系统登录模块 4.2.1 说明进行用户身份的验证。

特定的用户才能登录到系统。

4.2.2 窗体设计系统登录窗体的窗体类型为 Form，界面如下图所示：
主要控件属性如下表所示：
对象名类型 FrmLogin 窗体属性 Caption 值学生成绩管理
---------------------------------------------------------------最新资料推荐------------------------------------------------------
系统登录用户名：
密码：
说明学生成绩管理系统登录窗体 Label1 Label2 Text1 标签
标签文本框文本框命令按钮 Caption Caption Caption Text 用于输入用户名用于输入密码确定当前输入的用户名和密码，进
行用户登录。

登录成功后进入主界面。

如果三次输入错误的用户和密码，程序将自动退出取消操作，
退出程序连接所使用的数据库，ConnectionString 属性
在界面中设置，RecordSource 属性在代码中设置。

Text2 cmdOk Text 确定cmdCancel 命令按钮Caption Adodc1 Adodc 取消 ConnectionString 4.2.3 代码设计公共
定义 Option Explicit Dim Count1 As Integer 窗体装载处理程序（Load） Private Sub Form_Load() Count1 = 0 错
误次数清零 End Sub 取消按钮（cmdCancel）处理程序（Click）Private Sub cmdCancel_Click() Unload Me 系统
退出 End Sub 确定按钮（cmdOk）处理程序（Click）Private Sub cmdOk_Click() Dim s1 As String Dim Password As String On Error Resume Next If Text1. Text = Then 用户名为空，则退出 MsgBox (用户名不能为空, 请重新输入) Text1. SetFocus Exit Sub
3/ 18
End If 按输入的用户名进行查询 s1 = SELECT *
from 用户表 WHERE 用户名=‘ Text1. Text ‘ Adodc1. RecordSource = s1 Adodc1. Refresh If Adodc1. Recordset. EOF = False Then 判断查询结果 UserName
= Adodc1. Recordset. Fields(0) 有该用户名，即用户名正确
Password = Adodc1. Recordset. Fields(1) UserType =
Adodc1. Recordset. Fields(2) If Password = Text2.
Text Then 判断密码是否正确Unload Me
密码正确，关闭当前窗体 FrmMain. Show 显
示主界面窗体Exit Sub Else MsgBox (密码错误, 请重新输入) 密码错误，提示
Text2. SetFocus Text2. Text = End If
Else 没有该用户名，即用户名错误 MsgBox
用户名错误, 请重新输入Text1. SetFocus Text1. Text = Text2. Text = End If Count1 =
Count1 + 1 错误次数累计 If Count1 = 3 Then MsgBox 错误超过 3 次, 系统退出 Unload Me End If
End Sub 4.3. 主界面模块 4.3.1 说明作为系统总界面，供用户
进行各项选择。

4.3.2 窗体设计主界面模块窗体类型为 MDIForm，界面如下
图所示。

4.3.3 代码设计窗体变为活动窗体处理程序
---------------------------------------------------------------最新资料推荐------------------------------------------------------
（MDIForm－Activate）Private Sub MDIForm_Activate() WindowState = 2 窗体最大化状态 StatusBar1.
Panels(1) . Text = 用户名: UserName 在状态栏显示用户名、
用户类型 If UserType = True Then StatusBar1.
Panels(2) . Text = 用户类型: 管理员Else StatusBar1. Panels(2) . Text = 用户类型: 普通用户 End If
If UserType = False Then 对普通用户设某些菜单项不可用
AA1. Enabled = False BB1. Enabled = False CC.
Enabled = False DD1. Enabled = False Toolbar1. Buttons(1) . Enabled = False 对普通用户设工具栏的
某些按钮不可用 Toolbar1. Buttons(3) . Enabled = False Toolbar1. Buttons(6) . Enabled = False Toolbar1.
Buttons(7) . Enabled = False Toolbar1. Buttons(9) .
Enabled = False End If End Sub 定时器（Timer1）处理
程序（Timer） Private Sub Timer1_Timer() StatusBar1.
Panels(3) . Text = Now 在状态栏中显示当前时间 End Sub 工具栏（Toolbar1）处理程序（ButtonClick） Private Sub
Toolbar1_ButtonClick(ByVal Button As MSComctlLib. Button)
Select Case Button. Index Case 1 Form11.
Show (1) 用户管理 Case 3 Form21.
Show (1) 学生基本信息维护Case 4
5/ 18
Form22. Show (1) 学生基本信息查询 Case 6 Form31. Show (1) 课程添加Case 7 Form32. Show (1) 课程删除Case 9 Form41. Show (1) 学生成绩维护Case 10 Form42. Show (1) 学生成绩查询Case 12 Unload Me 系统退出 End Select End Sub 用户管理
菜单项处理程序（AA1－Click）Private Sub AA1_Click()
Form11. Show (1) End Sub 退出菜单项处理程序（AA3－click）
Private Sub AA3_Click() Unload Me End Sub 学生基本信
息维护菜单项处理程序（BB1－click） Private Sub BB1_Click()
Form21. Show (1) End Sub 学生基本信息查询菜单项处理程序
（BB2－click） Private Sub BB2_Click() Form22. Show (1)
End Sub 课程添加菜单项处理程序（CC1－click） Private Sub
CC1_Click() Form31. Show (1) End Sub 课程删除菜单项
处理程序（CC2－click） Private Sub CC2_Click() Form32.
Show (1) End Sub 学生成绩维护菜单项处理程序（DD1－click）
Private Sub DD1_Click() Form41. Show (1) End Sub 学生
成绩查询菜单项处理程序（DD2－click） Private Sub DD2_Click()
Form42. Show (1) End Sub 4.4. 用户管
理模块 4.4.1 说明创建、删除用户。

设定用户权限。

4.4.2 窗体设计 4.4.3 代码设计上一条（Command1）处
---------------------------------------------------------------最新资料推荐------------------------------------------------------
理（Click） Private Sub Command1_Click() Command2.
Enabled = True Adodc1. Recordset. MovePrevious If
Adodc1. Recordset. BOF Then Command1. Enabled = False Adodc1. Recordset. MoveFirst End If End Sub 下一条
（Command2）处理（Click）Private Sub Command2_Click() Command1. Enabled = True Adodc1. Recordset. MoveNext
If Adodc1. Recordset. EOF Then Command2. Enabled =
False Adodc1. Recordset. MoveLast End If End Sub
添加（Command3）处理（Click） Private Sub Command3_Click()
If Command3. Caption = 添加 Then Command3. Caption =
确定 Command1. Enabled = False Command2.
Enabled = False Command4. Enabled = False Adodc1. Recordset. AddNew Text1. SetFocus Else
If Text1. Text = Then MsgBox (用户名不能为空) Exit Sub End If Command3. Caption =
添加 Adodc1. Recordset. Update Command1.
Enabled = True Command2. Enabled = True Command4. Enabled = True End If End Sub 删除（Command4）
处理（Click） Private Sub Command4_Click() Adodc1. Recordset. Delete Adodc1. Recordset. MoveNext If
Adodc1. Recordset. EOF Then Adodc1. Recordset.
7/ 18
MoveLast End If End Sub 退出（Command5）处理（Click）Private Sub Command5_Click() Unload Me End Sub 4.5.
学生基本信息管理模块 4.5.1 说明学生基本信息的添加、删除、
查询。

该模块有两个窗体：
学生基本信息维护窗体和学生基本信息查询窗体 4.5.2 学生
基本信息维护窗体 4.5.2.1. 窗体设计主要控件属性如下表所
示：
对象名类型Form21 窗体Adodc1 Adodc 属性Caption ConnectionString RecordSource 值学生基本信息维护说明学
生基本信息维护窗体连接所使用的数据库，ConnectionString 、 RecordSource属性都在界面中设置。

作为 DataGrid1 的数据源用于显示学生基本信息表内容CommandType 2－adCmdTable 学生基本信息表 Adodc1 DataGrid1 DataGrid DataSource Command1 命令按钮 Caption 退出 4.5.2.2.
代码设计Private Sub Form_Load() DataGrid1. AllowAddNew = True DataGrid1. AllowDelete = True DataGrid1. AllowUpdate = True End Sub 退出（Command1）处理（Click） Private Sub Command1_Click() Unload Me End Sub
窗体装载处理程序（Load） 4.5.3 学生基本信息查询窗体
4.5.3.1. 窗体设计主要控件属性如下表所示：
对象名类型Form22 窗体Adodc1 Adodc 属性Caption
---------------------------------------------------------------最新资料推荐------------------------------------------------------ ConnectionString 值学生基本信息查询说明学生基本信息查询
窗体连接所使用的数据库，ConnectionString 属性在界
面中设置，RecordSource 属性在代码中设置。

连接所使用的数据库，ConnectionString、RecordSource 属性都在界面设置。

作为 DataList1 的数据源 Adodc2 Adodc ConnectionString RecordSource CommandType 1－adCmdText SELECT DISTINCT 班级
名称 FROM 学生基本信息表姓名学号班级 Adodc2 班级名
称Adodc2 班级名称Check1 Check2 Check3 Text1 Text2
DataList1 复选按钮Caption 复选按钮Caption 复选按钮
Caption 文本框文本框 DataList 选择查询条件 RowSource
ListField DataSource DataListField 用于输入姓名用于输入学号
用于选择输入班级名称 DataGrid1 DataGrid Command1 命令按钮
Caption Command2 命令按钮 Caption 显示查询得到的学生基本信
息查询退出 4.5.3.2. 代码设计查询（Command1）处
理（Click ） Private Sub Command1_Click() Dim s1 As
String s1 = If Check1. Value = 1 Then If Text1.
Text Then s1 = s1 姓名=‘ Text1. Text
‘ End If End If If Check2. Value = 1 Then
If Text2. Text Then If s1 Then s1 = s1 and End If s1 = s1 学
9/ 18
号=‘ Text2. Text ‘ End If End If If Check3.
Value = 1 Then If DataList1. Text Then If s1 Then s1 = s1 and End If s1 = s1 班级名称=‘ DataList1. Text
‘ End If End If If s1 Then s1 =
where s1 End If Adodc1. RecordSource = select * from
学生基本信息表 s1 Adodc1. Refresh Set DataGrid1.
DataSource = Adodc1 End Sub 退出（Command2）处理（Click）
Private Sub Command2_Click() Unload Me End Sub 窗体
装载处理程序（Load）Private Sub Form_Load()
DataGrid1. AllowAddNew = False DataGrid1. AllowDelete =
False DataGrid1. AllowUpdate = False End Sub 4.6. 选课
模块 4.6.1 说明该模块为一个班级选课。

4.6.2 课程添加窗体用于课程的添加和查询 4.6.2.1. 窗体
设计主要控件属性如下表所示：
对象名类型Form31 窗体Adodc1 Adodc 属性Caption ConnectionString 值课程添加说明课程添加窗体连接所使
用的数据库，ConnectionString 属性在界面中设置，RecordSource 属性在代码中设置。

Label1 Label2 Text1 Text2 DataGrid1 DataGrid 标签标
签文本框文本框 Caption Caption 班级名称课程名称用
于输入班级名称用于输入课程名称显示该班级课程 Command1
---------------------------------------------------------------最新资料推荐------------------------------------------------------
命令按钮 Caption Command2 命令按钮 Caption Command3 命令按钮
Caption 添加查询退出 4.6.2.2. 代码设计添加（Command1）处理（Click）Private Sub Command1_Click() Dim s1 As String, s2 As String On Error Resume Next If
Text1. Text = Or Text2. Text = Then MsgBox (输入不
能为空) Exit Sub End If s1 = select * from 班
级课程表 where 班级名称=‘ s2 = Text1. Text ‘ and
课程名称=‘ Text2. Text ‘ Adodc1. RecordSource = s1
s2 Adodc1. Refresh If Adodc1. Recordset. EOF =
False Then Text1. SetFocus MsgBox 该记录已存
在, 请重新输入, , 警告Exit Sub End If s1 = select * from 班级课程表 Adodc1. RecordSource = s1 Adodc1. Refresh Adodc1. Recordset. MoveLast Adodc1. Recordset. AddNew Adodc1. Recordset. Fields(班级名称) =
Text1. Text Adodc1. Recordset. Fields(课程名称) = Text2.
Text Adodc1. Recordset. Update Adodc1. Refresh s1 = select 课程名称from 班级课程表where 班级名称
=‘ Text1. Text ‘ Adodc1. RecordSource = s1 Adodc1. Refresh Set DataGrid1. DataSource = Adodc1. Recordset Text2. SetFocus Text2. Text = Exit Sub
End Sub 查询（Command2）处理（Click） Private Sub
11/ 18
Command2_Click() Dim s1 As String s1 = select 课
程名称from 班级课程表where 班级名称=‘ Text1. Text
‘ Adodc1. RecordSource = s1 Adodc1. Refresh Set DataGrid1. DataSource = Adodc1. Recordset End Sub 退出（Command3）处理（Click）Private Sub Command3_Click() Unload Me End Sub 窗体装载处理程序（Load） Private Sub Form_Load() DataGrid1. AllowAddNew = False DataGrid1. AllowDelete = False DataGrid1. AllowUpdate = False End Sub 4.6.3 课程删除窗体 4.6.3.1. 窗体设计
主要控件属性如下表所示：
对象名类型 Form32 窗体 Adodc1 Adodc 属性 Caption ConnectionString RecordSource 值课程添加说明课程删除及
修改窗体连接所使用的数据库，ConnectionString、RecordSource属性都在界面中设置。

作为 DataList1 的数据源 CommandType 1－adCmdText SELECT DISTINCT 班级名称from 班级课程表Adodc2 Adodc ConnectionString 连接所使用的数据库，ConnectionString 在界面中设置， RecordSource 属性在代码
中设置。

用于选择输入班级名称 Label1 Label2 DataList1 标签
标签 DataList Caption Caption RowSource ListField DataSource DataListField 班级名称课程列表 Adodc1 班级名称 Adodc1 班级
---------------------------------------------------------------最新资料推荐------------------------------------------------------
名称DataGrid1 DataGrid 显示查询得到的学生基本信息
4.6.3.2. 代码设计退出（Command1）处理（Click） Private
Sub Command1_Click() Unload Me End Sub 数据列表框（DataList1）处理（Click） Private Sub DataList1_Click() Dim s1 As String s1 = select * from 班级课程表 where 班
级名称=‘ DataList1. Text ‘ Adodc2. RecordSource =
s1 Adodc2. Refresh Set DataGrid1. DataSource = Adodc2
End Sub 窗体装载处理程序（Load） Private Sub Form_Load() DataGrid1. AllowDelete = True DataGrid1. AllowUpdate =
True DataGrid1. AllowAddNew = False End Sub 4.7. 成绩
管理模块 4.7.1 说明进行学生成绩的录入及查询。

4.7.2 成绩录入窗体进行学生成绩的添加、修改及删除。

4.7.2.1. 窗体设计 4.7.2.2. 代码设计录入（Command1）处理（Click）Private Sub Command1_Click() Dim s1 As String, s2 As String, s3 As String On Error Resume Next s1 = select * from 学生成绩表 s2 = where 学号=‘ List2. Text ‘ and s3 = 课程名称
=‘ List1. Text ‘ Adodc3. RecordSource = s1 s2
s3 Adodc3. Refresh If Adodc3. Recordset. EOF = False Then Adodc3. Recordset. Fields(2) = Val(Text1. Text) Else Adodc3. Recordset. MoveLast Adodc3.
13/ 18
Recordset. AddNew Adodc3. Recordset. Fields(0) =
List2. Text Adodc3. Recordset. Fields(1) = List1.
Text Adodc3. Recordset. Fields(2) = Val(Text1. Text) End If Adodc3. Recordset. Update Adodc3. Refresh s1 = select 学号, 成绩from 学生成绩表where 课程名称
=‘ List1. Text ‘ s2 = and 学号 in (select 学号
from 学生基本信息表s3 = where 班级名称
=‘ DataList1. Text ‘ ) Ado dc3. RecordSource = s1
s2 s3 Adodc3. Refresh Set DataGrid1. DataSource =
Adodc3 End Sub 退出（Command1）处理（Click ） Private Sub Command2_Click() Unload Me End Sub 数据列表框（DataList1）处理（Click） Private Sub DataList1_Click() Dim s1 As String, s2 As String Set DataGrid1. DataSource = Nothing s1 = select 课程名称 from 班级课程
表s2 = where 班级名称=‘ DataList1. Text
‘ Adodc2. RecordSource = s1 s2 Adodc2. Refresh If Adodc2. Recordset. EOF = True Then MsgBox 请在班
级课程表里添加该班级的课程名称 Exit Sub End If List1. Clear Adodc2. Recordset. MoveFirst Do While
Adodc2. Recordset. EOF = False List1. AddItem Adodc2. Recordset. Fields(0) Adodc2. Recordset. MoveNext Loop s1 = select 学号 from 学生基本信息表 s2 =
---------------------------------------------------------------最新资料推荐------------------------------------------------------
where 班级名称=‘ DataList1. Text ‘ Adodc2. RecordSource = s1 s2 Adodc2. Refresh If Adodc2. Recordset. EOF = True Then MsgBox 请在学生信息表里添
加该班级 Exit Sub End If List2. Clear Adodc2. Recordset. MoveFirst Do While Adodc2. Recordset. EOF = False List2. AddItem Adodc2. Recordset. Fields(0) Adodc2. Recordset. MoveNext Loop End Sub 窗体装载处理程序（Load）Private Sub Form_Load() DataGrid1. AllowDelete = True DataGrid1. AllowAddNew = False DataGrid1. AllowUpdate = False End Sub
列表框（List1）处理（Click） Private Sub List1_Click() Dim s1 As String, s2 As String, s3 As String s1 = select
学号, 成绩 from 学生成绩表 where 课程名称=‘ List1. Text
‘ s2 = and 学号 in (select 学号 from 学生基本信息表
s3 = where 班级名称=‘ DataList1. Text ‘ ) Adodc3. RecordSource = s1 s2 s3 Adodc3. Refresh Set DataGrid1. DataSource = Adodc3 End Sub 列表框（List2）处理（Click） Private Sub List2_Click() Text1. Text = End
Sub 4.7.3 成绩查询窗体进行学生成绩的查询 4.7.3.1.
窗体设计主要控件属性如下表所示：
对象名类型Form42 窗体Adodc1 Adodc 属性Caption
15/ 18
ConnectionString 值学生成绩查询说明学生成绩查询窗体连
接所使用的数据库，ConnectionString 在界面中设置，RecordSource 属性在代码中设置。

连接所使用的数据库，ConnectionString 在界面中设
置，RecordSource 属性在代码中设置。

用于选择查询条件 Adodc2 Adodc ConnectionString Option1(0)
单选按钮 Caption Option1(1) 单选按钮 Caption Label1 标签
Label2 标签 Combo1 组合框 Combo2 组合框 DataGrid1 DataGrid Command1 命令按钮 Caption 按班级按学号Label1 Label2 Caption Caption 用于选择班级名称用于选择学号和课程名称
用于显示查询得到的学生成绩退出 4.7.3.2. 代码设计公共
定义 Option Explicit Dim opt As Integer 组合框（Combo1）
处理（Click） Private Sub Combo1_Click() Dim s1 As
String, s2 As String Set DataGrid1. DataSource = Nothing Combo2. Clear If opt = 0 Then s1 = select 课程名
称 from 班级课程表 where 班级名称=‘ s2 = Combo1.
Text ‘ group by 课程名称 Adodc2. RecordSource = s1
s2 Else s1 = select 学号 from 学生基本信息表
where 班级名称=‘ s2 = Combo1. Text
‘ Adodc2. Reco rdSource = s1 s2 End If Adodc2. Refresh Do While Adodc2. Recordset. EOF = False Combo2. AddItem Adodc2. Recordset. Fields(0) Adodc2.
---------------------------------------------------------------最新资料推荐------------------------------------------------------ Recordset. MoveNext Loop End Sub 组合框（Combo2）处理
（Click） Private Sub Combo2_Click() Dim s1 As String,
s2 As String, s3 As String Set DataGrid1. DataSource =
Nothing If opt = 0 Then s1 = select * from 学生
成绩表where 课程名称=‘ s2 = Combo2. Text
‘ and 学号 in (select 学号 s3 = from 学生基本
信息表where 班级名称=‘ Combo1. Text ‘ ) Adodc1. RecordSource = s1 s2 s3 Adodc1. Refresh Set DataGrid1. DataSource = Adodc1 Else s1 =
select * from 学生成绩表where 学号=‘ Combo2. Text
‘ Adodc1. RecordSource = s1 Adodc1. R efresh Set DataGrid1. DataSource = Adodc1 End If End Sub 退出（Command1）处理（Click ） Private Sub Command1_Click() Unload Me End Sub 窗体装载处理程序（Load） Private Sub
Form_Load() DataGrid1. AllowAddNew = False DataGrid1. AllowDelete = False DataGrid1. AllowUpdate =
False End Sub 单选按钮（Option1）处理（Click ） Private Sub
Option1_Click(Index As Integer) If Index 1 Then Exit Sub End If Combo1. Clear Combo2. Clear
Set DataGrid1. DataSource = Nothing opt = Index If
Index = 0 Then ‘ 按班级查询
17/ 18
Label1. Caption = 请选择班级 Label2. Caption = 请选
择课程ElseIf Index = 1 Then ‘ 按学号
查询 Label1. Caption = 请选择班级 Label2.
Caption = 请选择学号 End If Adodc2. RecordSource = select distinct 班级名称from 班级课程表
Adodc2. Refresh Do While Adodc2. Recordset. EOF = False Combo1. AddItem Adodc2. Recordset. Fields(0) Adodc2. Recordset. MoveNext Loop Combo1. Text = Combo1.
List(0) End Sub
.。