PowerBuilder应用开发系列讲座(30)
在 数 据 窗 口 中, 我 们 总 不 可 避 免 要 使 用 到 滚 动 条。 在 缺 省 状 态 下, 当 用 户 点 击 垂 直 滚 动 条 时, 当 前 的 数 据 窗 口 滚 动 显 示 一 页 或 一 行 新 内 容, 可 是 有 时 我 们 希 望 在 用 户 点 击 滚 动 条 时, 系 统 有 另 外 的 响 应。 在 数 据 窗 口 的 事 件 中, 全 局 变 量message 中wordparm 属 性 指 示 了 是 何 种 滚 动 类 型 导 致 了 这 个 事 件 的 发 生。
WordParm 的 值 | 垂 直 滚 动 类 型 |
0 | 行 向 上 滚 动 |
1 | 行 向 下 滚 动 |
2 | 页 向 上 滚 动 |
3 | 页 向 下 滚 动 |
4 | 竖 直 移 动 |
通 过 判 断 这 些 滚 动 类 型, 我 们 就 可 以 改 变 它 的 缺
省 动 作, 手 工 对 滚 动 方 式 进 行 控 制。 例 如 在 某 些 情 况 下,
我 们 希 望 用 户 点 击 滚 动 条 时, 记 录 能 够 一 行 一 行 的 滚 动。
下 列 的 代 码 可 以 在tabular、freeform 和grid 表 现 形 式 的 数 据 窗
口 中, 实 现 这 样 的 功 能。
使 用Master/Detail 形 式 的 一 种 可 能 性 是 使 两 个 数 据 窗 口 显 示 同 一 套 数 据, 其 中Master 的 数 据 用 于 浏 览, 不 能 修 改, 而Detail 的 数 据 窗 口 显 示 的 是 与Master 窗 口 的 相 关 的 更 为 详 细 的 信 息, 是 可 以 修 改 的。 这 时 您 希 望 用 户 只 能 够 滚 动Master 窗 口, 同 时 使Detail 窗 口 显 示 响 应 的 信 息, 而 不 希 望 用 户 能 够 使 用 滚 动 条 来 滚 动Detail 数 据 窗 口, 翻 看 无 关 的 信 息。
下 面 的 代 码 就 是 用 于 避 免 用 户 滚 动Detail 数 据 窗 口, 翻 看 到 其 它 行 的 记 录。
事 件 名 称:Keypressed
描 述:Keypressed 为 一 个 用 户 自 定 义 事 件, 在 数 据 窗 口 控 件 的Script 画 笔 中 定 义, 它 的 事 件 编 号 为pbm_dwnkey, 当 用 户 有 按 键 操 作 时 触 发。
Script: IF (KeyDown(keytab!)) OR (KeyDown(keyEnter!)) OR (KeyDown(keyDownArrow!)) & OR (KeyDown(KeyUpArrow!)) OR (KeyDown(KeyPageDown!)) OR & KeyDown(KeyPageUp!)) & THEN This.SetRedraw(False)
// 当 用 户 按 下 上 述 键 时, 系 统 将 不 与 响 应, 避 免
数 据 窗 口 自 动 进 行 相 应 的 操 作
END IF
在 上 面 的 的 事 件 中, 我 们 使 用 了SetReDraw() 函 数, 这 将 阻 塞 用 户 对 数 据 窗 口 诸 如 更 新 等 操 作, 我 们 必 须 在 下 列 事 件 中 取 消 用 户 对 数 据 窗 口 进 行 正 常 操 作 的 阻 塞。
事 件 名 称: RowFocusChanged Script: This.ScrollToRow(myrow) //myrow是一个实例变量,它的值是这个数据窗口当前应当显示的记录数 This.SetRedraw(True) // 允 许 对 数 据 窗 口 进 行 操 作 事 件 名 称:ItemFocusChanged Script: This.SetRedraw(True) //允许用户在同一条记录内进行水平滚动
在 有 些 情 况 下, 我 们 会 使Master 和Detail 两 个 数 据 窗 口 显 示 相 同 的 内 容, 我 们 可 以 使 用ShareData() 函 数 令Detail 数 据 窗 口 共 享Master 窗 口 的 数 据, 如 何 在 使 用 滚 动 条 滚 动 其 中 的 一 个 窗 口 时, 另 一 个 窗 口 能 够 同 步 进 行 滚 动 呢 ? 如 果 您 没 有 对Master 数 据 窗 口 使 用"Retrieve as Needed" 选 项, 这 一 个 功 能 的 实 现 是 十 分 简 单 的。
假 设Master 数 据 窗 口 名 称 为dw_1, 对 其SCROLLVERTICAL 事 件 编 程 如 下:
integer vmax_1, vpos_1,vmax_2, vpos_2 string r_code decimal vmax_1_percent vmax_1 = integer(dw_1.describe("datawindow.verticalscrollmaximum")) vpos_1 =integer(dw_1.describe("datawindow.verticalscrollposition")) vmax_2 = integer(dw_2.describe("datawindow.verticalscrollmaximum")) vmax_1_percent = vpos_1 / vmax_1 vpos_2 = vmax_1_percent * vmax_2 r_code = dw_2.modify("datawindow.verticalscrollposition="+string(vpos_2)) // 检 验 是 否 修 改 成 功 if r_code <> "" then beep(6) mle_1.text = "dw_1scroll = "+r_code+" vpos_2 = "+string(vpos_2) // 在scrollvertical 事 件 中 无 法 使 用MessageBox 弹 出 错 误 信 息 框 end if Detail数据窗口名称[qu1]为dw_2,对其SCROLLVERTICAL事件编程如下: integer vmax_1, vpos_1,vmax_2, vpos_2 string r_code decimal vmax_2_percent vmax_2 = integer(dw_2.describe("datawindow.verticalscrollmaximum")) vpos_2 = integer(dw_2.describe("datawindow.verticalscrollposition")) vmax_1 =integer(dw_1.describe("datawindow.verticalscrollmaximum")) vmax_2_percent = vpos_2 / vmax_2 vpos_1 = vmax_2_percent * vmax_1 r_code = dw_1.modify("datawindow.verticalscrollposition="+string(vpos_1)) // 检 验 是 否 修 改 成 功 if r_code <> ""then beep(6) mle_1.text = "dw_1 mod "+r_code end if
谈 到 这 里, 我 们 又 要 引 入 一 个 新 话 题, 这 就 是 在 某 些 事 件 中 避 免 使 用MessageBox 的 问 题:
当 用 户 进 行 的 错 误 操 作 时, 我 们 应 当 在 屏 幕 上 弹 出 一 个 提 示 框, 警 告 发 生 的 错 误 或 提 示 将 要 发 生 的 事 情, 以 引 起 用 户 的 注 意; 有 些 程 序 员 也 喜 欢 在 调 试 程 序 时, 使 用MessageBox 函 数 显 示 当 前 的 系 统 状 态。 可 是 在PowerBuilder 的 某 些 改 变 控 件 聚 焦 的 事 件 中, 系 统 是 无 法 显 示 信 息 框 的, 我 们 必 须 使 用response 类 型 的 窗 口 来 取 代 信 息 框: 在 这 些 事 件 中 使 用POST 方 式 调 用 一 个 新 事 件, 在 新 事 件 中 打 开 这 个response 窗 口。
某 些 窗 口 控 件( 包 括 按 钮 在 内) 是 由 于 聚 焦 的 改 变 而 捕 获 鼠 标 的, 在 这 些 控 件 的 某 些 事 件 中 应 避 免 使 用MessageBox 函 数 的。 这 些 事 件 包 括 这 样 几 类:
1. 事 件 名 称:
Modified GetFocus LoseFocus ItemFocusChanged Activate Deactivate
不 能 使 用 的 原 因: 由 于 聚 焦 的 改 变 而 导 致 循 环。
2. 事 件 名 称:
ScrollVertical ScrollHorizontal ScrollBar 对 象
不 能 使 用 的 原 因:MessageBox 将 导 致 消 息 队 列 的 过 载, 不 要 在 任 何 卷 滚 的 事 件 中 使 用MessageBox 函 数。
3. 事 件 名 称:
ReSize
不 能 使 用 的 原 因: 当 用 户 点 击MessageBox 的OK 框 后, 父 窗 口 将 重 新 获 得 聚 焦, 并 再 次 触 发resize 事 件, 弹 出 另 外 的 一 个MessageBox, 这 将 导 致 无 穷 循 环。
4. 事 件 名 称:
Open (Response 窗 口)
不 能 使 用 的 原 因: 这 将 在 打 开 窗 口 时 同 时 有 多 个 窗 口 模 板, 从 而 导 致 了 不 可 预 料 的 结 果。
此 外,MessageBox 还 将 触 发Activate 或Deactivate 事 件。 因 此 有 些 情 况 下, 您 可 以 将 信 息 写 在 窗 口 的 标 题、 微 帮 助 上, 或 是 使 用 单 行 编 辑 器, 使 用Beep() 函 数 有 时 也 可 以 达 到 指 示 作 用, 而 不 必 须 非 使 用MessageBox 不 可。
我 们 言 归 正 传, 当Master 数 据 窗 口 没 有 使 用"Retrieve as Needed" 选 项 时, 上 面 的 代 码 就 可 以 得 到 满 意 的 结 果, 而 如 果 您 为 了 得 到 更 快 的 响 应 速 度 而 使 用 了"Retrieve as Needed" 时, 结 果 就 没 有 这 么 简 单 了。 在 用 户 点 击dw_2 的 滚 动 条 使 之 滚 动 到 最 下 部 时, 因 数 据 窗 口 已 将 数 据 显 示 到 了 最 后 一 条, 这 就 触 发dw_1 从 后 台 数 据 库 中 攫 取 新 的 数 据, 这 样 当dw_1 数 据 窗 口 中 有 了 新 数 据, 系 统 会 自 动 发 出 消 息, 使 共 享 数 据 的dw_2 复 位, 滚 回 到 最 初 的 位 置。 这 样 将 触 发 了dw_2 的scrollvertical 事 件, 使dw_2 和dw_1 均 滚 回 到 初 始 的 位 置, 因 而 无 法 得 到 正 确 的 结 果。 如 何 解 决 这 个 问 题 呢 ? 有 兴 趣 的 读 者 可 以 简 单 思 考 一 下, 我 们 将 在 下 期 对 这 一 问 题 进 行 进 一 步 的 讨 论。