【正文】
_Click() select * from 教師信息表 where 教師號(hào) =39。退出登錄界面 Unload Me End Sub MDI 主題窗口截圖 : MDI 主題窗口代碼: Private Sub 刪除成績(jī)信息 _Click(Index As Integer) End Sub Private Sub 刪除教師信息 _Click(Index As Integer) End Sub Private Sub 刪除課程信息 _Click(Index As Integer) End Sub Private Sub 刪除學(xué)生信息 _Click(Index As Integer) End Sub Private Sub 添加成績(jī)信息 _Click(Index As Integer) End Sub 4 Private Sub 添加教師信息 _Click(Index As Integer) End Sub Private Sub 添加課程信息 _Click(Index As Integer) End Sub Private Sub 添加學(xué)生信息 _Click(Index As Integer) End Sub Private Sub 退出 _Click(Index As Integer) Unload Me End Sub Private Sub 信息查詢 _Click(Index As Integer) End Sub Private Sub 修改查詢成績(jī)信息 _Click(Index As Integer) End Sub Private Sub 修改查詢教師信息 _Click(Index As Integer) End Sub Private Sub 修改查詢課程信息 _Click(Index As Integer) End Sub Private Sub 修改查詢學(xué)生信息 _Click(Index As Integer) End Sub 學(xué)生信息管理界面: 5 學(xué)生信息管理代碼: Dim rs As New Dim con As New Private Sub Command1_Click() (學(xué)號(hào) ) = (姓名 ) = (性別 ) = (班級(jí)編號(hào) ) = (民族 ) = Set = rs End Sub Private Sub Command2_Click() select * from 學(xué)生信息表 where 學(xué)號(hào) =39。 amp。 某某 學(xué)院 計(jì)算機(jī)科學(xué)與技術(shù) 系 課 程 設(shè) 計(jì) 報(bào) 告 課 程 名 數(shù)據(jù)庫(kù) 應(yīng)用 設(shè)計(jì)題目 學(xué)校教務(wù)管理 系統(tǒng) 班 級(jí) 08 本科 1 班 專 業(yè) 計(jì)算機(jī)科學(xué)與技術(shù) 姓 名