学生数据表

　　查询条件

　　查询结果

　　学生信息录入

　　成绩信息录入

　　班级信息录入

　　课程信息录入

　　图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