教師管理系統(tǒng)的設(shè)計

1、1、概述教師信息管理系統(tǒng)是一所院校在各種信息管理中的一部分， 對于學(xué)校管理者來說是很 重要的，所以所設(shè)計的系統(tǒng)應(yīng)該能為管理者提供教師的基本信息管理手段和一些方便的查詢 方式。在過去， 計算機(jī)不是很普及和計算機(jī)應(yīng)用性不高的年代， 人們使用人工的方法管理各 式各樣的檔案， 這種管理方式存在著很多缺點：效率底， 保密性差，會產(chǎn)生大量的文件和數(shù) 據(jù)，給查找，更新和維護(hù)信息都帶來了相當(dāng)大的困難。隨著科學(xué)技術(shù)的不斷發(fā)展， 計算機(jī)科 學(xué)日益成熟， 其強(qiáng)大的計算功能已經(jīng)被人們深刻地認(rèn)識到， 計算機(jī)發(fā)揮著越來越重要的作用。 作為計算機(jī)應(yīng)用的一部分， 使用計算機(jī)對教師信息進(jìn)行管理， 具有人工方式所無法比擬的優(yōu) 越

2、性。如，查找方便，可靠性高，存儲容量大，保密性好，壽命長，成本低，維護(hù)十分方便 等，這些優(yōu)點能夠極大得提高工作的效率，這也是學(xué)校的科學(xué)化， 現(xiàn)代化， 正規(guī)化的一點體 現(xiàn)。開發(fā)環(huán)境：VB 6.0 企業(yè)版Microsoft Office Access 2003Windows 2003 操作系統(tǒng)1.1 系統(tǒng)操作流程2、需求分析用戶的需求具體體現(xiàn)在對各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫能充 分滿足各種數(shù)據(jù)的輸出和輸入。 通過對上述系統(tǒng)功能的分析， 針對教師信息管理系統(tǒng)的需求 總結(jié)出下列需求信息：用戶分系統(tǒng)管理員和一般操作員用戶一個機(jī)構(gòu)包括多個部門。一個部門包括多位教師。一位教師有一個職稱

3、, 一位教師可以教多門課程。一種職稱對應(yīng)著一種工資一門課程對應(yīng)著一種課費 一位老師拿一份工資經(jīng)過對上述系統(tǒng)功能的分析和需求總結(jié)，設(shè)計如下所示的數(shù)據(jù)項：管理員信息： 包括用戶名和口令。教師：包括教師名、教師工號 ,職稱，部門課程：包括課程名稱、課程號、課費職稱：包括基本工資 ,水電補(bǔ)助 ,偏遠(yuǎn)補(bǔ)助，房屋補(bǔ)助，電話補(bǔ)助部門：包括機(jī)構(gòu)，部門工資：包括基本工資，課費，補(bǔ)助3、數(shù)據(jù)庫邏輯設(shè)計3.1 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 由上面的數(shù)據(jù)項， 可以設(shè)計出能滿足用戶需求的各種實體， 以及它們之間的關(guān)系， 為后 面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。 這些實體包含各種具體信息， 通過相互之間的作用形成數(shù)據(jù)的 流動。對本系統(tǒng)設(shè)計

4、以下實體：管理信息實體、教師信息實體、院系（部門）信息實體、工 資信息實體和課程信息實體實體間的關(guān)系圖教師用戶信息實體 E-R 圖學(xué)生用戶信息實體 E-R 圖部門信息實體 E-R 圖課程信息實體 E-R 圖3.2 數(shù)據(jù)表設(shè)計 根據(jù)上面的需求分析教師信息管理系統(tǒng)數(shù)據(jù)庫中各個表中的數(shù)據(jù)結(jié)果如下列表所示， 每 個表格表示在數(shù)據(jù)庫中的一個表。本系統(tǒng)管理員默認(rèn)用戶名和密碼為wangxingang 和 123 ，教師用戶可由管理員添加或統(tǒng)一用相同的用戶名和密碼，本系統(tǒng)采用統(tǒng)一的帳號和密碼，默認(rèn)帳號：jiaoshi, 密碼： 123。用戶表序號列名數(shù)據(jù)類型長度字段說明1用戶名文本50記錄用戶名字2口令文本5

5、0記錄用戶密碼3權(quán)限文本50記錄各用戶的權(quán)限補(bǔ)助表序號列名數(shù)據(jù)類型長度字段說明1職稱文本50記錄教師職稱2基本工資數(shù)字長整型記錄教師基本工資3水電補(bǔ)助數(shù)字長整型記錄教師水電補(bǔ)助4偏遠(yuǎn)補(bǔ)助數(shù)字長整型記錄教師偏遠(yuǎn)補(bǔ)助5房屋補(bǔ)助數(shù)字長整型記錄教師房屋補(bǔ)助6電話補(bǔ)助數(shù)字長整型記錄教師電話補(bǔ)助部門表序號列名數(shù)據(jù)類型長度字段說明1機(jī)構(gòu)文本50記錄機(jī)構(gòu)2部門名文本50記錄部門名工資表序號列名數(shù)據(jù)類型長度字段說明1工號文本50記錄工號2基本工資數(shù)字長整型記錄基本工資3課費數(shù)字長整型記錄課費4補(bǔ)助數(shù)字長整型記錄補(bǔ)助5工資總匯數(shù)字長整型記錄工資總匯教師表序號列名數(shù)據(jù)類型長度字段說明1工號文本50記錄工號2姓名文本

6、50記錄姓名3性別文本50記錄性別4年齡文本50記錄年齡課程表序號列名數(shù)據(jù)類型長度字段說明1工號文本50記錄工號2課號文本50記錄課號3課名文本50記錄課名4基本工資數(shù)字長整型記錄基本工資職稱表序號列名數(shù)據(jù)類型長度字段說明1工號文本50記錄工號2職稱文本50記錄職稱3部門文本50記錄部門4 、 軟件功能設(shè)計4.1 系統(tǒng)功能模塊根據(jù)上面的分析，可以描述系統(tǒng)的功能模塊圖。下面分別從管理員登陸和教師登陸對 功能模塊進(jìn)行描述。如下：管理員的系統(tǒng)功能模塊圖教師查詢登陸模塊圖5、界面設(shè)計本系統(tǒng)的管理員登陸界面和教師登陸界面采用同一個登陸界面，如下圖所示：管理員登錄后的界面教師登錄后的界面登陸后的主菜單，如

7、下圖所示：每個具體的選項界面密碼修改用戶名注冊斷用戶歡迎成為新成員用戶名密碼再次輸入密碼6、結(jié)束語本系統(tǒng)的開發(fā)著實花費了一段時間 ,原來用 VB 只做過一些簡單的東西，沒有完成過比 較完整的系統(tǒng)， 這次做了這個教師管理系統(tǒng)， 雖然系統(tǒng)設(shè)計的比較簡單， 但是對我們來說也 是一種挑戰(zhàn)， 同時也從中收獲了很多東西， 從系統(tǒng)的整體設(shè)計到每一個細(xì)小的環(huán)節(jié)， 都有一 定的收獲， 更重要的是對數(shù)據(jù)庫理論知識和軟件開發(fā)之間的聯(lián)系有了更進(jìn)一步的認(rèn)識， 當(dāng)然 也鞏固了我們數(shù)據(jù)庫和編程方面的知識。用 VB 對本系統(tǒng)進(jìn)行具體開發(fā)時，我們采用了一個公共模塊，這樣很多窗體可以對所 需要的函數(shù)進(jìn)行調(diào)用，省掉了很多相同且煩瑣

8、的步驟。如下：Public userlevel As String Public flag As Integer Public Num As Integer Public condstr As String Public recs As Integer Public sel As Boolean'保存用戶級別'用作記錄操作標(biāo)記'用于保存報名號 '條件字符串 '保存記錄集中記錄個數(shù)Public Function exesql(ByVal sql As String) As ADODB.Recordset ' 用于執(zhí)行 sql 語句，且返 回執(zhí)行結(jié)果

9、sql = Trim$(sql)Set conn = New ADODB.Connection ' 定義一個 Connection 對象Set rst = New ADODB.Recordset ' 定義一個 Recordset 對象 conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbteacher.mdb;Persist Security Info=False" ' 連接數(shù)據(jù)庫的語句conn.OpenSet rst.ActiveConnection = c

10、onn rst.LockType = adLockOptimistic rst.CursorType = adOpenKeyset rst.Open sql '執(zhí)行Set exesql = rstSet rst = NothingSet conn = NothingEnd FunctionPublic Sub deldata(ByVal tn As String) '刪除指定表中所有記錄Dim sql As Stringsql = "delete * from " & Trim$(tn)Set conn = New ADODB.Connection

11、'同上conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbteacher.mdb;Persist Security Info=False" ' 同上conn.Open conn.Execute sql conn.CloseEnd SubPublic Sub endata(Keyasc As Integer)If Keyasc = 13 Then ' 回車鍵的 ASC 碼是 13 SendKeys "TAB"'將回車鍵轉(zhuǎn)換成 Tab

12、鍵End IfEnd Sub在用戶登陸的時候，為了防止用戶惡意登陸，采用了登陸次數(shù)的限制，代碼如下：Public n As IntegerPrivate Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = "select * from oper where 用戶名 ='" & _Trim$(Text1(0).Text) & "'" & " And口令 = '" & Trim$(Text1(1).Text) + "

13、'"Set mrc = exesql(txtsql)If mrc.RecordCount = 0 Then ' 未找到用戶記錄n = n + 1If n < 3 ThenMsgBox " 沒有這個用戶 ,繼續(xù)登錄 ", vbOKOnly + vbExclamation, " 信息提示 " Text1(0).Text = ""Text1(1).Text = ""Text1(0).SetFocusElseMsgBox " 已登錄失敗三次 , 退出系統(tǒng) ", vbOKO

14、nly + vbExclamation, " 信息提示 " mrc.CloseUnload MeEnd IfElse'找到合法用戶記錄userlevel = Trim(mrc.Fields(" 權(quán)限 ") mrc.Close Unload Me menu.Show ' 調(diào)用 main 窗體End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()n = 0'n 保存登錄的次數(shù)End SubPrivate Sub Text1_Key

15、Press(Index As Integer, KeyAscii As Integer) Call endata(KeyAscii)End Sub當(dāng)然，由于水平和時間有限， 本系統(tǒng)的功能還很不完善， 同樣也存在著很 多缺陷。對于系統(tǒng)的管理員而言，除了教師姓名，年齡，職稱等信息外，還應(yīng)該 添加教師的詳細(xì)情況， 如聯(lián)系方式， 獲獎情況等， 還有就是對教師的所有資料進(jìn) 行檢索。當(dāng)然了界面的設(shè)計也不夠美觀，這些都是該系統(tǒng)需要改進(jìn)的地方。7、參考文獻(xiàn)(1) Visual Basic 2005 入門經(jīng)典(第 4 版)、作者：(美)威利斯， (美)紐薩姆、出版社： 清華大學(xué)出版社(2) Visual Bas

16、ic 程序開發(fā)范例寶典、作者：明日科技、出版社：人民郵電出版社、(3) Visual Basic+Access 數(shù)據(jù)庫開發(fā)與實例、作者：劉文濤、出版社：清華大學(xué)出版社(4) Access2003 數(shù)據(jù)庫應(yīng)用 、作者：李佳，范俊弟，鄧劍民、出版社：人民郵電出版社、(5) Visual Basic 數(shù)據(jù)庫開發(fā)從入門到精通、作者：姚巍、出版社：人民郵電出版社(6) 大學(xué) VB 程序設(shè)計實踐教程、作者：沈建蓉，單貴、出版社：復(fù)旦大學(xué)出版社8、用戶手冊1，登陸系統(tǒng) 點擊可執(zhí)行程序“教師管理系統(tǒng) .exe”,打開登陸界面，不同權(quán)限的用戶用各自的用戶名 和口令進(jìn)行登陸。2管理員操作指南登陸后的主菜單教師信息個人資料的管理，點擊“添加” ，“修改”，“刪除”即可進(jìn)行相應(yīng)的管理。教師信息授課課程的管理，點擊“添加”，“修改”，“刪除”即可進(jìn)行相應(yīng)的管理。職稱信息各種補(bǔ)貼的管理，可以進(jìn)行添加和刪除的操作。帳號的管理，可以進(jìn)行帳號和口令和權(quán)限的各種操作。