Class TRecordPosition (unit Rck)

Inherits from

TLabel

Constructors


constructor Create(aOwner: TComponent);



Functions

procedure UpdateLabel;

Public declarations

proc to update the label


function FindRecordNumber: longint;

find record number

procedure SetDataset(Value: TDataset);

set the table name

procedure SetIsFilter(value: boolean);

is the table filtered?

procedure SetrecordLabel(Value: string);

set the record type

procedure SetRecordNo( Value : LongInt );

proc to set Property RecordNo

Properties

property Dataset : TDataset

Published declarations

property FilteredTable : boolean


property RecordLabel : string


property RecordNo : LongInt


Events

Variables

FDataSet : TDataSet;

Private declarations

FIsFilter : boolean;


FrecordLabel : String;


FRecordNo : LongInt;



Constructors


constructor Create(aOwner: TComponent);


Functions


procedure UpdateLabel;

Public declarations

proc to update the label


function FindRecordNumber: longint;

find record number


procedure SetDataset(Value: TDataset);

set the table name


procedure SetIsFilter(value: boolean);

is the table filtered?


procedure SetrecordLabel(Value: string);

set the record type


procedure SetRecordNo( Value : LongInt );

proc to set Property RecordNo


Properties


property Dataset : TDataset

Published declarations


property FilteredTable : boolean


property RecordLabel : string


property RecordNo : LongInt


Events


Variables


FDataSet : TDataSet;

Private declarations


FIsFilter : boolean;


FrecordLabel : String;


FRecordNo : LongInt;