| Class TWABD_DataTable (unit WABD_Objects) |
| Constructors |
constructor Create(AOwner: TComponent);| 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);
procedure DeleteClick(Sender: TObject);
procedure EditClick(Sender: TObject);
procedure FirstClick(Sender: TObject);
function GetDataSource: TDataSource;
procedure InitForm;
procedure InitNavButs;
procedure InitTable;
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;