学生成绩管理系统的设计与实现(2)

图2-4 学生信息查询流图

3.1学生成绩查询系统功能需求简介
学生成绩查询系统对学校加强学生成绩管理有着极其重要的作用。由于各个大学都在持续扩招，学生的数量日益庞大，传统的手工成绩管理不仅工作量大，而且容易出现问题。
3.2功能需求描述
1、用户管理功能

用户分为管理员、教师用户、学生用户三类。不论是管理员或教师用户，还是学生用户都需要通过用户名和口令进行登录。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

按学生角度管理教师可以看到学生信息和成绩信息。学生信息包括学号、姓名、班级、生日、性别、地址、电话和简历。当教师用鼠标双击某一学生信息时，可以自动显示出该课程的这个学生所有课程的学习成绩，并同时自动计算出这个学生的总分和平均分。在成绩信息中，教师可以对学习成绩进行增加、修改和删除。并能够打印报表。

3、学生对成绩的查看功能

学生用户登录后，学生可以看到自己的学生信息和成绩信息。学生信息包括学号、姓名、班级、生日、性别、地址、电话和简历。成绩信息包括这个学生的所有课程的成绩信息。。。。。。。。。。。。。。。。。。。。。。。。。。

Private Sub CmdOk_Click()
Dim Conn As New ADODB.Connection
Dim mlink As String
mlink = "provider=microsoft.jet.oledb.3.51;data source=score.mdb;"
Conn.Open mlink
'当用户名密码为空时给出提示
If Text1.Text = "" Then
MsgBox "请。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
在frmlogin窗体中如果用户登录成功，将会出现如图4-3所示的MDI主窗体。

4-3系统主窗体

若是学生用户，则有些菜单项不可用，只能运行本系统的部分功能（即重新登录和信息查询功能可用）。如图4-4

Option Explicit

'''当改变记录集时，需要刷新整个网格控件

Sub RefreshGrid()

grdScan.DataMember = ""

grdScan.Refresh

If DataEnv.rssqlStudent.State <> adStateClosed Then DataEnv.rssqlStudent.Close

DataEnv.rssqlStudent.Open

grdScan.DataMember = "sqlStudent"

grdScan.Ref...