【正文】 panies, the use of its various objectoriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, putation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. Keyword : ments management MIS,visual basic database 第四章 引言 1． 3 課題背景 教師評語管理系統(tǒng)用計算機管理教師給學生撰寫評語信息的一種計算機應用技術的創(chuàng)新 ,在計算機還未普及之前中介管理都是由教師人員手工抄寫的方式來操作的 .現(xiàn)在一般的教師評語管理都是采用計算機作為工具的實用的計算機評語生成管理程序來幫助學生管理員進行更有效的學生評語寫作。而對于后者則要求應用程序功能完備 ,易使用等特點。評語管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。 參 考 文 獻 1 陳明 . 軟件工程學教程 .科技出版社， 2021 2 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社， 2021 3 飛思科技產(chǎn)品研發(fā)中心 . visual basic 數(shù)據(jù)庫 應用開發(fā) .電子工業(yè)出版社， 2021 4 飛思科技產(chǎn)品研發(fā)中心 . visual basic 開發(fā)者手冊 . 電子工業(yè)出版社 , 2021 5 申 旻 . visual basic 高手突破 . 清華大學出版社， 2021， 302 6 Steve Teixeira， Xaviver Pacheco 著，龍勁松，王瑜，謝尚書譯 . visual basic 開發(fā)人員指南 . 機械工業(yè)出版社 .2021 7 喬林 .參透 Delphi／ Kylix . 中國鐵道出版社 .2021 8 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2021 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2021 嚴蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學出版社 .2021 10 王珍 玲 。 在這里我還要感謝我們宿舍的其它 5 個同學。 致謝 我首先感謝我的指導老師呂老師，在他嚴格的要求下我懂得了開發(fā)軟件要有一種極其認真負責的態(tài)度。 雖然軟件基本達到設計要求并且達到同行的先進水平，但由于作者水平有限，軟件存在 bug 也是在所難免的 ，您的意見和建議將極大的幫助我改進并完善軟件。通過這幾個月的畢業(yè)設計，我學到很多以前沒有學到的 visual basic 開發(fā)技術，在軟件工程學上更是取得了很大的進步。 from amp。 (4) Wend xq = (1) Exit Sub displaypyerror: MsgBox End Sub Private Sub List2_Click() = True End Sub Private Sub modifypyxm_Click() Command11_Click End Sub Private Sub TreeView1_NodeClick(ByVal Node As ) On Error GoTo clickerror Dim i As Integer Dim rs As New Dim sql As String i = = True Dim a As Integer = True = True = True = True If 0 Then txttbl = If = True Then = False Else = True End If Else If InStr(, \) 0 Then txttbl = txtfield = str1 = txttbl str2 = txtfield sql = select amp。 (3) amp。 vbCrLf amp。 Space(2) amp。 學期 amp。 第 amp。文本框清空 While = False Text1(0).Text = Text1(0).Text amp。 amp。 ID_num amp。selxm = False = False = False = False = False Dim str As String Set = conn = tvwManual For Each tbl In str = If Right(str, 2) = 評語 Then Set mnode = () = str Dim i As Integer Dim nodeindex As Integer nodeindex = For i = 0 To 1 Set mnode = (nodeindex, tvwChild) = (i).Name Next End If Next Exit Sub openerror: MsgBox End Sub Private Sub List1_Click() Dim i As Long i = CLng() i ID_num = (0) selstu = True displaystudent displaypy End Sub Public Sub displaystudent() = (1) = (0) = (2) End Sub Public Sub displaypy() Dim rs As New Dim sql As String Dim t As Integer Dim i As Integer On Error GoTo displaypyerror = adUseClient sql = select * from 學生操行 where 學號 =39。 amp。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic i End If Else MsgBox 請選擇要刪除的學生！ , vbOKOnly + vbExclamation, End If Exit Sub End Sub Private Sub delxmfl_Click() Command13_Click End Sub Private Sub exitsys_Click() Unload Me End Sub Private Sub findstudent_Click() End Sub Private Sub Form_Load() Dim connectionstring As String Dim sql As String On Error GoTo openerror = adUseClient sql = select * from 學生管理 order by 學號 39。 ID amp。 order by 學期 sql, conn, adOpenKeyset, adLockPessimistic Dim cx As String (0) = ID_num (1) = xq + 1 (3) = Date (4) = xing + 老師 cx = Replace(Text1(1).Text, Date, ) cx = Replace(cx, xing + 老師 , ) (2) = cx = False = False = False = False = False = False (1) = False = True = True End Sub Private Sub Command8_Click() = True = True = False = False = False = False = False = False End Sub Private Sub Command9_Click() Dim xmname As String Dim rs As New Dim table As New table Dim tbl As table Dim field As String Dim str As String On Error GoTo adderror xmname = InputBox(輸入新評語項目名稱 , 添加評語項目 ) If xmname = Then MsgBox 項目名稱不能為空！ , vbOKOnly, Exit Sub Else If Right(xmname, 2) = 評語 Then = xmname Else = xmname + 評語 End If table For Each tbl In str = If Right(str, 2) = 評語 Then Set mnode = () = str Dim i As Integer Dim nodeindex As Integer nodeindex = For i = 0 To 1 Set mnode = (nodeindex, tvwChild) = (i).Name Next End If Next End If Exit Sub adderror: MsgBox , vbOKOnly + vbExclamation, End Sub Private Sub delpy_Click() Command6_Click End Sub Private Sub delstudent_Click() Dim answer As String Dim i As Integer Dim ID As String Dim sql As String Dim rsdelstu As New ID = i = If selstu = True Then answer = MsgBox(確定要刪除此學生嗎？ , vbYesNo, ) If answer = vbYes Then sql = select * from 學生管理 where 學號 =39。 39。 amp。 from amp。函數(shù)參數(shù) prompt = 確實要刪除此條評語嗎？ answer = MsgBox(prompt, vbYesNo, 刪除評語 ) If answer = vbYes Then i = () sql = select amp。 str1 sql, conn, adOpenKeyset, adLockPessimistic i (str2) = str End If End Sub Private Sub Command6_Click() Dim rs As New Dim sql As String Dim i As Integer Dim answer As String 39。 str2 amp。函數(shù)參數(shù) prompt = 修改“ + str1 + ”中的“ + str2