【正文】 omic management theory, statistics and research, database integration technology for the integrated system is a capitaland technologyintensive and laborintensive, intellectualintensive projects. China has a vast market and abundant human resources, technical accumulation and decades of accumulated experience, a certain advantages. Mis innovation can not sell, not selfassertive. We should seize the current favorable opportunity to work economy, China39。在打開(kāi)一個(gè)窗體時(shí)， Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在 “ 窗體向?qū)?” 選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。39。 pwd amp。 amp。39。39。在 中查詢 serial 為 sSerial 的學(xué)籍信息 Sub SeekTeacher(sSerial As String) If Not ( And ) Then Dim Temp As String Temp = serial = amp。當(dāng)改變記錄集時(shí)，需要刷新整個(gè)網(wǎng)格控件 Sub RefreshGrid() = If adStateClosed Then = sqlSeek 39。39。 = 39。 txtSerial amp。 39。不能關(guān)閉窗口 End Sub Private Sub cmdEditTeach_Click() 39。如果用戶沒(méi)有點(diǎn)擊確認(rèn)按鈕，則退出處理過(guò)程 If Not .mbAdded Then Unload frmTeach Exit Sub End If 39。 order by serial End If strSQL 39。生成有關(guān)教師信息的報(bào)表 Dim strSQL As String strSQL = select teacher.*, as dept_name amp。 所授的課程 1 End Sub Private Sub cmdSeek_Click() With frmFind Dim i As Integer 39。 .msFindExpr amp。 39。刷新右端用以導(dǎo)航的網(wǎng)格控件 Call RefreshGrid 39。 Exit Sub errHandler: MsgBox , vbCritical, 錯(cuò)誤 End Sub Private Sub cmdAddTeach_Click() On Error GoTo errHandler With frmTeach Load frmTeach .Caption = 添加 amp。在數(shù) 據(jù)庫(kù)發(fā)展的歷史上，最重要的成就就是關(guān)系模型。開(kāi)發(fā)本系統(tǒng)的過(guò)程中，首先 要對(duì)教師信息管理進(jìn)行系統(tǒng)調(diào)研， 熟悉 學(xué)校教師的人事、檔案 管理的 流程 、步驟；其次在系統(tǒng)需求分析過(guò)程中，要透過(guò)現(xiàn)象看本質(zhì)，敏銳觀察到學(xué)校教師管理中存在的各種問(wèn)題，并在總體設(shè)計(jì)把握好對(duì)問(wèn)題的分析、理解，進(jìn)而解決問(wèn)題；選用開(kāi)發(fā)工具要選用自己最熟悉、應(yīng)用較多的開(kāi)發(fā)工具，本系統(tǒng)開(kāi)發(fā)選用 MS Visual Basic ，其具有語(yǔ)言簡(jiǎn)單、功能強(qiáng)大、組件眾多的優(yōu)點(diǎn)。 對(duì)于 一個(gè)學(xué)校 來(lái)說(shuō)，大量 教師 信息難于通過(guò)傳統(tǒng)的方法進(jìn)行管理； 這就迫切需要利用計(jì)算機(jī)技術(shù)來(lái)幫助學(xué)校管理者來(lái)處理教師信息的日常管理 .教師管理系統(tǒng)是管理信息系統(tǒng)的一個(gè)典型用例 . 管理信息系統(tǒng)是一個(gè)集信息技術(shù)、經(jīng)濟(jì)管理理論、統(tǒng)計(jì)學(xué)與運(yùn)籌學(xué)、數(shù)據(jù)庫(kù)技術(shù)為一體的綜合性系統(tǒng)，是一個(gè)資金技術(shù)密集型、勞動(dòng)密集型、智力密集型的項(xiàng)目。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作 表；可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的數(shù)據(jù)；使用查詢來(lái)查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來(lái)分析及打印數(shù)據(jù)。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。選擇身份為管理員 strSQL = select * from admin where name=39。 Case 1: 39。 39。39。以管理員身份登錄 = True Case 1: 39。 amp。刷新各個(gè)綁定控件 Call grdScan_Change End Sub 39。假如處于記錄的頭部 If .BOF Then If Not .EOF Then = False = False Else = True = True End If 39。 amp。 If Then 39。使用 con 來(lái)刪除所選的記錄 str 39。修改當(dāng)前所選的授課信息 On Error GoTo errHandler With frmTeach Load frmTeach .Caption = 添加 amp。添加授課記錄 If = adStateClosed Then (CourseID) = . (TeacherID) = End With 39。刷新用以導(dǎo)航的網(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。 _ where = and serial = 39。39。 strSQL End If End Sub Private Sub cmdReportTeach_Click() On Error Resume Next Dim rpt As New rptTeach Load rpt = 教師 amp。重新顯示原來(lái)數(shù)據(jù)集中的內(nèi)容 If Then Else End If Call ChangeBrowseState mbClose = True Else 39。針對(duì)所選的部門，列出屬于該部門的中所有教師的信息 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。將當(dāng)前所定位的課程信息寫入到 frmTeach 窗體中 . = (0).CellText() .Show vbModal 39。39。 str amp。不能關(guān)閉窗口 End Sub Private Sub cmdDelete_Click() On Error GoTo errHandler If MsgBox(要?jiǎng)h除記錄 ?, vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn) ) = vbYes Then delete from Teacher where serial =39。39。39。39。39。 1教師類型的用戶 Public mnUserType As Integer 39。39。 39。 and pwd=39。39。查詢的同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。 開(kāi)發(fā) 學(xué)校教師 管理系統(tǒng)的過(guò)程就是要實(shí)現(xiàn)數(shù)據(jù)處理方式由人工管理向計(jì)算機(jī)管理的轉(zhuǎn)變，它在計(jì)算機(jī)技術(shù)和 教師 管理實(shí)踐活動(dòng)兩者之間架設(shè)橋梁。 在這里我還要感謝我們宿舍的其它 5 個(gè)同學(xué)。隨著軟件危機(jī)的頻頻出現(xiàn)以及人們對(duì)于軟件本質(zhì)的進(jìn)一步認(rèn)識(shí)，測(cè)試的地位得到了前所未有的提高。如果用戶沒(méi)有點(diǎn)擊確認(rèn)按鈕，則退出處理過(guò)程 If Not .mbAdded Then Unload frmTeach Exit Sub End If 39。定位到剛剛添加或者修改過(guò)的記錄 serial=39。39。 .msFindOp amp。 amp。 amp。取消更新 39。刷新用于顯示授課的 grdTeach 網(wǎng)格控件 Call RefreshTeach(msSerial) Exit Sub errHandler: MsgBox , vbCritical, 錯(cuò)誤 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。刷新用于顯示教師授課信息的 grdTeach 控件 = oeach End If Exit Sub errHandler: MsgBox , vbCritical, 錯(cuò)誤 End Sub Private Sub cmdEdit_Click() = True = False = False = False = True = 取消 39。刷新用戶導(dǎo)航的網(wǎng)格控件 Call RefreshGrid End If Exit Sub errHandler: MsgBox , vbCritical, 錯(cuò)誤 End Sub Private Sub cmdDeleteTeach_click() On Error GoTo errHandler If MsgBox(確實(shí)要?jiǎng)h除此授課記錄？ , _ vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn) ) = vbYes Then Dim str str = (0).CellText() str = delete from teach where courseid=39。 39。39。39。 39。是否能關(guān)閉 Dim msSerial As String 39。表示當(dāng)前的用戶類型 39。39。 amp。 user amp。表示當(dāng)前用戶登錄所選擇的身份，即用戶類型 39。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。管理信息系統(tǒng)的創(chuàng)新工作既不能妄自菲薄，更不能夜郎自大。要 抓住當(dāng)前網(wǎng)絡(luò)經(jīng)