Unit dnPxTbl

Classes

TPxTable -

Functions

LoadParadoxValChecks -

Types

BoolArray

Constants

SChangeTableLevel
SFieldMaxError
SFieldMinError
SFieldMinMaxError
SFieldValueError
SNow
SToday

Variables


Functions


procedure LoadParadoxValChecks(Table: TTable);


Types


BoolArray = packed array[0..DBIMAXFLDSINKEY - 1] of wordBool;

Constants

SChangeTableLevel = 'Changing table level may take some time. Continue?'

SFieldMaxError = 'A value no more than ''%s'' is expected'

SFieldMinError = 'A value no less than ''%s'' is expected'

SFieldMinMaxError = 'The allowed range is ''%s'' to ''%s'''

SFieldValueError = '''%s'' is not a valid value for field ''%s'':'#13

SNow = 'NOW'

SToday = 'TODAY'

**************************************************************************** Copyright © 1997/98 Dieter Nöth version : 2.01 date : 11.04.1998 description: Enhanced TTable which loads Paradox masks defined (with DBD) on table level or from a corresponding INI-file. Validates entries against Paradox Min/Max checks. 1.03 Added: property TableLevel: integer;(public) sets TableLevel for Paradox/DBase/FoxPro-tables (this is an example how to use dnDBUtil.ChangeTableParams) allowed values (from BDE.INT): const TBLLEVEL3 = 3; { Paradox level 3 and dBASE level 3+ } TBLLEVEL4 = 4; { Paradox level 4 and dBASE level 4 } TBLLEVEL5 = 5; { Paradox level 5 and dBASE/Win } TBLLEVEL7 = 7; { Paradox level 7 and dBASE level 7 } FOXLEVEL25 = 25; { Fox Table (Ver 2.5) } procedure AddIndexDescending(const Name, Fields: string; Options: TIndexOptions; const Descending : Array of WordBool); Like Borland's AddIndex, but Indices may be descending/ascending at field level (works only with Level 7 tables --> prop TableLevel). e.g. AddIndexDescending('NewIndex', 'Field1;Field2;Field3', [ixUnique, ixDescending, ixCaseInsensitive], [false, true, false]); creates Index with Field1 asc, Field2 desc, Field3 asc. Don't forget to include ixDescending in Options... Hint: You can't use prop IndexFieldNames to switch to this kind of index (exception SNoIndexForFields), use IndexName instead. *) {$I dnInc.INC

Variables