能否帮忙写一个delphi实现多线程式查询的例子

Question

    在公司写了一个数据查询的小程式，因为需要连接多个外地的数据库查询，导致界面老是出现卡死的情况，听说做成线程式可以解决这个问题，哪个大神能否给个例子参考？

Answer 1

补充一下，用的是ado查询oracle，谢谢！

Answer 2

用多线程时如果要访问VCL就只能用独占方式,我也用过多线程但是在操作时还是会象单线程一样不能做其它的事,否则退出就报错.

Answer 3

type   //多线程-------------------
  TMyThread_KHFX= class(TThread)
  protected
    procedure Execute; override;
    procedure checkdh;
  end;
procedure TMyThread_KHFX.checkdh;
begin
  frmTGZX_XSLTODB.CHECK_KHDHSTAT;
end;
procedure TMyThread_KHFX.Execute;
begin
  synchronize(checkdh); //线程独占方式 如果不用synchronize则可在执行线程时做其它操作,但是退出程序就报错!~~
end;
//--------------------------------------------