[Instantobjects-cvscommit] SF.net SVN: instantobjects: [742] trunk/Source/Brokers/NexusDb

[<sr...@us...>]

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 }