|
P>Visual FoxPro For Windows 以
其 面 向 对 象 编 程 和 可 视 编 程 技 术 已 成 为 软 件 开 发 人 员 首 选 的 开 发 工 具 之
一。 它 提 供 的wizstyle.vcr 类 库 中 所 包 含 的 丰 富 的 类, 使 软 件 开 发 更 加 容
易 和 方 便。
Searchclass（ 查 询） 是wizstyle.vcr
类 库 中 的 一 个 类, 也 是 对 数 据 进 行 基 本 操 作 必 不 可 少 的、 最 常 使 用 的 类 之
一， 用 它 生 成 的 查 询 界 面 中， 直 接 用 字 段 名 作 为 查 询 的 提 示 信 息 进 行 查 询，
这 对 最 终 用 户 来 说 是 不 合 适 的， 因 为 最 终 用 户 并 不 能 根 据 字 段 名 来 了 解 字
段 的 真 正 含 义。 对 于 数 据 库 中 的 表，VFP 提 供 了 字 段 描 述 项" 标 题（caption）"，
在 查 询 类 中 可 以 用 数 据 库 中 字 段 的 描 述 项" 标 题" 作 为 查 询 的 提 示 信 息 进
行 查 询。
为 解 决 以 上 问 题， 对 不 同 的 数 据 库
设 计 不 同 的 查 询 界 面 当 然 可 以， 但 事 半 功 倍、 一 劳 永 逸 的 方 法 还 是 修 改 类Searchclass。
修 改 方 法 如 下:
首 先, 进 入 到 项 目 管 理(Project Manager),
选 择Class 页, 展 开wizstyle.vcr 类 库, 找 到searchclass 后 按Modify 按 键
对searchclas 类 进 行 修 改。
先 对cbofieds1 的init 事 件 代 码 进
行 修 改， 修 改 后 的 代 码 及 对 修 改 部 分 的 注 释 如 下:
#DEFINE NUM_AFIELDS 16
LOCAL i, j 增加一个局部变量j
PUBLIC aWizFList , aWizFLista
增加一个全局变量aWizFLista
DIMENSION aWizFList[1]
=AFIELDS(aWizFList)
DIMENSION aWizFLista[1] 定义一个数组
=AFIELDS(aWizFLista) 将当前表的信息赋给数组aWizFLista
j = aWizFLista(1,12) 将当前表的名称赋给j
FOR m.i = FCOUNT() TO 1 STEP -1
以 下 判 断 是 否 存 在 打 开 的 数 据
库， 并 用 数 据 库 中 的 字 段 标 题 替 代 数 组aWizFList 的 第 一 列 字 段 名。 对 于 自
由 表， 因 不 存 在 标 题， 故 仍 使 用 字 段 名。
IF LEN(DBC()) $#@62; 0
aWizFList(m.i,1) = DBGETPROP(j+"."+
aWizFList(m.i,1),"field","caption")
ENDIF
IF INLIST(aWizFList[m.i,2],
"G","M","U") &&Memo field
=ADEL(aWizFList,m.i)
DIMENSION aWizFList[MAX
(1,ALEN(aWizFList,1)-1),N AFIELDS]
=ADEL(aWizFLista,m.i)该两行处理内存型子段
DIMENSION aWizFLista[MAX
(1,ALEN(aWizFLista,1)-1),NUM_AFIELDS]
ENDIF
ENDFOR
THIS.RowSourceType = 5
THIS.RowSource = "aWizFList"
把原来的以字段名为数据源改成了以标题为数据源
THIS.VALUE = THIS.LIST[1]
再将seachclass的seachitem
事件代码的第6句
m.cFldName = ALLTRIM(m.oField.Value)改为
m.cFldName = ALLTRIM(aWizflista
(m.oField.listitemid,1))
完 成 以 上 修 改 后， 存 盘 退 出。
以 上 所 做 的 修 改, 在Windows 95、98 环 境 下,VFP 5.0 、VFP 6.0 中 运
行 正 常， 效 果 很 好。
|
