【文章內(nèi)容簡介】 ) 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)教師信息的報(bào)表 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) Next i . = 0 .Show 1 If .mbFindFailed Then Exit Sub Dim sTemp As String If LCase(.msFindOp) = like Then sTemp = .msFindField amp。 amp。 .msFindOp amp。 39。% amp。 .msFindExpr amp。 %39。 Else sTemp = .msFindField amp。 amp。 .msFindOp amp。 39。 amp。 .msFindExpr amp。 39。 End If sTemp = select * from Teacher where amp。 sTemp amp。 order by serial Unload frmFind End With 39。39。查找數(shù)據(jù)，并刷新用以導(dǎo)航的網(wǎng)格控件 If adStateClosed Then sTemp Call RefreshGrid Exit Sub errHandler: MsgBox 沒有符合條件的紀(jì)錄！ , vbExclamation, 確認(rèn) End Sub Private Sub cmdUpdate_Click() On Error GoTo errHandler: Dim str As String str = = 報(bào)表 (amp。R) = False = False mbClose = True If = adStateClosed Then 39。39。刷新右端用以導(dǎo)航的網(wǎng)格控件 Call RefreshGrid 39。39。根據(jù)記錄集中記錄的個(gè)數(shù)，改變各個(gè)按鈕的狀態(tài) Call ChangeBrowseState 39。39。定位到剛剛添加或者修改過的記錄 serial=39。 amp。 str amp。 39。 Exit Sub errHandler: MsgBox , vbCritical, 錯(cuò)誤 End Sub Private Sub cmdAddTeach_Click() On Error GoTo errHandler With frmTeach Load frmTeach .Caption = 添加 amp。 Trim(txtName) amp。 老師的所授課程 .Show vbModal 39。39。如果用戶沒有點(diǎn)擊確認(rèn)按鈕，則退出處理過程 If Not .mbAdded Then Unload frmTeach Exit Sub End If 39。39。添加授課記錄 If = adStateClosed Then (CourseID) = . (TeacherID) = End With 39。39。刷新整個(gè)網(wǎng)格控件 Call RefreshTeach(msSerial) Exit Sub errHandler: MsgBox , vbCritical, 錯(cuò)誤 End Sub Private Sub Form_Load() On Error Resume Next Dim rsDep As New , rsClass As New Set rsDep = 39。39。從 Department 表中讀取數(shù)據(jù)，填充 cboDep 復(fù)合框到中 全部 39。39。將各個(gè)部門的 id 號作為 ItemData 附加到復(fù)合框中 (0) = 0 While Not rsDep(Name) ( 1) = rsDep(id) Wend = 0 39。39。39。點(diǎn)擊“列出 ”按鈕 = 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ù)正被修改，窗口不能關(guān)閉 , vbCritical, 錯(cuò)誤 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。如果當(dāng)前記錄正處于編輯狀態(tài)，則不允許 在導(dǎo)航欄中移動記錄 If Not mbClose Then = LastRow 1 39。39。如果當(dāng)前行改變，則動態(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。39。當(dāng)教師編號改變時(shí)，就刷新用于顯示授課信息的 grdTeach 控件 If Not Then Call RefreshTeach(msSerial) End If End Sub : 教師查詢界面代碼 Option Explicit Public msFindField As String 39。查找字段 Public msFindOp As String 39。查找運(yùn)算符 Public msFindExpr As String 39。查找表達(dá)式 Public mbFindFailed As Boolean Private Sub cmdCancel_Click() mbFindFailed = True End Sub Private Sub txtExpression_Change() = Len() 0 And Len() 0 And Len() 0 End Sub Private Sub lstFields_Click() = Len() 0 And Len() 0 And Len() 0 End Sub Private Sub lstOperators_Click() = Len() 0 And Len() 0 And Len() 0 End Sub Private Sub Form_Load() 39。39。查詢所需要使用的運(yùn)算符號 = = = Like = 0 mbFindFailed = True End Sub Private Sub cmdOK_Click() mbFindFailed = False 39。39。改變指針，告知讀者當(dāng)前處于忙的狀態(tài) = vbHourglass msFindField = msFindExpr = msFindOp = 39。39。改變指針，告知讀者系統(tǒng)已經(jīng)不忙 = vbDefault End Sub 第四章 數(shù)據(jù)庫的設(shè)計(jì) : 課程類型表 : 系別 : : : 數(shù)據(jù)庫概念和發(fā)展 關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)， 是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。 20 世紀(jì) 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有 “ 表 “ 這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。 結(jié)構(gòu)化查詢語言 SQL（ Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo) 準(zhǔn)語言 測試在軟件開發(fā)過程中一直都是備受關(guān)注的，即使在傳統(tǒng)的軟件工程中，也有一個(gè)明確、獨(dú)立的測試階段。隨著軟件危機(jī)的頻頻出現(xiàn)以及人們對于軟件本質(zhì)的進(jìn)一步認(rèn)識，測試的地位得到了前所未有的提高。測試已經(jīng)不僅僅局限于軟件開發(fā)中的一個(gè)階段，它已經(jīng)開始貫穿于整個(gè)軟件開發(fā)過程，人們已經(jīng)開始認(rèn)識到：測試開始的時(shí)間越早，測試執(zhí)行的越頻繁，所帶來的整個(gè)軟件開發(fā)成本的下降就會越多。 Extreme Programming 更是把測試推到了極限的位置，一切軟件開發(fā)活動都要從首先編寫測試代碼開始。 總 結(jié) 教師管理系統(tǒng)是一個(gè)典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、需求分析、總體設(shè)計(jì)、選用