我 们 首 先 来介 绍 树 型 视 图 控 件。

       树 视 图 控 件最 适 合 显 示 具 有 层 次 关 系 的 数 据， 在Windows95 中 文 件 和文 件 夹（ 子 目 录） 之 间 的 关 系 就 是 用 树 型 视 图 来 表 现的。 在 数 据 库 中 树 型 视 图 是 一 个 管 理 大 量 数 据 的 一 个好 方 法， 因 为 用 户 只 需 简 单 地 点 击 鼠 标 就 可 以 选 择 自己 需 要 的 数 据。

       当 我 们 对 数据 的 表 现 有 以 下 要 求 时， 我 们 可 首 先 考 虑 使 用 树 型 视图 控 件：

       * 显 示 层 次 结构 中 元 素 之 间 的 关 系
       * 元 素 在 层 次 结 构 之 间 漫 游（ 元素 间 的 拷 贝、 移 动 等）
       * 描 述 每 个 元 素 相 关 信 息
       * 将 大 量 数 据 检 索 的 过 程 划 分 为若 干 步 骤， 只 表 现 其 中 需 要 的 部 分

       例 如 在PowerBuilder5.0 所 包 含 的 例 子Example50 中， 就 有 适 用 于 树 型 列 表 的 形 式来 表 现 的 实 例： 在 公 司 的 业 务 部 门 中 有 若 干 名 业 务员， 他 们 每 个 人 分 别 掌 握 着 一 定 数 量 的 客 户， 这 些 客户 都 曾 经 同 本 公 司 签 订 了 一 些 合 同， 每 份 合 同 中 又 包括 有 向 公 司 订 购 的 不 同 的 产 品。 因 此 我 们 需 要 表 现 这些 信 息 中 这 样 的 层 次 关 系： 业 务 员---> 客 户---> 合 同---> 产 品。 又 如 一 个 新 闻 单 位 下 属 了 几 个 不 同 的 部 门， 每个 部 门 有 若 干 记 者， 每 个 记 者 在 不 同 时 期 又 完 成 了 一定 数 量 的 稿 件。 当 这 个 新 闻 单 位 的 主 编 审 稿 或 统 计 记者 工 作 业 绩 时， 也 可 以 采 用 树 型 视 图 的 形 式 表 现 部 门---> 记 者---> 稿 件 的 层 次 信 息。

       对 树 型 视 图的 编 程 是 窗 口 中 较 为 复 杂 的 部 分， 它 无 法 象 数 据 窗 口那 样 使 用 一 条Retrieve() 函 数 就 可 以 将 数 据 表 现 出 来。 在PowerBuilder 中 树 型 视 图 控 件 包 括 了 树 型 视 图(TreeView) 和 树 型 视 图 项(TreeViewItem) 两 个 对 象。 其 中 树 型 视 图 对 象 可 以 在 窗 口 画 笔 中 通 过点 击 鼠 标 的 方 式 创 建， 而 树 型 视 图 项 则 必 须 通 过 编 程来 声 明 及 定 义 它 们 的 属 性。

       当 您 在 窗 口画 笔 中 用 鼠 标 在 窗 口 上 放 置 了 一 个 树 型 视 图 的 控 件，这 表 明 您 将

       认 可 将 在 窗口 的 这 个 位 置 采 用 树 型 视 图 来 表 现 一 些 信 息；

       您 可 以 通 过设 置 这 个 控 件 的 属 性 确 定 这 个 控 件 是 否 可 见， 是 否 显示 连 线 等 基 本 属 性。

       而 这 时 运 行这 个 窗 口， 您 看 到 的 只 是 这 个 树 型 控 件 的 空 架 子， 其中 没 有 任 何 数 据。

       树 型 控 件 的每 一 个 数 据 项 都 是 一 个TreeViewItem， 而 这 些 树 型 视 图 项 您只 能 在 程 序 中 逐 项 加 入。 一 般 来 讲， 当 数 据 量 很 小 而且 数 据 间 没 有 复 杂 的 关 系 时， 可 以 在 树 型 视 图 创 建 时就 使 用 预 先 直 接 把 各 项 加 入 到 树 视 图 中 。 而 数 据 较多 时， 则 根 据 需 要 来 制 定 树 视 图， 不 要 制 定 整 个 树 视图 控 件 的 每 一 层 的 每 一 项， 而 是 将 用 户 检 索 数 据 的 过程 划 分 为 若 干 步 骤。 只 是 在 用 户 打 开 一 个 具 体 的 树 视图 项 时， 才 根 据 用 户 的 需 要 检 索 数 据。

       在 根 据 需 要制 定 时， 你 可 以 在 某 一 项 被 选 中 时 制 定 该 项 的 下 一层， 也 可 以 在 某 一 项 被 选 中 时 制 定 该 项 的 下 两 层。 第二 种 方 法 可 以 保 证 打 开 按 钮 与 数 据 同 步。

       将 树 型 视 图项 加 入 到 树 视 图 中 的 方 法 是 使 用InsertItem() 系 列 函 数 中的 一 种， 其 中：
       InsertItemFirst() 将 加 入 项 作 为 第 一 个子 项；
       InsertItemLast() 将 加 入 项 作 为 最 后 一个 子 项；
       InsertItem() 将 加 入 项 放 在 指 定 的 子项 后 面；
       InsertItemSort() 按 排 序 的 顺 序 放 置 加入 项。
       * 记 住 表 示 层 次 结 构 中 的 根 节 点的 句 柄 为0。
       在 制 定 树 型 视 图 控 件 时， 主 要使 用 的 事 件 有：
       *ItemPopulate（ 只 有 在 选 中 的 项 第 一次 被 打 开 时 才 被 激 活； 然 后 再 打 开 该 项 时 这 个 事 件 不再 被 激 活 ）
       * ItemExpanding
       * ItemExpanded

       在 关 闭 树 型视 图 的 下 一 层 数 据 时， 下 列 事 件 发 生：

       * ItemCollapsing
       * ItemCollapsed

       请 注 意ItemPopulate 这 一 事 件 发 生 的 特 点。 如 果 数 据 是 静 态 的， 我 们 只 须使 用ItemPopulate 事 件， 对 树 型 视 图 控 件 中 的 每 一 项 制 定 一次 就 可 以 了。 如 果 数 据 是 动 态 的， 那 么 在 每 一 个 数 据项 被 打 开 时 我 们 都 要 刷 新 它。 仅 使 用ItemPopulate 事 件 就 不能 满 足 需 要 了， 还 必 须 使 用 其 它 四 个 事 件 的 组 合： 用一 个 打 开 事 件 制 定 被 选 择 项 的 下 层 数 据。 用 一 个 关 闭事 件 删 除 被 选 择 项 的 下 层 数 据。 下 次 再 打 开 这 项 时，还 要 重 新 制 定 它。

       例1： 下 面 的例 子 制 定 一 个 简 单 树 视 图 控 件 的 前 两 层， 该 树 视 图 控件 用 于 显 示 一 个CD 集 的 类 别， 歌 手 以 及 唱 片。 在Constructor 事 件 中 编 写 脚 本。 用 一 个DataStore 搜 集 数 据。 代 码 在DataStore 中 循 环， 每 个 循 环 一 行， 用 类 别 号 和 类 别 名 字 制 定 树视 图 的 第 一 层。 在 显 示 歌 手 号 时 ， 制 定 第 二 层。
　

Integer  li_rowcount, li_row, li_current_categoryid,
li_last_categoryid, li_current_artistid, li_last_artistid
TreeViewItem	ltvi_level_one, ltvi_level_two
DataStore	lds_data
Long  ll_handle_level_one, ll_handle_level_two
lds_data = CREATE datastore
lds_data.DataObject = "d_category_artist_albums"
lds_data.SetTransObject(SQLCA)
li_rowcount = lds_data.Retrieve()



//在DataStore循环以定制TreeView的数据项
FOR li_row=1 TO li_rowcount
li_current_categoryid = Integer(lds_data.Object.category_id[li_row])
li_current_artistid = Integer(lds_data.Object.artist_id[li_row])
IF IsNull(li_current_artistid) THEN li_current_artist = 0
IF li_current_categoryid <> li_last_categoryid THEN
//定制树型视图的第一级，当歌手的编号有效时设置其下一层的属性
ltvi_level_one.label = String(lds_data.Object.category_name[li_row])
ltvi_level_one.data = li_current_categoryid
ltvi_level_one.pictureindex = 1
ltvi_level_one.selectedpictureindex = 2
ltvi_level_one.children = (li_current_artistid>0)
ll_handle_level_one = This.InsertItemLast(0,ltvi_level_one)
END IF
IF li_current_artistid <> li_last_artistid THEN
IF li_current_artistid>0 THEN
	ltvi_level_two.label = String(li_current_artistid)
	ltvi_level_two.pictureindex = 3
	ltvi_level_two.selectedpictureindex = 3
	ltvi_level_two.data = li_current_artistid
	ltvi_level_two.children = true
	ll_handle_level_two = This.InsertItemLast(ll_handle_level_one,ltvi_level_two)
END IF
END IF
li_last_categoryid = li_current_categoryid
li_last_artistid = li_current_artistid
NEXT