关于多线程查询数据库及显示的问题(50分)

对大型数据库用QUERY控件进行查询，而且有时间显示。
处理方法：
1。新建一个线程，用于显示时间。

2。再新建一个线程进行查询。
结果：当进行数据库查询时，影响到时间显示，查询结果出来后，时间显示恢复。
疑问： 是线程不对？还是控件query的问题？

何不用timer控件呢
在其中的ontime事件中进行要你所要的查询呢！！！！！

看不到你的代码，不好说是哪里的问题

我的数据库是100万条记录的dbf
查询的时候,整个程序长时间没反应,怎样才能有像processbar的提示?

如果是ADO的话，可以在OnFetchProgress事件中处理，下面是DELPHI中的例子：
procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer;
var EventStatus: TEventStatus);
begin
Caption := 'Percent complete: ' +
IntToStr(Trunc(Progress / MaxProgress * 100)) + '%';
Application.ProcessMessages;
end;