教師管理系統(tǒng)1—免費畢業(yè)設計論文(編輯修改稿)

　

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