mdltreeview.bas

来自「visual basic +sql sever2000开发的商品进销存管理系统」· BAS 代码 · 共 71 行

Attribute VB_Name = "mdlTreeView"
Option Explicit

'初始化树形视图
Public Sub InitTvw(ByRef tvw As TreeView)
  Dim ND As Node
  Dim objs As clsGoodsTypes
  Dim i As Long
  
  '添加静态的根节点极其子节点
  Set ND = tvw.Nodes.Add(, , "Root", "特瑞飞进销存管理系统", 1)
  ND.Expanded = True
  Set ND = tvw.Nodes.Add("Root", tvwChild, "AllGoods", "所有入库商品", 1)
  ND.Expanded = True
  
  '查询所有商品类型并动态添加到树形视图
  Set objs = New clsGoodsTypes
  objs.Query
  For i = 1 To objs.Count
      Set ND = tvw.Nodes.Add("AllGoods", tvwChild, "K" & objs.Item(i).ID, objs.Item(i).TypeName, 2)
  Next
End Sub

'初始化主界面树形视图
Public Sub InitTvwEx()
  InitTvw frmMain.TreeView
End Sub

'添加商品类型到树形视图
Public Sub AddTypeToTvw(ByRef obj As clsGoodsType)
  Dim ND As Node
  '要注意同时添加商品类型的ID值和类型名称
  Set ND = frmMain.TreeView.Nodes.Add("AllGoods", tvwChild, "K" & obj.ID, obj.TypeName, 2)
End Sub

'从树形视图删除商品类型
Public Sub DelTypeFromTvw(ByRef tvw As TreeView)
  Dim obj As clsGoodsType
  Dim i As Long
  
  '按照ID值来删除
  For i = 1 To tvw.Nodes.Count
    If tvw.Nodes(i).Key = "K" & obj.ID Then tvw.Nodes.Remove i
  Next
End Sub

'从frmMain的TreeView中删除商品类型
Public Sub DelTypeFromTvwEx()
  DelTypeFromTvw frmMain.TreeView
End Sub

'更新树形视图商品类型
Public Sub UpdateTypeFromTvw(ByRef tvw As TreeView, obj As clsGoodsType)
  Dim i As Long
  
  '按照商品类型ID值与树形视图的节点关键字是否匹配，来检索节点并更新节点文本
  For i = 1 To tvw.Nodes.Count
    If tvw.Nodes(i).Key = "K" & obj.ID Then tvw.Nodes(i).Text = obj.TypeName
  Next
End Sub

'更新frmMain的TreeView中的商品类型
Public Sub UpdateTypeFromTvwEx(obj As clsGoodsType)
  UpdateTypeFromTvw frmMain.TreeView, obj
End Sub

'从树形视图获取选择项目的ID值
Public Function GetIDFromTvw() As Long
  GetIDFromTvw = Mid(frmMain.TreeView.SelectedItem.Key, 2)
End Function