vb TreeView 控件应用实例.docVIP

vb TreeView 控件应用实例 2009-11-14 20:52 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 NodeSet 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 = mDbBiblio.Name注意，在上面的代码中，在创建 Node 的同时用 Set 语句将其赋给了 mNode 对象变量。由于 mNode 变量现在包含了新创建的 Node 对象，可以对该 Node 对象的属性进行赋值。在上述情况下，Database 的名称（即 Database 对象的 Name 属性）已经被赋给了新节点的 Text 属性。CommandButton Click 事件：创建两个 Recordset 变量，并