Советы по Delphi. Версия 1.4.3 от 1.1.2001

 SQL.Strings "Select * from employee"

DataSource1

 DataSet ""

DBGrid1

 DataSource DataSource1

Session2

 Active True;

 SessionName "Ses2"

DataBase2

 AliasName "IBLOCAL"

 DatabaseName "DB2"

 SessionName "Ses2"

Query2

 DataBaseName "DB2"

 SessionName "Ses2"

 SQL.Strings "Select * from customer"

DataSource2

 DataSet ""

DBGrid1

 DataSource DataSource2

Обратите внимание на то, что свойство DataSet обоих компонентов TDataSource первоначально никуда не ссылается. Оно устанавливается во время выполнения приложения, и это проиллюстрировано в коде.

unit Unit1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls,Forms, Dialogs,StdCtrls, Grids, DBGrids, DB, DBTables;

type

 TForm1 = class(TForm)

  Session1: TSession;

  Session2: TSession;

  Database1: TDatabase;

  Database2: TDatabase;

  Query1: TQuery;

  Query2: TQuery;

  DataSource1: TDataSource;

  DataSource2: TDataSource;

  DBGrid1: TDBGrid;

  DBGrid2: TDBGrid;

  GoBtn1: TButton;

  procedure GoBtn1Click(Sender: TObject);

 end;

 TQueryThread = class(TThread)

 private

FSession: TSession;

  FDatabase: TDataBase;

  FQuery: TQuery;

  FDatasource: TDatasource;

  FQueryException: Exception;

  procedure ConnectDataSource;

  procedure ShowQryError;

 protected

  procedure Execute; override;

 public

  constructor Create(Session: TSession; DataBase: TDatabase; Query: TQuery; DataSource: TDataSource); virtual;

 end;

var Form1: TForm1;

implementation

constructor TQueryThread.Create(Session: TSession; DataBase: TDatabase; Query: TQuery; Datasource: TDataSource);

begin

 inherited Create(True); // Создаем поток c состоянием suspendend

 FSession := Session;     // подключаем все privat-поля

 FDatabase := DataBase;

 FQuery := Query;

 FDataSource := Datasource;

 FreeOnTerminate := True; // Устанавливаем флаг освобождения потока после его завершения

 Resume;                  // Продолжение выполнения потока

end;

procedure TQueryThread.Execute;

begin

 try

{ Выполняем запрос и подключаем источник данных к компоненту TQuery, вызывая ConnectDataSource из основного потока(для этой цели используем Synchronize)}

  FQuery.Open;

  Synchronize(ConnectDataSource);

 except

{ Ловим исключение (если оно происходит) и его дескриптор в контексте основного потока (для этой цели используемSynchronize). }

  FQueryException := ExceptObject as Exception;

  Synchronize(ShowQryError);

 end;

end;

procedure TQueryThread.ConnectDataSource;

begin

FDataSource.DataSet := FQuery;  // Подключаем DataSource к TQuery

end;

procedure TQueryThread.ShowQryError;

begin

Application.ShowException(FQueryException); // Обрабатываем исключение

end;

procedure RunBackgroundQuery(Session: TSession; DataBase: TDataBase; Query: TQuery; DataSource: TDataSource);

begin

{ Создаем экземпляр TThread с различными параметрами. }