querthrd.pas

来自「关于利用DELPHI来进行企业级方案解决的著作的附书源码」· PAS 代码 · 共 35 行

unit QuerThrd;

interface

uses Classes,DBTables;

type
  TQueryThread=class(TThread)
  private
     fQuery:TQuery;
  protected
     procedure Execute;override;
  public
     constructor Create(Suspended:Boolean;Query:TQuery);
  end;

implementation

constructor  TQueryThread.Create(Suspended:Boolean;Query:TQuery);
begin
     inherited Create(Suspended);
     fQuery:=Query;
     FreeOnTerminate:=True;
end;

procedure  TQueryThread.Execute;
begin
     fQuery.Open;
end;

end.