【導讀】語生成管理程序來幫助學生管理員進行更有效的學生評語寫作。對于前者要求建立起數據一致性和完整性強、數據安。而對于后者則要求應用程序功能完備,易使用等特點。代,不斷修正和改進,直到形成用戶滿意的可行系統。的開發(fā)兩個方面。據庫,技術上開發(fā)難度一般.

　　

【正文】 第四章 引言 1． 3 課題背景 教師評語管理系統用計算機管理教師給學生撰寫評語信息的一種計算機應用技術的創(chuàng)新 ,在計算機還未普及之前中介管理都是由教師人員手工抄寫的方式來操作的 .現在一般的教師評語管理都是采用計算機作為工具的實用的計算機評語生成管理程序來幫助學生管理員進行更有效的學生評語寫作。評語管理系統 是典型的信息管理系統(MIS),其開發(fā)主要包括后臺數據庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備 ,易使用等特點。 1． 4 系統簡介 本系統主要由以下功能模塊構成 : 五 .評語項目管理 (增加評語項目 ,刪除選定項目 ,增加項目分類 ,刪除項目分類 ) 六 .評語維護 七 .學生管理 (查找學生 ,添加學生 ,刪除學生 ,添加新評語 ) 八 .系統管理 (修改密碼 ,添加用戶 ,退出系統 ) 第五章 系統的分析 2． 3 系統開發(fā)的目標和思想 本系統主要服務于教師對學生寫評語的工作 .利用本評語生成系統 ,教師可以方便的快捷的給班級的學生寫評語 ,主要操作是定位學生對數據庫添加評語信息 ,最后可以完成對學生的查詢以及評語的修改 . 2． 4 系統的可行性分析 技術上 :本系統采用 visual basic 與微軟的 access 作為數據庫 ,技術上開發(fā)難度一般 . 經濟上 :本系統服務于學校教師 ,提高了教育工作者辦事效率 ,節(jié)省了開支 .所以具有經濟上的可行性 . 社會上 :本系統同時也方便了廣大老師寫評語尋求者 ,以及家長 .所以具有社會可行性 . 第六章 系統的設計 3． 3 系統的功能結構設計 3． 2 系統的數據庫設計 : 程序登陸 主界面 評語項目管理 評語維護 學生管理 系統管理 : : : : : : 8:衛(wèi)生評語 : 9:系統管理 : 10:學生操行 : 11:學生管理 : 12:學生成績評語 : 13:印象評語 : 14:作業(yè)評語 : 3． 4 界面設計與代碼設計 7. 登陸界面設計 : 登陸界面代碼設計 : Private Sub Command1_Click() Dim sql As String Dim rs_login As New If Trim() = Then 39。判斷輸入 的用戶名是否為空 MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else sql = select * from 系統管理 where 用戶名 =39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用 戶 , vbOKOnly + vbExclamation, Else 39。檢驗密碼是否正確 If Trim((1)) = Trim() Then userID = Unload Me Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If t = t + 1 If t = 3 Then Unload Me End If Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim connectionstring As String connectionstring = provider=。 amp。 _ data source= connectionstring t = 0 End Sub 8. 添加學生界面設計 : 添加學生代碼設計 : Private Sub Command1_Click() Dim sql As String If Trim() = Then MsgBox 學生姓名不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 學號不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 班級不能為空 , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 學生管理 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic While ( = False) If Trim((0)) = Trim() Then MsgBox 學號不能重復！ , vbOKOnly + vbExclamation, = = = Exit Sub Else End If Wend (0) = (1) = (2) = MsgBox 添加用戶成功 , vbOKOnly + vbExclamation, Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub 9. 查找學生界面設計 : 查找學生代碼設計 : Private Sub Command1_Click() Dim rs As New Dim find As String Dim sql As String 學號 amp。 Space(5) amp。 姓名 amp。 Space(5) amp。 班級 If = True Then sql = select * from 學生管理 where 學生姓名 =39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = False Then While = False (0) amp。 Space(5) amp。 (1) amp。 Space(5) amp。 (2) Wend = Else MsgBox 沒有找到目標！ , vbOKOnly + vbExclamation, End If End If If = True Then sql = select * from 學生管理 where 學號 =39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = False Then While = False (0) amp。 Space(5) amp。 (1) amp。 Space(5) amp。 (2) Wend = Else MsgBox 沒有找到目標！ , vbOKOnly + vbExclamation, End If End If If = True Then sql = select * from 學生管理 where 班級 =39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = False Then While = False (0) amp。 Space(5) amp。 (1) amp。 Space(5) amp。 (2) Wend = Else MsgBox 沒有找到目標！ , vbOKOnly + vbExclamation, End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub List1_Click() Dim i As Long Dim sql As String Dim rsclick As New i = CLng() ID = Left(, 6) If i 0 Then = adUseClient sql = select * from 學生操行 where 學號 =39。 amp。 ID amp。 39。 amp。 order by 學期 sql, conn, adOpenKeyset, adLockPessimistic If = False Then Else MsgBox 該生沒有評語！ , vbOKOnly + vbExclamation, Exit Sub End If = 39。文本框清空 While = False = amp。 vbCrLf amp。 第 amp。 (1) amp。 學期 amp。 vbCrLf amp。 Space(2) amp。 _ (2) amp。 vbCrLf amp。 Space(10) amp。 (3) amp。 Space(2) amp。 (4) Wend Exit Sub Else MsgBox 請選擇學生！ , vbOKOnly + vbExclamation, Exit Sub End If End Sub 10. 添加學生界面設計 : 添加學生代碼設計 : Private Sub Command1_Click() Dim sql As String Dim rs_add As New If Trim() = Then MsgBox 用戶名不能為空 , vbOKOnly + vbExclamation, Exit Sub Else sql = select * from 系統管理 sql, conn, adOpenKeyset, adLockPessimistic While ( = False) If Trim((0)) = Trim() Then MsgBox 已有這個用戶 , vbOKOnly + vbExclamation, = = = Exit Sub Else End If Wend If Trim() Trim() Then MsgBox 兩次密碼不一致 , vbOKOnly + vbExclamation, = = Exit Sub Else (0) = (1) =