【实验名称】VB6控件TreeView的使用

【实验原理】在FormLoad事件的时候，以TreeView中显示数据库中数据表的结构信息。

【实验步骤】

1.使用sql Server2000数据库建立两个数据表：

CREATE TABLE [地区信息] (

[系统ID] [int] IDENTITY (1,1) NOT NULL,

[地区名称] [char] (20) COLLATE Chinese_PRC_CI_AS NULL,

[地区ID] [char] (20) COLLATE Chinese_PRC_CI_AS NULL

) ON [PRIMARY]

GO

CREATE TABLE [城市信息] (

[系统ID] [int] IDENTITY (1,

[城市名称] [char] (20) COLLATE Chinese_PRC_CI_AS NULL,

[地区ID] [char] (20) COLLATE Chinese_PRC_CI_AS NULL

) ON [PRIMARY]

GO

[地区信息]

1 华北地区@H_301_207@ DT01@H_301_207@

2 华东地区@H_301_207@ DT02@H_301_207@

3 华中地区@H_301_207@ DT03@H_301_207@

[城市信息]

1 青岛@H_301_207@ DT02@H_301_207@ @H_301_207@

2 北京@H_301_207@ DT01@H_301_207@

3 河北@H_301_207@ DT01@H_301_207@

4 济南@H_301_207@ DT02@H_301_207@

5 郑州@H_301_207@ DT03@H_301_207@

6 杭州@H_301_207@ DT04@H_301_207@

7 上海@H_301_207@ DT04@H_301_207@ @H_301_207@

8 广州@H_301_207@ DT04@H_301_207@

3.VB6建立标志的EXE工程，Ctrl+T，部件中加入：Microsoft Windows Common Control6.0（SP6）。

4.在窗体上添加一个TreeView控件，命名为tvwDiQu；一个ImageList控件，名称保留为ImageList1.初始化ImageList1，添加三张图片（右击—>属性）。

5．在FormLoad事件中加入如下代码：

Public rsDiQu As ADODB.Recordset Public rsChengShi As ADODB.Recordset Private Sub Form_Load() tvwDiQu.LineStyle = tvwTreeLines tvwDiQu.ImageList = ImageList1 tvwDiQu.Style = tvwTreelinesPlusMinusPictureText Dim nodx As Node Set rsDiQu = New ADODB.Recordset Set rsChengShi = New ADODB.Recordset UnlockDatabase '打开一个到<a href="/tag/sql/" target="_blank" class="keywords">sql</a> Server2000的连接Cn rsDiQu.Open "select 地区<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a>,地区ID from 地区信息",Cn '地区信息 If rsDiQu.RecordCount > 0 Then rsDiQu.MoveFirst Do While Not rsDiQu.EOF If rsChengShi.State = adStateOpen Then '由于要重复使用rsChengShi，所以<a href="/tag/guanbi/" target="_blank" class="keywords">关闭</a>再打开 rsChengShi.Close End If rsChengShi.Open "select * from 城市信息 where 地区ID='" + Trim(rsDiQu.Fields("地区ID")) + "' ",Cn '每个城市有地区ID，依次选出地区所<a href="/tag/baokuo/" target="_blank" class="keywords">包括</a>的城市 'Trim<a href="/tag/hanshu/" target="_blank" class="keywords">函数</a>很重要，没有会报错。 Set nodx = tvwDiQu.Nodes.Add(,Trim(rsDiQu.Fields("地区<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a>")),rsDiQu.Fields("地区<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a>"),1) '<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>地区（父）节点 If rsChengShi.RecordCount > 0 Then Do While Not rsChengShi.EOF 'Debug.Print rsChengShi.Fields("城市<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a>") Set nodx = tvwDiQu.Nodes.Add(Trim(rsDiQu.Fields("地区<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a>")),tvwChild,rsChengShi.Fields("城市<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a>"),3) '遍历城市，<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>城市（子）节点 rsChengShi.MoveNext Loop End If 'If rsChengShi.RecordCount > 0 rsDiQu.MoveNext '<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>下一个地区及其<a href="/tag/baokuo/" target="_blank" class="keywords">包括</a>的城市 Loop End If 'If rsDiQu.RecordCount > 0 DestroyRs rsDiQu DestroyRs rsChengShi End Sub

6.运行，双击父节点打开或关闭子节点。效果图如下：