Class TspDBRecNum (unit Spdbrec)

Inherits from

TComponent

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 : LongInt

Published declarations

property DataSource : TDataSource


Events

Variables

cAbout : string;


CurRec : LongInt;

Protected declarations

FDataLink : TFieldDataLink;

Private declarations


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 : LongInt

Published declarations


property DataSource : TDataSource


Events


Variables


cAbout : string;


CurRec : LongInt;

Protected declarations


FDataLink : TFieldDataLink;

Private declarations