学生信息管理系统计算机软件毕业设计论文(编辑修改稿)

学生信息管理系统计算机软件毕业设计论文(编辑修改稿)内容摘要：

毕业论文（设计）报告纸 共 23 页 第 9 页 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 计界面 如图 42所示。 图 42系统主界面 管理模块 系统 管理模块 包括 添加用户 、 修改密码 和权限管理。 下面分绍这 三 方面的内容。 添加用户 界面设计 添加用户窗体就是用户可以对登录系 统添加不同的用户，运行其他用户进行相关操作。 界面如图 43所示。 图 43添加用户窗体 当用户单击“确 人 ”按钮对输入 信息 进行合法性验证时，首先要用户是否 输入 了用户名 、 密码 和权限。 如果验证通过， 提示 success!，如果想退出系统，可以单击“关闭”，用户可以通过“重 填 ”重新输入用户名，密码。 主要 代码如下： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles checkFormat() End Sub Sub checkFormat() If = Then = 用户名不能为空 ElseIf 10 Then = 用户名不能大于 ElseIf = Or = Then 毕业论文（设计）报告纸 共 23 页 第 10 页 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 39。 对用户名唯一的判断 = 密码不能为空 ElseIf Then = 密码不一致，请重新输入。 ElseIf = Then = 必须选择一个用户类别 Else singleYanzheng() End If End Sub Sub singleYanzheng() Dim str As String str = Data Source=localhost。 Initial Catalog = Student。 integrated Security=true Dim con As New SqlConnection(str) () Dim sql As String = select * from user_Info where user_ID=39。 amp。 ().Trim() amp。 39。 Dim cmd As New SqlCommand(sql, con) Dim reader As SqlDataReader reader = If () = True Then MsgBox(该用户已存在 ) Else addRecord() MsgBox(success!) clear() End If End Sub 修改密码界面设计 用户在登录窗体后可以选择修改密码。 修改密码的窗体如图 44 所示。 图 44修改密码的窗体 用户通过输入文本框的信息点击“确定”按钮，如果用户名不存在弹出对话框提示。 如果信 息正确，修改信息成功。 毕业论文（设计）报告纸 共 23 页 第 11 页 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 主要代码如下： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles checkFormat() End Sub Sub checkFormat() If Then = 密码不一致 Else changePsd() MsgBox(success) = = = = End If …… End Sub Sub changePsd() Dim str As String 39。 Dim frmName As String = 欢迎您 str = Data Source=localhost。 Initial Catalog = Student。 integrated Security=true Dim con As New SqlConnection(str) () Dim sql As String = select * from user_Info where user_ID=39。 amp。 ().Trim() amp。 39。 and user_PWD=39。 amp。 ().Trim() amp。 39。 39。 and user_Des=39。 amp。 sMenuText amp。 39。 Dim sql2 As String = update user_Info set user_PWD=39。 amp。 ().Trim() amp。 39。 where user_ID=39。 amp。 ().Trim() amp。 39。 Dim cmd As New SqlCommand(sql, con) Dim cmd2 As New SqlCommand(sql2, con) Dim reader As SqlDataReader reader = If () = True Then () () 39。 () 39。 () 39。 () 毕业论文（设计）报告纸 共 23 页 第 12 页 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 39。 = 福建农业职业技术学院欢迎您 amp。 Else = 错误的用户名或密码 End If End Sub 权限管理 界面 设计 用户可以通过输入用户名 和权限 对改用户进行相关操作。 界面如图 45所示。 当用户单击“ 修改 ”按钮对输入的用户名进行合法性验证时，首先要用户是否已经输入了用户名。 如果验证通过， 提示“ 修改成功，更新查看结果 ”，点击“更新”，界面会显示最新的学生信息。 图 45查询或删除用户 主要 代码如下： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = Or = Then = 请输入登陆名和想要更改的权限 Else changeQuanxian() = 修改成功，更新查看结果 = = End If End Sub 学籍 管理界面设计 学籍 管理主要实现员工信息的 添加，修改，查询，删除，学籍管理和学籍分类。 设计界面如图 46 到 410所示。 学生 信息添加 界面设计 学生 信息添加界面设计 ， 界面 如图 46所示 ： 用户输入相应的数据，点击“添加 学籍 ” ,首先对输入的信息进行验证， 学 号，姓名， 性别等 是否有输入，如。