VB程序学习代码记录20160726

多级树状视图

Dim cnn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim i As Integer, bmjc As Integer
Dim blntj As Boolean
Dim bmbh As String

Private Sub Form_Load()
    Me.Caption = "部门管理"
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\db_manpowerinfo.mdb;persist security info=false"
    tree_add
    tlbState True
    If TreeView1.Nodes.Count > 0 Then TreeView1.Nodes(1).Selected = True
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "ok"
    tlbState True
    If Len(Text1(0)) > 10 Then
        MsgBox "部门编号超长"
        Exit Sub
    End If
    rs1.Open "select * from 部门表", cnn, adOpenKeyset, adLockOptimistic
    rs1.AddNew
    For i = 0 To 6
        rs1.Fields(i) = Text1(i)
    Next i
    rs1.Fields("编码次级") = Len(Text1(0)) / 2
    rs1.Update
    rs1.Close
    If TreeView1.Nodes.Count > 0 Then
        If blntj = True Then
            TreeView1.Nodes.Add TreeView1.SelectedItem.Key, tvwLast, Text1(3), "(" & Text1(1) & ")" & Text1(2), "close&