【正文】 工具 —— ACCESS 數(shù)據(jù)庫管理系統(tǒng) 7 第二章 系統(tǒng)設(shè)計(jì) 9 系統(tǒng)分析 9 系統(tǒng)流程和操作方式設(shè)計(jì) 11 第三章 系統(tǒng)界面設(shè)計(jì) 12 系統(tǒng)界面設(shè)計(jì) 以及代碼分析 12 第四章 數(shù)據(jù)庫的設(shè)計(jì) 30 數(shù)據(jù)庫設(shè)計(jì) 30 數(shù)據(jù)庫概念和發(fā)展 30 系統(tǒng)測(cè)試與評(píng)價(jià) 38 總 結(jié) 39 致 謝 40 參考文獻(xiàn) 41 摘 要 20 世紀(jì)以來，社會(huì)生產(chǎn)力迅速發(fā)展，科學(xué)技術(shù)突飛猛進(jìn)， 人們進(jìn)行信息交流的深度與廣度不斷增加，信息量急劇增長，傳統(tǒng)的信息處理與決策的手段已不能適應(yīng)社會(huì)的需要，信息的重要性和信息處理問題的緊迫性空前提高了，面對(duì)著日益復(fù)雜和不斷發(fā)展，變化的社會(huì)環(huán)境，特別是企業(yè)間日趨劇烈的競(jìng)爭(zhēng)形勢(shì)，一個(gè)人、一個(gè) 企業(yè)要在現(xiàn)代社會(huì)中求生存，求發(fā)展，必須具備足夠的信息和強(qiáng)有力的信息收集與處理手段。無論做什么事都要大膽的去想去做，這樣會(huì)有好的創(chuàng)意，才能更有作為。 總 結(jié) 教師管理系統(tǒng)是一個(gè)典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、需求分析、總體設(shè)計(jì) 、選用工具、程序模塊、系統(tǒng)測(cè)試等幾個(gè)步驟來實(shí)現(xiàn)。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 測(cè)試在軟件開發(fā)過程中一直都是備受關(guān)注的，即使在傳統(tǒng)的軟件工程中，也 有一個(gè)明確、獨(dú)立的測(cè)試階段。 20 世紀(jì) 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。39。 39。39。39。 order by serial Unload frmFind End With 39。 .msFindExpr amp。 amp。% 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。 Trim(txtName) amp。 amp。39。39。 _ () amp。39。39。 Trim(txtName) amp。更改為“取消更新”的狀態(tài) = True mbClose = False 39。39。 39。39。 amp。 sSerial amp。刷新教師號(hào)為 sSerial 的教師所受課程的網(wǎng)格控件 grdTeach Sub RefreshTeach(sSerial As String) 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。 sSerial amp。39。以教師身份登錄， 只能查詢自己的信息 = False End Select End Sub Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(真的要對(duì)出本系統(tǒng)嗎？ , vbQuestion + vbYesNo + vbDefaultButton2, 退出 ) = vbNo Then Cancel = 1 End If End Sub Private Sub mnuAbout_Click() Load frmSplash = True vbModal End Sub Private Sub mnuExit_Click() Unload Me End Sub Private Sub mnuFind_Click() = True End Sub Private Sub mnuLogin_Click() 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。表示當(dāng)前登錄的用戶名 Public msUserName As String Private Sub MDIForm_Activate() 39。顯示 MDI 窗體 , 并將用戶類型和用戶名傳到 MDI 窗體中 Load MDIMain With MDIMain .mnUserType = .msUserName = pwd .Show End With Unload Me End If End Sub Private Sub Form_Load() = 0 End Sub 主界面代碼 : Option Explicit 39。登錄失敗 MsgBox 對(duì)不起，無此用戶或者密碼不正確！請(qǐng)重新輸入！！ , vbCritical, 錯(cuò)誤 = 0 = Len(txtUser) nTryCount = nTryCount + 1 If nTryCount = 3 Then MsgBox 您無權(quán)操作本系統(tǒng) !再見！ , vbCritical, 無權(quán)限 Unload Me End If Else 39。 End Select On Error Resume Next If = adStateOpen Then strSQL 39。 and serial=39。選擇身份為 教師 strSQL = select * from teacher where name=39。 amp。 amp。取得用戶輸入的用戶名和密碼 Dim user As String, pwd As String user = txtUser pwd = txtPwd 39。 第二章 系統(tǒng)設(shè)計(jì) 系統(tǒng)分析 本教師管理系統(tǒng)主要由以下幾大模塊構(gòu)成 . 一 .通用模塊 (教師管理 ,教師查詢 ,重新登陸 ,退出 ) 二 ..幫助模塊 系統(tǒng)流程和操作方式設(shè)計(jì) 主界面 教 師 管 理 教 師 查 詢 重 新 登 錄 退 出 幫 助 程序登陸 第三章 系統(tǒng)界面設(shè)計(jì) 登陸界面代碼設(shè)計(jì) : Option Explicit 39。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。 關(guān)鍵字 :教師管理 ,管理信息系統(tǒng) ,數(shù)據(jù)庫 ,計(jì)算機(jī)管理 Abstract： Since the 20th century, the rapid development of social productive forces, science and technology, exchange of information is the depth and scope of increasing the volume of information rapid growth, the traditional information processing and decisionmaking tools have not the needs of the munity, the importance of information and information processing problems urgency unprecedented increase, in 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。我國擁有廣闊的市場(chǎng)和豐富的人才資源，有幾十年的技術(shù)積累和經(jīng)驗(yàn)積累，有一定的后發(fā)優(yōu)勢(shì)。 對(duì)于 一個(gè)學(xué)校 來說，大量 教師 信息難于通過傳統(tǒng)的方法進(jìn)行管理； 這就迫切需要利用計(jì)算機(jī)技術(shù)來幫助學(xué)校管理者來處理教師信息的日常管理 .教師管理系統(tǒng)是管理信息系統(tǒng)的一個(gè)典型用例 . 管理信息系統(tǒng)是一個(gè)集信息技術(shù)、經(jīng)濟(jì)管理理論、統(tǒng)計(jì)學(xué)與運(yùn)籌學(xué)、數(shù)據(jù)庫技術(shù)為一體的綜合性系統(tǒng)，是一個(gè)資金技術(shù)密集型、勞動(dòng)密集型、智力密集型的項(xiàng)目。 開發(fā) 學(xué)校教師 管理系統(tǒng)的過程就是要實(shí)現(xiàn)數(shù)據(jù)處理方式由人工管理向計(jì)算機(jī)管理的轉(zhuǎn)變，它在計(jì)算機(jī)技術(shù)和 教師 管理實(shí)踐活動(dòng)兩者之間架設(shè)橋梁。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作 表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。查詢的同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。39。選擇身份為管理員 strSQL = select * from admin where name=39。 and pwd=39。 Case 1: 39。 39。 39。39。39。 1教師類型的用戶 Public mnUserType As Integer 39。以管理員身份登錄 = True Case 1: 39。39。 amp。39。刷新各個(gè)綁定控件 Call grdScan_Change End Sub 39。39。假如處于記錄的頭部 If .BOF Then If Not .EOF Then = False = False Else = True = True End If 39。39。 amp。不能關(guān)閉窗口 End Sub Private Sub cmdDelete_Click() On Error GoTo errHandler