TreeView 控件应用实例将 TreeView 绑定到 Biblio.mdb 数据库

TreeView 控件应用实例:将 TreeView 绑定到 Biblio.mdb 数据库

应用示例:DataTree.vbp
本章的代码示例是从应用示例 DataTree.vbp which is listed in the Samples directory中得到的.

可将数据库中的数据绑定到 TreeView 控件.下面的示例将 TreeView 控件绑定到 Biblio 数据库.该数据库可以在 Visual Basic CD 中找到.该应用实例将 Publishers 表作为树节点的第一层.如果一个出版商对应于一个或多个书名.则这些书名将作为该出版商的子节点加入树中.

图 2.42 与数据绑定的 TreeVew 控件

下面的代码用到了如下对象:
Data Access Object Library(3.5)

名为[frmDataTree"的 Form 对象

名为[tvwDB"的 TreeView 控件

名为[cmdLoad"的 CommandButton 控件
将 Biblio.mdb 数据库绑定到 TreeView 控件
在工程中添加对 数据访问对象(DAO 3.0)的引用.

为 Database 和 Node 对象创建模块级的变量.
在 Form Load 事件中.用 OpenDatabase 语句将 Database 对象变量设置为 Biblio 数据库.

用 Nodes 集合的 Add 方法创建顶层的节点对象.
在 CommandButton 的 Click 事件中.创建两个 Recordset 变量.并将它们设置为 Publishers 和 Titles 表.

用[Do Until"语句为表中的每个出版商创建一个 Node 对象.

对每个出版商.在 Titles 记录集中检查匹配的 PubID 字段,为每个匹配项添加一个子节点.
在工程中添加对数据访问对象(DAO 3.5)的引用
要将数据库绑定到 TreeView 控件.必须先添加对当前版本的数据访问对象(DAO)的引用.

为 Database 对象和 Node 对象创建模块级的变量
由于需要在一个会话中多次访问 Biblio.mdb 数据库.如果创建一个模块级的 Database 对象.保持一个打开数据库.将有助于提高效率.此后.不需要打开数据库即可访问它.在窗体的声明部分.键入如下内容:

Private mDbBiblio As Database

如果希望该数据库还可被其它模块使用.可以用 Public 语句.并重命名该变量.以表明它是全局的.例如 gDbBiblio.

在创建 Node 对象时.在 Set 语句中(如下所示)使用 Node 类型的变量.

Dim TempNode As Node
Set TempNode = tvwDB.Nodes.Add()

虽然可以在添加 Node 对象时创建变量.更有效的方式是声明一个模块级的 Node 对象变量.并用它创建所有的 Node 对象.在上述声明部分再键入:

Private mNode As Node

用 OpenDatabase 语句将 Database 对象变量设置为 Biblio 数据库
Form 对象的 Load 事件中可以初始化 Database 变量.代码如下:

Set mDbBiblio = DBEngine.OpenDatabase("BIBLIO.MDB")

在成功地初始化 Database 对象变量后.就可以在该模块的代码中的任何位置自由地访问它了.

Form Load 事件:用 Nodes 集合的 Add 方法创建顶层的 Node 对象
至此.Database 对象变量已经被初始化为 Biblio 数据库.现在可以创建树中的第一个节点.并将打开的数据库的

名称赋予它.首先必须用 Node 集合的 Add 方法创建第一个 Node 对象.还要使用 Set 语句将其赋给 mNode 对象变量.如下所示:

Set mNode = tvwDB.Nodes.Add() ＇ 创建第一个节点.
mNode.Text = https://www.wendangku.net/doc/2415132773.html,

注意.在上面的代码中.在创建 Node 的同时用 Set 语句将其赋给了 mNode 对象变量.由于 mNode 变量现在包含了新创建的 Node 对象.可以对该 Node 对象的属性进行赋值.在上述情况下.Database 的名称(即 Database 对象的 Name 属性)已经被赋给了新节点的 Text 属性.

CommandButton Click 事件:创建两个 Recordset 变量.并将它们分别设置为 Publishers 和 Titles 表
本应用实例假定存在名为[cmdLoad"的按钮.并且当用户单击它时.置入 Biblio 数据库中的两个表到 TreeView 控件中.为此.必须首先在该按钮的 Click 事件中声明两个 DAO 对象变量.第一个变量 rsPublishers 用来包含 Publishers 表.第二个变量 rsTitles 用来包含 Titles 表.下面的代码声明了这两个变量.并用 OpenRecordSet 方法将表赋给变量:

Dim rsPublishers As Recordset
Dim rsTitles As Recordset

Set rsPublishers = mDbBiblio. ＿
OpenRecordset("Publishers". dbOpenDynaset)
Set rsTitles = mDbBiblio. ＿
OpenRecordset("titles". dbOpenDynaset)

用 Do Until 语句为表中的每个出版商创建一个 Node 对象
现在有两个打开的记录集.可以遍历每个记录集.创建 Node 对象.并为该对象的 Text 属性赋予合适的值.首先.必须遍历 Publishers 表.并为该表中的每个出版商创建一个 Node 对象.

下列简化了的代码可以用一句话概括为.[逐个处理每个记录.直到记录集的末尾:创建 Node 变量.并将 Title 字段的值赋给其 Text 属性.移到下一记录并重复":

Do Until rsPublishers.EOF
Set mNode = tvwDB.Nodes.Add(1. tvwChild)
mNode.Text = rsPublishers!Name
rsPublishers.MoveNext
Loop

注意.在上面的 Add 方法中用了两个参数.第一个参数(1)是我们希望添加入节点的 Node 的 Index 属性.也就是说.希望所有的出版商节点成为第一个(根)节点(在 Form 的 Load 事件中创建的)的子节点.第二个参数使用了常数 (tvwChild).该常数指定新的 Node 将成为编号为[1"的 Node 的子节点.

对每个出版商.在 Titles 记录集中检查匹配的 PubID 字段,为每个匹配项添加一个子节点
上面的代码将 Publishers 表的内容作为第一层填入 TreeView 中.然而.我们还希望能够进入更深一层.为每个出版商节点增加子节点.每个子节点代表该出版商印刷的一本书.

为了做到这一点.如果有了对新创建的出版商节点 (mNode) 的引用.只要遍历 Titles 记录集.并检查每条记录的 PubID 字段即可.如果该字段与 Publishers 记录集中的 PubID 字段相匹配.则该书是由当前的出版商出版的.但是.在能够为 mNode 添加节点之前.还必须先将 mNode 的 Index 属性赋给一

个变量 (intIndex).如下所示:

intIndex = mNode.Index

然后就可以在 Add 方法中使用该变量了.Add 方法需要用来加入子节点的 Node 对象的 Index 属性:

Set mNode = tvwDB.Nodes.Add(intIndex. tvwChild)

如下简化的代码可被表述为[直到 Recordset 的结尾:创建子 Node 对象.并将 Title 字段的值赋给它的 Text 属性,移动到下一记录并重复上述操作":

Do Until rsTitles.EOF
If rsPublishers!PubID = rsTitles!PubID Then
Set mNode = tvwDB.Nodes.Add(intIndex. tvwChild)
mNode.Text = rsTitles!Title ＇Text 属性.
End If
Loop

完成代码
上面的代码显示了用两个相关的表填成一个表的基本策略.全部代码如下:

＇必须设置对 DAO 3.5 的引用.
＇在声明部分.声明模块级的对象变量:
Private mDbBiblio As Database
Private mNode As Node

Private Sub Form＿Load()
＇在 Form＿Load 事件中.设置对象变量.
＇并创建 TreeView 控件的第一个 Node 对象.

Set mDbBiblio = DBEngine.Workspaces(0). ＿
OpenDatabase("BIBLIO.MDB")

tvwDB.Sorted = True
Set mNode = tvwDB.Nodes.Add()
mNode.Text = "Publishers"
mNode.Tag = https://www.wendangku.net/doc/2415132773.html, ＇设置 Tag 属性.
mNode.Image = "closed" ＇设置 Image
＇属性
End Sub
Private Sub cmdLoad＿Click()
＇声明 DAO 对象变量.
＇并将记录集赋予它们.
Dim rsPublishers As Recordset
Dim rsTitles As Recordset
Set rsPublishers = mDbBiblio. ＿
OpenRecordset("Publishers". dbOpenDynaset)
Set rsTitles = mDbBiblio. ＿
OpenRecordset("titles". dbOpenDynaset)

＇移到第一条记录.
rsPublishers.MoveFirst

Dim intIndex As Integer ＇用于索引的变量.

＇直到最后一条记录 (EOF):添加一个 Node 对象.
＇并用 Name 字段作为新
＇Node 对象的文本.
Do Until rsPublishers.EOF
Set mNode = tvwDB.Nodes.Add(1. tvwChild)
mNode.Text = rsPublishers!Name
mNode.Tag = "Publisher" ＇Tag 标识该表.
＇为 Key 赋予唯一的 ID
mNode.Key = CInt(rsPublishers!PubID) ＆ " ID"
＇将变量 intIndex 设置为新创建 Node 的 Index 属性.
＇用该变量将子 Node 对象加入当前 Node.
intIndex = mNode.Index
＇对这条记录.在 Title 表中查找与 Titles 记录集
＇中出现相同 PubID 的记录.如果找到这样的记录.
＇则在 TreeView 控件中加入 Node 对象.并将用所
＇找到记录的 Title. ISBN 和 Author 字段为新
＇Node 对象的属性赋值.
Do Until rsTitles.EOF
If rsPublishers!PubID = rsTitles!PubID Then
Set mNode = tvwDB.Nodes. ＿
Add(intIndex. tvwChild)
mNode.Text = rsTitles!Title ＇文本.
mNode.Key = rsTitles!ISBN ＇唯一的 ID.
mNode.Tag = "Authors" ＇表名.
mNode.Image = "leaf" ＇图象.
End If
rsTitles.MoveNext ＇Titles 中 的下一条记录.
Loop
＇将 rsTitles 重新设置为 Titles 的第一条记录.
rsTitles.MoveFirst
＇移动到下一条 Publisher 记录.
rsPublishers.MoveNext
Loop
End Sub

增加代码
使用 SQL 语句创建较小的[Titles"记录

集.可以对这个示例加以改进.下面的代码创建只包含相同 PubID 值的记录的记录集:

Set rsTitles = mDbBiblio.OpenRecordset ＿
("select ＊ from Titles Where PubID = " ＆ ＿
rsPublishers!PubID)

然后该代码就只需对较小的记录集进行循环.因而效率比较高.修改后的代码如下:

Private Sub cmdLoad＿Click()
Dim rsPublishers As Recordset
Dim rsTitles As Recordset
Set rsPublishers = mDbBiblio. ＿
OpenRecordset("Publishers". dbOpenDynaset)
Dim intIndex
Do Until rsPublishers.EOF
Set mNode = tvwDB.Nodes.Add(1. tvwChild)
mNode.Text = rsPublishers!Name
mNode.Tag = "Publisher" ＇标识表.
mNode.Key = rsPublishers!PubID ＆ " ID"
mNode.Image = "closed"
intIndex = mNode.Index
＇对这条记录.使用查询创建 Title 表的记录集.
＇查询条件是所有包含相同 PubID 的记录.对结果记录集中
＇的每一条记录.在 TreeView 控件中加入一个 Node 对象.
＇并用记录的 Title. ISBN 和 Author 字段为新
＇Node 对象的属性赋值.
Set rsTitles = mDbBiblio.OpenRecordset ＿
("select ＊ from Titles Where PubID = " ＆ ＿
rsPublishers!PubID)
Do Until rsTitles.EOF
Set mNode = tvwDB.Nodes. ＿
Add(intIndex. tvwChild)
mNode.Text = rsTitles!TITLE ＇文本.
mNode.Key = rsTitles!ISBN ＇唯一的 ID.
mNode.Tag = "Authors" ＇表名.
mNode.Image = "smlBook" ＇图象.
＇移动到 rsTitles 中的下一个记录.
rsTitles.MoveNext
Loop
＇移动到下一个 Publishers 记录.
rsPublishers.MoveNext
Loop
End Sub