+ Use of dbconst for resource strings

fcl/db/Makefile

@@ -1,8 +1,8 @@
 #
-# Don't edit, this file is generated by FPCMake Version 1.1 [2004/09/04]
+# Don't edit, this file is generated by FPCMake Version 1.1 [2004/08/31]
 #
 default: all
-MAKEFILETARGETS=linux go32v2 win32 os2 freebsd beos netbsd amiga atari sunos qnx netware openbsd wdosx palmos macos darwin emx watcom morphos netwlibc
+MAKEFILETARGETS=linux go32v2 win32 os2 freebsd beos netbsd amiga atari sunos qnx netware openbsd wdosx palmos macos darwin emx watcom morphos
 BSDs = freebsd netbsd openbsd darwin
 UNIXs = linux $(BSDs) sunos qnx
 FORCE:
@@ -233,8 +233,8 @@ endif
 ifeq ($(OS_TARGET),darwin)
 override TARGET_DIRS+=mysql interbase sqlite
 endif
-override TARGET_UNITS+=db ddg_ds ddg_rec dbwhtml
-override TARGET_RSTS+=dbwhtml
+override TARGET_UNITS+=dbconst db ddg_ds ddg_rec dbwhtml
+override TARGET_RSTS+=dbwhtml dbconst
 override TARGET_EXAMPLEDIRS+=tests
 override INSTALL_FPCPACKAGE=y
 override COMPILER_OPTIONS+=-S2
@@ -573,12 +573,6 @@ STATICLIBPREFIX=
 FPCMADE=fpcmade.nw
 ZIPSUFFIX=nw
 endif
-ifeq ($(OS_TARGET),netwlibc)
-EXEEXT=.nlm
-STATICLIBPREFIX=
-FPCMADE=fpcmade.nwl
-ZIPSUFFIX=nwl
-endif
 ifeq ($(OS_TARGET),macos)
 BATCHEXT=
 EXEEXT=
@@ -731,18 +725,6 @@ FPCMADE=fpcmade.nw
 ZIPSUFFIX=nw
 EXEEXT=.nlm
 endif
-ifeq ($(OS_TARGET),netwlibc)
-STATICLIBPREFIX=
-PPUEXT=.ppu
-OEXT=.o
-ASMEXT=.s
-SMARTEXT=.sl
-STATICLIBEXT=.a
-SHAREDLIBEXT=.nlm
-FPCMADE=fpcmade.nwl
-ZIPSUFFIX=nwl
-EXEEXT=.nlm
-endif
 ifeq ($(OS_TARGET),macos)
 BATCHEXT=
 PPUEXT=.ppu
@@ -989,6 +971,7 @@ ifeq ($(OS_TARGET),linux)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -997,6 +980,7 @@ ifeq ($(OS_TARGET),linux)
 ifeq ($(CPU_TARGET),m68k)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1005,6 +989,7 @@ ifeq ($(OS_TARGET),linux)
 ifeq ($(CPU_TARGET),powerpc)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1013,6 +998,7 @@ ifeq ($(OS_TARGET),linux)
 ifeq ($(CPU_TARGET),sparc)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1021,6 +1007,7 @@ ifeq ($(OS_TARGET),linux)
 ifeq ($(CPU_TARGET),x86_64)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1029,6 +1016,7 @@ ifeq ($(OS_TARGET),linux)
 ifeq ($(CPU_TARGET),arm)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1036,13 +1024,13 @@ endif
 ifeq ($(OS_TARGET),go32v2)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),win32)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1050,13 +1038,13 @@ endif
 ifeq ($(OS_TARGET),os2)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),freebsd)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1065,6 +1053,7 @@ ifeq ($(OS_TARGET),freebsd)
 ifeq ($(CPU_TARGET),m68k)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1073,6 +1062,7 @@ ifeq ($(OS_TARGET),freebsd)
 ifeq ($(CPU_TARGET),x86_64)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1080,13 +1070,13 @@ endif
 ifeq ($(OS_TARGET),beos)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),netbsd)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1095,6 +1085,7 @@ ifeq ($(OS_TARGET),netbsd)
 ifeq ($(CPU_TARGET),m68k)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1103,6 +1094,7 @@ ifeq ($(OS_TARGET),netbsd)
 ifeq ($(CPU_TARGET),powerpc)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1111,6 +1103,7 @@ ifeq ($(OS_TARGET),netbsd)
 ifeq ($(CPU_TARGET),sparc)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1118,43 +1111,38 @@ endif
 ifeq ($(OS_TARGET),amiga)
 ifeq ($(CPU_TARGET),m68k)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),atari)
 ifeq ($(CPU_TARGET),m68k)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),sunos)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),sunos)
 ifeq ($(CPU_TARGET),sparc)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),qnx)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),netware)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),openbsd)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1163,6 +1151,7 @@ ifeq ($(OS_TARGET),openbsd)
 ifeq ($(CPU_TARGET),m68k)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1170,25 +1159,23 @@ endif
 ifeq ($(OS_TARGET),wdosx)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),palmos)
 ifeq ($(CPU_TARGET),m68k)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),macos)
 ifeq ($(CPU_TARGET),powerpc)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),darwin)
 ifeq ($(CPU_TARGET),powerpc)
 REQUIRE_PACKAGES_RTL=1
 REQUIRE_PACKAGES_IBASE=1
+REQUIRE_PACKAGES_POSTGRES=1
 REQUIRE_PACKAGES_MYSQL=1
 REQUIRE_PACKAGES_SQLITE=1
 endif
@@ -1196,25 +1183,16 @@ endif
 ifeq ($(OS_TARGET),emx)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),watcom)
 ifeq ($(CPU_TARGET),i386)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifeq ($(OS_TARGET),morphos)
 ifeq ($(CPU_TARGET),powerpc)
 REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
-endif
-endif
-ifeq ($(OS_TARGET),netwlibc)
-ifeq ($(CPU_TARGET),i386)
-REQUIRE_PACKAGES_RTL=1
-REQUIRE_PACKAGES_IBASE=1
 endif
 endif
 ifdef REQUIRE_PACKAGES_RTL
@@ -1269,6 +1247,32 @@ ifdef UNITDIR_IBASE
 override COMPILER_UNITDIR+=$(UNITDIR_IBASE)
 endif
 endif
+ifdef REQUIRE_PACKAGES_POSTGRES
+PACKAGEDIR_POSTGRES:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /postgres/Makefile.fpc,$(PACKAGESDIR))))))
+ifneq ($(PACKAGEDIR_POSTGRES),)
+ifneq ($(wildcard $(PACKAGEDIR_POSTGRES)/$(OS_TARGET)),)
+UNITDIR_POSTGRES=$(PACKAGEDIR_POSTGRES)/$(OS_TARGET)
+else
+UNITDIR_POSTGRES=$(PACKAGEDIR_POSTGRES)
+endif
+ifdef CHECKDEPEND
+$(PACKAGEDIR_POSTGRES)/$(FPCMADE):
+	$(MAKE) -C $(PACKAGEDIR_POSTGRES) $(FPCMADE)
+override ALLDEPENDENCIES+=$(PACKAGEDIR_POSTGRES)/$(FPCMADE)
+endif
+else
+PACKAGEDIR_POSTGRES=
+UNITDIR_POSTGRES:=$(subst /Package.fpc,,$(strip $(wildcard $(addsuffix /postgres/Package.fpc,$(UNITSDIR)))))
+ifneq ($(UNITDIR_POSTGRES),)
+UNITDIR_POSTGRES:=$(firstword $(UNITDIR_POSTGRES))
+else
+UNITDIR_POSTGRES=
+endif
+endif
+ifdef UNITDIR_POSTGRES
+override COMPILER_UNITDIR+=$(UNITDIR_POSTGRES)
+endif
+endif
 ifdef REQUIRE_PACKAGES_MYSQL
 PACKAGEDIR_MYSQL:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /mysql/Makefile.fpc,$(PACKAGESDIR))))))
 ifneq ($(PACKAGEDIR_MYSQL),)

fcl/db/Makefile.fpc

@@ -14,9 +14,9 @@ dirs_darwin=mysql interbase sqlite
 dirs_netbsd=mysql interbase sqlite
 dirs_openbsd=mysql interbase sqlite
 dirs_win32=mysql interbase sqlite dbase
-units=db ddg_ds ddg_rec dbwhtml
+units=dbconst db ddg_ds ddg_rec dbwhtml
 exampledirs=tests
-rsts=dbwhtml
+rsts=dbwhtml dbconst
 
 [compiler]
 options=-S2

fcl/db/db.pp

@@ -1389,6 +1389,8 @@ Procedure DatabaseErrorFmt (Const Fmt : String; Args : Array Of const;
 
 implementation
 
+uses dbconst;
+
 { ---------------------------------------------------------------------
     Auxiliary functions
   ---------------------------------------------------------------------}
@@ -1420,8 +1422,6 @@ begin
 end;
 
 
-{$i dbs.inc}
-
 { TIndexDef }
 
 constructor TIndexDef.Create(Owner: TIndexDefs; const AName, TheFields: string;
@@ -1572,7 +1572,10 @@ end.
 
 {
   $Log$
-  Revision 1.25  2004-10-10 14:25:21  michael
+  Revision 1.26  2004-10-10 14:45:51  michael
+  + Use of dbconst for resource strings
+
+  Revision 1.25  2004/10/10 14:25:21  michael
   + Small fix for close so it does not check browsemode
 
   Revision 1.24  2004/09/26 16:55:24  michael

fcl/db/dbconst.pp

@@ -0,0 +1,71 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
+    Free Pascal development team
+
+    Constants used for displaying messages in DB units
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+unit dbconst;
+
+Interface
+
+Const
+  SActiveDataset           = 'Operation cannot be performed on an active dataset';
+  SCantSetAutoIncFields    = 'AutoInc Fields are read-only';
+  SConnected               = 'Operation cannot be performed on an connected database';
+  SDatasetReadOnly         = 'Dataset is read-only.';
+  SDatasetRegistered       = 'Dataset already registered : "%s"';
+  SDuplicateFieldName      = 'Duplicate fieldname : "%s"';
+  SErrAssTransaction       = 'Cannot assign transaction while old transaction active!';
+  SErrDatabasenAssigned    = 'Database not assigned!';
+  SErrNoDatabaseAvailable  = 'Invalid operation: Not attached to database';
+  SErrNoSelectStatement    = 'Cannot open a non-select statement';
+  SErrNoStatement          = 'SQL statement not set';
+  SErrTransactionnSet      = 'Transaction not set';
+  SFieldNotFound           = 'Field not found : "%s"';
+  SInactiveDataset         = 'Operation cannot be performed on an inactive dataset';
+  SInvalidDisplayValues    = '"%s" are not valid boolean displayvalues';
+  SInvalidFieldKind        = '%s : invalid field kind : ';
+  SInvalidFieldSize        = 'Invalid field size : %d';
+  SInvalidTypeConversion   = 'Invalid type conversion to %s in field %s';
+  SNeedField               = 'Field %s is required, but not supplied.';
+  SNeedFieldName           = 'Field needs a name';
+  SNoDataset               = 'No dataset asssigned for field : "%s"';
+  SNoDatasetRegistered     = 'No such dataset registered : "%s"';
+  SNoDatasets              = 'No datasets are attached to the database';
+  SNoSuchRecord            = 'Could not find the requested record.';
+  SNoTransactionRegistered = 'No such transaction registered : "%s"';
+  SNoTransactions          = 'No transactions are attached to the database';
+  SNotABoolean             = '"%s" is not a valid boolean';
+  SNotAFloat               = '"%s" is not a valid float';
+  SNotAninteger            = '"%s" is not a valid integer';
+  SNotConnected            = 'Operation cannot be performed on an disconnected database';
+  SNotInEditState          = 'Operation not allowed, dataset "%s" is not in an edit state.';
+  SRangeError              = '%f is not between %f and %f for %s';
+  SReadOnlyField           = 'Field %s cannot be modified, it is read-only.';
+  STransactionRegistered   = 'Transaction already registered : "%s"';
+  SUniDirectional          = 'Operation cannot be performed on an unidirectional dataset';
+  SUnknownField            = 'No field named "%s" was found in dataset "%s"';
+  SUnknownFieldType        = 'Unknown field type : %s';
+
+Implementation
+
+end.  
+
+{
+  $Log$
+  Revision 1.1  2004-10-10 14:45:51  michael
+  + Use of dbconst for resource strings
+
+
+}

fcl/db/dbs.inc

@@ -1,77 +0,0 @@
-{
-    $Id$
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2000 by Michael Van Canneyt, member of the
-    Free Pascal development team
-
-    Constants used for displaying messages in DB unit
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-
-Const
-  SUnknownFieldType = 'Unknown field type : %s';
-  SUnknownField = 'No field named "%s" was found in dataset "%s"';
-  SNeedFieldName = 'Field needs a name';
-  SInvalidTypeConversion = 'Invalid type conversion to %s in field %s';
-  SReadOnlyField = 'Field %s cannot be modified, it is read-only.';
-  SInvalidFieldSize = 'Invalid field size : %d';
-  SNoDataset = 'No dataset asssigned for field : "%s"';
-  SDuplicateFieldName = 'Duplicate fieldname : "%s"';
-  SFieldNotFound = 'Field not found : "%s"';
-  SInvalidFieldKind = '%s : invalid field kind : ';
-  SRangeError = '%f is not between %f and %f for %s';
-  SNotAninteger = '"%s" is not a valid integer';
-  SCantSetAutoIncFields = 'AutoInc Fields are read-only';
-  SNotAFloat = '"%s" is not a valid float';
-  SInvalidDisplayValues = '"%s" are not valid boolean displayvalues';
-  SNotABoolean = '"%s" is not a valid boolean';
-  SInactiveDataset = 'Operation cannot be performed on an inactive dataset';
-  SActiveDataset = 'Operation cannot be performed on an active dataset';
-  SNoDatasets = 'No datasets are attached to the database';
-  SNoTransactions = 'No transactions are attached to the database';
-  SDatasetRegistered = 'Dataset already registered : "%s"';
-  STransactionRegistered = 'Transaction already registered : "%s"';
-  SNoDatasetRegistered = 'No such dataset registered : "%s"';
-  SNoTransactionRegistered = 'No such transaction registered : "%s"';
-  SNotConnected = 'Operation cannot be performed on an disconnected database';
-  SConnected = 'Operation cannot be performed on an connected database';
-  SUniDirectional = 'Operation cannot be performed on an unidirectional dataset';
-  SNoSuchRecord = 'Could not find the requested record.';
-  SDatasetReadOnly = 'Dataset is read-only.';
-  SNeedField = 'Field %s is required, but not supplied.';
-  SNotInEditState = 'Operation not allowed, dataset "%s" is not in an edit state.';
-  SErrNoDatabaseAvailable = 'Invalid operation: Not attached to database';
-  
-
-{
-  $Log$
-  Revision 1.7  2004-09-26 16:55:24  michael
-  * big patch from Joost van der Sluis
-   bufdataset.inc:
-    fix getrecord (prior)
-    getcanmodify default false
-  database.inc / db.inc:
-    Added transactions
-  dataset.inc:
-    raise error if trying to insert into an readonly dataset
-  db.inc:
-    remove published properties from bufdataset
-    changed ancestor of tbufdataset to tdbdataset
-
-  Revision 1.6  2004/08/13 07:06:02  michael
-  + Rework of buffer management by Joost Van der Sluis
-
-  Revision 1.5  2003/08/16 16:42:21  michael
-  + Fixes in TDBDataset etc. Changed MySQLDb to use database as well
-
-  Revision 1.4  2002/09/07 15:15:23  peter
-    * old logs removed and tabs fixed
-
-}

fcl/db/sqldb/sqldb.pp

@@ -215,13 +215,8 @@ type
 
 implementation
 
-ResourceString
-  SErrAssTransaction = 'Cannot assign transaction while old transaction active!';
-  SErrDatabasenAssigned = 'Database not assigned!';
-  SErrTransactionnSet = 'Transaction not set';
-  SErrNoStatement = 'SQL statement not set';
-  SErrNoSelectStatement = 'Cannot open a non-select statement';
-  
+uses dbconst;
+
 { TSQLConnection }
 
 procedure TSQLConnection.SetTransaction(Value : TSQLTransaction);
@@ -654,7 +649,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2004-10-10 14:24:22  michael
+  Revision 1.5  2004-10-10 14:45:52  michael
+  + Use of dbconst for resource strings
+
+  Revision 1.4  2004/10/10 14:24:22  michael
   * Large patch from Joost Van der Sluis.
   * Float fix in interbase
   + Commit and commitretaining for pqconnection