【文章內(nèi)容簡介】 庫。 教師工作量管理信息系統(tǒng)流程圖 教師工作量管理信息系統(tǒng)流程圖 教師教學(xué)工作量管理信息系統(tǒng)的開發(fā) 發(fā)學(xué)工作量管理信息系統(tǒng)常用控件： 1.） ADO Data 控件：（簡稱 ADO 控件）是 中文版提供的一個 Active控件，與 VB 固有的 Data 控件相似，可以快速建立數(shù)據(jù)綁定的控件和數(shù)據(jù)提供者之間的聯(lián)系。 可實(shí)現(xiàn)以下屬性： ● .連接本地?cái)?shù)據(jù)庫或遠(yuǎn)程數(shù)據(jù)庫 ● .打開指定數(shù)據(jù)庫表或定義基于結(jié)構(gòu)化查詢語言的查詢、存儲過程或該數(shù)據(jù)庫中表的視圖記錄集合。 用戶登錄 口令 確認(rèn) 登錄成功 教師檔案 結(jié)束 工作量計(jì)算 系統(tǒng)維護(hù) 否 是 ● .將數(shù)據(jù)字段的數(shù)值傳遞 給數(shù)據(jù)綁定的控件中的數(shù)據(jù)來更新數(shù)據(jù)庫。 ● .添加新記錄，或根據(jù)更改顯示在綁定的控件中的數(shù)據(jù)來更新數(shù)據(jù)。 2） .DataGrid 控件：是一種類似于電子數(shù)據(jù)表格個綁定控件，可以顯示一系列行和列表示的記錄集對象的記錄和字段。 利用它可以創(chuàng)建一個允許最終用戶閱讀和寫入到絕大多數(shù)數(shù)據(jù)庫的應(yīng)用程序?？梢栽谠O(shè)計(jì)時快速進(jìn)行配置，只需要少量代碼或無需代碼。當(dāng)在設(shè)計(jì)時設(shè)置了控件的 DataGrid 屬性后，就會用數(shù)據(jù)源的記錄集來自動填充該控件，并自動設(shè)置該控件的列標(biāo)頭。 3） .DataCombo 控件是以一個下拉列表框的形式提 供給用戶的。它可以和一個具體數(shù)據(jù)庫中的某些項(xiàng)或一段 SQL 語句相聯(lián)系，從而在下拉列表框中顯示出具體的數(shù)據(jù)。 SOL 語言 SQL 是結(jié)構(gòu)化語言的縮寫，是一種數(shù)據(jù)庫查詢和編程的語言，已成為關(guān)系型數(shù)據(jù)庫普遍使用的標(biāo)準(zhǔn)。 VB 和其他應(yīng)用程序包括 Access 都支持 SQL 語言。 SQL語言是由若干個 SQL 語句組成，用于操作數(shù)據(jù)庫及數(shù)據(jù)表數(shù)據(jù)。 常用的 SQL 語句： ●查詢： SELECT * FROM 數(shù)據(jù)表名 WHERE 字句 FROM 子句：指定查詢數(shù)據(jù)表。各數(shù)據(jù)表之間用“，”分隔。 WHERE 子句：制 定查詢的條件。 ●在數(shù)據(jù)表中添加一個記錄： INSERT INTO 數(shù)據(jù)表（字段１ ? ） VALUE（數(shù)據(jù)１．．．） ●刪除符合條件的記錄： DELETE (字段名 ) FROM 數(shù)據(jù)表 WHERE 子句 ●更改符合條件的紀(jì)錄： UPDATA 數(shù)據(jù)表 SET 新數(shù)據(jù)值 WHERE 子句 用戶登錄 用戶登錄是 Pass 窗體，它用于接受用戶名 /口令的輸入，判斷是否合法。如合法釋放該窗體并啟動主窗體對于合法用戶，用全局變量 userlevel 保存當(dāng)前用戶級別。 界面如上圖所示 主要事件為 Command1Click 事件，用戶在單擊“確定”時件觸發(fā)。調(diào)用查詢“ oper”表中的記錄，查詢語句為： txtsql = select * from OPER where 用戶名 = 39。 amp。 Trim$(Text1(0).Text) amp。 39。 amp。 And 口令 = 39。 amp。 Trim$(Text1(1).Text) + 39。 用戶登錄的過程是對系統(tǒng)的安全性的考驗(yàn)。管理員授予用戶登錄權(quán)限，在正確的用戶名和口令下，用戶才能成功登錄。用戶登錄次數(shù)將被記錄，最高次數(shù)為三。 Set mrc = exesql(txtsql) If = 0 Then n = n + 1 If n 3 Then MsgBox 沒有這個用戶，繼續(xù)登錄 !, vbOKOnly + vbExclamation, 信息提示 Text1(0).Text = Text1(1).Text = Text1(0).SetFocus Else MsgBox 已登錄失敗三次，退出系統(tǒng) !, vbOKOnly + vbExclamation, 信息提示 Unload Me End If Else userlevel = Trim((級別 )) Unload Me End If End Sub 教師檔案模塊是資環(huán)學(xué)院教師工作量管理信息系統(tǒng)開發(fā)的一部分，在此模塊中調(diào)用教師基本信息庫，管理員可以修改、添加、刪除教師的個人信息 建立教師檔案的管理，對教師表進(jìn)行直接操作。教師基本信息庫（ edjs）窗體界面如下： （ 1）創(chuàng)建 ADO Data 控件 在 窗 體 中 單 擊 ADO Data 控件 Adodc1 ， 在 屬 性 窗 口 中 單 擊“ connectionstring” 選擇并輸入： DSN＝ xdd 設(shè)置 RecordSource 屬性，需要輸入 SOL 語句：“ select * from jsb”將 adodc1控件連接到“ ”文件的“ jsb”表。 (2 ) ADO Data 控件常用方法： ● AddNew 方法用于創(chuàng)建新記錄。 例：“ ”其中 Adodc1 是一個 ADO 控件的名字。添加語句后應(yīng)該給各個字段賦值，然后調(diào)用 updata 方法保存記錄，或調(diào)用cancelupdata 方法取消保存。 ● Delete 可用于 Recordset 或 Field 對象，分別用于刪除記錄或字段。 例如：“ If MsgBox(真的要刪除 [ + Trim((姓名 )) + ] 嗎 ?, vbYesNo, 信息提示 ) = vbYes Then ” ● Move 方法用于移動 Recordset 對象中當(dāng)前記錄的位置。如從空的Recordset 對象調(diào)用 Move 方法會產(chǎn)生錯誤。 MoveFirst 、 MoveLast、 MoveNext和Ｍ ovePrevious 方法分別移動到指定 Recordset 對象中的第一個最后一個下一個或上一個記錄，并使記錄成為當(dāng)前記錄。 例“ ”從最后一條記錄開始 ● Updata 方法用于保存對 Recordset 對象的當(dāng)前記錄所做的所有更改。使用Updata 方 法保存自從調(diào)用 AddNew 方法，或自從現(xiàn)有記錄的任何字段值發(fā)生更改之后，對 Recordset 對象的當(dāng)前記錄所做的所有更改。 例：“ ” （３）創(chuàng)建 DataGrid 控件 在 vb 中，設(shè)置 DataGrid 控件我們可以創(chuàng)建一個允許管理員閱讀和寫入的教師基本信息庫的數(shù)據(jù)表。顯示數(shù)據(jù)的最常用的方法是設(shè)置與顯示數(shù)據(jù)的控件相連的控件的 DataSource 的屬性，則重寫Ｒ ecordSource、刷新該Ａ DO Data 控件都將改變所顯示的數(shù)據(jù)。 設(shè)置數(shù)據(jù)源的方法同 ADOData 控件基本相同。添加一個 DataGrid 控件，我們將 DataSource 的屬性設(shè)置為 ODBC數(shù)據(jù)資源名稱項(xiàng)下的“ ”數(shù)據(jù)庫。設(shè)置 RecordSource 屬性，需要輸入 SOL 語句：“ select * from jsb”并將 adodc1 控件連接到“ ”文件的“ jsb”表。選擇“檢索字段”選擇所需要顯示的字段名稱。 DataGrid 控件的常用方法： ● ClearField 方法：用于清除 DataGrid 控件的所有字段。 ● Refresh 方法：用于刷新 DataGrid 控件中的數(shù)據(jù)。 我們選擇在單擊“操作按鈕”時，修改或添加對教師基本信息的編輯，運(yùn)行 edjs1 窗體。 工作量計(jì)算模塊 工作量計(jì)算是教師工作量管理信息系統(tǒng)的主體部分。此模塊又分為“教師教學(xué)工作量數(shù)據(jù)庫”和“工作量計(jì)算方法簡述”。前者是系統(tǒng)的關(guān)鍵部分，此部分對教師教學(xué)工作的工作量進(jìn)行統(tǒng)計(jì)，將工作量分為六大類九種，包括：本?？粕n堂理論教學(xué)工作量、實(shí)驗(yàn)課教學(xué)工作量、上機(jī)實(shí)驗(yàn)教學(xué)工作量、指導(dǎo)學(xué)生課程設(shè)計(jì)（課程論文）工作量計(jì)算和實(shí)習(xí)教學(xué)工作量計(jì)算等。 “工作量計(jì)算方法簡述”則可以方便用戶查詢和了 解教師工作量計(jì)算的內(nèi)容和計(jì)算方法。以上工作量計(jì)算的依據(jù)為《山西農(nóng)業(yè)大學(xué)本?？平虒W(xué)教師工作量實(shí)施辦法》，并做了適當(dāng)調(diào)整。以我院（資環(huán)學(xué)院）教師數(shù)據(jù)為例進(jìn)行系統(tǒng)設(shè)計(jì)。 教師工作量數(shù)據(jù)庫 教師工作量數(shù)據(jù)庫由 8個窗體組成，在“統(tǒng)計(jì)”（ tg ）窗體中計(jì)算六類工作量的數(shù)據(jù)，統(tǒng)計(jì)教學(xué)工作的總工作量。 “教師工作量數(shù)據(jù)庫”（ gzl1）界面界面如上所示 “統(tǒng)計(jì)” (tg)窗體界面如上圖所示 “教師工作量數(shù)據(jù)庫窗體”需要 ADO Data 控件和 DataGrid 控件 ，數(shù)據(jù)源是使用 ODBC 數(shù)據(jù)資源名稱項(xiàng)下的“ ”數(shù)據(jù)庫。設(shè)置 RecordSource 屬性，并將 adodc1 控件連接到“ ”文件的“ jsb”表。我們利用 DataGrid 控件可以查閱教師教學(xué)工作的各類數(shù)據(jù)。在此窗體中， DataGrid 控件里光標(biāo)總默認(rèn)指向第一個記錄。 “刪除”將清除光標(biāo)所指示的數(shù)據(jù)記錄。 “編輯”將對所光標(biāo)所指示的教師進(jìn)行詳細(xì)的工作量數(shù)據(jù)的統(tǒng)計(jì)。進(jìn)入“統(tǒng)計(jì)”界面 ?！熬庉嫛笔录拇a如下： Private Sub Command2_Click() Dim num1 As String num1 = (編號 ) (編號 =39。 amp。 num1 amp。 39。) vbModal End Sub 在“統(tǒng)計(jì)”窗體中，將默認(rèn)顯示光標(biāo)在“教師教學(xué)工作量數(shù)據(jù)庫”中指向的教師的“編號”和“姓名”，并顯示六類教學(xué)工作量。本界面主要用到 Click 事件。 用戶在單擊每類教學(xué)工作總量文本框后的“確定”按鈕將進(jìn)入相關(guān)工作量的計(jì)算界面。例如：本?？粕n堂理論教學(xué)工作量的計(jì)算界面 如下 在“本?？粕n堂理論教學(xué)工作量”的計(jì)算界面中，我們調(diào)用查詢語句： = select * from XDD1 where + num1 (編號 =39。 amp。 num1 amp。 39。) 找到符合編號條件的教師記錄 ,并要顯示數(shù)據(jù)庫中所對應(yīng)的信息在工作量中對應(yīng)的的文本框里。例如： Text1(1).Text = (姓名 ) amp。 Text1(2).Text = (講課計(jì)劃學(xué)時 ) amp。 Text1(3).Text = (新開課 ) amp。 Text1(4).Text = (開新課 ) amp。 Text1(5).Text = (重復(fù)班課 ) amp。 Text1(6).Text = (大班必修課人數(shù)) amp。 Text1(7).Text = (重修課 ) amp。 Text1(8).Text = (重修課人數(shù) ) amp。 最后進(jìn)行計(jì)算，統(tǒng)計(jì)出編號為 1的教師的“本?？粕n堂理論教學(xué)工作總量”單擊“確定”錄入“統(tǒng)計(jì)”表。最終完成六類九項(xiàng)教學(xué)工作量的計(jì)算后，可將數(shù)據(jù)錄 入“教師工作量數(shù)據(jù)庫”中。 工作計(jì)算方法簡述 “教師工作量數(shù)據(jù)庫”和“工作量計(jì)算方法簡述”兩部分組成了“工作量計(jì)算”模塊，我們在工作量計(jì)算法簡述中可以查詢和了解本系統(tǒng)所涉及的六類九種工作量的計(jì)算方法。 系統(tǒng)設(shè)置模塊 系統(tǒng)設(shè)置是對系統(tǒng)進(jìn)行管理和維護(hù)的部分。好的系統(tǒng)在完成后要在實(shí)際運(yùn)行中不斷的對其進(jìn)行評價、調(diào)整和維護(hù)。系統(tǒng)設(shè)置主要是“管理員操作”和“系統(tǒng)初始化”兩部分。 如圖所示為系統(tǒng)設(shè)置模塊的界面 “管理員操作”是對系統(tǒng)安全性的加強(qiáng)。系統(tǒng)管理員在此模塊中可以添加、修改和刪除用戶信息，設(shè)置 用戶權(quán)限，只有用戶在合法的用戶名和口令下才可以成功登錄。 “系統(tǒng)初始化 ”是將系統(tǒng)中的數(shù)據(jù)全部清除，恢復(fù)系統(tǒng)開發(fā)完成時的初始狀態(tài)。這個功能要謹(jǐn)慎操作，最好在執(zhí)行初始化之前先備份數(shù)據(jù)資料。 例： Call deldata(jsb) Call deldata(oper) 刪除教師表（ jsb）和操作表（ oper）中的記錄。 至此，教師工作量管理信息系統(tǒng)已基本完成，進(jìn)入程序的調(diào)試階段。 教師教學(xué)工作量 管理信息系統(tǒng)是一個以計(jì)算機(jī)為工具，對 教師教學(xué) 管理 的 信息進(jìn)行處理的人 — 機(jī)系統(tǒng)，它能準(zhǔn)確、及時地 進(jìn)行教師 教學(xué)工作量的統(tǒng)計(jì) ，輔助學(xué)校教學(xué) 管理?？梢姡?教師工作量管理 信息管理系統(tǒng)首先必須具有強(qiáng)大的電子數(shù)據(jù)處理功能，能大大提高學(xué)校管理人員的工作效率，減輕勞動強(qiáng)度，同時，該系統(tǒng)應(yīng)當(dāng)采用管理模型，將仿真、優(yōu)化等現(xiàn)代決策手段結(jié)合起來，為學(xué)校管理提供有效信息。 通過這次畢業(yè)設(shè)計(jì)我除了在 VB 數(shù)據(jù)庫開發(fā)和程序設(shè)計(jì)水平上有了提高，也更加深入了理解了 MIS 設(shè)計(jì)中常見問題和的其設(shè)計(jì)的意義。 但是由于設(shè)計(jì)教師工作量管理信息系統(tǒng)是我在學(xué)習(xí)過程中的首次嘗試，經(jīng)驗(yàn)不足，時間有限，雖然在 2 個月時間里順利的完成了系統(tǒng)的調(diào)研、分析、設(shè)計(jì)和調(diào)試的工作， 但是仍然有許多不盡人意的地方，例如數(shù)據(jù)的恢復(fù)的欠缺和出錯處理不夠等，這些問題有待我在日后的具體工作中完善，我也會在將來的軟件設(shè)計(jì)過程中引以為戒。 參考文獻(xiàn) : [1].劉玫、江偉、高美剛 面向教學(xué)工作量管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) .計(jì)算機(jī)系統(tǒng)應(yīng)用 .1994 67 頁 [2].谷?？　⒎?. 教師教學(xué)工作量考核管理工作初探 .信陽師范學(xué)院學(xué)報(bào) .頁 [3].倪曙光、李赤林，教師教學(xué)工作量信息系統(tǒng)的設(shè)計(jì) .建材高教理論與實(shí)踐 47