【導(dǎo)讀】理、課程信息管理以及論文管理等模塊，各模塊中又包括添加、刪除、修改、打印等功能。該管理系統(tǒng)優(yōu)勢(shì)在于它具有安全保存、快速查閱、科學(xué)統(tǒng)計(jì)、規(guī)范管理的特點(diǎn)，并。且實(shí)現(xiàn)了評(píng)估管理系統(tǒng)化、規(guī)范化和自動(dòng)化，從而減少教學(xué)評(píng)估的工作量。

　　

【正文】 1 圖 35 試卷信息 ER 圖 （ 4） 論文信息 ER 圖，這個(gè)表說明了論文信息表與論文相關(guān)表之間的關(guān)系，具體 關(guān)系如圖 36 所示。 1 論文信息 論 文 序號(hào) 網(wǎng)頁(yè)論文的文檔名 論文的電子文檔名 序號(hào) 畢業(yè)論文（設(shè)計(jì)題目） 論文所在位置 學(xué)號(hào) 學(xué) 年 關(guān)聯(lián) 論文電子檔 1 圖 36 論文信息 ER 圖 （ 5） 教學(xué)評(píng)估管理系統(tǒng) ER 圖，整個(gè)系統(tǒng)的 ER 圖，表示了 六個(gè)主表之間的關(guān)系， 具體關(guān)系如圖 37 所示。 N N N N N 1 1 1 1 1 圖 37 教學(xué)評(píng)估管理系統(tǒng) ER 圖 用戶信息 教學(xué)文檔信息 工號(hào) 課程名 序號(hào) 用戶權(quán)限 課程序號(hào) 論文名 密碼 用戶名 編輯，瀏覽 職工信息 試卷信息 課程信息 論文信息 電子文檔名 序號(hào) 序號(hào) 序號(hào) 序號(hào) 序號(hào) … . … . … . … . … . 編輯，瀏覽 編輯，瀏覽 編輯，瀏覽 編輯，瀏覽 詳細(xì)設(shè)計(jì) 登錄模塊 （ 1） 流程圖 登錄模塊的主要任務(wù)是實(shí)現(xiàn)用戶合法性檢驗(yàn)，讀取用戶的信息，同時(shí)把用戶的信息保存到 session 中，用戶登錄成功之后，通過身份判斷，確定用戶的權(quán)限，調(diào)用對(duì)應(yīng)的用戶界面，登錄模塊的流程如圖 38 所示： 圖 38 登 錄模塊流程圖 （ 2） 頁(yè)面設(shè)計(jì) 用戶登錄頁(yè)面 的設(shè)計(jì)比較簡(jiǎn)單，只需要提供兩個(gè)文本框，一個(gè)用于輸入用戶名，一個(gè)用于輸入密碼。本頁(yè)面獲得的信息通過 進(jìn)行驗(yàn)證。如果輸入的用戶名密碼都正確，則讀取用戶信息，判斷身份，將其封裝在UserData 類中，然后保存在 session 中，同時(shí)定位下一個(gè)顯示頁(yè)面。如果登錄失敗，彈出錯(cuò)誤消息，重新指向登錄頁(yè)面，重新登錄。登錄界面如圖 39 所示： 輸 入用 戶名、密碼 判斷用戶權(quán)限 普通用戶權(quán)限 管理員權(quán)限 開始 結(jié) 束 … … 圖 39 用戶登錄界面 （ 3） 后臺(tái)事件處理頁(yè)面 在 頁(yè)面中包含了用戶驗(yàn)證功能，是用戶驗(yàn) 證模塊的核心。btnLogin_Click（）函數(shù)處理用戶單擊【登錄】按鈕事件，代碼如下： Private Sub btnLogin_Click(ByVal sender As , ByVal e As ) Handles If = Then ‘假如用戶名為空，給出提示消息 (?msg=notamp。Para= amp。 amp。 , True) End If If = Then ‘假如密碼為空給出提示消息 (?msg=nopwdamp。Para= amp。 amp。 , True) End If Dim objLogin As New Users Dim objVIPData As UserData objVIPData=((),m()) ‘ VipUserLogin（）是驗(yàn)證用戶合法性的函數(shù)，同時(shí)將用戶信息的值保存在用戶信息類 Dim strCheckUser As String strCheckUser = Select Case strCheckUser Case No User ‘沒有用戶，回到登錄頁(yè)面，并給出消息 (?msg=noamp。Para= amp。 amp。 , True) Exit Sub Case Password incorrect ‘密碼錯(cuò)，回到登陸頁(yè)面，并給出消息 (?msg=pwamp。Para= amp。 amp。 , True) Exit Sub Case Else End Select Session(user_id) = ‘保存用戶 id Session(userrights) = ‘保存用戶權(quán)限 (?Para= amp。 amp。 , True) End Sub 用戶管理模塊 （ 1） 流程圖 用戶管理模塊的主要功能是維護(hù)用戶信息，這個(gè)模塊只有管理員才有權(quán)限，具體操作包括，添加新用戶，修改已有用戶的信息，刪除用戶，打印用戶信息。用戶管理模塊的流程如圖 310 所示： 圖 310 用戶管理模塊流程圖 （ 2） 頁(yè)面設(shè)計(jì) 用戶管理頁(yè)面 的主菜單在最左邊，上面有一個(gè)退出系統(tǒng)的按鈕以及一個(gè)幫助按鈕，在右邊的顯示框上有兩個(gè)按鈕，分別是添加和打印。添加按鈕可是連接到添加新用戶的頁(yè)面，在添加的頁(yè)面上做了必填項(xiàng) 驗(yàn)證，添加成功后，頁(yè)面上會(huì)給出消息提示，并刷新屏幕，用戶可以及時(shí)的看到添加之后的信息，查看正確性；打印可以實(shí)現(xiàn)只打印右邊顯示的數(shù)據(jù)的功能，如果打印整個(gè)頁(yè)面的話，數(shù)據(jù)的顯示大小就會(huì)不太適合，光打印數(shù)據(jù)區(qū)域的話，使得頁(yè)面的使用率達(dá)到 100％；在數(shù)據(jù)顯示區(qū)域的每條記錄最后面都有一個(gè)修改一個(gè)刪除的連接按鈕，修改窗口如圖 312 所示；并且當(dāng)鼠標(biāo)移到數(shù)據(jù)行的時(shí)候，數(shù)據(jù)的顏色會(huì)變?yōu)榧t色，這樣可以防止用戶修改了不應(yīng)該修改的數(shù)據(jù)，保證數(shù)據(jù)的安全性，然后點(diǎn)擊修改按鈕可以連接到修改頁(yè)面，對(duì)當(dāng)前選中的記錄進(jìn)行修改，修改同樣也做了驗(yàn) 證輸入，保證了數(shù)據(jù)的安全性，在修改完成之后，界面會(huì)給出提示消息，并刷新屏幕，用戶可以及時(shí)的看到數(shù)據(jù)更新后的結(jié)果，如果不正確還可以再修改；刪除可以實(shí)現(xiàn)刪除用戶信息的功能。頁(yè)面還做了人性化的頁(yè)數(shù)選擇，用戶界面如圖 311 所示： 主頁(yè) 選擇進(jìn)入 用戶管理頁(yè)面 開 始 退出系統(tǒng) 結(jié)束 添加用戶信息 修改用戶信息 刪除用戶信息 打印用戶信息 退出系統(tǒng) 瀏覽用戶信息 圖 311 用戶管理界面 圖 312 修改用戶界面 （ 3） 后臺(tái)事件處理頁(yè)面 A 管理員單擊【添加】按鈕，會(huì)新開一個(gè)添加用戶的新窗口 ，這個(gè)界面上只有一個(gè)保存的按鈕， lnkSave_Click（） 就是相應(yīng)這個(gè)按鈕處理事件的。代碼如下： Private Sub lnkSave_Click(ByVal sender As , ByVal e As ) Handles Dim strUserName As String = … ‘定義變量 Dim iResult As Int16 iResult = (strUserName, strUserpwd, strUserrights)‘ AddNewUser（）函數(shù)是判斷用戶名是否存在，若存在則返回參數(shù)的值，在頁(yè)面上給出警告消息，若不存在，實(shí)現(xiàn)將數(shù)據(jù)添加到數(shù)據(jù)庫(kù)的過程，在完成了添加之后，頁(yè)面會(huì)自動(dòng)刷新，讓用戶可以立即看到添加后的結(jié)果。 If iResult = 1 Then (script language=39。javascript39。alert(39。成功更新一條 用 戶 數(shù) 據(jù) ！39。)。=39。39。()。/script) ElseIf iResult = 2 Then (script language=39。javascript39。alert(39。用戶已經(jīng)存在，請(qǐng)重新輸入！ 39。)。/script) Else (script language=39。javascript39。alert(39。插入用戶失敗，請(qǐng)重試！ 39。)。/script) End If () objAdmin = Nothing End Sub B 單擊【打印】按鈕，調(diào)用腳本函數(shù) Print()來實(shí)現(xiàn)打印的功能 C 管理員單擊【修改】按鈕，會(huì)新開一個(gè)頁(yè)面，修改的界面設(shè)計(jì)和添加的一樣，但是修改與添加不同的是，他原本在數(shù)據(jù)庫(kù)中是有數(shù)據(jù)的，在打開頁(yè)面的同時(shí)要將原有的數(shù)據(jù)信息現(xiàn)在修改頁(yè)面上，修改頁(yè)面上同樣只有保存按鈕，lnkSave_Click()函數(shù)相應(yīng)保存事件，代碼如下： Private Sub lnkSave_Click(ByVal sender As , ByVal e As ) Handles Dim strUserName As String = … .‘定義變量 Dim iResult As Int16 iResult=((g(type)), strUserName, strUserpwd, strUserrights)‘ Updateuserinformation（）函數(shù)是完成數(shù)據(jù)更新的功能，并在完成之后給出提示，同樣在完成更新之后，頁(yè)面會(huì)自動(dòng)刷新，讓管理員及時(shí)的看到自己更新的消息。 If iResult = 1 Then (script language=39。javascript39。alert(39。成功更新一條用戶數(shù)據(jù)！39。)。=39。39。()。/script) Else (script language=39。javascript39。alert(39。更新數(shù)據(jù)失敗，請(qǐng)重試 ！39。)。/script) End If () objAdmin = Nothing End Sub D 管理員單擊【刪除】按鈕， dgView_DeleteCommand ()函數(shù)相應(yīng)刪除事件，代碼如下： Private Sub dgView_DeleteCommand(ByVal source As Object, ByVal e As ) Handles Dim objAdmin As New Admin Dim iResult As Int16 iResult = () ‘ DeleteTheUser 是實(shí)現(xiàn)將數(shù)據(jù)從數(shù)據(jù)庫(kù)中刪除的過程，并返回處理后的參數(shù)給主頁(yè)面，能讓主頁(yè)面給管理員提示消息 If iResult = 1 Then () Else (script language=39。javascript39。alert(39。 刪 除 失 敗 ， 重 試 ！39。)。/script) End If () objAdmin = Nothing = 1 () End Sub 教學(xué)文檔模塊 （ 1） 流程圖 教學(xué)文檔管理模塊的設(shè)計(jì)分為管理員和普通用戶，普通用戶是不可以修改添加刪除信息的，他只有瀏覽和打印的權(quán)限，只有管理員才有添加刪除 修改信息的權(quán)限，教學(xué)文檔管理模塊的流程如圖 313 所示： 圖 313 教學(xué)文檔管理模塊流程圖 （ 2） 頁(yè)面設(shè)計(jì) 教學(xué)文檔管理頁(yè)面 的主菜單在最左邊，上面有一個(gè)退出系統(tǒng)的按鈕以及一個(gè)幫助按鈕，在管理員的界面上：在右邊的顯示框上有兩個(gè)按鈕，分別是添加和打印，添加按鈕可是連接到添加新文檔信息的頁(yè)面，添加的頁(yè)面做了必填項(xiàng)的驗(yàn)證，保證數(shù)據(jù)的完整性，添加窗口如圖 318 所示；打印可以實(shí)現(xiàn)只打印右邊區(qū)域顯示的數(shù)據(jù)的功能，這樣可以使得紙面上的空間 100％的利用，如果打印整個(gè)頁(yè)面的話，數(shù)據(jù)區(qū)域不僅變小，而且數(shù)據(jù)的清晰度也會(huì)受到影響；在每條數(shù)據(jù)顯示區(qū)域的每條記錄最后面都有一個(gè)修改按鈕一個(gè)刪除按鈕的連接，當(dāng)選中記錄的時(shí)候會(huì)看到記錄變成了紅色，這樣可以讓正確地額選擇想要修