| Class TDBPicker (unit DBPicker) |
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;
procedure GetDBPickerResult(IndexFieldName,
IndexName:string;
IndexFieldValue:variant;
DataFieldNames: array of string;
ListOfValues:TStrings);
procedure CheckIndexName(xIndexFieldName,xIndexName:string);
procedure SetDataBaseName(Value:string);
procedure SetTableName(Value:string);| 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;