精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>数据库技术>>Re:关于一个数据集打开问题

主题:Re:关于一个数据集打开问题
发信人: wiseyao(wise)
整理人: soaringbird(2002-10-16 17:21:01), 站内信件
【 在 do_easy 的大作中提到:】
:我经常会遇到打开一个很大数据量的表.
:要等侍几秒,我想用进度条表示找开过程,如果做?
:......
在OnFetchProgress事件中处理,下面是帮助系统中的例子:
procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  Caption := 'Percent complete: ' +
    IntToStr(Trunc(Progress / MaxProgress * 100)) + '%';
  Application.ProcessMessages;
end;


----
 世上无难事,只怕有心人。  

[关闭][返回]