Option Explicit 

Dim I As Integer 
Dim J As Integer 
Dim nodx As Node 
Dim CunZai As Boolean '定義變量 


Private Sub Command1_Click() 
If txt(0).Text <> "" And txt(1).Text <> "" Then '不允許建立零字節的父節點和子節點 
CunZai = False 
J = TreeView1.Nodes.Count 
For I = 1 To TreeView1.Nodes.Count '檢查新輸入的父節點名稱是否存在 
If TreeView1.SelectedItem.Children > 0 Then 
If txt(0).Text = TreeView1.Nodes(I).Text Then CunZai = True 
End If 
Next I 
If CunZai = True Then '若存在, 則在父節點下建立子節點 
Set nodx = TreeView1.Nodes.Add(txt(0).Text, tvwChild, "child" & J, _ 
txt(1).Text, 3) 
Else ',若不存在,則建立父節點和子節點 
Set nodx = TreeView1.Nodes.Add(, , txt(0).Text, txt(0).Text, 1) 
Set nodx = TreeView1.Nodes.Add(txt(0).Text, tvwChild, "child" & J, _ 
txt(1).Text, 3) 
End If 
TreeView1.Refresh 
ElseIf txt(0).Text = "" Then MsgBox "請輸入父節點名稱!", vbInformation, "警告！" 
'系統提示 
ElseIf txt(1).Text = "" Then MsgBox "請輸入子節點名稱!", vbInformation, "警告！" 
End If 
End Sub 

Private Sub Command2_Click() 
For I = 1 To TreeView1.Nodes.Count 
TreeView1.Nodes(I).Expanded = True '展開所有節點 
Next I 
End Sub 

Private Sub Command3_Click() 
For I = 1 To TreeView1.Nodes.Count 
TreeView1.Nodes(I).Expanded = False '收起所有節點 
Next I 
End Sub 

Private Sub Command4_Click() 
TreeView1.Sorted = True '排列順序 
End Sub 

Private Sub Command5_Click() 
If TreeView1.SelectedItem.Index <> 1 Then 
TreeView1.Nodes.Remove TreeView1.SelectedItem.Index '刪除選定的節點 
End If 
End Sub 

Private Sub Command6_Click() 
End '退出程序 
End Sub 

Private Sub Form_Load() 
TreeView1.LineStyle = tvwTreeLines '在兄弟節點和父節點之間顯示線 
TreeView1.ImageList = ImageList1 '鏈接圖像列 
TreeView1.Style = tvwTreelinesPlusMinusPictureText 
'樹狀外觀包含全部元素 
Set nodx = TreeView1.Nodes.Add(, , "aaaaa", "aaaaa", 1) 
'建立名稱為"aaaaa"的父節點,選擇索引為1的圖像 
Set nodx = TreeView1.Nodes.Add("aaaaa", tvwChild, "child01", "收件箱", 3) 
'在"aaaaa"父節點下建立"收件箱"子節點,選擇索引為3的圖像 
Set nodx = TreeView1.Nodes.Add("aaaaa", tvwChild, "child02", "發件箱", 3) 
'在"aaaaa"父節點下建立"發件箱"子節點,選擇索引為3的圖像 
CunZai = False 
End Sub 

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node) 
Node.ExpandedImage = 2 '節點被展開時,選擇索引為2的圖像 
End Sub 

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) 
If TreeView1.SelectedItem.Children = 0 Then '檢查是否有子節點,0為無 
For I = 1 To TreeView1.Nodes.Count 
If TreeView1.Nodes(I).Selected Then 
MsgBox "您選擇的是：“" & TreeView1.Nodes(I).FullPath & "”子節點！" 
'系統提示 
End If 
Next I 
End If 
End Sub




Dim nodX As Nodes
Set nodX = TreeView1.Nodes.Add(, , "X1", "連鎖店管理")
Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "X11", "連鎖店列表")
Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "X12", "添加連鎖店")
Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "X13", "刪除連鎖店")
Set nodX = TreeView1.Nodes.Add(, , "X2", "藥品管理")
Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "X21", "藥品列表")
Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "X22", "添加藥品類型")
Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "X23", "添加藥品")

Set nodX = TreeView1.Nodes.Add(, , "X3", "銷售管理")
Set nodX = TreeView1.Nodes.Add("X3", tvwChild, "X31", "日銷售量管理")
Set nodX = TreeView1.Nodes.Add("X3", tvwChild, "X32", "庫存管理")

Set nodX = TreeView1.Nodes.Add(, , "X4", "日志管理")
Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "X41", "日志列表")
Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "X12", "添加日志")
Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "X13", "刪除日志")


Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If TreeView1.SelectedItem.Key = "連鎖店管理" Then
 ListView1.ListItems.Clear
 Set itemx = ListView1.ListItems.Add(, , "連鎖店列表", 3)
 Set itemx = ListView1.ListItems.Add(, , "添加連鎖店", 4)
 Set itemx = ListView1.ListItems.Add(, , "刪除連鎖店", 5)
End If
If TreeView1.SelectedItem.Key = "藥品管理" Then
 ListView1.ListItems.Clear
 Set itemx = ListView1.ListItems.Add(, , "藥品列表", 6)
 Set itemx = ListView1.ListItems.Add(, , "添加藥品類型", 7)
 Set itemx = ListView1.ListItems.Add(, , "添加藥品", 8)
End If
If TreeView1.SelectedItem.Key = "銷售管理" Then
 ListView1.ListItems.Clear
 Set itemx = ListView1.ListItems.Add(, , "日銷售量管理", 9)
 Set itemx = ListView1.ListItems.Add(, , "庫存管理", 10)
End If
If TreeView1.SelectedItem.Key = "日志管理" Then
 ListView1.ListItems.Clear
 Set itemx = ListView1.ListItems.Add(, , "日志列表", 11)
 Set itemx = ListView1.ListItems.Add(, , "添加日志", 12)
 Set itemx = ListView1.ListItems.Add(, , "刪除日志", 13)
End If
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
 Case "add"
   Add = True
   Load Frm_lsdtj
   Frm_lsdtj.Show 1
 Case "modify"
   DataGrid1_Click
 Case "delete"
   If Adodc1.Recordset.RecordCount > 0 Then
    Adodc1.Recordset.Delete
    Adodc1.Refresh
   Else
    MsgBox "沒有要刪除的數據", "提示信息"
   End If
 Case "find"
   tbl = "User"
   Load Frm_lsd
   Frm_lsd.Show 1
 Case "all"
   Adodc1.RecordSource = "select * from User order by UserId"
   Adodc1.Refresh
 Case "close"
   Unload gst1
 End Select
End Sub