【正文】 向臨時(shí)表中添加數(shù)據(jù) = conn sx = () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Try = sConnString () Dim cmd As = New () 。打開(kāi)數(shù)據(jù)庫(kù) = cmd 39。OleDbCommand與 conn的鏈接 = select * from 學(xué)生 39。 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。 CurrentDir amp。 \database Dim sProvider As String = Provider=。點(diǎn)擊 添加 可以 學(xué)生 的基本信息信 。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。向臨時(shí)表中添加數(shù)據(jù) = (cs) () = False = False = False = False = False End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles 39。打開(kāi)數(shù)據(jù)庫(kù) = cmd 39。OleDbCommand與 conn的鏈接 = select 學(xué)號(hào) ,姓名 ,課程類型 ,成績(jī) ,課程名稱 ,學(xué)期 ,班級(jí) from 成績(jī) 39。 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。 CurrentDir amp。 \database Dim sProvider As String = Provider=。點(diǎn)擊修改可以修改學(xué)生成績(jī)的信息。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。OleDbDataAdapter與 OleDbCommand執(zhí)行相同的語(yǔ)句 (ds, cj) 39。OleDbCommand執(zhí)行的語(yǔ)句 () 39。定義 OleDbDataReader控件 Private Sub 添加成績(jī) _Load(ByVal sender As , ByVal e As ) Handles = conn 39。 \學(xué)生信息 .mdb Dim sConnString As String = sProvider amp。 Dim sDataSource As String = Data Source= amp。 如圖 45 所示： 第 24 頁(yè) （共 37 頁(yè)） 圖 45添加學(xué)生成績(jī)信息 界面 老師權(quán)限下的添加學(xué)生成績(jī)代碼如下： Public Class 添加成績(jī) Dim CurrentDir As String = ((upPath).ToString).ToString amp。 () = str_update () MsgBox(修改成功 ) Catch ex As Exception MsgBox() End Try () = select * from 教師 (ds, js) = (0) () End If End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles 第 23 頁(yè) （共 37 頁(yè)） () 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 = ().Cells(7).Value = ().Cells(8).Value = ().Cells(9).Value = ().Cells(10).Value End If Catch ex As Exception End Try End Sub End Class 成績(jī) 信息管理： 老師 登錄系統(tǒng)后，進(jìn)入 成績(jī) 管理 可以對(duì)成績(jī)信息進(jìn)行管理。 amp。 where 教師編號(hào) =39。 amp。,備注 =39。 amp。,所帶課程編號(hào) =39。 amp。,家庭住址 =39。 amp。,政治面貌 =39。 amp。,任教年限 =39。 amp。,學(xué)歷 =39。 amp。,聯(lián)系電話 =39。 amp。,出生年月 =39。 amp。,性別 =39。 amp。,教師姓名 =39。 amp。向臨時(shí)表中添加數(shù)據(jù) = (js) () End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles If MsgBox(確認(rèn)修改記錄么，單擊確定修改，否則取消 , ) = Then Try = False Dim str_update As String = update 教師 set 教師編 號(hào) =39。打開(kāi)數(shù)據(jù)庫(kù) = cmd 39。OleDbCommand與 conn的鏈接 = select * from 教師 39。 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。 CurrentDir amp。 \database Dim sProvider As String = Provider=。點(diǎn)擊修改可以修改教師的信息。 39。 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。 CurrentDir amp。 \database Dim sProvider As String = Provider=。點(diǎn)擊刪除可以刪除教師的信息。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。OleDbDataAdapter與 OleDbCommand執(zhí)行相同的語(yǔ)句 (ds, js) 39。OleDbCommand執(zhí)行的語(yǔ)句 () 39。定義 OleDbDataReader控件 Private Sub 添加教師信息 _Load(ByVal sender As , ByVal e As ) Handles = conn 39。 \學(xué)生信息 .mdb Dim sConnString As String = sProvider amp。 Dim sDataSource As String = Data Source= amp。 如圖 42 所示： 第 17 頁(yè) （共 37 頁(yè)） 圖 42添加教師信息 界面 老師權(quán)限下的添加教師信息代碼如下： Imports Imports Public Class 添加教師信息 Dim CurrentDir As String = ((Appli).ToString).ToString amp。 教師信息管理： 老師 登錄系統(tǒng)后，進(jìn)入教師管理 可以對(duì) 教師信息進(jìn)行管理。End Try End Sub 老師模塊的實(shí)現(xiàn) 老師 過(guò)輸入管理員編號(hào)和密碼登 錄 到管理員模塊界面 ， 此模塊的建立依然利用框架構(gòu)造而成 ， 采用樹(shù)型結(jié)構(gòu) ， 各個(gè)結(jié)點(diǎn)都被設(shè)置成為一個(gè)按扭 ， 單擊按鈕則會(huì) 出現(xiàn)該按鈕所對(duì)應(yīng)功能實(shí) 現(xiàn)的結(jié)果并顯示 。 dr1 = If Then If (密碼 ) = Then If t = (權(quán)限 ) Then If t = 老師 Then 教學(xué)管理系統(tǒng) .yhm = () 教學(xué)管理系統(tǒng) .Show() ElseIf t = 學(xué)生 Then 教學(xué)管理系統(tǒng) .yhm = () 教學(xué)管理系統(tǒng) .Show() 第 15 頁(yè) （共 37 頁(yè)） 教學(xué)管理系統(tǒng) .添加用戶 = False 教學(xué)管理系統(tǒng) .刪除用戶 = False 教學(xué)管理系統(tǒng) .添加學(xué)籍 = False 教學(xué)管理系統(tǒng) .刪除學(xué)籍 = False 教學(xué)管理系統(tǒng) .添加班級(jí) = False 教學(xué)管理系統(tǒng) .修改班級(jí) = False 教學(xué)管理系統(tǒng) .添加課程 = False 教學(xué)管理系統(tǒng) .修改課程 = False 教學(xué)管理系統(tǒng) .刪除課程 = False 教學(xué)管理系統(tǒng) .添加成績(jī) = False