如何实现等待ADOQUERY查询时间中显示请等待窗体？(10分)

如何实现等待ADOQUERY查询时间中显示请等待窗体？

比如！我要从数据库服务器查询所有的数据显示到GRID中，查询过程中也许
会很慢，我如何实现在用户等待查询过程中实现显示一个FORM窗体等待画面的功能
呢？

如果把数据显示出来都很慢的话，那你的程序肯定有问题了！可以分页显示呀!

試試這樣吧﹕
var AForm :TWaitForm;
with TADOQuery.Create(nil) do
try
AForm := TWaitForm.Create(nil);
AForm.Show;
AForm.Update //不可少
********** //處理查詢
Open;
**********
fianlly
Free;
end;
Good luck

最方便的办法：
在查询语句之前加 Screen.cursor:=crSQLWait;
在查询语句之后加 Screen.cursor:=crDefault;

在OPEN前加FORM.CREATE,FORM.SHOW,REPAINT,OPEN完后记得FREE

ok