【正文】 On Error GoTo displaypyerror = adUseClient sql = select * from 學(xué)生操行 where 學(xué)號(hào) =39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic i End If Else MsgBox 請(qǐng)選擇要?jiǎng)h除的學(xué)生！ , 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 學(xué)生管理 order by 學(xué)號(hào) 39。 order by 學(xué)期 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(輸入新評(píng)語(yǔ)項(xiàng)目名稱 , 添加評(píng)語(yǔ)項(xiàng)目 ) If xmname = Then MsgBox 項(xiàng)目名稱不能為空！ , vbOKOnly, Exit Sub Else If Right(xmname, 2) = 評(píng)語(yǔ) Then = xmname Else = xmname + 評(píng)語(yǔ) End If table For Each tbl In str = If Right(str, 2) = 評(píng)語(yǔ) 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(確定要?jiǎng)h除此學(xué)生嗎？ , vbYesNo, ) If answer = vbYes Then sql = select * from 學(xué)生管理 where 學(xué)號(hào) =39。 amp。函數(shù)參數(shù) prompt = 確實(shí)要?jiǎng)h除此條評(píng)語(yǔ)嗎？ answer = MsgBox(prompt, vbYesNo, 刪除評(píng)語(yǔ) ) If answer = vbYes Then i = () sql = select amp。 str2 amp。 str1 sql, conn, adOpenKeyset, adLockPessimistic (str2) = str End Sub Private Sub Command5_Click() Dim rs As New Dim sql As String Dim i As Integer Dim str As String 39。記錄用戶輸入 Dim prompt As String 39。 老師 End Sub Private Sub Command3_Click() Dim i As Integer i = If Text1(1).Text = Then Text1(1).Text = Space(2) amp。 (0) Wend End Sub Private Sub Command2_Click() xing = InputBox(輸入老師姓或姓名： ) Text1(1).Text = Text1(1).Text amp。 vbCrLf amp。記錄學(xué)期 Dim selstu As Boolean Dim selxm As Boolean Dim xing As String 39。記錄當(dāng)前評(píng)語(yǔ)項(xiàng)目名稱 Dim txtfield As String 39。 39。 Space(2) amp。 _ (2) amp。 (1) 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。 amp。 Space(5) amp。 amp。 Space(5) amp。 amp。 Space(5) amp。 amp。 Space(5) amp。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒(méi)有這個(gè)用戶 , vbOKOnly + vbExclamation, Else 39。判斷輸入的用戶名是否為空 MsgBox 沒(méi)有這個(gè)用戶 , vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where 用戶名 =39。評(píng)語(yǔ)管理系統(tǒng) 是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。評(píng)語(yǔ)管理系 統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。 關(guān)鍵字 :評(píng)語(yǔ) 管理 ,MIS,visual basic ,數(shù)據(jù)庫(kù) 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 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． 1 課題背景 教師評(píng)語(yǔ)管理系統(tǒng)用計(jì)算機(jī)管理教師給學(xué)生撰寫評(píng)語(yǔ)信息的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前中介管理都是 由教師人員手工抄寫的方式來(lái)操作的 .現(xiàn)在一般的教師評(píng)語(yǔ)管理都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)評(píng)語(yǔ)生成管理程序來(lái)幫助學(xué)生管理員進(jìn)行更有效的學(xué)生評(píng)語(yǔ)寫作。 1． 2 系統(tǒng)簡(jiǎn)介 本系統(tǒng)主要由以下功能模塊構(gòu)成 : 一 .評(píng)語(yǔ)項(xiàng)目管理 (增加評(píng)語(yǔ)項(xiàng)目 ,刪除選定項(xiàng)目 ,增加項(xiàng)目分類 ,刪除項(xiàng)目分類 ) 二 .評(píng)語(yǔ)維護(hù) 三 .學(xué)生管理 (查找學(xué)生 ,添加學(xué)生 ,刪除學(xué)生 ,添加新評(píng)語(yǔ) ) 四 .系統(tǒng)管理 (修改密碼 ,添加用戶 ,退出系統(tǒng) ) 第二章 系統(tǒng)的分析 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)主要服務(wù)于教師對(duì)學(xué)生寫評(píng)語(yǔ)的工作 .利用本評(píng)語(yǔ)生成系統(tǒng) ,教師可以方便的快捷的給班級(jí)的學(xué)生寫評(píng)語(yǔ) ,主要操作是定位學(xué)生對(duì)數(shù)據(jù)庫(kù)添加評(píng)語(yǔ)信息 ,最后可以完成對(duì)學(xué)生的查詢以及評(píng)語(yǔ)的修改 . 2． 2 系統(tǒng)的可行性分析 技