我要在DBGrid里面显示一个5万条记录的表,从远程的sql server 2000中获取,需要好长一段时间,form里面有一个progressbar1,一个button1的onclick事件写的是
adotable1.open; 怎样让progressbar1从点击button1到dbgrid里面显示了相关数据这段时间内线是进度?
我问的问题可能有点好笑,因为我不知道progressbar1是依赖什么工作的。
adotable1.open; 怎样让progressbar1从点击button1到dbgrid里面显示了相关数据这段时间内线是进度?
我问的问题可能有点好笑,因为我不知道progressbar1是依赖什么工作的。
解决方案 »
- 数据保存问题 亟待解决 恳求相助
- 请教 array of string 在调用函数中的问题
- 谁有 delphi 大整数运算库程序啊(用字符串实现很大的字符加减乘除),发个给我好吗?急死俺了!!!
- 问题多多啊,不好意思,等"项目"完了,我再结帖!另:如何对查询出的各列进行汇总?谢谢
- zhoutian618(周天)进来拿分,不是的不要进了
- 新手,关于Delphi的开发问题
- 买书配的光盘打不开怎么办呀?(我很着急!在线等候大哥们的帮助!)
- 小弟学程序也有段时间了,对于数据库这一块,一直没有接触,有问题
- Rmb求小批量发送email方案!
- to ghz2000(编程马大哈) (关于硬盘序列号)
- 请问怎样把TBUTTON转换成TOBJECT?
- 新年的第一个问题. 关于DLL的.
ProgressBar1.Position:=已经打开的记录数
ProgressBar1.Position:=已经打开的记录数这一段写在什么地方?
已经打开的记录数如何获取?
procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
ProgressBar1.max:=MaxProgress;
ProgressBar1.Position:=Progress;end;
我是在adotable1的onfetchprogress里面写的。
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
ProgressBar1.max:=MaxProgress;
ProgressBar1.Position:=Progress;
Application.ProcessMessages;end;
即让progress走完以后自动执行一段代码?
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
ProgressBar1.max:=MaxProgress;
ProgressBar1.Position:=Progress;
Application.ProcessMessages;
if MaxProgress=Progress then
DoYourEvent;
end;