Class TCustomrDBLookupListBoxUDB

Unit

Declaration

type TCustomrDBLookupListBoxUDB = class(TrDBLookupListBox)

Description

TrDBLookupListBox descendant load list of items from any SQL command

Hierarchy

  • TrDBLookupListBox
  • TCustomrDBLookupListBoxUDB

Overview

Methods

Protected procedure Loaded; override;
Protected procedure Notification(AComponent: TComponent; Operation: TOperation); override;
Protected procedure SetParent(AParent: TWinControl); override;
Protected procedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED;
Protected procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
Protected procedure DoEnter; override;
Public procedure ReloadItems;
Public function GetListField(const FieldName: string): TField; overload;
Public function GetListField(FieldIndex: integer): TField; overload;

Properties

Public property ListDataSet: TQueryIntList read FListDataSet;
Published property ListSQL: TStrings read FListSQL write SetListSQL;
Published property ListConnection: TCustomConnectionUDB read FListConnection write SetListConnection;
Published property ListAutoLoad: boolean read FListAutoLoad write FListAutoLoad default true;
Published property ListSQLTryNow: boolean read FListSQLTryNow write SetListSQLTryNow default false;
Published property OnGetListSQL: TGetSQLEvent read FGetListSQL write FGetListSQL;
Published property ListButton: TBoundComboButton read FListButton;
Published property ListButtonVisible: boolean read FListButtonVisible write SetListButtonVisible default true;
Published property ListButtonAllwaysEnabled: boolean read FListButtonAllwaysEnabled write FListButtonAllwaysEnabled default true;
Published property ListButtonTableName: string read FListButtonTableName write FListButtonTableName;
Published property OnClickComboButton: TClickComboButton read FClickComboButton write FClickComboButton;
Published property ListValue: string read GetListValue;
Published property OnListDataSetEvent: TDataSetEvent read FListDataSetEvent write SetListDataSetEvent;
Published property ListAutoReloadEvents: TDatasetEventTypes read FListAutoReloadEvents write FListAutoReloadEvents;

Description

Methods

Protected procedure Loaded; override;
 
Protected procedure Notification(AComponent: TComponent; Operation: TOperation); override;
 
Protected procedure SetParent(AParent: TWinControl); override;
 
Protected procedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED;
 
Protected procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
 
Protected procedure DoEnter; override;
 
Public procedure ReloadItems;

open SQL command and refresh list items

Public function GetListField(const FieldName: string): TField; overload;

return Field from internal Dataset to allow reading of field value from selected record

Public function GetListField(FieldIndex: integer): TField; overload;

return Field from internal Dataset to allow reading of field value from selected record

Properties

Public property ListDataSet: TQueryIntList read FListDataSet;

return internal Dataset to allow reading of other fields

Published property ListSQL: TStrings read FListSQL write SetListSQL;

define SQL command, first field is used as keyvalue field, 2nd field as list value field

Published property ListConnection: TCustomConnectionUDB read FListConnection write SetListConnection;

define list UDB connection, if is not used, connection from DataField is used

Published property ListAutoLoad: boolean read FListAutoLoad write FListAutoLoad default true;

define whether ReloadItems is called automatically after loading

Published property ListSQLTryNow: boolean read FListSQLTryNow write SetListSQLTryNow default false;

try to open SQL command in design time

Published property OnGetListSQL: TGetSQLEvent read FGetListSQL write FGetListSQL;

call before opening of SQL to allow update command or set WHERE condition

Published property ListButton: TBoundComboButton read FListButton;

define aux button beside control

Published property ListButtonVisible: boolean read FListButtonVisible write SetListButtonVisible default true;

define visibility of aux button beside control

Published property ListButtonAllwaysEnabled: boolean read FListButtonAllwaysEnabled write FListButtonAllwaysEnabled default true;

define enability of aux button beside control

Published property ListButtonTableName: string read FListButtonTableName write FListButtonTableName;

define TableName which should be edited after ListButtonClick (not used by component)

Published property OnClickComboButton: TClickComboButton read FClickComboButton write FClickComboButton;

define event after ListButtonClick

Published property ListValue: string read GetListValue;

return list value for selected item

Published property OnListDataSetEvent: TDataSetEvent read FListDataSetEvent write SetListDataSetEvent;

define event for internal dataset (BeforeOpen, BeforePost... After... ses TDataSetEventTypes

Published property ListAutoReloadEvents: TDatasetEventTypes read FListAutoReloadEvents write FListAutoReloadEvents;

define Datasource events when ReloadItems is called automatically


Generated by PasDoc 0.15.0.