【正文】 = () 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。where snum=39。 = myconn = sql () () () MsgBox(修改密碼成功 ) = False () = = = End If End If End If End If End If End If End Sub 39。 ‘ 已上傳的作業(yè) Private Sub Button7_Click(ByVal sender As , ByVal e As ) Handles Dim sql As String = select as 作業(yè)序號 ,taskname as 作業(yè)名稱 ,trantime as 提交時間 ,grade as 作業(yè)成績 from zuoyetijiao,assignment where = and snum=39。 Username amp。 order by Dim myd As New SqlCommand(sql, myconn) Dim mytable As New DataTable Dim myadapter As New SqlDataAdapter = myd () (mytable) = mytable = 你已上交作業(yè)清單如下： () 39。 amp。 39。 amp。 39。 amp。 39。1 () () () MsgBox(已成功提交該作業(yè) , ) 39。 amp。 39。求未上傳的作業(yè) () Dim sql2 As String = select taskno as 作業(yè)序號 ,taskname as 作業(yè)名稱 ,deadline as 提交時間 ,requirement as 作業(yè)要求 from assignment where taskno not in(select taskno from zuoyetijiao where snum=39。 Username amp。 ) Dim mytable1 As New DataTable Dim myadapter1 As New SqlDataAdapter Dim myd3 As New SqlCommand(sql2, myconn) = myd3 (mytable1) = mytable1 () = End If End If End If End Sub 39。 39。按班級查詢學(xué)生信息 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles () = True = True = True = True = True = True = True () Dim o As String = Mid(, 4, 1) myquery = myquery = select snum as 學(xué)號 ,sname as 姓名 ,sex as 性別 ,spe as 專業(yè) ,phone as 聯(lián)系方式 from stu_info where o=39。 Dim adapter As SqlDataAdapter = New SqlDataAdapter(myquery, myconn) (table) count1 = = table = = + 共有 + + 學(xué)生 (0) () End Sub 39。同一個確定按鈕，可以識別三種觸發(fā)時間 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles 39。 + + 39。插入新學(xué)生學(xué)號 If = False And = True And = True And = False And = False And = False Then If = Then MsgBox(請輸入新加入學(xué)生學(xué)號 , , strTitle) () Exit Sub ElseIf IsNumeric() = False Or 6 Or Not ((0, 2) = 4 Or (0, 2) = 5) Then MsgBox(學(xué)號為六位數(shù)字 , , strTitle) = () Exit Sub ElseIf = Then MsgBox(請輸入新加入學(xué)生班級 , , strTitle) () Exit Sub ElseIf 3 And 1 And 2 Then MsgBox(請輸入學(xué)生班級 1， 2或 3班 , , strTitle) = () Exit Sub Else Dim myquery1 As String = select count(*) from stu_info where snum=39。 Dim mym1 As = New SqlCommand(myquery1, myconn) () If 0 Then MsgBox(已存在該學(xué)生 , , strTitle) = = () Exit Sub End If () Dim myquery As String = insert into stu_info(snum,o) values (39。,39。) Dim mym As = New SqlCommand(myquery, myconn) Try () Catch ex As Exception MsgBox(數(shù)據(jù)鏈接錯誤！ , , strTitle) Exit Sub End Try () Dim o As String = o = 已向 + o + 班成功 插入學(xué)生 + MsgBox(o, , strTitle) () = = End If End If 39。 + + 39。 + + 39。將學(xué)生密碼重置 Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles Dim snum As String If = True Then snum = Else : snum = End If If = Then MsgBox(請先選擇學(xué)生 , , strTitle) () Else : Dim myquery As String = update login set passwd=39。where snum=39。 Dim mand As SqlCommand = New SqlCommand(myquery, myconn) Try () () Catch ex As Exception MsgBox(數(shù)據(jù)連接錯誤！ , , strTitle) Exit Sub End Try Dim info As String = 已經(jīng) 將學(xué)號為 + snum + 的學(xué)生的密碼重置 MsgBox(info) End If () End Sub 7． teacher【 tabpage2】：主要功能是老師對作業(yè)信息管理，包括作業(yè)的新增，刪除，修改。通過的 TextBox2和 Label12可見性判斷是修改還是新增作業(yè) Private Sub Button10_Click(ByVal sender As , ByVal e As ) Handles 3