紧急:数据库查询时有个进程条显示进度(100分)

T

tomboy

Unregistered / Unconfirmed
GUEST, unregistred user!
以前没做过,现有一ACCESS表,查询条件很多,速度很慢,现想用进程条来表示
正在查询,不知如何做?望高手指点!(用ADO连接);能不能帮我做个例子?
感激不尽!
 
好象RX有一个DB Progress控件你看一看源码吧
 
以前有过讨论,查一下
 
若是單機很簡單, TGauge放入from,
屬性:
maxvalue:=100;
minvalue:=0;
程序中
var count_now,ffff:integer;
...
count_now:=0;
while not aaa.eof()do
begin
...
Gauge1.progress:=count;
....
count:=count+ffff;
end;
....
用在循環中
先計算記錄數, 再分為100份, 即每份可使Gauge1.progress+1;
 
谢谢各位,我马上试一下,
 
我想你应该知道进行了多少,比如得到了多少记录等等。
要不然没有意义,还不如显示一个对话框,说正在查询。
 
sql查询时,timer 。都没作用用另一个进程
 
如果用Count来做但如何知道SQL语句已经查询到第几条记录呢???
(象Foxfro中一样)
 

既然是查询,RecordCount 未知,所以rixin使用
TGauge(有百分比信息)及循环似乎难以作到.
可以用TProgressBar代替TGauge,仅起一个提示作用
(欺骗观众!)
For Example:
form1.show;
form1.ProgressBar1.position:=25;
form1.ProgressBar1.position:=50;
query1.open;//Lots Of Time
form1.ProgressBar1.position:=60;
form1.ProgressBar1.position:=80;
form1.ProgressBar1.position:=100;
form1.free;



 
遗漏了一点
Gauge1.刷新;
才能出现进度条呢!
 
我的天,你开了5个全文检索的问题?
 
delphi从入门到精通》源码中有这样的例子
 
接受答案了.
 
顶部