谁能给我一个比较完整的treeview操作的代码，实现N层,而且可以向数据库里动态添加数据，可以解决数据重复的问题

Question

.
在线等待，只要解决了，马上放分！

Answer 1

我有一个工程是这方面的，不是太完善，数据保存为XML，请查收，也请给点分

Answer 2

to:szj820(都市精灵，机会没有，鸡会有的，努力努力) 
也请给我一份学习学习，好吗？
[email protected]

Answer 3

Option Explicit
Dim rsw As ADODB.Recordset
Dim userid As String
Dim Nindex As Integer
Dim addFalg As Boolean
 '　    　　　　　　|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
'                  |                                          |
'                  |    ☆★☆★ [AleiSoft工作室] ☆★☆★      |
'                  |                                          |
'                  |                                          |
'　    　　　　　 　|　    友情制作：姚尚磊，徐霞，许开质
'                  |                                          |
'                  |       E-Mail：[email protected]       |
'                  |     由于时间，技术有限，所以该软件有许多不  |
'                  |     足处，望原谅，如果你有兴趣的话，你可以  |
'                  |     完善它，让它更健壮！                   |
'                  |                                          |
'                  |         制作日期：2003-06-18              |
'                  |                                          |
'                  |                                          |
'                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub Command1_Click()
textlock True
Command4.Enabled = True
Text1(0).SetFocus
clearText
Command3.Enabled = True
Command2.Enabled = False
Command1.Enabled = False
addFalg = True
textlock True
TreeView1.Enabled = False
End SubPrivate Sub Command2_Click()
Dim rs1 As ADODB.Recordset
Dim response As Integer
response = MsgBox("你确认要删除 " & userid & " 用户吗?", vbYesNo, "信息```")
If userid = rollname Then
    disperr 9999999, "你不能删除当前用户！"
    Exit Sub
End If
If response = vbNo Then Exit Sub
Set rs1 = New ADODB.Recordset
rs1.Open "select * from 用户表 where 用户编号='" + userid + "'", allcnn, adOpenDynamic, adLockPessimistic
rs1.Delete
rsw.Requery
rsw.MoveFirst
Text1(0).Text = rsw!用户编号
Text1(1).Text = rsw!用户姓名
Text1(2).Text = rsw!用户密码
Combo1.Text = rsw!级别编号
TreeView1.Nodes.Remove Nindex
Command2.Enabled = False
End SubPrivate Sub Command3_Click()
Dim rs1 As ADODB.Recordset
Dim nod2 As Node
If Text1(0).Text = Empty Then
   Text1(0).SetFocus
   Exit Sub
ElseIf Text1(1).Text = Empty Then
   Text1(1).SetFocus
   Exit Sub
ElseIf Combo1.Text = Empty Then
   Combo1.SetFocus
   Exit Sub
End If
Command3.Enabled = False
Command2.Enabled = True
On Error GoTo err1:
    If addFalg Then
       Set rs1 = New ADODB.Recordset
       rs1.Open "用户表", allcnn, adOpenDynamic, adLockOptimistic
       If Mid(Text1(0), 1, 1) Like "[0-9]" Then
            disperr 200000, "用户编号不能以 0-9 数字开头。"
            clearText
            Command2.Enabled = False
            Command3.Enabled = True
       Exit Sub
       End If
       rs1.AddNew
       rs1!用户编号 = Trim(Text1(0).Text)
       rs1!用户姓名 = Trim(Text1(1).Text)
       rs1!用户密码 = Trim(Text1(2).Text)
       rs1!级别编号 = Trim(Combo1.Text)
       rs1.Update
       addFalg = False
       If Combo1.Text = "admi" Then
          Set nod2 = TreeView1.Nodes.Add("guanliyuan", tvwChild, Trim(Text1(0).Text), Trim(Text1(0).Text))
       ElseIf Combo1.Text = "rs01" Then
          Set nod2 = TreeView1.Nodes.Add("renshirenyuan", tvwChild, Trim(Text1(0).Text), Trim(Text1(0).Text))
       ElseIf Combo1.Text = "cw01" Then
          Set nod2 = TreeView1.Nodes.Add("caiwurenyuan", tvwChild, Trim(Text1(0).Text), Trim(Text1(0).Text))
       End If
       Command4_Click
       rs1.Close
       Set rs1 = Nothing
       Exit Sub
    End If
err1:
    disperr 20000, "当前用户可能已存在或输入非法，保存失败!"
    Command1_Click
End SubPrivate Sub Command4_Click()
Dim rs As ADODB.Recordset
clearText
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Set rs = New ADODB.Recordset
rs.Open "用户表", allcnn, adOpenDynamic, adLockReadOnly
rs.MoveFirst
Text1(0).Text = rs!用户编号
Text1(1).Text = rs!用户姓名
Text1(2).Text = rs!用户密码
Combo1.Text = rs!级别编号
textlock False
Command4.Enabled = False
rs.Close
TreeView1.Enabled = True
Set rs = Nothing
End SubPrivate Sub Command5_Click()
Unload Me
End SubPrivate Sub Form_Load()
Move (MDIForm1.Width - Me.Width) / 2, (MDIForm1.Height - Me.Height) / 2 - 800
Dim nodX As Node
Set rsw = New ADODB.Recordset
rsw.Open "用户表", allcnn, adOpenDynamic, adLockPessimistic
Set nodX = TreeView1.Nodes.Add(, , "r", "角色")
nodX.Tag = "0"
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "guanliyuan", "管理员")
nodX.Tag = "0"
Set nodX = TreeView1.Nodes.Add("guanliyuan", tvwChild, "null1", "")Set nodX = TreeView1.Nodes.Add("r", tvwChild, "renshirenyuan", "人事部人员")
nodX.Tag = "0"
Set nodX = TreeView1.Nodes.Add("renshirenyuan", tvwChild, "null2", "")Set nodX = TreeView1.Nodes.Add("r", tvwChild, "caiwurenyuan", "财务部人员")
nodX.Tag = "0"
Set nodX = TreeView1.Nodes.Add("caiwurenyuan", tvwChild, "null3", "")
Combo1.AddItem "admi"
Combo1.AddItem "rs01"
Combo1.AddItem "cw01"
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
textlock False
End SubPrivate Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
Dim rs2 As ADODB.Recordset
Dim nodX As Node
On Error GoTo help
If Node.Tag = "0" Then
    If Node.Key = "guanliyuan" Then
        Set rs2 = New Recordset
        rs2.Open "select 用户编号 from 用户表,用户角色表 where 用户角色表.级别编号 =用户表.级别编号 and 用户名称='管理员'", allcnn, adOpenDynamic, adLockPessimistic
        TreeView1.Nodes.Remove Node.Index + 1
        Do While rs2.EOF = False
        Set nodX = TreeView1.Nodes.Add("guanliyuan", tvwChild, rs2!用户编号, rs2!用户编号)
        rs2.MoveNext
        Loop
    End If
    If Node.Key = "renshirenyuan" Then
        Set rs2 = New Recordset
        rs2.Open "select 用户编号 from 用户表,用户角色表 where 用户角色表.级别编号 =用户表.级别编号 and 用户名称='人事部人员'", allcnn, adOpenDynamic, adLockPessimistic
        TreeView1.Nodes.Remove Node.Index + 1
        Do While rs2.EOF = False
        Set nodX = TreeView1.Nodes.Add("renshirenyuan", tvwChild, rs2!用户编号, rs2!用户编号)
        rs2.MoveNext
        Loop
    End If
    If Node.Key = "caiwurenyuan" Then
        Set rs2 = New Recordset
        rs2.Open "select 用户编号 from 用户表,用户角色表 where 用户角色表.级别编号 =用户表.级别编号 and 用户名称='财务部人员'", allcnn, adOpenDynamic, adLockPessimistic
        TreeView1.Nodes.Remove Node.Index + 1
        Do While rs2.EOF = False
        Set nodX = TreeView1.Nodes.Add("caiwurenyuan", tvwChild, rs2!用户编号, rs2!用户编号)
        rs2.MoveNext
        Loop
    End If
    Node.Tag = "1"
End If
Exit Sub
help:
    Resume Next
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim rs As ADODB.Recordset
Nindex = Node.Index
If Node.Key <> "guanliyuan" And Node.Key <> "renshirenyuan" And Node.Key <> "caiwurenyuan" And Node.Key <> "r" Then
    Command2.Enabled = True
    Command3.Enabled = False
    Command4.Enabled = False
Else
    Command2.Enabled = False
End If
Set rs = New ADODB.Recordset
If Node.Key = "r" Then Exit Sub
If Node.Parent.Key = "guanliyuan" Or Node.Parent.Key = "renshirenyuan" _
    Or Node.Parent.Key = "caiwurenyuan" Then
       rs.Open "select * from 用户表 where 用户编号='" + Node.Key + "'", allcnn, adOpenDynamic, adLockPessimistic
       Text1(0).Text = rs!用户编号
       Text1(1).Text = rs!用户姓名
       Text1(2).Text = rs!用户密码
       Combo1.Text = rs!级别编号
       userid = Text1(0).Text
End If
End Sub
Private Sub clearText()
    Text1(0).Text = ""
    Text1(1).Text = ""
    Text1(2).Text = ""
End Sub
Private Sub textlock(a As Boolean)
Text1(0).Enabled = a
Text1(1).Enabled = a
Text1(2).Enabled = a
Combo1.Enabled = a
End Sub

Answer 4

帮你顶----------------------------------
|　　   　　    Ooooo 　            |
|      　　　   (　 ) 　            |
|               ) /　              |
|    　   　　　(_/　               |
|一步一个脚印，努力学习，努力工作！

Answer 5

谁也能给我一个？最好连数据库表里的数据结构都给我了[email protected]

Answer 6

我有一个通讯录
刚好可实现这里多有功能``~~~~~~~~自己编的还不完善
要发个信件给我
BACP·TOM。COM