【導讀】開發(fā)教師管理系統(tǒng)的目的和原則3. 數(shù)據(jù)庫設(shè)計工具——ACCESS數(shù)據(jù)庫管理系統(tǒng)7. 系統(tǒng)流程和操作方式設(shè)計11. 系統(tǒng)界面設(shè)計以及代碼分析12. 第四章數(shù)據(jù)庫的設(shè)計30. 系統(tǒng)測試與評價38. 20世紀以來，社會生產(chǎn)力迅速發(fā)展，科學技術(shù)突飛猛進，人們進行信息交。流的深度與廣度不斷增加，信息量急劇增長，傳統(tǒng)的信息處理與決策的手段已不。能適應(yīng)社會的需要，信息的重要性和信息處理問題的緊迫性空前提高了，面對著。日益復(fù)雜和不斷發(fā)展，變化的社會環(huán)境，特別是企業(yè)間日趨劇烈的競爭形勢，一。的信息收集與處理手段。技術(shù)為一體的綜合性系統(tǒng)，是一個資金技術(shù)密集型、勞動密集型、智力密集型的。要抓住當前網(wǎng)絡(luò)經(jīng)濟興起的有利時機，以實現(xiàn)我國信息技術(shù)和信息產(chǎn)業(yè)的跨越式。發(fā)展，更好地發(fā)揮信息產(chǎn)業(yè)對國民經(jīng)濟增長的拉動作用。如今隨著教育事業(yè)的發(fā)展,學校對教師需求的增加,一個單位,教師。人事信息,編制,排課工資等信息量將迅速的增加,傳統(tǒng)的手工的處理

　　

【正文】 If MsgBox(若重新登錄，所有窗體都將關(guān) 閉！是否重新登錄？ , vbQuestion + vbYesNo + vbDefaultButton2, 重新登錄 ) = vbYes Then Unload MDIMain End If End Sub Private Sub mnuStudent_Click() If mnUserType = 0 Then Else End If End Sub : 教師信息管理代碼 : Option Explicit Dim mbClose As Boolean 39。是否能關(guān)閉 Dim msSerial As String 39。當前編輯的教師號 39。39。39。在 中查詢 serial 為 sSerial 的學籍信息 Sub SeekTeacher(sSerial As String) If Not ( And ) Then Dim Temp As String Temp = serial = amp。 39。 amp。 sSerial amp。 39。 Temp End If End Sub 39。39。39。當改變記錄集時，需要刷新整個網(wǎng)格控件 Sub RefreshGrid() = If adStateClosed Then = sqlSeek 39。39。刷新各個綁定控件 Call grdScan_Change End Sub 39。39。39。用以在瀏覽時，根據(jù)當前記錄所出的位置不 同，來改變個瀏覽按鈕的狀態(tài) Sub ChangeBrowseState() With 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。39。39。假如處于記錄的頭部 If .BOF Then If Not .EOF Then = False = False Else = True = True End If 39。39。39。假如處于記錄的尾部 If .EOF Then If Not .BOF Then = False = False Else = True = True End If End With End Sub 39。39。刷新教師號為 sSerial 的教師所受課程的網(wǎng)格控件 grdTeach Sub RefreshTeach(sSerial As String) 39。 = 39。 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。 amp。 sSerial amp。 39。 End If .Open str End With = oeach End Sub Private Sub cmdAdd_Click() = 19700101 = True = False = False = False = False = True = 取消 = True mbClose = False 39。不能關(guān)閉窗口 End Sub Private Sub cmdDelete_Click() On Error GoTo errHandler If MsgBox(要刪除記錄 ?, vbYesNo + vbQuestion + vbDefaultButton2, 確認 ) = vbYes Then delete from Teacher where serial =39。 amp。 txtSerial amp。 39。 If Then 39。39。刷新用戶導航的網(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。 amp。 str amp。 39。 39。39。使用 con 來刪除所選的記錄 str 39。39。刷新用于顯示教師授課信息的 grdTeach 控件 = oeach End If Exit Sub errHandler: MsgBox , vbCritical, 錯誤 End Sub Private Sub cmdEdit_Click() = True = False = False = False = True = 取消 39。39。39。更改為“取消更新”的狀態(tài) = True mbClose = False 39。不能關(guān)閉窗口 End Sub Private Sub cmdEditTeach_Click() 39。39。修改當前所選的授課信息 On Error GoTo errHandler With frmTeach Load frmTeach .Caption = 添加 amp。 Trim(txtName) amp。 老師的所授課程 39。39。將當前所定位的課程信息寫入到 frmTeach 窗體中 . = (0).CellText() .Show vbModal 39。39。如果用戶沒有點擊確認按鈕，則退出處理過程 If Not .mbAdded Then Unload frmTeach Exit Sub End If 39。39。添加授課記錄 If = adStateClosed Then (CourseID) = . (TeacherID) = End With 39。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。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。 _ () amp。 order by serial End If strSQL 39。39。刷新用以導航的網(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。39。取消更新 39。39。重新顯示原來數(shù)據(jù)集中的內(nèi)容 If Then Else End If Call ChangeBrowseState mbClose = True Else 39。39。生成有關(guān)教師信息的報表 Dim strSQL As String strSQL = select teacher.*, as dept_name amp。 _ From teacher, department amp。 _ where = and serial = 39。 amp。 amp。 39。 strSQL End If End Sub Private Sub cmdReportTeach_Click() On Error Resume Next Dim rpt As New rptTeach Load rpt = 教師 amp。 Trim(txtName) amp。 所授的課程 1 End Sub Private Sub cmdSeek_Click() With frmFind Dim i As Integer 39。顯示查找窗口 Load frmFind 39。39。填充查找窗體的字段列表框 . For i = 0 To 1 . ((i).Name)