【正文】 的應用程序要求程序設計不能是單一性的,在使用VB設計應用程序時,、鍵盤輸入等事件時,由用戶編寫的代碼控制這些事件的響應,這就是所謂的事件驅動編程。第三，在各大中小學校，可以說計算機的擁有率在不斷提高，用此系統提高了學校的硬件資源利用率。 ADO。學生評語管理系統的設計與實踐Design and practice of the students’ personal remark system 計算機科學與技術011班 XXX 指導老師 XXX副教授摘要：隨著計算機及網絡技術的飛速發(fā)展，在學校的管理中，運用計算機來處理事情已經越來越普遍。關鍵詞：管理信息系統。首先，用計算機不但可以提高工作效率，而且還節(jié)省了許多人力物力；其二，提高了信息的安全性，避免了因文件的丟失而導致信息無法查詢。 VB為用戶提供大量的界面元素(在VB中稱為控件對象),這些控件對象對于熟悉Windows應用程序的用戶而言是一點也不陌生,如窗體、菜單、命令按鈕、工具按鈕、檢查框等等,用戶只需要利用鼠標、鍵盤把這些控件對象拖動到適當的位置,設置它們的大小、形狀、屬性等,就可以設計出所需的應用程序界面。 中央電大陳明主編的《Visual Basic程序設計》是計算機應用專業(yè)采用的一本難得的教材,使我受益匪淺。 除即時捕獲錯誤以外,VB也在輸入代碼時部分地編譯該代碼。VB的每一個窗體和控件對象都有一個預定義的事件集。 以下是事件驅動應用程序中的典型事件序列： 應用程序等待下一次事件。 2．4．5窗體與基本輸入、輸出 在進行VB程序設計中，設計者并不需要自己編制VB程序代碼來生成圖形界面。幫助減輕辦主任的工作負擔，迅速地寫出評語。撰寫學生評語部分實現添加學生新評語的功能，這一部分為系統的核心功能。（5） 作業(yè)評語：包括作業(yè)工整、作業(yè)良好、作業(yè)應付等分類。 學生管理部分實現添加學生、刪除學生、查找學生以及撰寫學生評語等功能。此外，系統用戶信息單獨使用一個數據表保存。各個字段的相關設置如表34所示。各個字段的相關設置如表38所示。各個字段的相關設置如表312所示。 首先用打開Visual Basic 。 在VB中，AcitivX模型包括幾種不同的技術：AcitivX EXE工程、AcitivX DLL工程、AcitivX控件工程和AcitivX文檔工程。標記連接對象 在窗體裝載的事件中，首先打開學生管理數據表，將所有的學生在List1控件中顯示出來。在Form_Load事件中添加Treeview節(jié)點。 ID_num amp。 (1) amp。 Space(2) amp。記錄用戶輸入Dim prompt As String 39。 vbCrLf amp。 39。在列表框中修改評語的方法實現將原來的評語刪除，然后再使用Additem方法將新的評語添加到列表框中。 str1 sql, conn, adOpenKeyset, adLockPessimistic i(str2) = strEnd IfEnd Sub在撰寫評語的過程中，選定某條評語，然后單擊“添加到學生評語”按鈕，即可將此評語添加到文本框中。代碼如下：Private Sub Command13_Click()Dim flname As StringDim answer As StringDim xmname As StringDim ind As IntegerIf InStr(, \) = 0 Then MsgBox 請選擇要刪除的項目分類！而不是項目名稱！, vbOKOnly, Exit SubElse xmname = ind = flname = answer = MsgBox(確定要刪除這一項嗎？, vbYesNo, 刪除項目分類) If answer = vbYes Then (xmname). flname ind End IfEnd IfExit SubEnd Sub單擊“學生管理”――“刪除學生”菜單，首先提示用戶確認是否刪除，如果回答是，則使用Recordset對象Delete方法刪除數據，同時將列表框中的當前學生信息刪除，代碼如下：Private Sub delstudent_Click()Dim answer As StringDim i As IntegerDim id As StringDim sql As StringDim rsdelstu As New id = i = If selstu = True Then answer = MsgBox(確定要刪除此學生嗎？, vbYesNo, ) If answer = vbYes Then sql = select * from 學生管理 where 學號=39。代碼如下：Private Sub Command1_Click()Dim sql As StringIf Trim() = Then MsgBox 學生姓名不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 學號不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 班級不能為空, vbOKOnly + vbExclamation, Exit SubEnd 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 MeEnd Sub 查找學生窗體設計 建立查找學生窗體 此窗體需要3個OptionButton控件，4個Text控件、3個CommandButton控件和1個ListBox控件。 班級If = True Then sql = select * from 學生管理 where 學生姓名=39。 (2) Wend = Else MsgBox 沒有找到目標！, vbOKOnly + vbExclamation, End IfEnd IfIf = True Then sql = select * from 學生管理 where 學號=39。 (2) Wend = Else MsgBox 沒有找到目標！, vbOKOnly + vbExclamation, End IfEnd IfIf = True Then sql = select * from 學生管理 where 班級=39。 (2) Wend = Else MsgBox 沒有找到目標！, vbOKOnly + vbExclamation, End IfEnd IfEnd Sub單擊列表框，選擇學生，則在文本框中顯示該生的歷年評語。 vbCrLf amp。 Space(10) amp。添加好控件的窗體效果如圖35所示： 圖35 添加用戶窗體 代碼設計當單擊“確定”按鈕時，首先檢查輸入的用戶名是否為空，如果不為空，則檢查用戶名是否有重復，需要打開系統信息表。本系統可以隨意的添加各類評語，可以讓老師對表現類似的同學的評語不用重復勞動，減少了老師的工作量。還有在大學四年里曾經指導過我的所有老師，在此表示衷心的感謝！參考文獻：[1] 漢清計算機工作室 《 Visual Basic 數據庫開發(fā)實例 》 機械工業(yè)出版社 [2] 何旭洪 《 Visual Basic 數據庫開發(fā)實例導航 》 人民郵電出版社 [3] 孫健鵬 《VB數據庫開發(fā)實例解析》 機械工業(yè)出版社 [4] 王漢新 《Visual Basic 程序設計 》 科學出版社 [5] 陳惟斌 《Visual Basic 開發(fā)指南 》 清華出版社 [6] 張春葆 《VB數據庫系統設計與開發(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 數據庫系統管理》人民郵電出版社tgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1DkaGtgKQcWA3PtGZ7R4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGshLs50cLmTWN60eo8Wgqv7XAv2OHUm32WGeaUwYDIAWGMeR4I30kA1DkaGhn3XtKknBYCUDxqA7FHYi2CHhI92tgKQcWA3PtGZ7R4I30kA1