Class TECDataLink (unit ECDataLink) |
Inherits from
TDataLink
TECDataLink: DataLink that captures the OnXXX-events of the DataSet.
Version 0.84 Nov-10-1997 (C) 1997 Christoph R. Kirchner
{ Users of this unit must accept this disclaimer of warranty:
"This unit is supplied as is. The author disclaims all warranties,
expressed or implied, including, without limitation, the warranties
of merchantability and of fitness for any purpose.
The author assumes no liability for damages, direct or
consequential, which may result from the use of this unit."
This Unit is donated to the public as public domain.
This Unit can be freely used and distributed in commercial and
private environments provided this notice is not modified in any way.
If you do find this Unit handy and you feel guilty for using such a
great product without paying someone - sorry :-)
Please forward any comments or suggestions to Christoph Kirchner at:
ckirchner@geocities.com
Maybe you can find an update of this component at my
"Delphi Component Building Site":
http://www.geocities.com/SiliconValley/Heights/7874/delphi.htm
Thanks to Main Chen for a bug-report with corrected source.
constructor Create;
function CanCheckRefresh: Boolean;
procedure CheckRefresh;
destructor Destroy;
procedure ActiveChanged;
Delphi >= 3.
procedure DatasetRefreshed;
procedure DoAfterCancel(DataSet: TDataSet);
procedure DoAfterDelete(DataSet: TDataSet);
procedure DoAfterEdit(DataSet: TDataSet);
procedure DoAfterInsert(DataSet: TDataSet);
procedure DoAfterPost(DataSet: TDataSet);
procedure DoBeforeCancel(DataSet: TDataSet);
procedure DoBeforeDelete(DataSet: TDataSet);
procedure DoBeforeEdit(DataSet: TDataSet);
procedure DoBeforeInsert(DataSet: TDataSet);
procedure DoBeforePost(DataSet: TDataSet);
procedure GetDatasetEvents;
Delphi >= 3.
function RefreshCallBack(CBInfo: Pointer): CBRType;
ignore if we have changed the datasetActive := false; read-only >:(
procedure ResetDatasetEvents;
FBDECallback : TBDECallback;
FGotEventsOfDataset : TDataset;
FIgnoreNextRefresh : Boolean;
FOldAfterCancel : TDataSetNotifyEvent;
FOldAfterDelete : TDataSetNotifyEvent;
FOldAfterEdit : TDataSetNotifyEvent;
FOldAfterInsert : TDataSetNotifyEvent;
FOldAfterPost : TDataSetNotifyEvent;
FOldBeforeCancel : TDataSetNotifyEvent;
FOldBeforeDelete : TDataSetNotifyEvent;
FOldBeforeEdit : TDataSetNotifyEvent;
FOldBeforeInsert : TDataSetNotifyEvent;
FOldBeforePost : TDataSetNotifyEvent;
constructor Create;
function CanCheckRefresh: Boolean;
procedure CheckRefresh;
destructor Destroy;
procedure ActiveChanged;
Delphi >= 3.0:
procedure DatasetRefreshed;
procedure DoAfterCancel(DataSet: TDataSet);
procedure DoAfterDelete(DataSet: TDataSet);
procedure DoAfterEdit(DataSet: TDataSet);
procedure DoAfterInsert(DataSet: TDataSet);
procedure DoAfterPost(DataSet: TDataSet);
procedure DoBeforeCancel(DataSet: TDataSet);
procedure DoBeforeDelete(DataSet: TDataSet);
procedure DoBeforeEdit(DataSet: TDataSet);
procedure DoBeforeInsert(DataSet: TDataSet);
procedure DoBeforePost(DataSet: TDataSet);
procedure GetDatasetEvents;
Delphi >= 3.0:
function RefreshCallBack(CBInfo: Pointer): CBRType;
ignore if we have changed the dataset
Active := false; read-only >:(
procedure ResetDatasetEvents;
FBDECallback : TBDECallback;
FGotEventsOfDataset : TDataset;
FIgnoreNextRefresh : Boolean;
FOldAfterCancel : TDataSetNotifyEvent;
FOldAfterDelete : TDataSetNotifyEvent;
FOldAfterEdit : TDataSetNotifyEvent;
FOldAfterInsert : TDataSetNotifyEvent;
FOldAfterPost : TDataSetNotifyEvent;
FOldBeforeCancel : TDataSetNotifyEvent;
FOldBeforeDelete : TDataSetNotifyEvent;
FOldBeforeEdit : TDataSetNotifyEvent;
FOldBeforeInsert : TDataSetNotifyEvent;
FOldBeforePost : TDataSetNotifyEvent;