PowerBuilder应用开发系列讲座(30)


在数据窗口中使用滚动条

   在 数 据 窗 口 中, 我 们 总 不 可 避 免 要 使 用 到 滚 动 条。 在 缺 省 状 态 下, 当 用 户 点 击 垂 直 滚 动 条 时, 当 前 的 数 据 窗 口 滚 动 显 示 一 页 或 一 行 新 内 容, 可 是 有 时 我 们 希 望 在 用 户 点 击 滚 动 条 时, 系 统 有 另 外 的 响 应。 在 数 据 窗 口 的 事 件 中, 全 局 变 量message 中wordparm 属 性 指 示 了 是 何 种 滚 动 类 型 导 致 了 这 个 事 件 的 发 生。

WordParm 的 值 垂 直 滚 动 类 型
0 行 向 上 滚 动
1 行 向 下 滚 动
2 页 向 上 滚 动
3 页 向 下 滚 动
4 竖 直 移 动

   通 过 判 断 这 些 滚 动 类 型, 我 们 就 可 以 改 变 它 的 缺 省 动 作, 手 工 对 滚 动 方 式 进 行 控 制。 例 如 在 某 些 情 况 下, 我 们 希 望 用 户 点 击 滚 动 条 时, 记 录 能 够 一 行 一 行 的 滚 动。 下 列 的 代 码 可 以 在tabular、freeform 和grid 表 现 形 式 的 数 据 窗 口 中, 实 现 这 样 的 功 能。 在数据窗口的OTHER事件中: integer li_wordparm li_wordparm = Message.WordParm if Message.Number = 277 then if li_wordparm = 1 or li_wordparm = 3 then //捕捉行向下滚动和页向下滚动的事件, 使屏幕向下滚动一条记录,并将数据窗口 //的聚焦向下移动一行 dw_1.ScrollToRow( dw_1.GetRow() + 1) elseif li_wordparm = 0 or li_wordparm = 2 then //捕捉行向下滚动和页向下滚动的事件, 使屏幕向下滚动一条记录,并将数据窗口 //的聚焦向上移动一行 dw_1.ScrollToRow(dw_1.GetRow() - 1) else RETURN end if //避免缺省的数据窗口的滚屏行为 Message.Processed=TRUE end if    在 开 发 过 程 中, 我 们 可 能 会 大 量 的 使 用Master/Detail 形 式 的 数 据 窗 口 来 表 现 数 据。 所 谓Master/Detail 风 格 就 是 在 一 个 窗 口 中 有 两 个 数 据 窗 口 组 成 主 表 和 细 目 表, 分 别 显 示 数 据 库 中 的 两 张 相 关 联 的 表, 这 一 格 式 可 用 于 展 现 给 定 事 物 的 两 套 数 据 的 关 系。

   使 用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 均 滚 回 到 初 始 的 位 置, 因 而 无 法 得 到 正 确 的 结 果。 如 何 解 决 这 个 问 题 呢 ? 有 兴 趣 的 读 者 可 以 简 单 思 考 一 下, 我 们 将 在 下 期 对 这 一 问 题 进 行 进 一 步 的 讨 论。