能否SQL查询等待提示?? 我BUTTON按一下,泛白,然后结果才出来?? 能否出现查询等待,提示操作人正在查询~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Application.procegress;// 记不清了,反正是P开头的......lable.refresh; Application.procegress;// 记不清了,反正是P开头的...lable.caption := '正在查询 ... 表,请稍等......';...lable.refresh; 你在查询的时候可以吧。 dbgrid的数据源给断开。之后再连上就可以了 新增一个窗体,在窗体上添加TTIMER,TLABLE,lable.caption:='正在查询 ... 表,请稍等......'查询窗体的事件如下procedure TForm1.BitBtn1Click(Sender: TObject);begin ADOQUERY1.Close; ADOQUERY1.sql.clear ADOQUERY1.sql.add('....') Application.CreateForm(TForm2, Form2); form2.ShowModal; ADOQUERY1.Active:=true;end; 或者在FORM2上添加一个TAnimate控件,则更具效果 学会Delphi 要多长时间? 请问这样的功能如何实现?谢谢! TDBedit 的输入框的默认值在选择后默认值消失。。。。。 紧急求助,怎么改?在线急等! 新!!问题:已经存在内存的数据集,怎么样做二次SQL的SELECT 查询。(讨论) 如何可以在窗体的任何一点(除标题栏以外)拖动窗体? 如何选择checklistbox里的值后再行?请进来看。 Bmp与流媒体的问题? 如何使拖盘自动HINT出提示来? 关于ADOQUERY的问题? 【请教】关于DBGrid的问题!在线等! 这个问题不得不提了,想破了我的头,还是解决不了
...
...
lable.refresh;
...
lable.caption := '正在查询 ... 表,请稍等......';
...
lable.refresh;
lable.caption:='正在查询 ... 表,请稍等......'
查询窗体的事件如下
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQUERY1.Close;
ADOQUERY1.sql.clear
ADOQUERY1.sql.add('....')
Application.CreateForm(TForm2, Form2);
form2.ShowModal;
ADOQUERY1.Active:=true;
end;