【導(dǎo)讀】學(xué)質(zhì)量，是目前教學(xué)管理的難點，也是網(wǎng)絡(luò)教學(xué)發(fā)展中的一個關(guān)鍵問題。于評價檔案的教師教學(xué)評價模型。助實施評價活動、統(tǒng)計、量化評價結(jié)果，并隨時發(fā)布評價結(jié)果。詳細(xì)討論了該程序的。功能結(jié)構(gòu)設(shè)計、數(shù)據(jù)庫設(shè)計和主要技術(shù)問題。息評價意義的分析歸納，得出具體、明確和可測量的教師教學(xué)的跟蹤評價指標(biāo)體系。處理方式的討論，并在實際應(yīng)用中實現(xiàn)這一模型的軟件系統(tǒng)。證，同時也對系統(tǒng)進一不需要改進之處進行了分析。通過該系統(tǒng)使用得到大量的。統(tǒng)計數(shù)據(jù)，將為深入的分析和決策提供基礎(chǔ)。

　　

【正文】 Cmdok 命令按鈕 Caption 確定 11 Cmdcancel 退出 登錄窗口程序邏輯設(shè)計 登錄窗口對象主要代碼實現(xiàn)： Dim rs As Dim cmd As New 確定按鈕的代碼如下： Private Sub cmdOK_Click() 39。確定 Y N N 啟動主窗口 進入主窗體 關(guān)閉登錄窗口 開始 正確 ? 計數(shù)器加 1 輸入用戶名和密碼 ＝３ ? 退出 系統(tǒng) 清空文本框 Y On Error GoTo err Dim name As String Dim pass As String name = pass = If name = Then MsgBox 您還沒有選擇用戶名！ , , 提示 Exit Sub End If Set = = select 用戶名 from t_yh where 用戶名 = + 39。 + name + 39。 + and 密碼 = + 39。 + pass + 39。 Set rs = If Then MsgBox 無效的密碼，請重試！ , , 登錄 Else Unload Me End If Exit Sub err: MsgBox , , 信息 End Sub 主窗體窗口設(shè)計 主窗體功能描述： 主窗體是程序的核心部分，它連接了各個窗體，使其成為統(tǒng)一的整體。通過主窗 體，用戶能了解程序的具體運行效果，和使用方法。 主窗體界面： 主窗體界面說明 主窗體是整個程序的中心部分。它包括：用戶添加管理、錄入信息、教師評價、統(tǒng)計分析、系統(tǒng)幫助六個功能模塊。使用戶更便捷的掌握本系統(tǒng)。 主窗體對象屬性設(shè)計 編號 對象名 含義 屬性 取值 1 MDIForm1 系統(tǒng)的主窗體 caption 高校教師教學(xué)質(zhì)量評價系統(tǒng) StartUpPosition 2 屏幕中心 主窗體主要代碼實現(xiàn)：（以幾個模塊為例） Private Sub TC_Click() 39。退出 Dim i As Integer i = MsgBox(真的要退出系統(tǒng)嗎？ , 1 + vbExclamation, 退出系統(tǒng) ) If i = 1 Then End Else End If End Sub Private Sub XSXXLR_Click() 39。學(xué)生信息錄入 End Sub Private Sub XSPJ_Click() 39。學(xué)生評價 End Sub Private Sub CXDL_Click() 39。重新登陸 Unload Me End Sub 學(xué)生信息錄入窗口設(shè)計 學(xué)生信息錄入窗口功能描述： 學(xué)生信息錄入功能是對用戶添加學(xué)生身份的用戶。 學(xué)生信息錄入界面： 學(xué)生信息錄入界面說明： 學(xué)生信息錄入功能，點擊添加按鈕，可在文本框中添加新記錄；點擊刪除按鈕，可刪除記錄； 點擊保存，則保存數(shù)據(jù)；點擊取消，對可取消添加信息。 學(xué)生信息錄入窗口對象屬性設(shè)計： 編號 對象名 含義 屬性 取值 1 frmXSXXLR 學(xué)生信息錄入 caption 學(xué)生信息錄入 StartUpPosition 2 屏幕中心 學(xué)生信息錄入窗口主要代碼實現(xiàn)： Dim As 39。定義數(shù)據(jù)庫并連接數(shù)據(jù)源 Dim rs As 39。定義記錄數(shù) Dim sql As String, sqladd As String, sqldelete As String 39。定義 SQL 類型 添加按鈕的代碼如下： Private Sub Command1_Click() 39。添加記錄 sqladd = select * from t_yh Set rs = New Recordset Trim$(sqladd), , adOpenKeyset, adLockOptimistic = False = True = True = True = True = True = True = = End Sub 刪除命令按鈕的代碼如下： Private Sub Command2_Click() 39。刪除記錄 sqldelete = select * from t_yh Set rs = New Recordset Trim$(sqldelete), , adOpenKeyset, adLockOptimistic 39。更新 DataGrid1 中的數(shù)據(jù) Set = rs MsgBox 用戶信息刪除成功！ , vbOKOnly + vbExclamation, 警告 = False = True = True = True = True = = End Sub 學(xué)生評價窗口設(shè)計 學(xué)生評價窗口功能描述： 學(xué)生評價功能是對以學(xué)生身份對教師教學(xué)質(zhì)量的一個評價。 學(xué)生評價界面： 學(xué)生評價界面說明： 學(xué)生評價功能，在評分下面的文本框中輸入評價分?jǐn)?shù)（每項 10 分，共 60 分），然后點“計算分?jǐn)?shù)”得到總分。 學(xué)生信息錄入窗口對象屬性設(shè)計： 編號 對象名 含 義 屬性 取值 1 frmXSPJ 學(xué)生對教師的評價 caption 學(xué)生評價 StartUpPosition 2 屏幕中心 學(xué)生信息錄入窗口主要代碼實現(xiàn)： Dim As Dim rs As Dim sql As String, sqladd As String 計算總分命令按鈕代碼如下： Private Sub Command1_Click() 39。計算總分 sqladd = select * from t_stupj Trim$(sqladd), , adOpenKeyset, adLockOptimistic = Val() + Val() + Val() + Val() + Val() + Val() (0) = Trim() (1) = Val() End Sub 學(xué)生評價統(tǒng)計窗口設(shè)計 學(xué)生評價統(tǒng)計窗口功能描述： 學(xué)生評價統(tǒng)計功能是對教師教學(xué)評價的統(tǒng)計結(jié)果，可得出學(xué)生對教師教學(xué)質(zhì)量的綜合評價。 學(xué)生評價統(tǒng)計界面： 學(xué)生評價統(tǒng)計界面說明： 學(xué)生評價統(tǒng)計功能，在主窗體點擊統(tǒng)計結(jié)果中的學(xué)生評價統(tǒng)計，即可得到所要評價信息的結(jié)果。本功能采用的是 ADO 控件來完成數(shù)據(jù)庫連接，并在其上使用 SQL語句。 學(xué)生評價統(tǒng)計窗口對象屬性設(shè)計： 編號 對象名 含義 屬性 取值 1 frmXSPJTJ 對教師教 學(xué)評價的統(tǒng)計結(jié)果。 caption 學(xué)生評價統(tǒng)計 StartUpPosition 2 屏幕中心 2 Adodc1 ADO 控件 caption Adodc1 記錄源 select 姓名 ,avg(總分 ) as 總分 from t_stupj group by 姓名 3 DataGrid1 控件 Data source(數(shù)據(jù)源 ) Adodc1 學(xué)生評價統(tǒng)計窗口主要代碼實現(xiàn)： 結(jié)論 三個月的畢業(yè)設(shè)計即將結(jié)束，這三個月里，通過對《教師教學(xué)質(zhì)量評價系統(tǒng)的設(shè)計與實現(xiàn)》的開發(fā)，使 我將書本上學(xué)到的那一點理論再進一步研究，然后應(yīng)用到實踐中來。三個月的學(xué)習(xí)與開發(fā)，使我有這樣一種感覺，就是我在這三個月里學(xué)到的知識似乎要比我三年大學(xué)生活中學(xué)到的專業(yè)知識還要多。究其原因后知道，只是這三個月中我更用心于去研究我做畢業(yè)設(shè)計所必須掌握的東西，并且很重要的一點就是我可以將我的理論知識應(yīng)用于實踐中去檢驗，我想任何一門知識如果都是在紙上談兵，不到實踐中去應(yīng)用，那將永遠(yuǎn)不會真正的掌握。 本系統(tǒng)是經(jīng)過三個月的調(diào)研開發(fā)和考察論證。開發(fā)過程中，充分考慮用戶的需求，才使得本系統(tǒng)具有強大的功能，并且程序精簡，最終這個 應(yīng)用軟件基本完成了需求分析所要求達(dá)到的目標(biāo)，而且在某些方面加入了更方便的功能。本系統(tǒng)界面友好、操作簡便，但是由于本人的技術(shù)水平和經(jīng)驗的欠缺，肯定還存在許多不足和需要改進的地方，希望老師和讀者批評指正。 三個月的畢業(yè)設(shè)計，對于畢業(yè)設(shè)計來說，其實也不是很長，由于時間倉促，以及我掌握知識的不全面，我的畢業(yè)設(shè)計中存在這樣或那樣的不足，給我即將結(jié)束的大學(xué)生活留下了小小的一點遺憾，不過人無完人，物無完物。凡事只可盡力而為，不可強求結(jié)果，畢業(yè)設(shè)計真正給我?guī)砜鞓芳盎貞浭窃谖疫M行畢業(yè)設(shè)計的過程當(dāng)中，而并不是結(jié)果的那一個成績 。