VFP6.0编写完整的应用程序时查询系统往往是不可缺少的重要部分。而开发一个优秀的查询系统需要很多的应用技巧。由于工作原因,笔者经常开发查询系统模块,现将个人编程中总结的一些技巧介绍给大家,希望对读者的应用开发有所帮助。
任务进度条的实现
在查询的过程中,如果数据较多,需要用户等待时,查询系统中应有进度条加以显示,才能使系统更加具有规范性。具体实现方法如下:
1.选择VFP的系统选单“工具”中“选项”条,弹出“选项”窗口,在窗口中点击“ActiveX控件”栏,添加任务进度栏控件Microsoft ProgressBar Control Version5.0(SP2)至ActiveX工具箱中。
2.选定表单控件工具栏中“ActiveX控件”,添加控件Microsoft ProgressBar Control Version6.0至查询的表单Form1中,并设置其属性Max值为1000。
3.将下列代码添加到数据查询程序代码之后:
for i=1 to 1000
for j=1 to 2000
j=j+1
endfor
thisform.olecontrol1.value=i
i=i+1
endfor
messagebox('数据查询完毕,OK!',0+64)
thisform.release
clear events
通过这样的设置,在查询时如果时间较长,查询进度条会为用户显示查询任务的运行情况。
应用宏命令实现组合查询
在组合查询中,需要查询的组合项通常很多,如果每项都使用不同的变量,编程会非常烦琐。笔者使用宏命令轻松实现查询组合条件,具体实现的方法是在查询按钮里加入如下代码:
LOCAL cFilter,nCnt,cCondition
FOR nCnt = 1 to THISFORM.ControlCount
IF TYPE('THISFORM.Controls(nCnt).controlSource') <> "U" THEN
IF !EMPTY(THISFORM.Controls(nCnt).ControlSource) AND ;
TYPE('THISFORM.Controls(nCnt).value') <> "U" THEN cCondition=THIS.Parent.parseCondition(THISFORM.Controls(nCnt).value,THISFORM.Controls(nCnt).controlSource)
IF !EMPTY(cCondition) THEN
cFilter = cFilter + " AND " cCondition
ENDIF
ENDIF
ENDIF
ENDFOR
通过这样的设置,虽然有多个查询条件,但查询的组合条件为cFilter,以后的应用只要对cFilter进行处理即可。
删除查询表中的空记录
使用类查询(_dataquery.vcx)时,会在待查询表中的最后自动插入一条空记录,而在实际的GRID表格显示中,我们是不希望将空记录显示出来的。下面是解决此问题的详细步骤:
1.在主程序或Form对象的Load事件输入以下代码:
SET DELETE ON
2.在查询结束代码后输入以下代码:
Thisform.Refresh
&&&&刷新表单
go bottom
delete next 1
&&&&因为当前表被添加了一个空记录,在实际应用中应删除掉
Thisform.Grid1.Column1.Setfocus
go top
Thisform.grid1.refresh
&&&&删除一条记录后,应及时地刷新GRID表
实现中英文自动切换
在用VFP6.0开发查询系统时,文本框对象和组合框对象应用得较多,在文本框中进行中英文的输入时,来回切换非常烦琐,所以笔者借助自定义子类,来实现中英文输入的自动切换。具体实现的步骤如下:
1.点击VFP6系统选单栏“文件→新建→类”,启动“新类”对话框,填入类名为gsTextBox,并设置父类为TextBox,在“存储于”栏处输入存储的位置和名称,按“确定”键进入类设计器画面。
2.新增一个属性,来作为对象是否启动中文输入法的控制码。通过系统选单栏“类→新建属性...”,启动“新建属性”对话框,设置一些属性,其中可视性设为public。
3.最后设置GotFocus与LostFocus事件过程。Gotfocus Event事件过程如下:
If thischinese
&&&&中英文选择,thischinese为逻辑量
=imestatus(1)
else
=imestatus(0)
endif
Lostfocus Event事件过程如下:
=imestatus(0)
至此,类已经定义完成,以后只要在设计表单时,通过表单控件“工具栏→查看类→添加...”把自定义类加入,并且设置“中英文选择”属性,即可实现中英文输入的自动切换。
实现整条记录突出显示
在用VFP设计一个查询应用系统时,信息的浏览是相当重要的功能之一,通常采用的实现方法是用Grid对象来显示数据信息,但在使用过程中却存在一些不足,就是当使用者在记录之间移动时,只有获得焦点的那条记录的某一字段可以以不同于Grid背景的颜色显示,很不醒目。
笔者利用Grid对象,成功实现了当数据记录移动时,整条记录均用同一种颜色突出显示,即当数据记录移动时,用颜色动态变化显示相对光标所在的位置,设计步骤如下:
首先定义一个Grid对象,并设置好其属性,然后在其AfterRowColChange事件过程中添加如下代码:
LPARAMETERS nColIndex
this.setall("dynamicbackcolor","iif(this.activerow〈〉recn(),rgb(255,255,255),rgb(0,0,255))","column")
利用以上代码,我们就能达到当数据记录移动时,其相对的Row显示动态颜色变化。
在上面的设计中,我们首先使用了SetAll() 方法设定Grid中的Column层次的 DynamicBackColor(动态背景颜色属性),然后在第二个参数中使用了Grid 对象的ActiveRow反映相对的行数,若不等于记录编号时,则通过 RGB(255,255,255) 送出白色背景,若相对行等于记录编号时,则通过 RGB(0,0,255)送出绿色背景色,而该颜色也可自行设定。
用Grid模拟Browse窗口
可以将Grid结合在Form对象中,模拟成一个Browse命令窗口,可以自由调整Form大小,而Grid对象也会自动调整大小。实现方法如下:
1.首先设定一个Form对象,该对象必须保留其BorderStyle为“3-可调边框”,这样可自由调整大小的边线属性,同时设定Resize事件程序如下:
Thisform.Grid1.Width=this.width
Thisform.Grid1.Height=this. Height
2.设计一个Grid对象于Form对象中,并设定其属性如下:
Width=Thisform.Width
Height=Thisform.Height
RecordSource设为目前“数据环境”中所设定的工作区别名;
Top与Left均设为0,表示该对象左上端坐标为0,0。
这样,已经设定好的Grid对象和Browse窗口一样,当对Form对象进行大小调整时,对象的高度与宽度就可以随之调整。
-
vfp教程之VFP查询系统实现技巧六则
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
最新更新
显示/隐藏Excel网格线
用NPOI操作EXCEL--锁定列
组合行、列
用NPOI操作EXCEL--设置密码
用NPOI操作EXCEL--调整表单显示比例
打印相关设置
用NPOI操作EXCEL--插入图片
用NPOI操作EXCEL--画Grid
用NPOI操作EXCEL--画圆形
用NPOI操作EXCEL--画矩形
MySql索引原理与使用大全
Mysql命令大全(完整版)
Mysql常用命令行大全
mysql 索引类型以及创建
mysql命令详解
mysql的下载和命令行简单操作
mysql常用管理命令
MySQL命令大全
mysql命令行登录容易出现的错误
解决mysql的cmd命令错误及2003连接错误
数据类型之对象
数据类型之布尔型、整型、浮点型和字符
php教程之数据类型之数组
php教程之PHP 常量
php教程之变量
php教程之语法
PHP简介与安装
phpMyAdmin配置安装全攻略
PHP是什么
win2003 iis整合php后 环境变量无法读取到