Class TCheckListBoxUDB

Unit

Declaration

type TCheckListBoxUDB = class(TrCheckListBox)

Description

TCheckListBox descendant with possibility to load list of items from any SQL command

Hierarchy

  • TrCheckListBox
  • TCheckListBoxUDB

Overview

Methods

Protected procedure Loaded; override;
Protected procedure Notification(AComponent: TComponent; Operation: TOperation); override;
Protected procedure DoEnter; override;
Public procedure ReloadItems;
Public function GetListField(const FieldName: string): TField; overload;
Public function GetListField(FieldIndex: integer): TField; overload;
Public function GetItemObjectAsInt: integer;
Public function SetActiveItem(ObjectAsInt: integer): integer;

Properties

Public property ListDataSet: TQueryIntList read FListDataSet;
Published property ListSQL: TStrings read FListSQL write SetListSQL;
Published property ListConnection: TConnectionUDB 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;

Description

Methods

Protected procedure Loaded; override;
 
Protected procedure Notification(AComponent: TComponent; Operation: TOperation); override;
 
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

Public function GetItemObjectAsInt: integer;

return ID value from selected item

Public function SetActiveItem(ObjectAsInt: integer): integer;

set ItemIndex according ID value

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, value of first field is used as text value

Published property ListConnection: TConnectionUDB read FListConnection write SetListConnection;

define UDB connection

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


Generated by PasDoc 0.15.0.