评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

VB+教学辅助系统(一)毕业论文网(7)

2013-05-07 01:03 bsp; Toolbar1.Buttons(i).MixedState = False
    Next i
    Toolbar1.Buttons(3).MixedState = True
    Call ShowTree(BigStyle)
End Sub

Private Sub Menu_Copy_Click()
    SendKeys "^C"
End Sub

Private Sub Menu_Del_Click()
On Error GoTo ERR:
    If ExistRecord("code", "标题", Temptitle) = True Then
        If MsgBox("你真的要删除此记录吗？", vbYesNo + vbExclamation, "警告") = vbYes Then
            Dim adoprimarycmd As New ADODB.Command
            adoprimarycmd.ActiveConnection = StrConnect
            adoprimarycmd.CommandText = "delete * from code where 标题='" & Trim(Temptitle) & "'"
            adoprimarycmd.Execute
            Set adoprimarycmd = Nothing
            RTB1.Text = ""
            Call Form_Load
        End If
    Else
         MsgBox "你必须先选择要删除的标题", vbOKOnly + vbCritical, "删除错误"
    End If
    Exit Sub
ERR:
    MsgBox "你必须先选择要删除的标题", vbOKOnly + vbCritical, "删除错误"
End Sub

Private Sub Menu_Edit_Click()
On Error GoTo ERR:
    If ExistRecord("code", "标题", TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)) = False Then
        MsgBox "你必须先选择要修改的标题", vbOKOnly + vbCritical, "错误"

（转载自http://www.ＮＳＥＡＣ.com中国科教评价网）

        Exit Sub
    End If
    Frame5.Visible = True: Frame6.Visible = True: TreeView1.Visible = False
    Label4.Caption = "（修改）"
    Call SelFldtoCbo("code", "小类别", BigStyle, Cbostyle)
    RTB1.Locked = False
    RTB1.BackColor = RGB(255, 255, 255)
    Cbostyle.Text = TreeView1.Nodes.Item(TreeView1.SelectedItem.Parent.Index)
    TxTTitle.Text = Temptitle
    EditCode = True
    Toolbar1.Buttons(7).Image = 16: Toolbar1.Buttons(8).Image = 17
    Toolbar1.Buttons(7).Caption = "粘贴": Toolbar1.Buttons(8).Caption = "清除"
    Toolbar1.Buttons(7).Tag = "Tool_Plaste": Toolbar1.Buttons(8).Tag = "Tool_Clear"
    Menu_Plaste.Enabled = True: Menu_Clear.Enabled = True
    Exit Sub
ERR:
    MsgBox "你必须先选择要修改的标题", vbOKOnly + vbCritical, "错误"
End Sub

Private Sub Menu_Example_Click()
    Label1.Caption = "经典事例"
    BigStyle = "经典事例"
    For i = 1 To Toolbar1.Buttons.Count
        Toolbar1.Buttons(i).MixedState = False
    Next i
    Toolbar1.Buttons(5).MixedState = True
    Call ShowTre