Class TIBRefresher (unit IBRefresh)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

TIBRefresher ---------------------------------------------------------


Functions

destructor Destroy;


procedure AddDataset(Dataset: TDataset; Database: TDatabase; const TableName: string);


procedure CreateDefaultTrigger(Database: TDatabase; const TableName: string);


procedure DatasetAdded(Dataset: TDataset; var CallbackEvent: TBDECallbackEvent; var RefreshEvent: TRefreshEvent);


procedure DatasetRemoved(Dataset: TDataset);

BDE-Callback is not needed

procedure EventAlert(Sender: TObject; EventName: string; EventCount: longint; var CancelAlerts: Boolean);


function GetEventNames(const TableName: string): TStringList;


function GetTableNames(Dataset: TDataset): TStringList;


procedure SetKnownDataSets(Value: TStrings);


procedure SetQuerys(Value: TStrings);


Properties

property KnownDataSets : TStrings


property Options : TIBRefresherOptions


property Querys : TStrings


Events

Variables

FActiveDatasets : TList;


FIBEventAlerterList : TStringList;


FKnownDataSets : TStrings;


FOldAddDatasetEvent : TAddDatasetEvent;


FOldRemoveDatasetEvent : TRemoveDatasetEvent;


FOptions : TIBRefresherOptions;

TQuery.

FQuerys : TStrings;

TableName=EventName


Constructors


constructor Create(AOwner: TComponent);

TIBRefresher ---------------------------------------------------------


Functions


destructor Destroy;


procedure AddDataset(Dataset: TDataset; Database: TDatabase; const TableName: string);


procedure CreateDefaultTrigger(Database: TDatabase; const TableName: string);


procedure DatasetAdded(Dataset: TDataset; var CallbackEvent: TBDECallbackEvent; var RefreshEvent: TRefreshEvent);


procedure DatasetRemoved(Dataset: TDataset);

BDE-Callback is not needed


procedure EventAlert(Sender: TObject; EventName: string; EventCount: longint; var CancelAlerts: Boolean);


function GetEventNames(const TableName: string): TStringList;


function GetTableNames(Dataset: TDataset): TStringList;


procedure SetKnownDataSets(Value: TStrings);


procedure SetQuerys(Value: TStrings);


Properties


property KnownDataSets : TStrings


property Options : TIBRefresherOptions


property Querys : TStrings


Events


Variables


FActiveDatasets : TList;


FIBEventAlerterList : TStringList;


FKnownDataSets : TStrings;


FOldAddDatasetEvent : TAddDatasetEvent;


FOldRemoveDatasetEvent : TRemoveDatasetEvent;


FOptions : TIBRefresherOptions;

TQuery.Name=TableName1;TableName1...


FQuerys : TStrings;

TableName=EventName