任務(wù)進(jìn)度條的實(shí)現(xiàn)

　　在查詢的過程中，如果數(shù)據(jù)較多，需要用戶等待時，查詢系統(tǒng)中應(yīng)有進(jìn)度條加以顯示，才能使系統(tǒng)更加具有規(guī)范性。具體實(shí)現(xiàn)方法如下：

　　1.選擇VFP的系統(tǒng)選單“工具”中“選項(xiàng)”條，彈出“選項(xiàng)”窗口，在窗口中點(diǎn)擊“ActiveX控件”欄，添加任務(wù)進(jìn)度欄控件Microsoft ProgressBar Control Version5.0（SP2）至ActiveX工具箱中。

　　2.選定表單控件工具欄中“ActiveX控件”，添加控件Microsoft ProgressBar Control Version6.0至查詢的表單Form1中，并設(shè)置其屬性Max值為1000。

　　3.將下列代碼添加到數(shù)據(jù)查詢程序代碼之后：

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('數(shù)據(jù)查詢完畢，OK！',0+64)
thisform.release
clear events
　　通過這樣的設(shè)置，在查詢時如果時間較長，查詢進(jìn)度條會為用戶顯示查詢?nèi)蝿?wù)的運(yùn)行情況。