【正文】 “, objConn)(”學號“, , 6, ”學號“)(”課程號“, , 4, ”課程號“)(”成績“, , Nothing, ”成績“)(”學分“, , Nothing, ”學分“) = InsCommand39。創(chuàng)建Delte CommandDim delmand As New (”DELETE * from XS_KC where 序號=?“, objConn)(”序號“, , 6, ”序號“) = delmand39。創(chuàng)建Update CommandDim updCommand As New (”UPDATE XS_KC set 學號=?,課程號=?,成績=?,學分=? where 序號=?“, objConn)(”學號“, , 6, ”學號“)(”課程號“, , 4, ”課程號“)(”成績“, , Nothing, ”成績“)(”學分“, , Nothing, ”學分“)(”序號“, , Nothing, ”序號“) = updCommand()39。打開數據庫連接(objDs, ”XS_KC“)39。填充數據objXSTable = (”XS_KC“)()39。關閉數據集39。把DataGrid1的DataSource屬性設置為剛剛取到的數據表，這樣就可以顯示數據了 = (”XS_KC“)End SubPrivate Sub DataGridView1_CellContentClick(ByVal sender As , ByVal e As )Handles = (0). 39。顯示ID = (1). 39。顯示學號 = (2). 39。顯示課程號 = (3). 39。顯示成績 = (4). 39。顯示學分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(”學號“)= myRow(”課程號“)= myRow(”成績“)= myRow(”學分“)= (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。用戶選擇“確定”39。修改學號().Item(1)= 39。修改課程號().Item(2)= 39。 修改成績().Item(3)= 39。修改學分().Item(4)= refreshdata()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。用戶選擇“確定”39。除學生成績表當前記錄().Delete()refreshdata()39。更新并刷新顯示End IfEnd SubPrivate Sub Button1_Click(ByVal sender As , ByVal e As )Handles Dim objConn As New Dim objDaXS As New Dim objCommXS As New Dim objDsXS As New DataSetDim WhereStr As StringWhereStr = ”“If Trim() ”“ ThenWhereStr = ” 學號like “ + Trim()End If = ”Provider = 。data source = 39。D:39?！?= ” Select * From XS_KC “If WhereStr ”“ Then = amp。 ”where“ 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八．參考文庫百度文庫，百度知道