Unit DBUtils

*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1995, 1996 AO ROSNO } { Copyright (c) 1997, 1998 Master-Bank } { } {

Classes

TLocateObject - TLocateObject

Functions

AssignRecord -
CheckRequiredField -
CheckRequiredFields -
ConfirmDataSetCancel -
ConfirmDelete -
DataSetLocateThrough - DataSet locate routines } {$IFDEF WIN32
DataSetSortedSearch - DataSetSortedSearch.
DateToSQL - SQL expressions

SQL expressions
FormatAnsiSQLCondition -
FormatSQLCondition -
FormatSQLDateRange -
FormatSQLNumericRange -
IsDataSetEmpty - Utility routines
RefreshQuery - Refresh Query procedure
RestoreFields -
RestoreFieldsReg -
SaveFields -
SaveFieldsReg -
StrMaskSQL -
_DBError - Utility routines

Types

Constants

sdfInterbase
sdfOracle
sdfStandard16
sdfStandard32
ServerDateFmt
TrueExpr

Variables


Functions


procedure AssignRecord(Source, Dest: TDataSet; ByName: Boolean);


procedure CheckRequiredField(Field: TField);


procedure CheckRequiredFields(const Fields: array of TField);


procedure ConfirmDataSetCancel(DataSet: TDataSet);


function ConfirmDelete: Boolean;


function DataSetLocateThrough(DataSet: TDataSet; const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean;

DataSet locate routines } {$IFDEF WIN32

function DataSetSortedSearch(DataSet: TDataSet; const Value, FieldName: string; CaseInsensitive: Boolean): Boolean;

DataSetSortedSearch. Navigate on sorted DataSet routine.

function DateToSQL(Value: TDateTime): string;

SQL expressions

SQL expressions


function FormatAnsiSQLCondition(const FieldName, Operator, Value: string; FieldType: TFieldType; Exact: Boolean): string;


function FormatSQLCondition(const FieldName, Operator, Value: string; FieldType: TFieldType; Exact: Boolean): string;


function FormatSQLDateRange(Date1, Date2: TDateTime; const FieldName: string): string;


function FormatSQLNumericRange(const FieldName: string; LowValue, HighValue, LowEmpty, HighEmpty: Double; Inclusive: Boolean): string;


function IsDataSetEmpty(DataSet: TDataSet): Boolean;

Utility routines

procedure RefreshQuery(Query: TDataSet);

Refresh Query procedure

procedure RestoreFields(DataSet: TDataSet; IniFile: TIniFile; RestoreVisible: Boolean);


procedure RestoreFieldsReg(DataSet: TDataSet; IniFile: TRegIniFile; RestoreVisible: Boolean);


procedure SaveFields(DataSet: TDataSet; IniFile: TIniFile);


procedure SaveFieldsReg(DataSet: TDataSet; IniFile: TRegIniFile);


function StrMaskSQL(const Value: string): string;


procedure _DBError(Ident: Word);

Utility routines

Types


Constants

sdfInterbase = '"CAST(''"mm"/"dd"/"yyyy"'' AS DATE)"'

sdfOracle = '"TO_DATE(''"dd/mm/yyyy"'', ''DD/MM/YYYY'')"'

'dd/mm/yyyy'

sdfStandard16 = '''"''mm''/''dd''/''yyyy''"'''

Server Date formats

sdfStandard32 = '''''''dd/mm/yyyy'''''''

"mm/dd/yyyy"

ServerDateFmt = sdfStandard16

TrueExpr = '0=0'


Variables