22.03.2012, 16:09
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids;
type
TQueryThread = class(TThread)
private
procedure DataSource;
protected
procedure Execute; override;
end;
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Query1: TQuery;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TQueryThread.DataSource;
begin
Form1.DataSource1.DataSet:=Form1.Query1;
end;
procedure TQueryThread.Execute;
begin
Form1.Query1.Open;
Synchronize(DataSource);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Query1.DatabaseName:='DBDEMOS';
Query1.SQL.Text:='select * from country.db';
with TQueryThread.Create(True) do
begin
FreeOnTerminate:=True;
Resume;
end;
end;
end.
__________________
Пишу программы за еду.
__________________
|