【導讀】接下來請隨著我們的數(shù)據(jù)庫系統(tǒng)體驗全新的作。業(yè)提交查詢以及批改過程！題，同時可以更好地理解和掌握數(shù)據(jù)庫的相關(guān)知識，并具備一定的實踐技能。該項目是數(shù)據(jù)庫作業(yè)提交及管理系統(tǒng)，其主要功能是學生進行個人信息查詢以及老師進行作業(yè)管理。息不符要求，系統(tǒng)將會出現(xiàn)錯誤提示。如輸入用戶與密碼時與登錄的身份不相同，將出現(xiàn)“對不起，系統(tǒng)會根據(jù)登陸身份自動進入相應(yīng)的界面。為了減少form的個數(shù)，我們把學生有關(guān)的功能均集中在一張form里面，而采用不同的TabPage,這樣。在進入第二個界面后，即顯示個人信息定制，其中顯示了所有該學生的信息，默認為不可修改狀態(tài)，息，點擊“修改密碼”按鈕，則可以打開密碼修改窗口。該密碼修改窗口與后面教師密碼修改窗口?！疤峤粫r間”，“作業(yè)成績”；未交作業(yè)的“作業(yè)序號”，“作業(yè)名稱”，“最遲提交時間”，“作業(yè)要求”，反饋提交成功信息，同時剛提交的作業(yè)也會從未提交作業(yè)表中轉(zhuǎn)移到已提交作業(yè)表中，簡潔直觀！選擇要刪除的作業(yè)！

　　

【正文】 If = False And = False And = True And = True Then If = Then MsgBox(請輸入您查詢的學號 , , strTitle) = ElseIf ( 6) Then MsgBox(學號位數(shù)不對 , , strTitle) = () ElseIf IsNumeric() = False Then MsgBox(學號為數(shù)字字符 , , strTitle) = () Else Dim myquery As String = select sname,sex,o,spe,phone from stu_info where snum=39。 + + 39。 Dim adapter As SqlDataAdapter = New SqlDataAdapter(myquery, myconn) Dim table As New DataTable Try (table) Catch ex As Exception MsgBox(數(shù)據(jù)鏈接錯誤 ！ , , strTitle) Exit Sub End Try If = 0 Then MsgBox(所有班級中不存在您所查詢的學號 , , strTitle) = () Else If IsDBNull((0).Item(0)) Then = 未注冊 Else : = (0).Item(0) End If = 數(shù)據(jù)庫 + (0).Item(2).ToString + 班 If IsDBNull((0).Item(1)) Then = Else : = (0).Item(1) End If If IsDBNull((0).Item(3)) Then = Else : = (0).Item(3) End If If IsDBNull((0).Item(4)) Then = Else : = (0).Item(4) End If End If End If End If 39。插入新學生學號 If = False And = True And = True And = False And = False And = False Then If = Then MsgBox(請輸入新加入學生學號 , , strTitle) () Exit Sub ElseIf IsNumeric() = False Or 6 Or Not ((0, 2) = 4 Or (0, 2) = 5) Then MsgBox(學號為六位數(shù)字 , , strTitle) = () Exit Sub ElseIf = Then MsgBox(請輸入新加入學生班級 , , strTitle) () Exit Sub ElseIf 3 And 1 And 2 Then MsgBox(請輸入學生班級 1， 2或 3班 , , strTitle) = () Exit Sub Else Dim myquery1 As String = select count(*) from stu_info where snum=39。 + + 39。 Dim mym1 As = New SqlCommand(myquery1, myconn) () If 0 Then MsgBox(已存在該學生 , , strTitle) = = () Exit Sub End If () Dim myquery As String = insert into stu_info(snum,o) values (39。 + + 39。,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 + 班成功 插入學生 + MsgBox(o, , strTitle) () = = End If End If 39。刪除學生信息 If = False And = False And = 學號 Then If = Then MsgBox(請輸入要刪除學生的學號 , , strTitle) ElseIf IsNumeric() = False Or 6 Or Not ((0, 2) = 4 Or (0, 2) = 5) Then MsgBox(學號為六位數(shù)字 , , strTitle) = () Exit Sub End If Dim myquery1 As String = select count(*) from stu_info where snum=39。 + + 39。 Dim mym1 As = New SqlCommand(myquery1, myconn) Dim myquery2 As String = delete from stu_info where snum=39。 + + 39。 Dim mym2 As = New SqlCommand(myquery2, myconn) () If = 0 Then MsgBox(不存在該學生 , , strTitle) = = () Exit Sub Else Try () Catch ex As Exception MsgBox(數(shù)據(jù)鏈接錯誤！ , , strTitle) Exit Sub End Try Dim s As String = 已成功刪除學號為 + + 的學生 MsgBox(s, , strTitle) = () End If End If End Sub 39。將學生密碼重置 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(請先選擇學生 , , strTitle) () Else : Dim myquery As String = update login set passwd=39。 + snum + 39。where snum=39。 + 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) 將學號為 + snum + 的學生的密碼重置 MsgBox(info) End If () End Sub 7． teacher【 tabpage2】：主要功能是老師對作業(yè)信息管理，包括作業(yè)的新增，刪除，修改。 39。通過的 TextBox2和 Label12可見性判斷是修改還是新增作業(yè) Private Sub Button10_Click(ByVal sender As , ByVal e As ) Handles 39。新增作業(yè) If = False Or = False Then If = Then MsgBox(請輸入作業(yè)題目 , , strTitle) ()