【正文】 n, End IfEnd IfIf = 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 IfEnd IfIf = 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 IfEnd IfEnd Sub單擊列表框，選擇學生，則在文本框中顯示該生的歷年評語。代碼如下：Private Sub List1_Click()Dim i As LongDim sql As StringDim 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 SubElse MsgBox 請選擇學生！, vbOKOnly + vbExclamation, Exit SubEnd IfEnd Sub單擊“刪除學生評語按鈕”，則刪除學生的歷年評語，代碼如下：Private Sub Command3_Click()Dim answer As StringDim i As LongDim sql As Stringid = Left(, 6)Dim rs3 As New answer = MsgBox(確定要刪除此學生評語嗎？, vbYesNo, ) If answer = vbYes Then sql = select * from 學生操行 where 學號=39。 amp。 id amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = Else MsgBox 請選擇要刪除的學生！, vbOKOnly + vbExclamation, End If End Sub 添加用戶窗體設計 建立添加用戶窗體此窗體要添加3個Label控件最為標識，3個Text控件接受用戶輸入，2個CommandButton控件最為按鈕。添加好控件的窗體效果如圖35所示： 圖35 添加用戶窗體 代碼設計當單擊“確定”按鈕時，首先檢查輸入的用戶名是否為空，如果不為空，則檢查用戶名是否有重復，需要打開系統(tǒng)信息表。代碼如下：Private Sub Command1_Click()Dim sql As StringDim 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) = MsgBox 添加用戶成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd Sub 修改密碼窗體設計 建立修改密碼窗體這個窗體要用到2個Label控件，2個Text控件和2個CommandButton控件。添加好控件的窗體效果如圖36所示： 圖36 修改密碼窗體 代碼設計設定用戶如果輸入用戶名和密碼出錯3次，系統(tǒng)將自動退出。代碼如下：Private Sub Command1_Click()Dim rs_chang As New Dim sql As StringIf Trim() Trim() Then MsgBox 密碼不一致！, vbOKOnly + vbExclamation, = = Else sql = select * from 系統(tǒng)管理 where 用戶名=39。 amp。 userID amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic (1) = MsgBox 密碼修改成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd Sub第四章 系統(tǒng)的特點和前景展望 經過1個多月的學習和實踐，筆者基本上完成了學生評語管理系統(tǒng)的整體設計和開發(fā)，并具備一定的使用價值。本系統(tǒng)可以隨意的添加各類評語，可以讓老師對表現(xiàn)類似的同學的評語不用重復勞動，減少了老師的工作量。同時，學生的發(fā)展是一個不斷的變化的過程，本系統(tǒng)可以更加清楚的了解同學的發(fā)展過程。 隨著計算機的普及，人們都會用計算機技術來處理以前比較復雜和煩雜的問題。本系統(tǒng)的推出將會在一定程度上減少老師的工作量。也就是帶來了一定的使用價值?？梢灶A見，計算機用來處理學生各類管理將在未來發(fā)揮更大的作用。謝辭感謝老師和同學的支持和幫助，特別是我們的指導老師張素儉副教授, 在開發(fā)過程中耐心、細致的指導，幫助我解決了許多實際問題，給予我很大的啟發(fā)和幫助，在此表示衷心的感謝。同時也感謝其他同學在開發(fā)過程中的合作與幫助。還有在大學四年里曾經指導過我的所有老師，在此表示衷心的感謝！參考文獻：[1] 漢清計算機工作室 《 Visual Basic 數據庫開發(fā)實例 》 機械工業(yè)出版社 [2] 何旭洪 《 Visual Basic 數據庫開發(fā)實例導航 》 人民郵電出版社 [3] 孫健鵬 《VB數據庫開發(fā)實例解析》 機械工業(yè)出版社 [4] 王漢新 《Visual Basic 程序設計 》 科學出版社 [5] 陳惟斌 《Visual Basic 開發(fā)指南 》 清華出版社 [6] 張春葆 《VB數據庫系統(tǒng)設計與開發(fā)》 清華大學出版社 [7] Buczek 《Access 2002數據庫開發(fā)即時應用 》 人民郵電出版社 [8]Visual Basic 6 Harry , Paul J. Deitel 電子工業(yè)出版社 [9] Thearon Willis Beginning SQL Server 2000 for Visual Basic Developers Wrox Press [10] 袁朋飛 孫軍安《SQL SERVER 2000 數據庫系統(tǒng)管理》人民郵電出版社tgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1