wareinfo_treeview.frm

一个企业生产管理系统

        .Visible = True
    End With
    
    ' 当此记录不是最后一条记录时，添加 ListItem 对象。
    ' 为 ListItem 对象的文本使用 Name 字段。
'''    Do While Not rsPublishers.EOF
    For i = 1 To rsPublishers.RecordCount
    intIndex = mNode.Index
        intCounter = intCounter + 1
        prgLoad.Value = intCounter ' 更新进程栏。
        irsold = irscurrent
        'strtemp = CStr(rsPublishers!drawing_no)
        If IsNull(rsPublishers!drawing_no) Then
        rsPublishers!drawing_no = ""
        ElseIf IsNull(rsPublishers!ware_id) Then
         rsPublishers!ware_id = ""
         End If
         If IsNull(rsPublishers!warename) Then
         rsPublishers!warename = ""
        
        End If
        
         Set mNode = tvwdb.Nodes.Add(1, tvwChild, rsPublishers!ware_id, CStr(rsPublishers!ware_id) & CStr(rsPublishers!drawing_no) & "           " & CStr(rsPublishers!warename), "closed")
         
       
        ' 添加节点到 TreeView, 并且设置它的属性。
        
         mNode.Tag = Trim(rsPublishers!warename) ' 标识此表。
         
         
        ' 设置变量 intIndex 到新创建的节点的 Index 属性。
        ' 使用此变量添加子节点对象到现在的节点。
        
      
        rsPublishers.MoveNext   ' 移动到下一个出版商记录。
    
        
'''    Loop
       Next
    ' 隐藏进程栏
    prgLoad.Visible = False
    ' 将状态栏样式设置为标准。
    'sbrDB.Style = sbrNormal
    ' 对出版商节点进行排序。
    tvwdb.Nodes(1).Sorted = True
    ' 扩展顶节点。
    tvwdb.Nodes(1).Expanded = True
    rsPublishers.Close
End Sub

Private Sub Comnn_Click()
tvwdb.Nodes.Clear
     Dim rsfilt As New ADODB.Recordset
   If Text1(0).Text <> "" Then
'   strtemp = "ware_id like '" & Text1(0).Text & " ' or drawing_no like '" & Text1(0).Text & "'  Or warename Like '" & Text1(0).Text '
  Dim i As Integer
  Dim intIndex  As Integer
  Dim intCounter As Integer
  Dim irscurrent As Integer
  Dim irsold As Integer
  Dim j As Integer
  Dim strcn As String
  
  strtemp = "like "
  strtmp = Text1(0).Text
  strtmp = "%" & strtmp & "%"
  strtemp = strtemp & "'" & strtmp & "'"
   strcn = str & " and ( ware_id  " & strtemp & " or " & "warename " & strtemp & " or " & "drawing_no " & strtemp & ")"
   strcn = strcn & "ORDER BY wareinfo.ware_id"
          With tvwdb
        .Sorted = True
        Set mNode = .Nodes.Add()
        .LabelEdit = False
        .LineStyle = tvwRootLines
        End With
        With mNode ' Add first node.
        .Text = "总仓库"
        .Tag = "WARE"
        .Image = "closed"
    End With
'   rsfilt.Open str, cn, adOpenStatic, adLockBatchOptimistic
       With rsfilt
        .Open strcn, cn, adOpenStatic, adLockOptimistic
        ' 移动到记录尾部获得记录号，然后返回。
     On Error GoTo Err
     .MoveLast
 
        .MoveFirst
'        If Not rsPublishers.EOF Then
'        irscurrent = CInt(Len(rsPublishers.Fields(1)))
'        Else
'        GoTo errer
'        End If



        
    End With
    ' 将进程栏设置为最大，并且使它可视。
    With prgLoad
        .Max = rsfilt.RecordCount
        .Visible = True
    End With
    
    ' 当此记录不是最后一条记录时，添加 ListItem 对象。
    ' 为 ListItem 对象的文本使用 Name 字段。
'''    Do While Not rsPublishers.EOF
    For i = 1 To rsfilt.RecordCount
    intIndex = mNode.Index
        intCounter = intCounter + 1
        prgLoad.Value = intCounter ' 更新进程栏。
        irsold = irscurrent
        'strtemp = CStr(rsPublishers!drawing_no)
        If IsNull(rsfilt!drawing_no) Then
        rsfilt!drawing_no = ""
        ElseIf IsNull(rsfilt!ware_id) Then
         rsfilt!ware_id = ""
         End If
         If IsNull(rsfilt!warename) Then
         rsfilt!warename = ""
        
        End If
        
         Set mNode = tvwdb.Nodes.Add(1, tvwChild, rsfilt!ware_id, CStr(rsfilt!ware_id) & CStr(rsfilt!drawing_no) & "           " & CStr(rsfilt!warename), "closed")
         
       
        ' 添加节点到 TreeView, 并且设置它的属性。
        
         mNode.Tag = "product" ' 标识此表。
         
         
        ' 设置变量 intIndex 到新创建的节点的 Index 属性。
        ' 使用此变量添加子节点对象到现在的节点。
        
      
        rsfilt.MoveNext   ' 移动到下一个出版商记录。
    
        
'''    Loop
       Next
    ' 隐藏进程栏
    prgLoad.Visible = False
    ' 将状态栏样式设置为标准。
    'sbrDB.Style = sbrNormal
    ' 对出版商节点进行排序。
    tvwdb.Nodes(1).Sorted = True
    ' 扩展顶节点。
    tvwdb.Nodes(1).Expanded = True
   End If
   Text1(0).Text = ""
Err:
If MsgBox("没有找到符合条件的记录", vbDefaultButton1, "错误") = vbOK Then
Exit Sub
Unload Me
End If
End Sub

Private Sub Form_Load()
On Error GoTo errFind

    Set cn = New ADODB.Connection
    ' ConnectionString 包含数据库路径。如果
    ' Biblio.mdb 不存在与您的机器上，您可以在 MSDN CD 上查找。

    With cn
        .ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=warehouse;"
        .Open
    End With
'
    ' Configure cmbView control.
'    With cmbView
'        .AddItem "Icon View"         ' 0
'        .AddItem "SmallIcon View"    ' 1
'        .AddItem "List View"         ' 2
'        .AddItem "Report View"       ' 3
'        .ListIndex = 3
'    End With

    ' Configure ListView control.
 '   lvwDB.View = lvwReport
        
    ' Configure TreeView
''''''''''    With tvwdb
''''''''''        .Sorted = True
''''''''''        Set mNode = .Nodes.Add()
''''''''''        .LabelEdit = False
''''''''''        .LineStyle = tvwRootLines
''''''''''    End With
'''''''''
'''''''''    With mNode ' Add first node.
'''''''''        .Text = "总仓库"
'''''''''        .Tag = "WARE"
'''''''''        .Image = "closed"
'''''''''    End With
   ' frmTreeview.Show
    cmdLoad_Click
  
    
  'Form_Resize
 Exit Sub
    ' 如果 Biblio 数据库不能被找到，打开
    ' 公用对话框控件让用户来查找它。
errFind:
    
'    If Err = -2147467259 Then
'        Set cn = Nothing
'        Set cn = New ADODB.Connection
'        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & FindBiblio
'        cn.Open
'        Resume Next
'    ElseIf Err <> 0 Then ' 其他的错误
'        MsgBox "不期望的错误: " & Err.Description
'        End
'    End If
End Sub






Private Sub Form_Resize()
'    On Error Resume Next
'    frmTreeview.Move 100, 100, Me.ScaleWidth - 200, Me.ScaleHeight - 200
'   frmTreeview.RightMargin = frmTreeview.Width - 400
End Sub







Private Sub Send_Click()
addware.txtFields(0).Text = strright
addware.Text1.Text = strwarename
Unload Me
End Sub

Private Sub Tab1_Click()
tvwdb.Nodes.Clear
cmdLoad_Click
End Sub

Private Sub tvwdb_NodeClick(ByVal node As MSComctlLib.node)
strright = Left(node.Key, 7)
strright = strright
strwarename = node.Tag
End Sub