【正文】 (4) Wend Exit Sub Else MsgBox 請選擇學(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 已有這個用戶 , vbOKOnly + vbExclamation, = = = Exit Sub Else End If Wend If Trim() Trim() Then MsgBox 兩次密碼不一致 , vbOKOnly + vbExclamation, = = Exit Sub Else (0) = (1) = 。 (3) amp。 vbCrLf amp。 Space(2) amp。 學(xué)期 amp。 第 amp。文本框清空 While = False = amp。 amp。 ID amp。 (2) Wend = Else MsgBox 沒有找到目標(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é)號 =39。 (1) amp。 sql, conn, adOpenKeyset, adLockPessimistic If = False Then While = False (0) amp。 amp。 (2) Wend = Else MsgBox 沒有找到目標(biāo)！ , vbOKOnly + vbExclamation, End If End If If = True Then sql = select * from 學(xué)生管理 where 班級 =39。 (1) amp。 sql, conn, adOpenKeyset, adLockPessimistic If = False Then While = False (0) amp。 amp。 (2) Wend = Else MsgBox 沒有找到目標(biāo)！ , vbOKOnly + vbExclamation, End If End If If = True Then sql = select * from 學(xué)生管理 where 學(xué)號 =39。 (1) amp。 sql, conn, adOpenKeyset, adLockPessimistic If = False Then While = False (0) amp。 amp。 班級 If = True Then sql = select * from 學(xué)生管理 where 學(xué)生姓名 =39。 姓名 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é)號不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 班級不能為空 , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 學(xué)生管理 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic While ( = False) If Trim((0)) = Trim() Then MsgBox 學(xué)號不能重復(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é)號 amp。檢驗(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=。 39。 amp。 1． 4 系統(tǒng)簡介 本系統(tǒng)主要由以下功能模塊構(gòu)成 : 五 .評語項(xiàng)目管理 (增加評語項(xiàng)目 ,刪除選定項(xiàng)目 ,增加項(xiàng)目分類 ,刪除項(xiàng)目分類 ) 六 .評語維護(hù) 七 .學(xué)生管理 (查找學(xué)生 ,添加學(xué)生 ,刪除學(xué)生 ,添加新評語 ) 八 .系統(tǒng)管理 (修改密碼 ,添加用戶 ,退出系統(tǒng) ) 第五章 系統(tǒng)的分析 2． 3 系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)主要服務(wù)于教師對學(xué)生寫評語的工作 .利用本評語生成系統(tǒng) ,教師可以方便的快捷的給班級的學(xué)生寫評語 ,主要操作是定位學(xué)生對數(shù)據(jù)庫添加評語信息 ,最后可以完成對學(xué)生的查詢以及評語的修改 . 2． 4 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫 ,技術(shù)上開發(fā)難度一般 . 經(jīng)濟(jì)上 :本系統(tǒng)服務(wù)于學(xué)校教師 ,提高了教育工作者辦事效率 ,節(jié)省了開支 .所以具有經(jīng)濟(jì)上的可行性 . 社會上 :本系統(tǒng)同時也方便了廣大老師寫評語尋求者 ,以及家長 .所以具有社會可行性 . 第六章 系統(tǒng)的設(shè)計(jì) 3． 3 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) : 程序登陸 主界面 評語項(xiàng)目管理 評語維護(hù) 學(xué)生管理 系統(tǒng)管理 : : : : : : 8:衛(wèi)生評語 : 9:系統(tǒng)管理 : 10:學(xué)生操行 : 11:學(xué)生管理 : 12:學(xué)生成績評語 : 13:印象評語 : 14:作業(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。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。 關(guān)鍵字 :評語管理 ,MIS,visual basic ,數(shù)據(jù)庫 Abstract Teachers ment management system for teachers to use puter management information students wrote ments a puter application technology innovation, Management has not yet popular in the puter before the intermediary personnel manual transcription by teachers are the way to operate. Now the general ments of teachers are using puters as a management tool for puter ments generated management procedures to help students managers more effective students writing ments. Comment management system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and frontend application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool