山 西 省 经 济 信 息 中 心 张建 国
山 西 职 工 医 学 院 陈 素 娥

---- 在Powerbuilder 中，当Datawindow 所 显 示 的 数 据 超 过 一 个 数 据 窗 口 时， 常 常 通过 单 击 滚 动 条 控 件 使Datawindow 中 的 内 容 上 下 滚 动， 这 样有 时 带 来 许 多 不 便， 如 从 某 行 开 始 滚 动 到 现 在 过 去 了几 行 或 几 页， 往 上 或 往 下 滚 动 几 行 或 几 页 都 不 好 掌握，Powerbuilder 中 提 供 了 几 种 方 法 可 以 解 决 这 些 问 题， 例如， 按Pageup、Pagedown、 ↑、 ↓。 这 里 主 要 介 绍 通 过 定 义 按钮、 使 用 滚 动 函 数 来 解 决 这 些 问 题。 常 用 的 滚 动 函 数和 语 法

---- 用 户 在 使 用 滚动 条 控 件 使 数 据 滚 动 时， 消 息 的 传 输 由 用 户 单 击 滚 动条 控 件 实 现， 使 用 函 数 和 按 钮 使 数 据 滚 动 时， 消 息 的传 输 由 用 户 单 击 按 钮 实 现。 常 用 的 函 数 如 下：

　　ScrollNextPage()　　滚动到下一页
　　ScrollNextRow()　　 滚动到下一行
　　ScrollPriorPage()　　滚动到前一页
　　ScrollPriorRow()　　滚动到前一行
　　ScrollToRow()　　　 滚动到某一行
语法：
　　Datawindowname. ScrollNextPage()
　　Datawindowname.ScrollNextRow()
　　Datawindowname.ScrollPriorPage()
　　Datawindowname.ScrollPriorRow()
　　Datawindowname.ScrollToRow()

---- 其 中：Datawindowname 为Datawindow 在Powerbuilder 的window 下 的 控 制 名。

---- 如 每 按 一 次 按钮cb_1， 将 数 据 窗 口dw_1 中 的 数 据 往 下 翻 一 页， 在 命 令 按钮cb_1 的click 描 述 中 的 输 入：

---- dw_1. ScrollNextPage()

---- 等 等。

---- 实 例 程 序

---- 1、 建 立 一 个 应用 库ap3.pbl。

---- 2、 在 这 个 应 用库 下 建 立 一 个 应 用ap3。 在 应 用ap3 的script 中 输 入open(testscroll)。

---- ３、 建 立 一 个Datawindow：itemdata（选DataSouece 为QuickSelect,PresentationStyle 为Grid， 数 据 表 为 前 面 提 到的itemdata).

---- 4、 按window 按钮， 新 建window: testscroll。

---- 5、 按window 下Datawindow 图 标， 选 择 新 建 的Datawindow：itemdata， 用 鼠 标 把 它 置 为 适 当大 小； 按OK（ 命 令） 按 钮， 建 立 两 个 命 令 按 钮， 其 控 制名 分 别 为cb_1 和cb_2。

---- ６、 在 按 钮cb_1 上 击 左 键， 选 择name 选 项， 将text 后 的none 修 改 为 下 一 页，击Script 按 钮， 选 择click 事 件， 在 编 辑 框 输 入：

---- dw_1. ScrollNextPage()

---- 同 理， 在 按 钮cb_ ２ 上 击 左 键， 选 择name 选 项， 将text 后 的none 修 改 为 前 一页， 击Script 按 钮， 选 择click 事 件， 在 编 辑 框 输 入：

---- dw_1. ScrollPriorPage()

---- 上 述 工 作 就 绪后， 安RUN 图 标 出 现 所 要 的 屏 幕。 当 你 按 下 一 页 按 钮 时数 据 向 上 滚 动， 当 你 按 前 一 页 按 钮 时， 数 据 向 下 滚动。