form2.frm

来自「mo2.4+vb开发的一个小的地理信息系统」· FRM 代码 · 共 88 行

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmquery 
   BackColor       =   &H80000003&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查询窗口"
   ClientHeight    =   4080
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3705
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4080
   ScaleWidth      =   3705
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdok 
      BackColor       =   &H0080C0FF&
      Caption         =   "ok"
      Height          =   375
      Left            =   2160
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3480
      Width           =   1215
   End
   Begin MSComctlLib.TreeView TreeView1 
      Height          =   3015
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3375
      _ExtentX        =   5953
      _ExtentY        =   5318
      _Version        =   393217
      Style           =   7
      HotTracking     =   -1  'True
      BorderStyle     =   1
      Appearance      =   1
   End
End
Attribute VB_Name = "frmquery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdOK_Click()
'卸载 本窗体frmquery

Unload frmquery
End Sub

Private Sub Form_Load()



Dim fld As MapObjects2.Field  '定义一个字段变量
Dim recnode As Node '定义一个行接点
Dim larnode As Node '定义一个层接点
Dim furnode As Node '定义一个值接点
'定义三个整形变量 用于确定没个接点的id
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = 1: j = 1: k = 1

Do While Not recs.EOF  '判断记录集指正是否到达最后一行
 Set recnode = TreeView1.Nodes.Add(, tvwFirst, "record " & j, "record" & j) '产生一个父新接点
 recnode.Expanded = True '使接点可以扩张
 
 For Each fld In recs.Fields ' 提取一行中的值，作为一个接点
  '产生一个新接点
 Set larnode = TreeView1.Nodes.Add(recnode, tvwChild, fld.Name & i & j, fld.Name & i & j)
 '使接点可以扩张
 larnode.Expanded = True
 '产生一个新接点
 Set furnode = TreeView1.Nodes.Add(larnode, tvwChild, fld.Name & k & i & j, fld.ValueAsString)
 
 i = i + 1: k = k + 1
 Next fld
recs.MoveNext '将指正下移一行
j = j + 1
Loop
End Sub