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

。

1.3 项目提出的意义

现在我国的大中专院校的学生成绩管理水平普遍不高，有的还停留在纸介质基础上，这种管理手段已不能适应时代的发展，因为它浪费了了许多的人力和物力。在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。如果本系统能被学校所采用，将会改变以前靠手工管理学生成绩的状况，可以树立良好的办学形象，提高工作效率。

1.4 系统开发所用的技术准备
1.4. 1数据库技术的现状与发展

     数据库是60年代末出现的一门计算机软件技术，到现在虽然只有三十多年的历史，但在理论和时间。。。。。。。。。。。。。。。。。。。。。。。。。。。。

        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...

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