{ **** UBPFD *********** by delphibase.endimus.com ****
>> Модуль, содержащий несколько удобств для работы с MSSQL посредством ADO

Зависимости: Windows, Classes, SysUtils, ADODB, ADOInt, ActiveX, Controls, Variants, ComObj
Автор: Delirium, Master_BRAIN@beep.ru, ICQ:118395746, Москва
Copyright: Delirium
Дата: 30 апреля 2002 г.
***************************************************** }

unit ThADO;

interface

uses Windows, Classes, SysUtils, ADODB, ADOInt, ActiveX, Controls, Variants,
ComObj;

type
// Процедура для передачи событий
TThreadADOQueryOnAfterWork = procedure(AHandle: THandle; RecordSet:
_RecordSet; Active: Boolean) of object;
// Вспомогательный класс
TThADOQuery = class(TThread)
private
ADOQuery: TADOQuery;
FAfterWork: TThreadADOQueryOnAfterWork;

protected
procedure DoWork;
procedure Execute; override;

public
constructor Create;

published
property OnAfterWork: TThreadADOQueryOnAfterWork read FAfterWork write
FAfterWork;
end;
// Класс для асинхронного получения информации посредством ADO
TThreadADOQuery = class(TObject)
private
FAfterWork: TThreadADOQueryOnAfterWork;
FActive: Boolean;
FQuery: TThADOQuery;
FHandle: THandle;

protected
procedure AfterWork(AHandle: THandle; RecordSet: _RecordSet; Active:
Boolean);

public
constructor Create(aConnectionString: string);

// Запустить запрос на исполнение
// (если Batch=True - LockType=ltBatchOptimistic)
procedure StartWork(aSQL: string; Batch: boolean = False);
// Приостановить / продолжить исполнение запроса (True - если “на паузе”)
function PauseWork: boolean;
// Остановить исполнение запроса (возможны потери памяти)
procedure StopWork;

published
property Active: Boolean read FActive;
property Handle: THandle read FHandle;
property OnAfterWork: TThreadADOQueryOnAfterWork read FAfterWork write
FAfterWork;
end;

Страницы: 1 2 3 4 5

Эта запись была опубликована 14.12.2007в 20:58. В рубриках: ADO, Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.