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