修改VisualFoxPro类库实现按标
- ·以假乱真 Linux中实现Vista界面
·利用VB6.0实现五线谱作曲工具
·Max粒子系统轻松实现群蝶飞舞
·轻松实现电脑一分为二:Betwin
·让Excel 2007实现双面打印的两种另类
·用VC实现小型矢量图形系统的开发(上)
·ASP.NET系统用户权限设计与实现
·盗QQ的密码软件模拟实现(VC)
·洪水攻击原理及代码实现全攻略
·Java运行时多态性的实现
Searchclass（ 查 询） 是wizstyle.vcr 类 库 中 的 一 个 类, 也 是 对 数 据 进 行 基 本 操 作 必 不 可 少 的、 最 常 使 用 的 类 之 一， 用 它 生 成 的 查 询 界 面 中， 直 接 用 字 段 名 作 为 查 询 的 提 示 信 息 进 行 查 询， 这 对 最 终 用 户 来 说 是 不 合 适 的， 因 为 最 终 用 户 并 不 能 根 据 字 段 名 来 了 解 字 段 的 真 正 含 义。 对 于 数 据 库 中 的 表，VFP 提 供 了 字 段 描 述 项" 标 题（caption）"， 在 查 询 类 中 可 以 用 数 据 库 中 字 段 的 描 述 项" 标 题" 作 为 查 询 的 提 示 信 息 进 行 查 询。
为 解 决 以 上 问 题， 对 不 同 的 数 据 库 设 计 不 同 的 查 询 界 面 当 然 可 以， 但 事 半 功 倍、 一 劳 永 逸 的 方 法 还 是 修 改 类Searchclass。
修 改 方 法 如 下:
首 先, 进 入 到 项 目 管 理(Project Manager), 选 择Class 页, 展 开wizstyle.vcr 类 库, 找 到searchclass 后 按Modify 按 键 对searchclas 类 进 行 修 改。
先 对cbofieds1 的init 事 件 代 码 进 行 修 改， 修 改 后 的 代 码 及 对 修 改 部 分 的 注 释 如 下:
#DEFINE NUM_AFIELDS 16LOCAL i, j 增加一个局部变量jPUBLIC aWizFList , aWizFLista 增加一个全局变量aWizFListaDIMENSION aWizFList[1]=AFIELDS(aWizFList)DIMENSION aWizFLista[1] 定义一个数组=AFIELDS(aWizFLista) 将当前表的信息赋给数组aWizFListaj = aWizFLista(1,12) 将当前表的名称赋给jFOR 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")ENDIFIF 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]ENDIFENDFORTHIS.RowSourceType = 5THIS.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 中 运 行 正 常， 效 果 很 好。
进入讨论组讨论。- 最新文章
- VFP5.0中的一个错误[01-08]
- VFP编程的雕虫小技[01-08]
- 让注册表记住VFP应用程序的使用次数[01-08]
- 恢复丢失了的FPT文件[01-08]
- VFP的数据库加密算法[01-08]
- 节目播出通知单生成系统[01-08]
- 相关文章
