PowerBuilder应用开发系列讲座(22)
使用树型视图控件对数据库查询的优化
华天新技术开发公司 张健姿
PowerBuilder5.0 自 去 年5 月 发 布 以
来， 至 今 已 有 一 年 多 了。 但 是 笔 者 却 时 常 看 到 不 少用
户 对5.0 的 新 特 性 缺 乏 了 解， 在 开 发 中 不 能 充 分 的 利 于5.0
的 新 特 性, 或 是 向 笔 者 提 出一 些 属 于 是 不 同 版 本 间 差
异 的 问 题， 其 主 要 原 因 一 方 面 由 于 许 多 有 经 验 的， 较
早 从事 开 发 的 程 序 员 是 从4.0 以 下 开 始 的， 他 们 向 初 学
者 传 授 的 编 程 经 验 较 多 的 以4.0 为主， 而 且 市 场 上 大 多
数 的PowerBuilder 的 技 术 书 籍 也 是 以4.0 为 基 础， 而 另 一 方 面5.0
版 本的 升 级 同 老 版 本 相 比 有 了 许 多 根 本 性 的 改 变， 它
所 新 增 及 扩 充 的 功 能 要 较 以 往 的 版本 升 级 为 多。 从 本
期 起， 我 们 将 陆 续 介 绍 一 些PowerBuilder5.0 的 新 特 性。 5.0 在
窗 口 的 控件 中 增 加 了 几 个 在Windows95 中 新 增 的 控 件， 如 标
签 形 式（Tab Folder）、 树 型 视 图（TreeView）、 列 表 视 图（ListView），
而 且 这 些 控 件 在Windows3.x 的 版 本 中 也 能 正 常 使用， 这 样
就 大 大 丰 富 了 窗 口 的 表 现 形 式， 特 别 是 针 对Windows3.x 平
台。
我 们 首 先 来 介 绍 树 型 视 图 控 件。
树 视 图 控 件 最 适 合 显 示 具 有 层 次 关 系 的 数 据， 在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