【正文】 the face of increasingly plex and evolving. changes in the social environment, in particular the increasingly keen petition among enterprises situation, a person or an enterprise to survive in modern society, and development, we must have sufficient information and powerful information gathering and processing tools. For a school, a lot of information to teachers through traditional means。要抓住當前網(wǎng)絡經(jīng)濟興起的有利時機，以實現(xiàn)我國信息技術和信息產(chǎn)業(yè)的跨越式發(fā)展，更好地發(fā)揮信息產(chǎn)業(yè)對國民經(jīng)濟增長的拉動作用。我國擁有廣闊的市場和豐富的人才資源，有幾十年的技術積累和經(jīng)驗積累，有一定的后發(fā)優(yōu)勢。實用軟件工程教程 高等教育出版社 2020 11 （英） Ian Sommerville 機械工業(yè)出版社 2020 12 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 2020 13 李維 面向?qū)ο箝_發(fā)實踐之路（ visual basic ） (BORLAND資深顧問著名 visual basic ) 電子工業(yè)出版社 14 秦斌 等 visual basic 中國水利水電出版社 2020 .1 15 劉藝 visual basic 機械工業(yè)出版社 2020 basic 程序設計第二版 譚浩強 清華大學出版社 2020 17. visual 程序設計教程 . 胡同森 趙劍鋒等 . 浙江科學技術出版社 , (第二版 ) 周蘇 王文 著 科學出版 社 2020 Basic 程序設計與開發(fā)技術 求是科技 人民郵電出版社 教師管理系統(tǒng) 目 錄 摘 要 I ABSTRACT II 第一章 引言 1 背景 1 教師管理系統(tǒng) 1 開發(fā)教師管理系統(tǒng)的目的和原則 3 開發(fā)環(huán)境介紹 3 開發(fā)平臺 4 數(shù)據(jù)庫設計工具 —— ACCESS 數(shù)據(jù)庫管理系統(tǒng) 7 第二章 系統(tǒng)設計 9 系統(tǒng)分析 9 系統(tǒng)流程和操 作方式設計 11 第三章 系統(tǒng)界面設計 12 系統(tǒng)界面設計 以及代碼分析 12 第四章 數(shù)據(jù)庫的設計 30 數(shù)據(jù)庫設計 30 數(shù)據(jù)庫概念和發(fā)展 30 系統(tǒng)測試與評價 38 總 結(jié) 39 致 謝 40 參考文獻 41 摘 要 20 世紀以來，社會生產(chǎn)力迅速發(fā)展，科學技術突飛猛進， 人們進行信息交流的深度與廣度不斷增加，信息量急劇增長，傳統(tǒng)的信息處理與決策的手段已不能適應社會的需要， 信息的重要性和信息處理問題的緊迫性空前提高了，面對著日益復雜和不斷發(fā)展，變化的社會環(huán)境，特別是企業(yè)間日趨劇烈的競爭形勢，一個人、一個企業(yè)要在現(xiàn)代社會中求生存，求發(fā)展，必須具備足夠的信息和強有力的信息收集與處理手段。他們和我共同生活了四年，在生活和學習上給了我很大的幫助。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能 更有作為。程序模塊的編制中，重點把握系統(tǒng)內(nèi)部完整性、功能性、實用性、便捷性，使其能夠協(xié)調(diào)統(tǒng)一、運行無誤。 總 結(jié) 教師管理系統(tǒng)是一個典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、需求分析、總體設計、選用工具、程序模塊、系統(tǒng)測試等幾個步驟來實現(xiàn)。測試已經(jīng)不僅僅局限于軟件開發(fā)中的一個階段，它已經(jīng)開始貫穿于整個軟件開發(fā)過程，人們已經(jīng)開始認識到：測試開始的時間越早，測試執(zhí)行的越頻繁，所帶來的整個軟件開發(fā)成本的下降就會越多。目前已成為關系數(shù)據(jù)庫的標 準語言 測試在軟件開發(fā)過程中一直都是備受關注的，即使在傳統(tǒng)的軟件工程中，也有一個明確、獨立的測試階段。 關系數(shù)據(jù)庫系統(tǒng)與非關系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關系系統(tǒng)只有 “ 表 “ 這一種數(shù)據(jù)結(jié)構；而非關系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構，對這些數(shù)據(jù)結(jié)構有其他的操作。 20 世紀 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關系的。39。39。39。查找運算符 Public msFindExpr As String 39。當教師編號改變時，就刷新用于顯示授課信息的 grdTeach 控件 If Not Then Call RefreshTeach(msSerial) End If End Sub : 教師查詢界面代碼 Option Explicit Public msFindField As String 39。如果當前行改變，則動態(tài)改變所要顯示的記錄 If LastRow Then If 0 Then msSerial = (0).CellText() Call SeekTeacher(msSerial) End If End If End Sub Private Sub txtName_Validate(Cancel As Boolean) = Trim() End Sub Private Sub txtSerial_Change() 39。如果當前記錄正處于編輯狀態(tài)，則不允許 在導航欄中移動記錄 If Not mbClose Then = LastRow 1 39。點擊“列出 ”按鈕 = True = True = True = True = True mbClose = True Call grdScan_Change End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If Not mbClose Then MsgBox 數(shù)據(jù)正被修改，窗口不能關閉 , vbCritical, 錯誤 Cancel = True End If End Sub Private Sub grdScan_Change() If 0 Then msSerial = (0).CellText() Call SeekTeacher(msSerial) End If End Sub Private Sub grdScan_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 39。39。39。39。39。39。39。 Trim(txtName) amp。 39。 amp。39。39。39。查找數(shù)據(jù)，并刷新用以導航的網(wǎng)格控件 If adStateClosed Then sTemp Call RefreshGrid Exit Sub errHandler: MsgBox 沒有符合條件的紀錄！ , vbExclamation, 確認 End Sub Private Sub cmdUpdate_Click() On Error GoTo errHandler: Dim str As String str = = 報表 (amp。 order by serial Unload frmFind End With 39。 End If sTemp = select * from Teacher where amp。 .msFindExpr amp。 39。 amp。 %39。% amp。 .msFindOp amp。填充查找窗體的字段列表框 . For i = 0 To 1 . ((i).Name) Next i . = 0 .Show 1 If .mbFindFailed Then Exit Sub Dim sTemp As String If LCase(.msFindOp) = like Then sTemp = .msFindField amp。顯示查找窗口 Load frmFind 39。 Trim(txtName) amp。 39。 amp。 _ From teacher, department amp。39。39。39。39。 _ () amp。39。39。39。39。39。 Trim(txtName) amp。39。更改為“取消更新”的狀態(tài) = True mbClose = False 39。39。39。39。 39。 amp。39。 39。 amp。 End If .Open str End With = oeach End Sub Private Sub cmdAdd_Click() = 19700101 = True = False = False = False = False = True = 取消 = True mbClose = False 39。 sSerial amp。 With If .State adStateClosed Then .Close Dim str If sSerial = Then str = select course.* from course, teach where = Else str = select course.* from course, teach where = and = 39。刷新教師號為 sSerial 的教師所受課程的網(wǎng)格控件 grdTeach Sub RefreshTeach(sSerial As String) 39。假如處于記錄的尾部 If .EOF Then If Not .BOF Then = False = False Else = True = True End If End With End Sub 39。39。39。如果沒有任何記錄，則清空顯示目錄；并且使瀏覽部分和管理部分的按鈕無效 If .State = adStateClosed Then .Open If .BOF And .EOF Then = True = False = False = False = False = False Else = True = True = True = False = True = True End If 39。用以在瀏覽時，根據(jù)當前記錄所出的位置不 同，來改變個瀏覽按鈕的狀態(tài) Sub ChangeBrowseState() With 39。39。39。39。 Temp End If End Sub 39。 sSerial amp。 39。39。當前編輯的教師號 39。以教師身份登錄， 只能查詢自己的信息 = Fals