在子线程中查询数据库为什么主界面会卡住呢

[yezhizi]

constructor TTestThread.create(CreateSuspended: Boolean);
begin
  inherited create(CreateSuspended);
end;

destructor TTestThread.Destroy;
begin

  inherited;
end;

procedure TTestThread.execute;
var
   con1: TADOConnection;
    ADOCommand1: TADOCommand;
begin
  inherited;
  CoInitialize(nil);
  con1 := TADOConnection.Create(nil);
  con1.ConnectionString := 'Provider=SQLOLEDB.1;Password=11;Persist Security Info=True;User ID=sa;Initial Catalog=aa;Data Source=127.0.0.1';
  con1.Connected := True;
  ADOCommand1 := TADOCommand.Create(nil);
  ADOCommand1.Connection := con1;
  ADOCommand1.CommandText := 'SELECT * FROM TESTTBL';
  ADOCommand1.Execute;
  ADOCommand1.Free;
  con1.Close;
  CoUninitialize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  thread:TTestThread;
begin
  thread := TTestThread.create(True);
  thread.FreeOnTerminate := True;
  thread.execute;
  //执行这个后如果查询过程比较长的话整个界面被卡住了
end;

1、创建子线程
2、在子线程中执行查询，但是如果查询过程比较长的话整个界面被卡住了，界面都无法拖拽，为什么呀

如代码所示

[满面尘，鬓如霜，何处话凄凉]

你这哪里是在线程中运行查询， 是在主线程运行查询 覆盖TThread的execute方法。 主线程中不用调用thread.execute;， 调用thread.Resume

[pathletboy]

你线程的使用方法不正确。

[hongss]

引用 1 楼 linuxpingwangping 的回复:

你这哪里是在线程中运行查询， 是在主线程运行查询 覆盖TThread的execute方法。 主线程中不用调用thread.execute;， 调用thread.Resume

[doloopcn]

在执行线程前加一句：application.ProcessMessages

[BlueStorm]

thread.execute 改为 thread.start

[BlueStorm]

另外，ado已经是很古老的东西，性能不好，可以改用UniDac或FireDac之类的。

[lyhoo163]

你的线程使用有问题，通常使用Delphi线程，三步： 一、声明 type TGaugeThread = class(Tthread) protected procedure Execute;override; end; 二、实现 procedure TGaugeThread.Execute; var i: integer; begin ThreadOn:=True; ThreadEnd:=False; FreeOnTerminate:=true; ...... ThreadOn:=False; end; 三、调用 if Not ThreadON then begin ..... MyThread:=TGaugeThread.Create(False); end;

[jjpweb]

引用 1 楼 linuxpingwangping 的回复:

你这哪里是在线程中运行查询， 是在主线程运行查询 覆盖TThread的execute方法。 主线程中不用调用thread.execute;， 调用thread.Resume

[BlueStorm]

如果是delphi XE7及以上的版本，可以用System.Threading的TTask.Run来运行线程, 这样写起来简单多了：
uses System.Threading;
.............................................
procedure TForm1.Button1Click(Sender: TObject);
begin
  TTask.Run(procedure
            var
               con1: TADOConnection;
                ADOCommand1: TADOCommand;
            begin
              inherited;
              CoInitialize(nil);
              con1 := TADOConnection.Create(nil);
              con1.ConnectionString := 'Provider=SQLOLEDB.1;Password=11;Persist Security Info=True;User ID=sa;Initial Catalog=aa;Data Source=127.0.0.1';
              con1.Connected := True;
              ADOCommand1 := TADOCommand.Create(nil);
              ADOCommand1.Connection := con1;
              ADOCommand1.CommandText := 'SELECT * FROM TESTTBL';
              ADOCommand1.Execute;
              ADOCommand1.Free;
              con1.Close;
              CoUninitialize;
            end);
end;

[xiaocongzhi]

唤醒线程Thread.Resume(新版本好像是Start)，别在主线程里调用线程执行函数execute

[lyhoo163]

线程占用时间加大，造成主线程迟缓。