【正文】 If MsgBox(要刪除記錄 ?, vbYesNo + vbQuestion + vbDefaultButton2, 確認 ) = vbYes Then delete from Teacher where serial =39。 If Then 39。 str amp。使用 con 來刪除所選的記錄 str 39。39。修改當(dāng)前所選的授課信息 On Error GoTo errHandler With frmTeach Load frmTeach .Caption = 添加 amp。將當(dāng)前所定位的課程信息寫入到 frmTeach 窗體中 . = (0).CellText() .Show vbModal 39。添加授課記錄 If = adStateClosed Then (CourseID) = . (TeacherID) = End With 39。針對所選的部門，列出屬于該部門的中所有教師的信息 Dim strSQL If = 0 Then strSQL = select serial, name from Teacher order by serial Else strSQL = select serial,name from Teacher where dept_id= amp。刷新用以導(dǎo)航的網(wǎng)格控件 Call RefreshGrid Call ChangeBrowseState Call grdScan_Change End Sub Private Sub cmdNext_Click() Call ChangeBrowseState End Sub Private Sub cmdPrevious_Click() Call ChangeBrowseState End Sub Private Sub cmdReport_Click() On Error Resume Next If = 取消 Then 39。重新顯示原來數(shù)據(jù)集中的內(nèi)容 If Then Else End If Call ChangeBrowseState mbClose = True Else 39。 _ where = and serial = 39。 strSQL End If End Sub Private Sub cmdReportTeach_Click() On Error Resume Next Dim rpt As New rptTeach Load rpt = 教師 amp。39。 39。 Else sTemp = .msFindField amp。 amp。 sTemp amp。R) = False = False mbClose = True If = adStateClosed Then 39。根據(jù)記錄集中記錄的個數(shù)，改變各個按鈕的狀態(tài) Call ChangeBrowseState 39。 str amp。 老師的所授課程 .Show vbModal 39。添加授課記錄 If = adStateClosed Then : 第四章 數(shù)據(jù)庫的設(shè)計 : 課程類型表 : 系別 : : : 數(shù)據(jù)庫概念和發(fā)展 關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。 結(jié)構(gòu)化查詢語言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關(guān)系數(shù)據(jù)庫語言。 Extreme Programming 更是把測試推到了極限的位置，一切軟件開發(fā)活動都要從首先編寫測試代碼開始。 運行結(jié)果證明， 本學(xué)校教師信息管理系統(tǒng) 極大提高了工作效率，節(jié)省了人力和物力，最終 滿足 學(xué)校管理、學(xué)校員工工作 的需要 ，同時也成為現(xiàn)代化學(xué)校管理的標(biāo)志 致 謝 我首先感謝我的指導(dǎo)老師呂老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認真負責(zé)的態(tài)度。 參考文獻 1 陳明 . 軟件工程學(xué)教程 .科技出版社， 2020 2 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社， 2020 3 飛思科技產(chǎn)品研發(fā)中心 . visual basic 數(shù)據(jù)庫應(yīng)用開發(fā) .電子工業(yè)出版社， 2020 4 飛思科技產(chǎn)品研發(fā)中心 . visual basic 開發(fā)者手冊 . 電子工業(yè)出版社 , 2020 5 申 旻 . visual basic 高手突破 . 清華大學(xué)出版社， 2020， 302 6 Steve Teixeira， Xaviver Pacheco 著，龍勁松，王瑜，謝尚書譯 . visual basic 開發(fā)人員指南 . 機械工業(yè)出版社 .2020 7 喬林 .參透 Delphi／ Kylix . 中國鐵道出版社 .2020 8 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2020 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2020 嚴(yán)蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二 版 .清華大學(xué)出版社 .2020 10 王珍 玲 。管理信息系統(tǒng)的創(chuàng)新工作既不能妄 自菲薄，更不能夜郎自大。 This urgent need for using puter technology to help school managers to deal with the daytoday management of information teachers. Teachers management system is a typical use of management information systems cases. Management Information System is a collection of information technology, economic management theory, statistics and research, database integration technology for the integrated system is a capitaland technologyintensive and laborintensive, intellectualintensive projects. China has a vast market and abundant human resources, technical accumulation and decades of accumulated experience, a certain advantages. Mis innovation can not sell, not selfassertive. We should seize the current favorable opportunity to work economy, China39。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關(guān)系。在打開一個窗體時， Microsoft Access 將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在 “ 窗體向?qū)?” 選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。表示當(dāng)前用戶登錄所選擇的身份，即用戶類型 39。39。 user amp。 pwd amp。 amp。 amp。39。39。表示當(dāng)前的用戶類型 39。39。是否能關(guān)閉 Dim msSerial As String 39。在 中查詢 serial 為 sSerial 的學(xué)籍信息 Sub SeekTeacher(sSerial As String) If Not ( And ) Then Dim Temp As String Temp = serial = amp。 39。當(dāng)改變記錄集時，需要刷新整個網(wǎng)格控件 Sub RefreshGrid() = If adStateClosed Then = sqlSeek 39。39。39。39。 = 39。 39。 txtSerial amp。刷新用戶導(dǎo)航的網(wǎng)格控件 Call RefreshGrid End If Exit Sub errHandler: MsgBox , vbCritical, 錯誤 End Sub Private Sub cmdDeleteTeach_click() On Error GoTo errHandler If MsgBox(確實要刪除此授課記錄？ , _ vbYesNo + vbQuestion + vbDefaultButton2, 確認 ) = vbYes Then Dim str str = (0).CellText() str = delete from teach where courseid=39。 39。刷新用于顯示教師授課信息的 grdTeach 控件 = oeach End If Exit Sub errHandler: MsgBox , vbCritical, 錯誤 End Sub Private Sub cmdEdit_Click() = True = False = False = False = True = 取消 39。不能關(guān)閉窗口 End Sub Private Sub cmdEditTeach_Click() 39。 老師的所授課程 39。如果用戶沒有點擊確認按鈕，則退出處理過程 If Not .mbAdded Then Unload frmTeach Exit Sub End If 39。刷新用于顯示授課的 grdTeach 網(wǎng)格控件 Call RefreshTeach(msSerial) Exit Sub errHandler: MsgBox , vbCritical, 錯誤 End Sub Private Sub cmdFirst_Click() Call ChangeBrowseState End Sub Private Sub cmdLast_Click() Call ChangeBrowseState End Sub Private Sub cmdList_Click() On Error Resume Next 39。 order by serial End If strSQL 39。取消更新 39。生成有關(guān)教師信息的報表 Dim strSQL As String strSQL = select teacher.*, as dept_name amp。 amp。 所授的課程 1 End Sub Private Sub cmdSeek_Click() With frmFind Dim i As Integer 3