查询过程任务进度条的实现

任务进度条的实现

　　在查询的过程中，如果数据较多，需要用户等待时，查询系统中应有进度条加以显示，才能使系统更加具有规范性。具体实现方法如下：

　　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
e□□□or
thisform.olecontrol1.value=i
i=i+1
e□□□or
messagebox('数据查询完毕，OK！',0+64)
thisform.release
clear events
　　通过这样的设置，在查询时如果时间较长，查询进度条会为用户显示查询任务的运行情况。