*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1995, 1996 AO ROSNO } { Copyright (c) 1997, 1998 Master-Bank } { } {
TLocateObject - TLocateObject
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
sdfInterbase
sdfOracle
sdfStandard16
sdfStandard32
ServerDateFmt
TrueExpr
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
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'