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-12 13:54本頁面
  

【正文】 新增作業(yè) If = False Or = False Then If = Then MsgBox(請(qǐng)輸入作業(yè)題目 , , strTitle) () 。 39。 + snum + 39。 + snum + 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é)號(hào)為 + + 的學(xué)生 MsgBox(s, , strTitle) = () End If End If End Sub 39。 Dim mym1 As = New SqlCommand(myquery1, myconn) Dim myquery2 As String = delete from stu_info where snum=39。刪除學(xué)生信息 If = False And = False And = 學(xué)號(hào) Then If = Then MsgBox(請(qǐng)輸入要?jiǎng)h除學(xué)生的學(xué)號(hào) , , strTitle) ElseIf IsNumeric() = False Or 6 Or Not ((0, 2) = 4 Or (0, 2) = 5) Then MsgBox(學(xué)號(hào)為六位數(shù)字 , , strTitle) = () Exit Sub End If Dim myquery1 As String = select count(*) from stu_info where snum=39。 + + 39。 + + 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(所有班級(jí)中不存在您所查詢的學(xué)號(hào) , , strTitle) = () Else If IsDBNull((0).Item(0)) Then = 未注冊(cè) 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é)號(hào)查詢學(xué)生信息 If = False And = False And = True And = True Then If = Then MsgBox(請(qǐng)輸入您查詢的學(xué)號(hào) , , strTitle) = ElseIf ( 6) Then MsgBox(學(xué)號(hào)位數(shù)不對(duì) , , strTitle) = () ElseIf IsNumeric() = False Then MsgBox(學(xué)號(hào)為數(shù)字字符 , , strTitle) = () Else Dim myquery As String = select sname,sex,o,spe,phone from stu_info where snum=39。將數(shù)據(jù)表格中當(dāng)前行的信息顯示在明細(xì)欄中 Private Sub mydatagrid_CurrentCellChanged(ByVal sender As , ByVal e As ) Handles If count1 Then () = (, 0) If IsDBNull((, 1)) Then = Else : = (, 1) End If If IsDBNull((, 2)) Then = Else : = (, 2) End If If IsDBNull((, 3)) Then = Else : = (, 3) End If If IsDBNull((, 4)) Then = Else : = (, 4) End If End If End Sub Private Sub Button8_Click(ByVal sender As , ByVal e As ) Handles () End Sub 39。 + o + 39。老師進(jìn)入界面初始化 Private Sub teacher_in_Load(ByVal sender As , ByVal e As ) Handles = 0 = 學(xué)號(hào) = False = False = False = True = True = True Call clear() End Sub 39。返回登陸界面 Private Sub Button10_Click(ByVal sender As , ByVal e As ) Handles () Dim login As New login () End Sub 6. teacher【 tabpage1】:主要功能是老師對(duì)學(xué)生用戶信息管理, 以及老師修改自己的密碼。 39。 amp。 order by Dim myd2 As New SqlCommand(sql1, myconn) Dim mytable As New DataTable Dim myadapter As New SqlDataAdapter = myd2 () (mytable) = mytable () 39。 Username amp。提交作業(yè)后,再刷新顯示表格 Dim sql1 As String = select as 作業(yè)序號(hào) ,taskname as 作業(yè)名稱 ,trantime as 提交時(shí)間 ,grade as 作業(yè)成績 from zuoyetijiao,assignment where = and snum=39。 Dim adapter As SqlDataAdapter = New SqlDataAdapter(sql3, myconn) Dim dataset As New DataSet () (dataset) () Dim N As Integer N = If = Then MsgBox(您是要交哪次作業(yè) , , 警告 ) Else If Val() c Then MsgBox(老師還沒布置這次作業(yè) , , 警告 ) = Else If (0). 0 Then MsgBox(你已經(jīng)提交了這次作業(yè) , ) = Else Dim myd As New SqlCommand = myconn = (snum, , 6).Value = Username (taskno, , 4).Value = Val() = zuoyetijiao_proc。 amp。and taskno=39。 Username amp。) Dim mytable1 As
點(diǎn)擊復(fù)制文檔內(nèi)容
法律信息相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1