。。。。。。。。。。。。。。。。。。。

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

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

上一页  [1] [2] [3]