| Class TspDBRecNum (unit Spdbrec) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);construct the component
| Functions |
destructor Destroy;
Function CurrentRec : longInt;
procedure DataChange(Sender: TObject);
function FindRecordNumber: longint;
function GetAbout :string;
function GetDataSource: TDataSource;
procedure SetAbout(Value : string);
procedure SetDataSource(Value: TDataSource);
procedure UpdateRecStatus;| Properties |
property About : string
property CurRecNumber : LongInt
property DataSource : TDataSource| Events |
| Variables |
cAbout : string;
CurRec : LongInt;
FDataLink : TFieldDataLink;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
construct the component
| Functions |
destructor Destroy;destroy the component
Function CurrentRec : longInt;check if the database is active
procedure DataChange(Sender: TObject);method to update the unpublished Caption property in response to a change in the DataSource
function FindRecordNumber: longint;method to find record number
function GetAbout :string;
function GetDataSource: TDataSource;method to get DataSource from DataLink
procedure SetAbout(Value : string);
procedure SetDataSource(Value: TDataSource);method to set DataSource in DataLink
procedure UpdateRecStatus;Paradox
| Properties |
property About : string
property CurRecNumber : LongIntPublished declarations
property DataSource : TDataSource| Events |
| Variables |
cAbout : string;
CurRec : LongInt;Protected declarations
FDataLink : TFieldDataLink;Private declarations