免费获取|
论文天下网
  • 论文天下网 |
  • 原创毕业论文 |
  • 论文范文 |
  • 论文下载 |
  • 计算机论文 |
  • 论文降重 |
  • 毕业论文 |
  • 外文翻译 |
  • 免费论文 |
  • 开题报告 |
  • 心得体会 |

当前位置:论文天下网 -> 免费论文 -> 计算机论文

VB+教学辅助系统(七)

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, "错误"
        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

首页 上一页 4 5 6 7 8 9 下一页 尾页 7/9/9

相关论文
上一篇:电子教务管理系统vb 下一篇:人力资源管理系统+论文+VB
推荐论文 本专业最新论文
Tags:教学 辅助 系统 【返回顶部】

相关栏目

自动化相关
计算机论文
工程管理论文
法律论文
医学论文
人力资源
电子专业
电气工程
英语论文
行政管理
电子商务
社科文学
教育论文
物流专业
金融专业
财务管理
会计专业
化学化工材料科学
电子通信
环境科学
经济类
机械模具类
报告,总结,申请书
其他专业论文


关于我们 | 联系方式 | 论文说明 | 网站地图 | 免费获取 | 钻石会员 | 原创毕业论文

 

论文天下网提供论文检测,论文降重,论文范文,论文排版,网站永久域名WWW.GEPUW.NET

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 893628136@qq.com

Copyright@ 2009-2022 GEPUW.NET 论文天下网 版权所有