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 |
=============================================================================== TDBPicker Routines ===============================================================================} {-------------------------Create-------------------------------------
Functions |
Properties |
Events |
Variables |
Constructors |
=======================================================================================
=============================================================================== TDBPicker Routines ===============================================================================} {-------------------------Create-------------------------------------
Functions |
Create } {------------------------------Destroy-------------------------------------
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 -----------------------------------------------------------------------------------
Destroy } {-------------------------CheckIndexName--------------------------------- if Index does not exist then create it ------------------------------------------------------------------
GetDBPickerResult } {=============================================================================== //////////////////////////////////////////////////////////////////////////////// /// /// /// /// ACCESS METHODS /// /// /// /// //////////////////////////////////////////////////////////////////////////////// ===============================================================================} {-------------------SetDataBaseName-------------------------------------------- ------------------------------------------------------------------------------
SetDataBaseName } {-------------------SetTableName----------------------------------------------- ------------------------------------------------------------------------------
Properties |
Events |
Variables |
=======================================================================================