【導(dǎo)讀】語(yǔ)生成管理程序來(lái)幫助學(xué)生管理員進(jìn)行更有效的學(xué)生評(píng)語(yǔ)寫(xiě)作。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。的開(kāi)發(fā)兩個(gè)方面。據(jù)庫(kù),技術(shù)上開(kāi)發(fā)難度一般.

　　

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