教师评语管理系统—计算机毕业设计

教师评语管理系统—计算机毕业设计内容摘要：

称。 , vbOKOnly, Exit Sub Else xmname = ind = flname = answer = MsgBox(确定要删除这一项吗。 , vbYesNo, 删除项目分类 ) If answer = vbYes Then (xmname). flname ind End If End If Exit Sub End Sub Private Sub Command14_Click() Text1(1).Text = End Sub Private Sub Command15_Click() Dim refreshstu As New Dim sql As String = adUseClient sql = select * from 学生管理 order by 学号 39。 打开学生管理数据表，在列表框中显示所有的学生 sql, conn, adOpenKeyset, adLockPessimistic While = False (1) amp。 amp。 (0) Wend End Sub Private Sub Command2_Click() xing = InputBox(输入老师姓或姓名： ) Text1(1).Text = Text1(1).Text amp。 vbCrLf amp。 Space(12) amp。 xing amp。 老师 End Sub Private Sub Command3_Click() Dim i As Integer i = If Text1(1).Text = Then Text1(1).Text = Space(2) amp。 Text1(1).Text amp。 Else Text1(1).Text = Text1(1).Text amp。 End If End Sub Private Sub Command4_Click() Dim rs As New Dim sql As String Dim str As String 39。 记录用户输入 Dim prompt As String 39。 函数参数 prompt = 在“ + str1 + ”中的“ + str2 + ”类别中添加新的评语： str = InputBox(prompt, 添加新评语 ) (str) sql = select amp。 str2 amp。 from 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。 函数参数 prompt = 修改“ + str1 + ”中的“ + str2 + ”类别评语： amp。 str = InputBox(prompt, 修改评语 ) If str = Then Exit Sub Else i = () str sql = select amp。 str2 amp。 from 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。 记录用户输入 Dim prompt As String 39。 函数参数 prompt = 确实要删除此条评语吗。 answer = MsgBox(prompt, vbYesNo, 删除评语 ) If answer = vbYes Then i = () sql = select amp。 str2 amp。 from amp。 str1 sql, conn, adOpenKeyset, adLockPessimistic i End If End Sub Private Sub Command7_Click() Dim rs As New Dim sql As String = adUseClient sql = select * from 学生操行 where 学号 =39。 amp。 ID_num amp。 39。 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。 amp。 ID amp。 39。 = 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。 打开学生管理数据表，在列表框中显示所有的学生 sql, conn, adOpenKeyset, adLockPessimistic While = False (1) amp。 amp。 (0) Wend 优 良 中 差 = False = False list2state = False setmandstate (1) = False = False = False = False = False = False = False selstu = False 39。 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。 ID_num amp。 39。 amp。 order by 学期 sql, conn, adOpenKeyset, adLockPessimistic If = False Then Else MsgBox 该生没有评语。 , vbOKOnly + vbExclamation, Exit Sub。