Class TDBPicker (unit DBPicker)

Inherits from

TComponent

TDBPicker : Version 1.01 Date : 1/6/1998 Author : Theodoros Bebekis E-mail : bebekis@mail.otenet.gr Description: 1. Opens a DB file by an Index (if Index does not exist then TDBPicker creates it) 2. Moves the cursor to a record defined by FindKey 3. Returns the value(s) from any field(s) defined by DataFieldNames (see procedure GetDBPickerResult) Note: Freeware. Make it anything you want (ie sell it) , but don't blame me for any damage you can get using it. Kisses

Constructors


constructor Create(AOwner: TComponent);

=======================================================================================

=============================================================================== TDBPicker Routines ===============================================================================} {-------------------------Create-------------------------------------



Functions

destructor Destroy;

Create } {------------------------------Destroy-------------------------------------

procedure GetDBPickerResult(IndexFieldName, IndexName:string; IndexFieldValue:variant; DataFieldNames: array of string; ListOfValues:TStrings);

CheckIndexName } {------------------------GetDBPickerResult------------------------------------------ Parameters: IndexFieldName, The name of the indexed field IndexName:string; The index.

procedure CheckIndexName(xIndexFieldName,xIndexName:string);

Destroy } {-------------------------CheckIndexName--------------------------------- if Index does not exist then create it ------------------------------------------------------------------

procedure SetDataBaseName(Value:string);

GetDBPickerResult } {=============================================================================== //////////////////////////////////////////////////////////////////////////////// /// /// /// /// ACCESS METHODS /// /// /// /// //////////////////////////////////////////////////////////////////////////////// ===============================================================================} {-------------------SetDataBaseName-------------------------------------------- ------------------------------------------------------------------------------

procedure SetTableName(Value:string);

SetDataBaseName } {-------------------SetTableName----------------------------------------------- ------------------------------------------------------------------------------

Properties

property DataBaseName : string


property TableName : string


Events

Variables

FDatabaseName : string;


FTable : TTable;

=======================================================================================

FTableName : string;



Constructors


constructor Create(AOwner: TComponent);

=======================================================================================

=============================================================================== TDBPicker Routines ===============================================================================} {-------------------------Create-------------------------------------


Functions


destructor Destroy;

Create } {------------------------------Destroy-------------------------------------


procedure GetDBPickerResult(IndexFieldName, IndexName:string; IndexFieldValue:variant; DataFieldNames: array of string; ListOfValues:TStrings);

CheckIndexName } {------------------------GetDBPickerResult------------------------------------------ Parameters: IndexFieldName, The name of the indexed field IndexName:string; The index.If doesn't exist TDBPicker will create it IndexFieldValue:variant; The value of the indexed field DataFieldNames: array of string; A list of fields to get the values ListOfValues:TStrings A TStrings values holder -----------------------------------------------------------------------------------


procedure CheckIndexName(xIndexFieldName,xIndexName:string);

Destroy } {-------------------------CheckIndexName--------------------------------- if Index does not exist then create it ------------------------------------------------------------------


procedure SetDataBaseName(Value:string);

GetDBPickerResult } {=============================================================================== //////////////////////////////////////////////////////////////////////////////// /// /// /// /// ACCESS METHODS /// /// /// /// //////////////////////////////////////////////////////////////////////////////// ===============================================================================} {-------------------SetDataBaseName-------------------------------------------- ------------------------------------------------------------------------------


procedure SetTableName(Value:string);

SetDataBaseName } {-------------------SetTableName----------------------------------------------- ------------------------------------------------------------------------------


Properties


property DataBaseName : string


property TableName : string


Events


Variables


FDatabaseName : string;


FTable : TTable;

=======================================================================================


FTableName : string;