freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

數(shù)據(jù)庫技術(shù)及應(yīng)用課程設(shè)計(jì)項(xiàng)目設(shè)計(jì)報(bào)告說明書之作業(yè)提交及管理系統(tǒng)-資料下載頁

2024-09-08 13:54本頁面

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

  

【正文】 If = False And = False And = True And = True Then If = Then MsgBox(請輸入您查詢的學(xué)號 , , strTitle) = ElseIf ( 6) Then MsgBox(學(xué)號位數(shù)不對 , , strTitle) = () ElseIf IsNumeric() = False Then MsgBox(學(xué)號為數(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ù)鏈接錯(cuò)誤 ! , , strTitle) Exit Sub End Try If = 0 Then MsgBox(所有班級中不存在您所查詢的學(xué)號 , , 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。插入新學(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。 + + 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。,39。 + + 39。) Dim mym As = New SqlCommand(myquery, myconn) Try () Catch ex As Exception MsgBox(數(shù)據(jù)鏈接錯(cuò)誤! , , strTitle) Exit Sub End Try () Dim o As String = o = 已向 + o + 班成功 插入學(xué)生 + MsgBox(o, , strTitle) () = = End If End If 39。刪除學(xué)生信息 If = False And = False And = 學(xué)號 Then If = Then MsgBox(請輸入要刪除學(xué)生的學(xué)號 , , strTitle) ElseIf IsNumeric() = False Or 6 Or Not ((0, 2) = 4 Or (0, 2) = 5) Then MsgBox(學(xué)號為六位數(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(不存在該學(xué)生 , , strTitle) = = () Exit Sub Else Try () Catch ex As Exception MsgBox(數(shù)據(jù)鏈接錯(cuò)誤! , , strTitle) Exit Sub End Try Dim s As String = 已成功刪除學(xué)號為 + + 的學(xué)生 MsgBox(s, , strTitle) = () End If End If End Sub 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。 + snum + 39。where snum=39。 + snum + 39。 Dim mand As SqlCommand = New SqlCommand(myquery, myconn) Try () () Catch ex As Exception MsgBox(數(shù)據(jù)連接錯(cuò)誤! , , 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è)的新增,刪除,修改。 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) ()
點(diǎn)擊復(fù)制文檔內(nèi)容
法律信息相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1