【正文】 = select * from teacher where name=39。 and serial=39。 End Select On Error Resume Next If = adStateOpen Then strSQL 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。顯示 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。表示當(dāng)前登錄的用戶名 Public msUserName As String Private Sub MDIForm_Activate() 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。39。 sSerial amp。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。刷新教師號(hào)為 sSerial 的教師所受課程的網(wǎng)格控件 grdTeach Sub RefreshTeach(sSerial As String) 39。 sSerial amp。 amp。39。 39。39。更改為“取消更新”的狀態(tài) = True mbClose = False 39。 Trim(txtName) amp。39。39。 _ () amp。39。39。 amp。 Trim(txtName) amp。填充查找窗體的字段列表框 . For i = 0 To 1 . ((i).Name) N。顯示查找窗口 Load frmFind 39。 39。 _ From teacher, department amp。39。39。39。39。39。39。39。39。 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。 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。假如處于記錄的尾部 If .EOF Then If Not .BOF Then = False = False Else = True = True End If End With End Sub 39。39。用以在瀏覽時(shí)，根據(jù)當(dāng)前記錄所出的位置不 同，來改變個(gè)瀏覽按鈕的狀態(tài) Sub ChangeBrowseState() With 39。39。 Temp End If End Sub 39。 39。當(dāng)前編輯的教師號(hào) 39。根據(jù)不同的用戶類型，使相應(yīng)的菜單項(xiàng)可見 Select Case mnUserType Case 0: 39。0管理員類型的用戶 。登陸成功 39。用戶密碼錯(cuò)誤的次數(shù)，如果錯(cuò)誤次數(shù)超過 3 次，則退出系統(tǒng) Static nTryCount As Integer If Then 39。 pwd amp。 user amp。 39。 39。根據(jù)不同的身份，選擇不同的表用以查 詢 Dim r As New Set r = Dim strSQL As String Select Case mnUserType Case 0: 39。0表示管理員類用戶； 1表示教師類用戶 Dim mnUserType As Integer Private Sub cboUserType_Change() mnUserType = End Sub Private Sub cboUserType_Click() mnUserType = End Sub Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() 39。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請(qǐng)創(chuàng)建一個(gè)報(bào)表。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。s information technology and to achieve a leap forward of the information industry, give better play to the information industry to stimulate economic growth. Development of school teachers in the management process is to achieve data systems approach to the management of the artificial puter management changes in puter technology and management practices between teachers build bridges. Keyword : teacher management, management information systems, databases, puter management 第五章 引言 對(duì)于 一個(gè)學(xué)校 來說，大量 教師 信息難于通過傳統(tǒng)的方法進(jìn)行管理； 這就迫切需要利用計(jì)算機(jī)技術(shù)來幫助學(xué)校管理者來處理教師信息的日常管理 .教師管理系統(tǒng)是管理信息系統(tǒng)的一個(gè)典型用例 . 背景 教師管理系統(tǒng) 如今隨著教育事業(yè)的發(fā)展 ,學(xué)校對(duì)教師需求的增加 ,一個(gè)單位 ,教師人事信息 ,編制 ,排課工資等信息量將迅速的增加 ,傳統(tǒng)的手工的處理方式已經(jīng)跟不上信息爆炸般的擴(kuò)增 .所以開發(fā)一種可靠 ,高效的教師管理系統(tǒng)是很有必要的 . 開發(fā)教師管理系統(tǒng)的目的與原則 教師管理系統(tǒng)的主要目的是服務(wù)與中小學(xué) ,各高校 的管理者 ,方便其管理本校教師信息的軟件系統(tǒng) .其原則是做到 ,界面友好人性 ,操作簡單 ,可靠 . 開發(fā)環(huán)境介紹 開發(fā)平臺(tái) 本教師管理系統(tǒng)的開發(fā)平臺(tái)為微軟 windows xp visual basic 以及微軟的 Access 作為操作數(shù)據(jù)庫 . 數(shù)據(jù)庫設(shè)計(jì)工具 —— ACCESS 數(shù)據(jù)庫管理系統(tǒng) Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。要抓住當(dāng)前網(wǎng)絡(luò)經(jīng)濟(jì)興起的有利時(shí)機(jī)，以實(shí)現(xiàn)我國信息技術(shù)和信息產(chǎn)業(yè)的跨越式發(fā)展，更好地發(fā)揮信息產(chǎn)業(yè)對(duì)國民經(jīng)濟(jì)增長的拉動(dòng)作用。實(shí)用軟件工程教程 高等教育出版社 2020 11 （英） Ian Sommerville 機(jī)械工業(yè)出版社 2020 12 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 2020 13 李維 面向?qū)ο箝_發(fā)實(shí)踐之路（ visual basic ） (BORLAND資深顧問著名 visual basic ) 電子工業(yè)出版社 14 秦斌 等 visual basic 中國水利水電出版社 2020 .1 15 劉藝 visual basic 機(jī)械工業(yè)出版社 2020 basic 程序設(shè)計(jì)第二版 譚浩強(qiáng) 清華大學(xué)出版社 2020 17. visual 程序設(shè)計(jì)教程 . 胡同森 趙劍鋒等 . 浙江科學(xué)技術(shù)出版社 , (第二版 ) 周蘇 王文 著 科學(xué)出版社 2020 Basic 程序設(shè)計(jì)與開發(fā)技術(shù) 求是科技 人民郵電 出版社 教師管理系統(tǒng) 目 錄 摘 要 I ABSTRACT II 第一章 引言 1 背景 1 教師管理系統(tǒng) 1 開發(fā)教師管理系統(tǒng)的目的和原則 3 開發(fā)環(huán)境介紹 3 開發(fā)平臺(tái) 4 數(shù)據(jù)庫設(shè)計(jì)