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

[<na...@us...>]

Revision: 854
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=854&view=rev
Author:   nandod
Date:     2009-08-20 09:23:30 +0000 (Thu, 20 Aug 2009)

Log Message:
-----------
* Changes needed to build ADO, DBX and IBX brokers with new enum support.

Modified Paths:
--------------
    trunk/Source/Brokers/ADO/InstantADO.pas
    trunk/Source/Brokers/DBX/InstantDBX.pas
    trunk/Source/Brokers/IBX/InstantIBX.pas

Modified: trunk/Source/Brokers/ADO/InstantADO.pas
===================================================================
--- trunk/Source/Brokers/ADO/InstantADO.pas	2009-08-19 20:54:06 UTC (rev 853)
+++ trunk/Source/Brokers/ADO/InstantADO.pas	2009-08-20 09:23:30 UTC (rev 854)
@@ -343,16 +343,17 @@
   const
     ColumnTypes: array[TInstantDataType, TInstantADOProviderType] of Integer = (
       {Unknown,         Jet,             SQL,             Oracle         MySQL            DB2}
-      (adInteger,       adInteger,       adInteger,       adNumeric,     adInteger,       adInteger),      // dtInteger
-      (adDouble,        adDouble,        adDouble,        adDouble,      adDouble,        adDouble),       // dtFloat
-      (adCurrency,      adCurrency,      adCurrency,      adCurrency,    adCurrency,      adCurrency),     // dtCurrency
-      (adBoolean,       adBoolean,       adBoolean,       adChar,        adBoolean,       adBoolean),      // dtBoolean
-      (adVarChar,       adVarWChar,      adVarChar,       adVarChar,     adVarChar,       adVarChar),      // dtString
-      (adLongVarChar,   adLongVarWChar,  adLongVarChar,   adVarBinary,   adLongVarChar,   adLongVarChar),  // dtMemo
-      (adDate,          adDate,          adDBTimeStamp,   adDBTimeStamp, adDate,          adDate),         // dtDateTime
+      (adInteger,       adInteger,       adInteger,       adNumeric,     adInteger,       adInteger),       // dtInteger
+      (adDouble,        adDouble,        adDouble,        adDouble,      adDouble,        adDouble),        // dtFloat
+      (adCurrency,      adCurrency,      adCurrency,      adCurrency,    adCurrency,      adCurrency),      // dtCurrency
+      (adBoolean,       adBoolean,       adBoolean,       adChar,        adBoolean,       adBoolean),       // dtBoolean
+      (adVarChar,       adVarWChar,      adVarChar,       adVarChar,     adVarChar,       adVarChar),       // dtString
+      (adLongVarChar,   adLongVarWChar,  adLongVarChar,   adVarBinary,   adLongVarChar,   adLongVarChar),   // dtMemo
+      (adDate,          adDate,          adDBTimeStamp,   adDBTimeStamp, adDate,          adDate),          // dtDateTime
       (adLongVarBinary, adLongVarBinary, adLongVarBinary, adVarBinary,   adLongVarBinary, adLongVarBinary), // dtBlob
-      (adDate,          adDate,          adDBTimeStamp,   adDBTimeStamp, adDate,          adDate),         // dtDate
-      (adDate,          adDate,          adDBTimeStamp,   adDBTimeStamp, adDate,          adDate)          // dtTime
+      (adDate,          adDate,          adDBTimeStamp,   adDBTimeStamp, adDate,          adDate),          // dtDate
+      (adDate,          adDate,          adDBTimeStamp,   adDBTimeStamp, adDate,          adDate),          // dtTime
+      (adInteger,       adInteger,       adInteger,       adNumeric,     adInteger,       adInteger)        // dtEnum
     );
   var
     Column: _Column;
@@ -470,7 +471,8 @@
         'DATETIME',
         'BLOB',
         'DATE',
-        'TIME'
+        'TIME',
+        'INTEGER'
       );
     begin
       Result := Types[DataType];
@@ -1139,7 +1141,8 @@
     'DATETIME',
     'IMAGE',
     'DATETIME',
-    'DATETIME');
+    'DATETIME',
+    'INTEGER');
 begin
   Result := Types[DataType];
   if (DataType = dtString) and (Size > 0) then

Modified: trunk/Source/Brokers/DBX/InstantDBX.pas
===================================================================
--- trunk/Source/Brokers/DBX/InstantDBX.pas	2009-08-19 20:54:06 UTC (rev 853)
+++ trunk/Source/Brokers/DBX/InstantDBX.pas	2009-08-20 09:23:30 UTC (rev 854)
@@ -619,7 +619,9 @@
     'TIMESTAMP',
     'BLOB',
     'TIMESTAMP',
-    'TIMESTAMP');
+    'TIMESTAMP',
+    'INTEGER'
+    );
 begin
   Result := Types[DataType];
 end;
@@ -663,7 +665,8 @@
     'DATETIME',
     'IMAGE',
     'DATETIME',
-    'DATETIME');
+    'DATETIME',
+    'INTEGER');
 begin
   Result := Types[DataType];
 end;
@@ -771,7 +774,8 @@
     'DATE',
     'BLOB',
     'DATE',
-    'DATE');
+    'DATE',
+    'INTEGER');
 begin
   Result := Types[DataType];
 end;
@@ -801,7 +805,8 @@
     'TIMESTAMP',
     'BLOB (1000 K)',
     'TIMESTAMP',
-    'TIMESTAMP');
+    'TIMESTAMP',
+    'INTEGER');
 begin
   Result := Types[DataType];
 end;
@@ -844,7 +849,8 @@
     'DATETIME',
     'BLOB',
     'DATE',
-    'TIME');
+    'TIME',
+    'INTEGER');
 begin
   Result := Types[DataType];
 end;

Modified: trunk/Source/Brokers/IBX/InstantIBX.pas
===================================================================
--- trunk/Source/Brokers/IBX/InstantIBX.pas	2009-08-19 20:54:06 UTC (rev 853)
+++ trunk/Source/Brokers/IBX/InstantIBX.pas	2009-08-20 09:23:30 UTC (rev 854)
@@ -428,7 +428,8 @@
     'TIMESTAMP',
     'BLOB',
     'DATE',
-    'TIME');
+    'TIME',
+    'INTEGER');
 begin
   Result := Types[DataType];
   if (DataType = dtString) and (Size > 0) then