设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1218|回复: 0
打印 上一主题 下一主题

[Access本身] TREE防止修改怎么弄

[复制链接]
跳转到指定楼层
1#
发表于 2009-7-16 15:29:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Private Sub rmTreeView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
    Dim mNode As Node
    Dim NodeID As String
    Dim strCode() As String
    Dim strSQL As String
    Dim rst As DAO.Recordset
    Set mNode = rmTreeView1.SelectedItem
    strCode = Split(mNode.Key, "_")
   
    If blNodeClick Then
        If Button = 2 Then
            iSQLs = ""
            
            Application.CommandBars("menuTreeView").Controls(2).Enabled = _
                    IIf(mNode.Children = 0 And Not mNode.Parent Is Nothing, True, False)
                    
                                
                    
            Application.CommandBars("menuTreeView").Controls(4).Enabled = IIf(mNode.Children = 0, False, True)
  
            
            Application.CommandBars("menuTreeView").ShowPopup
            
            Select Case UCase(iSQLs)
                Case "ADD"
                    popupAdd
                Case "DEL"
                    popupDel
                Case "MOD"
                    mNodeText = mNode.Text
                    Me.rmTreeView1.StartLabelEdit
                Case "SORT"
                    mNode.Sorted = True
            End Select
        End If
    End If
    blNodeClick = False
End Sub

上面是一段tree的程序,当右键单击的时候可以进行添加、修改和删除。为了防止别人误删,想在执行这几个命令前要求输入密码,密码正确才可以进行添加、修改和删除。

哪位大虾能教教我怎么做????拜谢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 20:31 , Processed in 0.101492 second(s), 24 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表