谢谢谁能告诉我用treeview控件怎么编写能修改删除查找增加纪录的系统？

Question

谢谢大家拉 用treeview编写的人事管理系统谁有给我一份 重谢哦
QQ289481818  email:[email protected]

Answer 1

我写的一个类,内容你参考下啊
'=============================
'可以开工程单的TreeView
'从产品的角度
'Write By zcs
'Date 2006-8-4 pm
'www.vhshop.com
'==============================
Public Function MakeOrderRow_NeedProductionInstruction(ByRef TreeView1 As TreeView, ByRef ImageList1 As ImageList)
'Screen.MousePointer = vbHourglass
Dim mNode As Node
Dim OrderMasterRs As New Recordset
Dim ClientRs As New Recordset
Dim OrderRowRs As New Recordset
Dim sql As StringTreeView1.Nodes.Clear
TreeView1.Sorted = True
TreeView1.ImageList = ImageList1
Set mNode = TreeView1.Nodes.Add()
'显示根目录
mNode.text = "CanCreateNoteManufacture"
mNode.Tag = "root"
mNode.Image = "closed"
mNode.ExpandedImage = "open"
mNode.EnsureVisible
Dim intProdIndex As Integer
Dim intClientIndex As Integer
'按客户显示
'ClinentID  CanUseQty:[Sum(CanUseQty]
'ProductName  CanUseQty:[CanUseQty]
sql = "SELECT ClientID,Name,sum(FreeProductionQty) as FreeProductionQty FROM V_OrderRow_Need_ProductionInstruction " & _
    " Group By ClientID,Name "
ClientRs.Open sql, cn, adOpenStatic, adLockReadOnly
Do Until ClientRs.EOF
    'sum(canuseqty)
    Set mNode = TreeView1.Nodes.Add(1, tvwChild)
    mNode.text = "-------CustomerName: " & ClientRs!Name
    mNode.Tag = "Customer" '标识表。
    mNode.Key = ClientRs!ClientID & "Client"
    mNode.Image = "closed"
    mNode.ExpandedImage = "open"
    mNode.EnsureVisible
    intProdIndex = mNode.Index
    sql = "SELECT OrderMasterID,OrderNum,sum(FreeProductionQty) as FreeProductionQty  from V_OrderRow_Need_ProductionInstruction" & _
        " Where ClientID = " & ClientRs!ClientID _
            & " Group By OrderMasterID,OrderNum"
    OrderMasterRs.Open sql, cn, adOpenStatic, adLockReadOnly
    Do Until OrderMasterRs.EOF
        'clientname
        Set mNode = TreeView1.Nodes.Add(intProdIndex, tvwChild)
        mNode.text = "-------PONum: " & OrderMasterRs!OrderNum & "-------CanUseQty: " & OrderMasterRs!FreeProductionQty   '文本。"
        mNode.Key = OrderMasterRs!OrderMasterID & "OrderMasterID" & ClientRs!ClientID & "ClientID"     '唯一的 ID。
        mNode.Tag = "OrderMaster"      '标识表
        mNode.Image = "closed"
        mNode.ExpandedImage = "open"
        intClientIndex = mNode.Index
        sql = "SELECT OrderRowID,OrderMasterID,OrderNum,ProductID,ProductName,FreeProductionQty FROM V_OrderRow_Need_ProductionInstruction " & _
                " WHERE  OrderMasterID=" & OrderMasterRs!OrderMasterID & _
                " AND ClientID=" & ClientRs!ClientID
        OrderRowRs.Open sql, cn, adOpenStatic, adLockReadOnly
        Do Until OrderRowRs.EOF
            Set mNode = TreeView1.Nodes.Add(intClientIndex, tvwChild)
            mNode.text = "-------ProductName:" & OrderRowRs!ProductName & "-------CanUseQty: " & OrderRowRs!FreeProductionQty
            mNode.Key = OrderRowRs!OrderRowID & "OrderRowID"    '唯一的 ID。
            mNode.Tag = "PORow"      '表名。
            mNode.Image = "smallFile"
            OrderRowRs.MoveNext
        Loop
            OrderRowRs.Close
            OrderMasterRs.MoveNext
    Loop
        OrderMasterRs.Close
        ClientRs.MoveNext
Loop
    ClientRs.Close
    Screen.MousePointer = vbDefault
    Exit Function
ErrHandle:
    Screen.MousePointer = vbDefault
End Function