delphi多线程操作数据库

uses
  System.Classes, Data.DB, Data.Win.ADODB;

type
  TDatabaseThread = class(TThread)
  private
    FConnection: TADOConnection;
    FQuery: TADOQuery;
    procedure ExecuteQuery;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean); override;
    destructor Destroy; override;
  end;

constructor TDatabaseThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FConnection := TADOConnection.Create(nil);
  FQuery := TADOQuery.Create(nil);
  FQuery.Connection := FConnection;
end;

destructor TDatabaseThread.Destroy;
begin
  FQuery.Free;
  FConnection.Free;
  inherited;
end;

procedure TDatabaseThread.Execute;
begin
  inherited;
  ExecuteQuery;
end;

procedure TDatabaseThread.ExecuteQuery;
begin
  FConnection.Open;
  try
    FQuery.SQL.Text := 'SELECT * FROM SomeTable';
    FQuery.Open;
    // 处理查询结果
  finally
    FConnection.Close;
  end;
end;