【正文】 New DataTable Dim myadapter1 As New SqlDataAdapter Dim myd2 As New SqlCommand(sql1, myconn) = myd2 (mytable1) = mytable1 = 你還需要上交的 作業(yè)如下： () End Sub ’提交新作業(yè) Private Sub Button8_Click(ByVal sender As , ByVal e As ) Handles Dim sql As String = select count(*) from assignment Dim myd1 As New SqlCommand(sql, myconn) () Dim c As Integer = () () If = Then MsgBox(請(qǐng)輸入你要交的作業(yè)號(hào) , , 警告 ) = () Exit Sub End If If IsNumeric() = False Then MsgBox(數(shù)據(jù)類型錯(cuò)誤 , , 警告 ) = () Exit Sub End If Dim sql3 As String = select * from zuoyetijiao where snum=39。 Username amp。未上傳的作業(yè) () Dim sql1 As String = select taskno as 作業(yè)序號(hào) ,taskname as 作業(yè)名稱 ,deadline as 最遲提交時(shí)間 ,requirement as 作業(yè)要求 from assignment where taskno not in(select taskno from zuoyetijiao where snum=39。 39。 amp。根據(jù)用戶登陸時(shí)記錄的用戶名來判斷返回學(xué)生用戶窗口還是教師用戶窗口 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． Stu_in【 tabpage2】：主要功能是學(xué)生用戶 作業(yè)信息查詢，以及上交作業(yè) 。 + Username + 39。 + Trim() + 39。再來一次，先清空 Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = = = True End Sub 39。修改密碼 Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles () () End Sub 4． Cpasswd【密碼修改】：主要功能是學(xué)生用戶和教師用戶的密碼修改。 39。 amp。 39。 amp。 = sql = myconn () () () MsgBox(更新專業(yè)成功 ) = False = False = False End If End Sub 39。 Trim() amp。 where snum=39。 Trim() amp。修改專業(yè) Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles Dim myd As New SqlCommand If = Then MsgBox(專業(yè)為空 , , 提示 ) End If If = False Then MsgBox(專業(yè)無任何改變 , , 提示 ) Else Dim sql As String = update stu_info set spe=39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 = sql = myconn () () () MsgBox(更新姓名成功 ) = False = False = False End If End Sub 39。 Trim() amp。 where snum=39。 Trim() amp。修改姓名 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。 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。 Username amp。觸發(fā)個(gè)人信息定制 Private Sub 個(gè)人信息定制 _HandleCreated(ByVal sender As Object, ByVal e As ) Handles 個(gè)人信息定制 .HandleCreated = Username Dim mytable As New DataTable Dim myadapter As New SqlDataAdapter Dim myreader As SqlDataReader Dim sql As String = select * from stu_info where snum=39。 39。 amp。防止惡意登陸 MsgBox(對(duì)不起，請(qǐng)您再好好想想！ , , strTitle) () End If Call clear() Exit Sub ElseIf = True And (0).Rows(0).Item(2) = 1 Then Username = passwd = () () End If End Sub Private Sub Btnrwt_Click(ByVal sender As , ByVal e As ) Handles Call clear() End Sub Private Sub Btncancel_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 3． Stu_in【 tabpage1】：主要功能是學(xué)生用戶個(gè)人信息定制。防止惡意登陸 MsgBox(對(duì)不起，請(qǐng)您再好好想想！ , , strTitle) () End If ElseIf = False And (0).Rows(0).Item(2) = 0 Then MsgBox(對(duì)不起，請(qǐng)選擇正確的身份！ , , strTitle) enternum += 1 If enternum 3 Then 39。 Dim adapter As SqlDataAdapter = New SqlDataAdapter(mylogin, myconn) Dim dataset As New DataSet (dataset) If (0). = 0 Then MsgBox(對(duì)不起，不存在該用戶！ , , strTitle) enternum += 1 If enternum 3 Then 39。判斷是否已輸入密碼 If ( 6 Or 16) Then MsgBox(密碼位數(shù)不對(duì) , , strTitle) = () Exit Sub End If Dim mylogin As String = select * from login where snum=39。初始化界面 Private Sub clear() = = = True () End Sub Private Sub login_Load(ByVal sender As , ByVal e As ) Handles Call clear() End Sub Private Sub Btnok_Click(ByVal sender As , ByVal e As ) Handles If = Then MsgBox(請(qǐng)輸入用戶名！ , , strTitle) () Exit Sub End If 39。persist security info=False) End Module 2． Login：主要功能是用戶登錄。integrated security=SSPI。1 snum char(6)=NULL, taskno char(4)=NULL AS declare count int IF snum is NULL or taskno is NULL R