|
@@ -494,11 +494,7 @@ Procedure UnRegisterConnection(ConnectionName : String);
|
|
|
Function GetConnectionDef(ConnectorName : String) : TConnectionDef;
|
|
Function GetConnectionDef(ConnectorName : String) : TConnectionDef;
|
|
|
Procedure GetConnectionList(List : TSTrings);
|
|
Procedure GetConnectionList(List : TSTrings);
|
|
|
|
|
|
|
|
-implementation
|
|
|
|
|
-
|
|
|
|
|
-uses dbconst, strutils;
|
|
|
|
|
-
|
|
|
|
|
-var InitialSQLFormatSettings : TFormatSettings = (
|
|
|
|
|
|
|
+var DefaultSQLFormatSettings : TFormatSettings = (
|
|
|
CurrencyFormat: 1;
|
|
CurrencyFormat: 1;
|
|
|
NegCurrFormat: 5;
|
|
NegCurrFormat: 5;
|
|
|
ThousandSeparator: #0;
|
|
ThousandSeparator: #0;
|
|
@@ -521,6 +517,11 @@ var InitialSQLFormatSettings : TFormatSettings = (
|
|
|
TwoDigitYearCenturyWindow: 50;
|
|
TwoDigitYearCenturyWindow: 50;
|
|
|
);
|
|
);
|
|
|
|
|
|
|
|
|
|
+implementation
|
|
|
|
|
+
|
|
|
|
|
+uses dbconst, strutils;
|
|
|
|
|
+
|
|
|
|
|
+
|
|
|
function TimeIntervalToString(Time: TDateTime): string;
|
|
function TimeIntervalToString(Time: TDateTime): string;
|
|
|
var
|
|
var
|
|
|
millisecond: word;
|
|
millisecond: word;
|
|
@@ -677,7 +678,7 @@ end;
|
|
|
constructor TSQLConnection.Create(AOwner: TComponent);
|
|
constructor TSQLConnection.Create(AOwner: TComponent);
|
|
|
begin
|
|
begin
|
|
|
inherited Create(AOwner);
|
|
inherited Create(AOwner);
|
|
|
- FSQLFormatSettings:=InitialSQLFormatSettings;
|
|
|
|
|
|
|
+ FSQLFormatSettings:=DefaultSQLFormatSettings;
|
|
|
FFieldNameQuoteChars:=DoubleQuotes;
|
|
FFieldNameQuoteChars:=DoubleQuotes;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
marco