在数据窗口中进行行选择操作
2024-07-21 02:06:05
供稿：网友
我 们 在 数 据窗 口 中 需 要 进 行 行 选择 操 作。 如 用 户 为 了 修 改 数 据 或看 到 更 详 细 的 内 容 而 选 择 了 某 一 行； 在 另 一 些 情 况下， 用 户 可 能 要同 时 删 除 或 修 改 多 行， 这 时， 我 们 需要 有 使 用 户 在 一 个 数 据 窗 口 中 同 时 选 择 多 行 的 功 能。这 在powerbuilder 中 是 相 当 容 易 做 到 的， 但 是， 如 果 您 在 一个 数 据 窗 口 祖 先 中 没 有 标 准 的 函 数 来 处 理 这 些， 而 在每 个窗 口 中 重 复 的 编 程， 这 当 然 就 要 麻 烦 多 了。
我 们 首 先 来看 一 看 进 行 行 选 择 的不 同 方 法。
所 有行 都 不 加 亮
数 据 窗 口 的标 准 行 为 是 不 加 亮 任 何 行。 这 当 然 实 现 起 来 很 简 单了， 您 什 么 也 不 需 要 做。 这 种 做 法 对于 那 些 只 允 许 用户 进 行 滚 动 和 查 看 的 数 据 列 表 或 那 些 单 行 的 数 据 窗口 是 合 适 的。
单 行选 择
单 行 选 择 意味 着 用 户 在 同 一 时 间 只 能 选 择 一 行。 在 用 户 选 择 一 行来 执 行 一 些 动 作， 如 删 除 或 是 在主 从 关 系 的 列 表 中 显示 详 细 信 息， 这 是 非 常 有 用 的。 下 面 是 实 现 允 许 单 行选 择 功 能 所 应 编 写 的 代码：
event: rowfocuschanged
if getrow() > 0 then
selectrow( 0, false )
selectrow( getrow(), true )
end if
多 行的 自 动 选 择
多 行 的 自 动选 择 时， 当 用 户 点 击 一 个 未 加 亮 的 行 时， 该 行 将 变亮。 如 果 用 户 点 击 一 个 加 亮 行， 该 行将 不 加 亮。
为 了 实 现 上述 行 为， 您 可 以 将 以 下 的 代 码 放 入rowfocuschanged 事 件 中：
event:rowfocuschanged
event: rowfocuschanged
object: any datawindow
if getrow() > 0 then
if isselected( getrow() ) then
selectrow( getrow(), false )
else
selectrow( getrow(), true )
end if
end if
或者简化成为下面的一行代码：
if getrow() > 0 then selectrow( getrow(), not isselected( getrow()))
按住shift，control或control+shift点击鼠标的使用
windows 的 文 件 管 理 器 或 其 它windows 程 序 中， 您 可以 使 用 按 住shift，control 或control+shift 这 种 键 盘与 鼠 标 的 组 合 来 改 变 选 择 行 为。powerbuilder 在 数 据 窗 口 中没 有 提 供 这 样 的 能 力， 我 们 必 须 自 己 实 现。
我 们 应 当 实 现 的 组 合 功 能 是：
按 下 键
动 作
无
只 加 亮 当 前 行， 将 其 它 行 的 显示 设 为 正 常
control
保 持 其 它 行 的 状 态， 并 将 当 前行 也 加 亮
shift
加 亮 起 始 行 至 当 前 行 之 间 的 所有 行， 将 其 它 行 的 显 示设 为 正 常
control-shift
保 持 其 它 行 的 状 态， 并 加 亮 起始 行 至 当 前 行 之 间 的 所有 行，
建 立 这 样 的 功 能， 我 们 首 先 需要 对 起 始 行 进 行 跟 踪。在 用 户 使 用shift 或control-shift 键时， 系 统 应 当 把 当 前 用 户 用 鼠 标 点 击 或 键 盘 选 中 的 行与 在 此之 前 进 行 操 作 的 起 始 行 之 间 的 所 有 行 全 部 加亮。 因 此， 数 据 窗 口 必 须 记 录 当 前 的 起 始 行。 我 们 声明这 样 一 个 实 例 变 量：
protected long il_anchor_row
当 用 户 点 击 鼠 标 或 进 行 了 键 盘操 作 时， 我 们 要 测 试 用户 是 否 同 时 按 下 了shift 或control 键， 使 用 的 是keydown() 函 数， 检 查 有 没 有keyshift! 和keycontrol!，如有 这 样 的 键 按 下 则 记 录 起 始 行。
编 写行 选 择 函 数
为 了 在 用 户点 击 鼠 标 或 进 行 键 盘 操 作 时 使 上 述 行 为 发 生 作 用， 我们 必 须 在clicked 事 件 和 一 个 映射 到pbm_dwnkey 事 件 的 自 定 义用 户 事 件 中 调 用 我 们 自 己 的 行 选 择 函 数。 这 样， 不 管用 户 是 点 击 鼠标 还 是 击 中 键 盘， 选 择 行 为 都 会 发 生。您 也 可 以 将 这 个 功 能 放 入rowfocuschanged 事 件 中。
为 了 使 这 个 行 选 择 功 能 可 重用， 这 里 我 们 建 立 两 个 函数。 一 个 函 数 设 置 我 们 希 望的 选 择 行 为 类 型， 另 外 一 个 真 正 执 行 该 选 择 行 为。 首先 我 们 使 用 一 个 实例 变 量 来 设 定 选 择 行 为 的 值：
protected integer ii_select_behavior
这 个 变 量 中 将 存 放 下 面 的 一 些值。
可 能 发 生 的 选 择 行 为
值
行 为 0
不 允 许 选 择 行 为 1
只 允 许 有 一 行 选 中 2
自 动 实 现 多 行 选 择 3
允 许 使 用 鼠 标 和 键 盘 组 合 选 择 99
不 允 许 选 择， 将 鼠 标 变 成 手 型如 果 您 使 用 的 是 保 护 变量 或 私 有 变 量， 这 就 意 味 着 本对 象 以 外 的 程 序 无 法 访 问， 因 此 您 必 须 为 其 他 程 序 员建 立 对 这 些 变量 赋 值 和 获 取 这 些 变 量 值 的 函 数。 另外， 您 还 需 要 一 些 函 数 来 执 行 基 于 该 变 量 的 过 程。
函 数：uf_setselect(select_behavior)
我 们 要 写 的 第 一 个 函 数 将 允 许程 序 员 设 置 选 择 行 为。
函 数 : public integer uf_setselect( integer ai_select_behavior)
/* 本 函 数 设 置 数 据 窗 口 的 选 择行 为 值
下 列 为 有 效 的 选 择 行 为 值 */
choose case ai_select_behavior
case 0, 1, 2, 3, 99
ii_select_behavior = ai_select_behavior
// 至 少 一 行 将 被 选 中
if ai_select_behavior = 1 then
uf_process_select( getrow(), "keyboard" )
end if
if ai_select_behavior = 99 then
setrowfocusindicator(hand!)
else
setrowfocusindicator(off!)
end if
return 0
case else
return -1
end choose
函 数：uf_processselect(long al_row, string as_input_type)
一 旦 选 择 类 型 被 设 置， 所 有 的行 都 必 须 被 处 理。 我 把这 部 分 代 码 放 入 一 个 叫 作uf_processselect 的 函 数 中。 这 个 函 数 处 理 选 择 行 为。 您 需 要 告 诉 该函数 您 想 要 处 理 的 行 和 该 请 求 是 通 过 鼠 标 还 是 键 盘 发出 的。 下 面 是 该 函 数：
long l_row
boolean b_reset_anchor
boolean b_keyboard, b_mouse
// 鼠 标 动 作 还 是 键 盘 动 作 ？
if upper(left(as_input_type,1)) = "k" then
b_keyboard = true
else
b_mouse = true
end if
/* 确 认 鼠 标 点 在 了 数 据 窗 口 的 记 录 上 */
if al_row <1 then return 1 /* 是 否 要 确 定 起 始 行 */ b_reset_anchor="true" setredraw(false) /* 有 效 的 操 作 值 0="不" 允 许 选 择 行 为 1="只" 允 许 有 一 行 选 中 2="自" 动 实 现 多 行 选 择 3="允" 许 使 用 鼠 标 和 键 盘 组 合 选 择 99="不" 允 许 选 择， 将 鼠 标 变 成 手 型*/ choose case ii_select_behavior case 0, 99 // 无 case 1 // 单 行 选 中 selectrow(0,false) selectrow(al_row,true) case 2 // 多 行 选 中 if b_mouse then selectrow(al_row, not isselected( al_row )) end if case 3 if keydown(keyshift!) and keydown(keycontrol!) then if il_anchor_row> al_row then
for l_row = il_anchor_row to al_row step -1
this.selectrow(l_row,true)
next
else
for l_row = il_anchor_row to al_row
this.selectrow(l_row,true)
next
end if
elseif keydown(keyshift!) then
selectrow(0,false)
if il_anchor_row > al_row then
for l_row = il_anchor_row to al_row step -1
this.selectrow(l_row,true)
next
else
for l_row = il_anchor_row to al_row
this.selectrow(l_row,true)
next
end if
b_reset_anchor = false
elseif keydown(keycontrol!) then
selectrow( al_row, not isselected( al_row ) )
else
selectrow(0,false)
selectrow(al_row,true)
end if
end choose
setredraw(true)
if b_reset_anchor then il_anchor_row = al_row
return 0
现 在， 当 我们 希 望 执 行 行 选 择 时， 所 要 做 的 全 部 操 作 就 是 调 用uf_processselect() 函 数。 一 般 当用 户 在 一 个 数 据 窗 口 中 点 击 了 鼠 标 或 是按 下 了 上、 下 箭 头 键 时， 调 用 这 个 函 数。 另 外 还 有 捕获home 和end 键 的 代 码。 下 面 是we_keydow 用 户 事 件（ 映 射 到pbm_dwnkey 事 件） 中 的 代 码：
event: we_keydown (pbm_dwnkey)
object: any datawindow
if keydown(keydownarrow!) and getrow() <> rowcount() then
uf_processselect( getrow() + 1 , "keyboard")
elseif keydown(keyuparrow!) and getrow() <> 1 then
uf_processselect( getrow() - 1 , "keyboard")
elseif keydown(keyhome!) and rowcount() > 0 then
uf_processselect( 1, "keyboard")
elseif keydown(keyend!) and rowcount() > 0 then
uf_processselect( rowcount(), "keyboard")
end if
最 后， 我 们 需 要 在clicked 事 件 中 加 入：
uf_processselect(getclickedrow(), "mouse")
在 这 个 祖 先函 数 中 编 写 这 样 一 个 行 选 择 的 函 数 只 是 作 为 一 个 简单 的 实 例， 相 信 您 一 定 能 因 此 收 到启 发， 编 写 出 更 多的 函 数， 以 拓 展 数 据 窗 口 的 基 本 功 能。
