【文章內(nèi)容簡(jiǎn)介】 稱！ , vbOKOnly, Exit Sub Else xmname = ind = flname = answer = MsgBox(確定要?jiǎng)h除這一項(xiàng)嗎？ , vbYesNo, 刪除項(xiàng)目分類 ) 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 學(xué)生管理 order by 學(xué)號(hào) 39。打開學(xué)生管理數(shù)據(jù)表，在列表框中顯示所有的學(xué)生 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。函數(shù)參數(shù) prompt = 在“ + str1 + ”中的“ + str2 + ”類別中添加新的評(píng)語(yǔ)： str = InputBox(prompt, 添加新評(píng)語(yǔ) ) (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。函數(shù)參數(shù) prompt = 修改“ + str1 + ”中的“ + str2 + ”類別評(píng)語(yǔ)： amp。 str = InputBox(prompt, 修改評(píng)語(yǔ) ) 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。函數(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。 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 學(xué)生操行 where 學(xué)號(hào) =39。 amp。 ID_num amp。 39。 amp。 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。 ID amp。 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。打開學(xué)生管理數(shù)據(jù)表，在列表框中顯示所有的學(xué)生 sql, conn, adOpenKeyset, adLockPessimistic While = False (1) amp。 amp。 (0) Wend 優(yōu) 良 中 差 = 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) = 評(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 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 學(xué)生操行 where 學(xué)號(hào) =39。 amp。 ID_num amp。 39。 amp。 order by 學(xué)期 sql, conn, adOpenKeyset, adLockPessimistic If = False Then Else MsgBox 該生沒有評(píng)語(yǔ)！ , vbOKOnly + vbExclamation, Exit Sub