改进VFP的Searchclass.VC_常用软件_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

改进VFP的Searchclass.VC

作者：闵涛文章来源：闵涛的学习笔记点击数：734 更新时间：2009/4/24 21:43:27

8a2 使用过中文VFP的朋友都知道利用VFP提供的WIZARDS类库中的searchform.vcx和searchclass.vcx可以创建一个通用查询表单。这个查询非常通用，操作界面也非常简单明了。但是，此表单有一个缺憾，就是此表单的字段对话框就只能显示字段名，如果数据表的字段名为英文时，显示的字段名对操作人员而言就显的不够清楚。我们一般在设计数据库时给每个字段加以中文标题，用于对字段名的详细说明，就像用BROW命令时，就可以用字段标题代替字段名一样，我们也可以通过对searchclass.vcx的修改使其用字段标题代替字段名显示，这样就使得整个界面非常友好。
　　打开WIZARDS类库，选择searchclass.vcx。
　　一、修改cbofield1的init事件
　　在下列语句
　　FOR m.i = FCOUNT() TO 1 STEP －1
IF INLIST(aWizFList[m.i,2],"G","M","U") ＆＆Memo field
=ADEL(aWizFList,m.i)
DIMENSION aWizFList[MAX(1,ALEN(aWizFList,1)－1),NUM_AFIELDS]
　　ENDIF
　　ENDFOR
　　后加上以下程序段:
　　＊获取当前的数据表名
　　tname=alias()
　　＊获取数据库名
　　dname=cursorgetprop(database)
　　set database to (dname)
　　＊获取字段标题
　　for m.i=1 to alen(awizflist,1)
　　fname=tname＋′.′＋awizflist[m.i,1]
　　＊将字段名保存
　　awizflist[m.i,16]=awizflist[m.i,1]
　　if !empty(dname)
　　 fcaption=dbgetprop(fname,′field′,′caption′)
　　＊用字段标题代替字段名
　　 awizflist[m.i,1]=iif(!empty(fcaption),fcaption,awizflist[m.i,1])
　　endif
　　endfor
　　THIS.RowSourceType = 5
　　THIS.RowSource = "aWizFList"
　　THIS.VALUE = THIS.LIST[1,1]
　　将原最后一句THIS.VALUE=THIS.LIST[1]删除
　　二、修改cbofield2的init 事件
　　THIS.RowSourceType = 5
　　THIS.RowSource = "aWizFList"
　　THIS.VALUE = THIS.LIST[1,1]
155

[办公软件]在sybase中插入图片、PDF、文本文件  [办公软件]安装Sybase ASE
[办公软件]linux指令大全(完整篇)  [办公软件]Linux新手入门常用命令大全
[办公软件]在RedHat Linux 9里安装gaim0.80  [办公软件]浅谈Linux 下Java 1.5 汉字方块问题解决方法
[办公软件]Linux程序员必读：中文化与GB18030标准  [办公软件]linux指令大全
[办公软件]制作Linux启动盘的四种方法  [办公软件]Linux文件系统的反删除方法

教程录入：mintao 责任编辑：mintao

上一篇教程：深入了解PowerBuilder的数据窗

下一篇教程： VFP的数据库加密算法

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· 办公软件 · 系统软件
· 常用软件 · 聊天工具

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……