begin jj_kqFrm:=Tjj_kqFrm.Create(self); with dmodule.qry_jj_kq do begin close; open; end; jj_kqFrm.showmodal; end; 这是现在用的代码,在jj_kqFrm显示前大概有五六秒的时间
你可以用select top n ...分页显示。
如下,打开QUERY前,禁止控件刷新. begin jj_kqFrm:=Tjj_kqFrm.Create(self); with dmodule.qry_jj_kq do begin try DisableControls close; open; finally EnableControls end end; jj_kqFrm.showmodal; end;
jj_kqFrm:=Tjj_kqFrm.Create(self);
with dmodule.qry_jj_kq do
begin
close;
open;
end;
jj_kqFrm.showmodal;
end;
这是现在用的代码,在jj_kqFrm显示前大概有五六秒的时间
begin
jj_kqFrm:=Tjj_kqFrm.Create(self);
with dmodule.qry_jj_kq do
begin
try
DisableControls
close;
open;
finally
EnableControls
end
end;
jj_kqFrm.showmodal;
end;
(好象用ado控件可以指定一次返回多少条记录.)
查一查你的query有没有beforeopen;afteropen;beforepost这样子的事件?
p