在体育达标成绩管理中，需要从大量的日常教学活动中提取相关信息，以反映体育教学情况。传统的手工操作方式，易发生数据丢失，统计错误，劳动强度高，且速度慢。使用计算机可以高速，快捷地完成以上工作。在计算机联网后，数据在网上传递，可以实现数据共享，避免重复劳动，规范体育教学管理行为，从而提高了体育成绩管理效率和水平，此外，现今体育成绩管理的繁索给具有强烈时间观念的行政人员带来了诸多不便，缺少一种完善的体育成绩管理软件，为了对学生体育成绩和学生信息的管理提供方便，因此开发了本软件。

体育达标成绩信息管理系统是为了对体育达标成绩信息实行计算机化的管理，以提高工作效率，方便用户。在开发系统的过程中，为了降低软件系统的复杂性，提高可读性、可维护性，将本子系统分为5大模块，分别是登陆系统、数据的初始化、数据查询、数据修改、系统维护共5个基础模块。每个模块又包含有若干个子功能。
系统名称：体育达标成绩信息管理系统
系统主要实现如下功能：
＊登陆系统模块
该模块主要功能是对不同级别用户进行管理及操作限制，本系统设置二级用户，分别是管理员和普通用户。
管理员：可以进行评分标准的修改以及数据查询，还可以添加删除管理员和用户的各项信息以及进行日志管理；
普通用户：只能进行数据的浏览；
＊数据的初始化模块
该模块主要功能是对学生的基本情况进行导入，体育成绩进行初始化的功能。
＊数据查询模块
该模块主要功能是对学生的基本信息、体育成绩和国家总局和教育部新颁布的《学生体育达标（试行方案）》及《<学生体育达标标准（试行方案）>实施办法》进行查询。
＊数据修改模块
该模块主要功能是对学生的基本信息情况、体育成绩以及国家总局和教育部新颁布的《学生体育达标（试行方案）》及《<学生体育达标标准（试行方案）>实施办法》进行修改。
＊系统维护模块
该模块主要功能是方便管理员进行修改自己和其他用户的用户名、密码和权限，增加删除用户，系统备份和管理用户日志等操作，同时也要为各级用户提供修改自己用户名、密码的功能。

根据登录模块的功能，管理员和普通用户界面统一在一起。系统自动判断用户的要权限。管理员有所有的权限，普通用户只有检索和改本人的密码权。如果三次登录都出错，系统自动退出。
数据库的连接采用的是ADO对象。连接代码如下：
If CN.State Then CN.Close
CN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=xwxsgl"
CN.Open
引擎采用Jet来连接SQLServer 2000数据库。详细代码实现如下。
On Error GoTo Err
    Dim txtSql As String
    UserName = ""
    If Trim(txtUserName.Text) = "" Then ''判断用户名是否为空
        MsgBox "请输入帐号！", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
        Exit Sub
    End If
    If Trim(txtPassword.Text) = "" Then '判断密码是否为空
        MsgBox "请输入密码！", vbOKOnly + vbExclamation, "警告"
        txtPassword.SetFocus
        Exit Sub
    End If
        ''判断是否有这个用户
    txtSql = "select * from 用户信息表 where 姓名 = '" & txtUserName.Text & "'"
    If rs.State Then rs.Close
    rs.Open txtSql, CN, adOpenStatic, adLockOptimistic
    If rs.EOF = True Then ''如果没有这个用户
        MsgBox "没有这个帐号，请重新输入帐号!", vbOKOnly + vbExclamation, "警告"
        txtUserName.Text = ""
        txtPassword.Text = ""
        txtUserName.SetFocus
    Else ''如果有用户       
        If Trim(rs.Fields(1)) = Trim(txtPassword.Text) Then
        ''判断权限
            UserPrivs = ""
            If Trim(rs.Fields(2)) = "管理员" Then ''管理员权限
                IsUserMode = 1
            ElseIf Trim(rs.Fields(2)) = "普通用户" Then ''普通用户权限
                IsUserMode = 2
            Else ''无权
                IsUserMode = 0
                MsgBox "你没有权限!", vbExclamation, "警告"
                End
            End If
            UserPrivs = Trim(rs.Fields(2))
            UserName = Trim(txtUserName.Text)

            Unload Me
            Mainfrm.Show
           
            Exit Sub
        Else
            MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtPassword.SetFocus
            txtPassword.Text = ""
        End If
    End If
    rs.Close
    miCount = miCount + 1
    If miCount = 3 Then ''三次错误,自动退出程序
        End
    End If
Exit Sub
Err:
    MsgBox "登录出错,请找管理员!", vbExclamation
    Ok = False

(需要该计算机毕业设计论文的,请联系我们在线客服QQ:599057179)-本设计为全套资料