|
From: <sr...@us...> - 2006-12-12 02:14:39
|
Revision: 742
http://svn.sourceforge.net/instantobjects/revision/?rev=742&view=rev
Author: srmitch
Date: 2006-12-11 18:14:37 -0800 (Mon, 11 Dec 2006)
Log Message:
-----------
- Updated NexusDb broker for new InstantDate and InstantTime support.
- Added InstantTypes to Implementation uses clause in InstantNexusDBEmbeddedConnectionDefEdit.pas.
Modified Paths:
--------------
trunk/Source/Brokers/NexusDb/InstantNexusDB.pas
trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas
trunk/Source/Brokers/NexusDb/InstantNexusDBEmbeddedConnectionDefEdit.pas
Modified: trunk/Source/Brokers/NexusDb/InstantNexusDB.pas
===================================================================
--- trunk/Source/Brokers/NexusDb/InstantNexusDB.pas 2006-12-11 16:45:35 UTC (rev 741)
+++ trunk/Source/Brokers/NexusDb/InstantNexusDB.pas 2006-12-12 02:14:37 UTC (rev 742)
@@ -793,7 +793,9 @@
'VARCHAR',
'TEXT',
'DATETIME',
- 'BLOB');
+ 'BLOB',
+ 'DATE',
+ 'TIME');
begin
Result := Types[DataType];
if (DataType = dtString) and (Size > 0) then
@@ -824,7 +826,7 @@
Result := TInstantNexusDBSQLGenerator;
end;
-{ TInstantNexusDBSQLTranslator }
+{ TInstantNexusDBTranslator }
function TInstantNexusDBTranslator.GetDelimiters: string;
begin
Modified: trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas
===================================================================
--- trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas 2006-12-11 16:45:35 UTC (rev 741)
+++ trunk/Source/Brokers/NexusDb/InstantNexusDBCatalog.pas 2006-12-12 02:14:37 UTC (rev 742)
@@ -239,10 +239,12 @@
DataType := dtCurrency
else if SameText(ColumnType, 'Boolean') then
DataType := dtBoolean
- else if SameText(ColumnType, 'DateTime')
- or SameText(ColumnType, 'Date')
- or SameText(ColumnType, 'Time')then
+ else if SameText(ColumnType, 'DateTime') then
DataType := dtDateTime
+ else if SameText(ColumnType, 'DATE') then
+ DataType := dtDate
+ else if SameText(ColumnType, 'TIME')then
+ DataType := dtTime
else if SameText(ColumnType, 'BLOB') then
DataType := dtBlob
else if SameText(ColumnType, 'BLOB Memo') then
@@ -264,10 +266,12 @@
DataType := dtCurrency
else if SameText(ColumnType, 'nxtBoolean') then
DataType := dtBoolean
- else if SameText(ColumnType, 'nxtDateTime')
- or SameText(ColumnType, 'nxtDate')
- or SameText(ColumnType, 'nxtTime')then
+ else if SameText(ColumnType, 'nxtDateTime') then
DataType := dtDateTime
+ else if SameText(ColumnType, 'nxtDate') then
+ DataType := dtDate
+ else if SameText(ColumnType, 'nxtTime')then
+ DataType := dtTime
else if SameText(ColumnType, 'nxtBlob') then
DataType := dtBlob
else if SameText(ColumnType, 'nxtBlobMemo') then
Modified: trunk/Source/Brokers/NexusDb/InstantNexusDBEmbeddedConnectionDefEdit.pas
===================================================================
--- trunk/Source/Brokers/NexusDb/InstantNexusDBEmbeddedConnectionDefEdit.pas 2006-12-11 16:45:35 UTC (rev 741)
+++ trunk/Source/Brokers/NexusDb/InstantNexusDBEmbeddedConnectionDefEdit.pas 2006-12-12 02:14:37 UTC (rev 742)
@@ -106,6 +106,7 @@
InstantClasses,
InstantPersistence,
InstantConsts,
+ InstantTypes,
InstantNexusDBConsts;
{ TInstantNexusDBEmbeddedConnectionDefEditForm }
|