【正文】 e = ().Cells(3).Value = ().Cells(4).Value = ().Cells(5).Value = ().Cells(6).Value = ().Cells(7).Value = ().Cells(8).Value = ().Cells(9).Value = ().Cells(10).Value End If Catch ex As Exception End Try End Sub End Class 成績 信息管理： 老師 登錄系統后，進入 成績 管理 可以對成績信息進行管理。點擊 添加 以添加學生的成績的信息。 如圖 45 所示： 第 24 頁 （共 37 頁） 圖 45添加學生成績信息 界面 老師權限下的添加學生成績代碼如下： Public Class 添加成績 Dim CurrentDir As String = ((upPath).ToString).ToString amp。 \database Dim sProvider As String = Provider=。 Dim sDataSource As String = Data Source= amp。 CurrentDir amp。 \學生信息 .mdb Dim sConnString As String = sProvider amp。 sDataSource Public conn As New OleDbConnection(sConnString) Public cmd As New OleDbCommand Public daap As New OleDbDataAdapter Public ds As New DataSet Public dr As OleDbDataReader 39。定義 OleDbDataReader控件 Private Sub 添加成績 _Load(ByVal sender As , ByVal e As ) Handles = conn 39。OleDbComman與 conn的鏈接 = select 學號 ,姓名 ,課程類型 ,成績 ,課程名稱 ,學期 ,班級 from 成績 39。OleDbCommand執(zhí)行的語句 () 39。打開數據庫 = cmd 39。OleDbDataAdapter與 OleDbCommand執(zhí)行相同的語句 (ds, cj) 39。向臨時表中添加數據 () 第 25 頁 （共 37 頁） End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Try = sConnString () Dim cmd As = New () = conn = = insert into 成績 (學號 ,姓名 ,課程類型 ,成績 ,課程名稱 ,學期 ,班級 ) values( 39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) () cmd = Nothing () MsgBox(成績信息添加成功！ ) Catch ex As Exception MsgBox(輸入錯誤 !) End Try End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = = = End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 成績信息管理：老師登錄系統后，進入成績管理可以對成績信息進行管理。點擊修改可以修改學生成績的信息。如圖 46 所示 ： 第 26 頁 （共 37 頁） 圖 46修改學生成績信息 界面 Public Class 修改成績 Dim CurrentDir As String = ((upPath).ToString).ToString amp。 \database Dim sProvider As String = Provider=。 Dim sDataSource As String = Data Source= amp。 CurrentDir amp。 \學生信息 .mdb Dim sConnString As String = sProvider amp。 sDataSource Public conn As New OleDbConnection(sConnString) Public cmd As New OleDbCommand Public daap As New OleDbDataAdapter Public ds As New DataSet Public dr As OleDbDataReader 39。定義 OleDbDataReader控件 Private Sub 修改成績 _Load(ByVal sender As , ByVal e As 第 27 頁 （共 37 頁） ) Handles = conn 39。OleDbCommand與 conn的鏈接 = select 學號 ,姓名 ,課程類型 ,成績 ,課程名稱 ,學期 ,班級 from 成績 39。OleDbCommand執(zhí)行的語句 () 39。打開數據庫 = cmd 39。OleDbDataAdapter與 OleDbCommand執(zhí)行相同的語句 (ds, cs) 39。向臨時表中添加數據 = (cs) () = False = False = False = False = False End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles 39。信息修改 If MsgBox(確認修改記錄么，單擊確定修改，否則取消 , ) = Then Try = False Dim str_update As String = update 成績 set 學號 =39。 amp。 amp。 39。,姓名 =39。 amp。 amp。 39。,課程類型 =39。 amp。 amp。 39。,成績 =39。 amp。 amp。 39。,課程名稱 =39。 amp。 amp。 39。,學期 =39。 amp。 amp。 39。,班級 =39。 amp。 amp。 39。 where 學號 =39。 amp。 amp。 39。 () = str_update () MsgBox(修改成功 ) Catch ex As Exception MsgBox() End Try () = select * from 成績 (ds, cs) = (0) 第 28 頁 （共 37 頁） () End If End Sub Private Sub db1_RowEnter(ByVal sender As Object, ByVal e As ) Handles Try Dim row As Integer row = If Not row = 1 Then = ().Cells(0).Value = ().Cells(1).Value = ().Cells(2).Value = ().Cells(3).Value = ().Cells(4).Value = ().Cells(5).Value = ().Cells(6).Value End If Catch ex As Exception End Try End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 學籍 信息管理：老師登錄系統后，進入 學籍 管理可以對 學生的基本 信息進行 管理。點擊 添加 可以 學生 的基本信息信 。如圖 57 所示 ： 第 29 頁 （共 37 頁） 圖 47添加學生學籍信息 界面 Public Class 添加學籍 Dim CurrentDir As String = ((upPath).ToString).ToString amp。 \database Dim sProvider As String = Provider=。 Dim sDataSource As String = Data Source= amp。 CurrentDir amp。 \學生信息 .mdb Dim sConnString As String = sProvider amp。 sDataSource Public conn As New OleDbConnection(sConnString) Public cmd As New OleDbCommand Public daap As New OleDbDataAdapter Public ds As New DataSet Public dr As OleDbDataReader 39。定義 OleDbDataReader控件 Dim sx As String Private Sub 添加學籍 _Load(ByVal sender As , ByVal e As ) Handles = conn 39。OleDbCommand與 conn的鏈接 = select * from 學生 39。OleDbCommand執(zhí)行的語句 () 39。打開數據庫 = cmd 39。OleDbDataAdapter與 OleDbCommand執(zhí)行相同的語句 (ds, xs) 39。向臨時表中添加數據 = conn sx = () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Try = sConnString () Dim cmd As = New