广 东 省 工 业 设 备 安 装 公司 第 四 分 公 司 信
息 部 程 长 清
---- 在 拥 有 大 量 数据 记
录 的 数 据 库 的 表 中 进 行 有 关 记 录 的 查 询, 如 果 不采 取 一 定 的 技 巧, 那 将 是 非 常 费 时 费 力 的 事 情,
利 用 单行 编 辑 器 和 数 据 窗 口 结 合, 再 进 行 适 当 编 程 就 能 够 实现 数 据 窗 口 中 的 记 录 根 据 你 键 入 的 字
符 而 逐 步 缩 小范 围, 以 方 便 查 询。
---- PowerBuilder 中
的 单行 编 辑 器SingleLineEdit 中 可 以 输 入 字 符， 但 它 没 有 在 输 入过 程 中 作 出 实 时 响 应 的 事 件， 为
了 能 够 对 输 入 的 数 据进 行 实 时 响 应， 我 们 必 须 利 用 其 他 的 对 象 的 事 件， 而窗 口(Window) 的Key 事 件
能 够 对 窗 口 内 的 键 盘 输 入 作 出 实 时响 应， 可 以 利 用 该 事 件 获 取 单 行 编 辑 器 的 内 容， 然 后对 数 据 窗
口 进 行 过 滤， 达 到 实 时 缩 小 查 询 范 围 的 目的。 在 测 试 过 程 中， 发 现 必 须 输 入 下 一 个 字 符 才 能 响应 当
前 的 过 滤， 如： 我 想 将 数 据 窗 口 过 滤 为 左 边 两 个字 符 为'02'， 必 须 输 入'02x', 系 统 才 会 进 行 前 面
的 过 滤。为 了 能 够 真 正 做 到 实 时 响 应， 我 在 窗 口 对 象 中 另 外 定义 了 一 个 用 户 事 件user_reduce, 将
获 取 数 据 和 过 滤 的 代 码写 在 该 事 件 中， 然 后 在Key 事 件 中 写 入 代 码this.postevent("user_reduce"),
由 于postevent() 函 数 将 事 件 加 入 到 事 件 队 列 的 末 尾， 这 样系 统 在 响 应 输 入 的 操 作 以 后 再 进 行 该
事 件 的 处 理， 从而 实 现 了 数 据 窗 口 根 据 用 户 的 输 入 实 时 缩 小 查 询 范围 的 目 的。
---- 具 体 实 现 方 法如
下：
---- 设 数 据 库 中 有一 表
名 为pcode.dbf， 用 于 记 录 材 料 信 息， 其 字 段 描 述 如下：
---- 字 段 描 述 字 段名 字
段 类 型 长 度 格 式
---- 编 号 CODE CHAR
10 XX-XX-XXXX
---- 名 称 NAME
VARCHAR 30
---- 型 号 规 格 MODEL
VARCHAR 28
---- 单 位 UNIT
VARCHAR 10
---- 假 设 你
在Application 的Open 事 件 中 已 经 写 入 连 接 该 数 据 库 的 代 码， 并 已 成 功连 接 数 据 库， 那 么 你 就 可
以 进 行 以 下 的 步 骤：
---- 1、 新 建 一 个 窗口
对 象， 将 它 保 存 为w_search， 在Application 的Open 事 件 中 加 入open(w_search) 代 码， 这 样 就 可
以 打 开 窗 口。
---- 2、 建 立 一
个datawindow，类 型 为Grid, 数 据 来 源 为 数 据 库 中 的pcode.dbf 表， 字 段 全选， 保 存 为dw_see;
---- 3、 在w_search 窗
口中 增 加 两 个 对 象 分 别 为 单 行 编 辑 器sle_1 和 数 据 窗 口dw_1，在dw_1 的 属 性 中 选 择 连 接
的datawindow 为dw_see, 在w_search 的open 事件 中 写 如 下 代 码：
connect using sqlca;
dw_1.settransobject(sqlca)
dw_1.retrieve()
dw_1.setrowfocusindicator(hand!) // 设 置 手 型 行 指 针
---- 3、 鼠 标 单
击w_search 窗 口 的 空 白 处， 单 击 菜 单Declare 下 的User event 菜 单 项， 在 最下 面 的 空 白 栏 中 输
入user_reduce， 按ok 钮 返 回。
---- 4、 鼠 标
在w_search 窗 口 的 空 白 处 单 击 右 键， 选 择 弹 出 菜 单 的script 项 进 入代 码 编 辑 窗， 在user_reduce
事 件 中 输 入 以 下 代 码：
string acode,code_filter
long acount
code_filter = ""
acode = trim(sle_1.text)
if len(acode) > 0 then
acount = len(acode)
code_filter = " left(code," + string(acount) + ") = '" ；
+ acode + "' "
dw_1.setfilter( code_filter)
dw_1.filter()
dw_1.setsort("code A")
dw_1.sort()
end if
---- 5、 在w_search 窗
口的key 事 件 中 输 入 如 下 代 码：
----
this.postevent("user_reduce")
---- 6、 保 存 并 运行。 则
数 据 窗 口 中 的 记 录 会 根 据 你 在 单 行 编 辑 器 中 的输 入 内 容 进 行 动 态 缩 小 范 围。
---- 此 程 序
在PowerBuilder5.0 中 运 行 通 过。
|
