后一页
前一页
回目录
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

后一页
前一页