addtree.bas

采用VB6.0开发,是一个简单的人事管理系统.

Attribute VB_Name = "addTree"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/17
'描    述：企事业单位人事管理系统 Ver 2007
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'公用变量---------------------
Public nod As Node '声明树节点

Public Declare Sub InitCommonControls Lib "comctl32.dll" () 'XP效果


'公用过程
Public Sub addTVW(ByVal TVW As TreeView) '添加树视过程

     Set nod = TVW.Nodes.Add(, , "A", gGsmc, 3)

Call OpenConn
SQL = "select * from 单位设置"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
   If rs!Root = 0 Then
       Set nod = TVW.Nodes.Add("A", tvwChild, "B" & rs!单位名称, rs!部门名称, 1)
   Else
       Set nod = TVW.Nodes.Add("B" & rs!单位名称, tvwChild, "C" & rs!dwid, rs!部门名称, 2, 3)
   End If
   rs.MoveNext
Loop
Call CloseConn
If TVW.Nodes.Count > 0 Then '展开第一级
    TVW.Nodes(1).Expanded = True
End If
End Sub