数据库技术及应用课程设计项目设计报告说明书之作业提交及管理系统

数据库技术及应用课程设计项目设计报告说明书之作业提交及管理系统内容摘要：

Dim myreader As SqlDataReader Dim sql As String = select * from stu_info where snum=39。 amp。 Username amp。 39。 Dim myd As New SqlCommand(sql, myconn) = myd () myreader = () () = (1) If IsDBNull((4)) Then = Else = (4) End If If IsDBNull((5)) Then = Else = (5) End If () (mytable) If (0).Item(3) = 男 Then = True Else = True End If () End Sub 39。 激活修改状态 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles = True = True = True = True = True = True = True End Sub 39。 修改姓名 Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim myd As New SqlCommand If = Then MsgBox(姓名不能为空 , , 提示 ) ElseIf = False Then MsgBox(姓名无任何改变 , , 提示 ) Else Dim sql As String = update stu_info set sname=39。 amp。 Trim() amp。 39。 where snum=39。 amp。 Trim() amp。 39。 = sql = myconn () () () MsgBox(更新姓名成功 ) = False = False = False End If End Sub 39。 修改性别 Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Dim myd As New SqlCommand If = True Then = True Dim sql As String = update stu_info set sex=39。 amp。 女 amp。 39。 where snum=39。 amp。 Trim() amp。 39。 = sql = myconn () () () MsgBox(更新性别成功 ) = False = False = False Else = True Dim sql As String = update stu_info set sex=39。 amp。 男 amp。 39。 where snum=39。 amp。 Trim() amp。 39。 = sql = myconn () () () MsgBox(更新性别成功 ) = False = False = False End If End Sub 39。 修改专业 Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles Dim myd As New SqlCommand If = Then MsgBox(专业为空 , , 提示 ) End If If = False Then MsgBox(专业无任何改变 , , 提示 ) Else Dim sql As String = update stu_info set spe=39。 amp。 Trim() amp。 39。 where snum=39。 amp。 Trim() amp。 39。 = sql = myconn () () () MsgBox(更新专业成功 ) = False = False = False End If End Sub 39。 修改联系方式 Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles Dim myd As New SqlCommand If = Then MsgBox(联系方式为空 , , 提示 ) End If If = False Then MsgBox(联系方式为变化 , , 提示 ) Else Dim sql As String = update stu_info set phone=39。 amp。 Trim() amp。 39。 where snum=39。 amp。 Trim() amp。 39。 = sql = myconn () () () MsgBox(更新成功 ) = False = False = False End If End Sub 39。 修改密码 Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles () () End Sub 4． Cpasswd【密码修改】：主要功能是学生用户和教师用户的密码修改。 39。 再来一次，先清空 Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = = = True End Sub 39。 修改密码 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = Then MsgBox(请输入原密码 , , 警告 ) Else If passwd Trim() Then MsgBox(原密码错误 , , 警告 ) = = = () Else If = Then MsgBox(请输入新密码 , , 警告 ) Else If 16 Or 6 Then MsgBox(密码长度不对 , , 警告 ) = = () Else If = Then MsgBox(请再输入一次新密码 , , 警告 ) Else If Trim() Trim() Then MsgBox(两次输入的密码不一致 , , 警告 ) Else Dim myd As New SqlCommand Dim sql As String = update login set passwd=39。 + Trim() + 39。 where snum=39。 + Username + 39。 = myconn = sql () () () MsgBox(修改密码成功 ) = False () = = = End If End If End If End If End If End If End Sub 39。 根据用户登陆时记录的用户名来判断返回学生用户窗口还是教师用户窗口 Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () If Username = 000000 Or Username = 111111 Or Username = 222222 Then () () Else () End If End Su 5。