Office中国论坛/Access中国论坛

标题: TREE防止修改怎么弄 [打印本页]

作者: sailing_han 时间: 2009-7-16 15:29
标题: TREE防止修改怎么弄
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的程序，当右键单击的时候可以进行添加、修改和删除。为了防止别人误删，想在执行这几个命令前要求输入密码，密码正确才可以进行添加、修改和删除。

哪位大虾能教教我怎么做？？？？拜谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)