Class TWABD_DataTable (unit WABD_Objects)

Inherits from

TWABD_Parent

Constructors


constructor Create(AOwner: TComponent);

TWABD_DataTable


Functions

destructor Destroy;


procedure HTML_To_Object(FormVal: string);


procedure JumpToTableRecord(RowIndex: integer);


function Object_To_HTML: string;


procedure AddClick(Sender: TObject);


procedure CreateNavBut(x, y : integer; ButCap: string; OnClick: TNotifyEvent);

go to the next position

procedure DeleteClick(Sender: TObject);

Read in the Field Values

procedure EditClick(Sender: TObject);


procedure FirstClick(Sender: TObject);


function GetDataSource: TDataSource;


procedure InitForm;


procedure InitNavButs;


procedure InitTable;

Clear out old Controls

procedure LastClick(Sender: TObject);


procedure NextClick(Sender: TObject);


procedure NextPgClick(Sender: TObject);


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure PrevClick(Sender: TObject);


procedure PrevPgClick(Sender: TObject);


procedure SetDataSource(NewDataSource: TDataSource);


procedure SetName(const NewName: TComponentName);


procedure TableClick(Sender: TObject; RowIndex: integer);


Properties

property AutoWidth : boolean


property DataSource : TDataSource


property FormColWidth : integer


property MaxRows : integer


property NumCols : integer


property ReadOnly : boolean


property ShowEditForm : boolean


property ShowNavButs : boolean


property ShowTable : boolean


property FormSection : TWABD_FormSection


property NavSection : TWABD_FormSection


property Table : TWABD_Table


Events

event OnRecordClick : TRecClickEvent


Variables

DidAppend : boolean;


FAutoWid : boolean;


FColWidth : integer;


FDataLink : TDataLink;


FFormSec : TWABD_FormSection;


FMaxRows : integer;


FNavButs : boolean;


FNavForm : TWABD_FormSection;


FNumCol : integer;


FReadOnly : boolean;


FRecClick : TRecClickEvent;


FShowForm : boolean;


FShowTable : boolean;


FTable : TWABD_Table;


Stat : string;



Constructors


constructor Create(AOwner: TComponent);

TWABD_DataTable


Functions


destructor Destroy;


procedure HTML_To_Object(FormVal: string);


procedure JumpToTableRecord(RowIndex: integer);


function Object_To_HTML: string;


procedure AddClick(Sender: TObject);


procedure CreateNavBut(x, y : integer; ButCap: string; OnClick: TNotifyEvent);

go to the next position


procedure DeleteClick(Sender: TObject);

Read in the Field Values


procedure EditClick(Sender: TObject);


procedure FirstClick(Sender: TObject);


function GetDataSource: TDataSource;


procedure InitForm;


procedure InitNavButs;


procedure InitTable;

Clear out old Controls


procedure LastClick(Sender: TObject);


procedure NextClick(Sender: TObject);


procedure NextPgClick(Sender: TObject);


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure PrevClick(Sender: TObject);


procedure PrevPgClick(Sender: TObject);


procedure SetDataSource(NewDataSource: TDataSource);


procedure SetName(const NewName: TComponentName);


procedure TableClick(Sender: TObject; RowIndex: integer);


Properties


property AutoWidth : boolean


property DataSource : TDataSource


property FormColWidth : integer


property MaxRows : integer


property NumCols : integer


property ReadOnly : boolean


property ShowEditForm : boolean


property ShowNavButs : boolean


property ShowTable : boolean


property FormSection : TWABD_FormSection


property NavSection : TWABD_FormSection


property Table : TWABD_Table


Events


event OnRecordClick : TRecClickEvent


Variables


DidAppend : boolean;


FAutoWid : boolean;


FColWidth : integer;


FDataLink : TDataLink;


FFormSec : TWABD_FormSection;


FMaxRows : integer;


FNavButs : boolean;


FNavForm : TWABD_FormSection;


FNumCol : integer;


FReadOnly : boolean;


FRecClick : TRecClickEvent;


FShowForm : boolean;


FShowTable : boolean;


FTable : TWABD_Table;


Stat : string;