【正文】 If response = ThenDim myRow As DataRow = ()myRow(”學(xué)號“)= myRow(”姓名“)= myRow(”專業(yè)名“)= myRow(”性別“)= myRow(”出生日期“)= myRow(”總學(xué)分“)= myRow(”備注“)= (myRow)refreshdata()End IfEnd SubPrivate Sub butEdit_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要修改記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = Then 39。修改學(xué)號().Item(0)= 39。修改專業(yè)().Item(2)= 39。修改出生日期().Item(4)= 39。修改備注().Item(6)= refreshdata()39。用戶選擇“確定”39。更新并刷新顯示End IfEnd Sub End ClassPublic Class Form4Dim objDs As New DataSetDim objXSTable As DataTableDim objDa As New Dim WhereStr As StringPublic Sub refreshdata()(objDs, ”XS_KC“)()bindgridview(WhereStr)End SubPublic Sub bindgridview(ByVal strXH As String)Dim objConn As New Dim objComm As New WhereStr = ”“If Trim() ”“ ThenWhereStr = ” 學(xué)號like“ + Trim()End If = ”Provider=。D:39。 ”where“ amp。把objConn設(shè)置為objConn的數(shù)據(jù)連接 = objConn = objComm39。創(chuàng)建Delte CommandDim delmand As New (”DELETE * from XS_KC where 序號=?“, objConn)(”序號“, , 6, ”序號“) = delmand39。打開數(shù)據(jù)庫連接(objDs, ”XS_KC“)39。關(guān)閉數(shù)據(jù)集39。顯示ID = (1). 39。顯示課程號 = (3). 39。顯示學(xué)分End SubPrivate Sub btnDdd_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要添加記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = ThenDim myRow As DataRow = ()myRow(”學(xué)號“)= myRow(”課程號“)= myRow(”成績“)= myRow(”學(xué)分“)= (myRow)refreshdata()End IfEnd SubPrivate Sub btnEdit_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要修改記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = Then 39。修改學(xué)號().Item(1)= 39。 修改成績().Item(3)= 39。更新并刷新顯示End IfEnd SubPrivate Sub btnDelete_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要刪除記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = Then 39。除學(xué)生成績表當前記錄().Delete()refreshdata()39。data source = 39?！?= ” Select * From XS_KC “If WhereStr ”“ Then = amp。 WhereStrEnd If = objConn = objCommXS()(objDsXS, ”XS_KC“)() = (”XS_KC“)End SubPrivate Sub Form4_Load(ByVal sender As , ByVal e As )Handles WhereStr = ”bindgridview(WhereStr)End Sub End ClassPublic Class Form2Private Sub quitMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub importscoreMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form4 As New Form4 = Me = ()End SubPrivate Sub updateinfoMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form7 As New Form7 = Me = ()End SubPrivate Sub selectinfoMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form6 As New Form6 = Me = ()End SubPrivate Sub cascadeMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub horizonMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub verticalMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub aboutMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form5 As New Form5 = Me = ()End SubPrivate Sub ToolStripButton1_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton2_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton3_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton4_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton5_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton6_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripStatusLabel1_Click(ByVal sender As , ByVal e As )Handles ()End Sub End Class八．參考文庫百度文庫，百度知道