Added TQt4 HEAD

57 files changed, 22918 insertions, 0 deletions

diff --git a/tqtinterface/qt4/src/sql/README.module b/tqtinterface/qt4/src/sql/README.module
new file mode 100644
index 0000000..511d90e
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/README.module
@@ -0,0 +1,37 @@
+Before building the Qt library, the Qt SQL module can be enabled for
+specific databases using 'configure'.  'configure' is located at the
+top of your QTDIR.
+
+Specific databases drivers can be enabled using one of the following
+options:
+
+	./configure [-qt-sql-<driver>] [-plugin-sql-<driver>]
+
+or disabled using the following option:
+
+	./configure [-no-sql-<driver>]
+
+Where <driver> is the name of the driver, for example 'psql'.  This
+will configure the Qt library to compile the specified driver into
+the Qt lib itself.
+
+For example, to build the PostgreSQL driver directly into the Qt
+library, configure Qt like this:
+
+	./configure -qt-sql-psql
+
+In addition, you may need to specify an extra include path, as some
+database drivers require headers for the database they are using,
+for example:
+
+	./configure -qt-sql-psql -I/usr/local/include
+
+If instead you need to build the PostgreSQL driver as a dynamically
+loaded plugin, configure Qt like this:
+
+	./configure -plugin-sql-psql
+
+To compile drivers as dynamically loaded plugins, see the
+QTDIR/plugins/src/sqldrivers directory.  Use 'configure -help'
+for a complete list of configure options.  See the Qt documentation
+for a complete list of supported database drivers.
diff --git a/tqtinterface/qt4/src/sql/drivers/cache/tqsqlcachedresult.cpp b/tqtinterface/qt4/src/sql/drivers/cache/tqsqlcachedresult.cpp
new file mode 100644
index 0000000..39195e9
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/cache/tqsqlcachedresult.cpp
@@ -0,0 +1,259 @@
+/****************************************************************************
+**
+** Implementation of cached TQt SQL result classes
+**
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlcachedresult.h"
+#include <tqdatetime.h>
+
+#ifndef TQT_NO_SQL
+static const uint initial_cache_size = 128;
+
+class TQtSqlCachedResultPrivate
+{
+public:
+    TQtSqlCachedResultPrivate();
+    bool seek(int i);
+    void init(int count, bool fo);
+    void cleanup();
+    TQtSqlCachedResult::RowCache* next();
+    void revertLast();
+
+    TQtSqlCachedResult::RowsetCache *cache;
+    TQtSqlCachedResult::RowCache *current;
+    int rowCacheEnd;
+    int colCount;
+    bool forwardOnly;
+};
+
+TQtSqlCachedResultPrivate::TQtSqlCachedResultPrivate():
+    cache(0), current(0), rowCacheEnd(0), colCount(0), forwardOnly(FALSE)
+{
+}
+
+void TQtSqlCachedResultPrivate::cleanup()
+{
+    if (cache) {
+	for (int i = 0; i < rowCacheEnd; ++i)
+	    delete (*cache)[i];
+	delete cache;
+	cache = 0;
+    }
+    if (forwardOnly)
+	delete current;
+    current = 0;
+    forwardOnly = FALSE;
+    colCount = 0;
+    rowCacheEnd = 0;
+}
+
+void TQtSqlCachedResultPrivate::init(int count, bool fo)
+{
+    cleanup();
+    forwardOnly = fo;
+    colCount = count;
+    if (fo)
+	current = new TQtSqlCachedResult::RowCache(count);
+    else
+	cache = new TQtSqlCachedResult::RowsetCache(initial_cache_size);
+}
+
+TQtSqlCachedResult::RowCache *TQtSqlCachedResultPrivate::next()
+{
+    if (forwardOnly)
+	return current;
+
+    TQ_ASSERT(cache);
+    current = new TQtSqlCachedResult::RowCache(colCount);
+    if (rowCacheEnd == (int)cache->size())
+	cache->resize(cache->size() * 2);
+    cache->insert(rowCacheEnd++, current);
+    return current;
+}
+
+bool TQtSqlCachedResultPrivate::seek(int i)
+{
+    if (forwardOnly || i < 0)
+	return FALSE;
+    if (i >= rowCacheEnd)
+	return FALSE;
+    current = (*cache)[i];
+    return TRUE;
+}
+
+void TQtSqlCachedResultPrivate::revertLast()
+{
+    if (forwardOnly)
+	return;
+    --rowCacheEnd;
+    delete current;
+    current = 0;
+}
+
+//////////////
+
+TQtSqlCachedResult::TQtSqlCachedResult(const TQSqlDriver * db ): TQSqlResult ( db )
+{
+    d = new TQtSqlCachedResultPrivate();
+}
+
+TQtSqlCachedResult::~TQtSqlCachedResult()
+{
+    delete d;
+}
+
+void TQtSqlCachedResult::init(int colCount)
+{
+    d->init(colCount, isForwardOnly());
+}
+
+bool TQtSqlCachedResult::fetch(int i)
+{
+    if ((!isActive()) || (i < 0))
+	return FALSE;
+    if (at() == i)
+	return TRUE;
+    if (d->forwardOnly) {
+	// speed hack - do not copy values if not needed
+	if (at() > i || at() == TQSql::AfterLast)
+	    return FALSE;
+	while(at() < i - 1) {
+	    if (!gotoNext(0))
+		return FALSE;
+	    setAt(at() + 1);
+	}
+	if (!gotoNext(d->current))
+	    return FALSE;
+	setAt(at() + 1);
+	return TRUE;
+    }
+    if (d->seek(i)) {
+	setAt(i);
+	return TRUE;
+    }
+    setAt(d->rowCacheEnd - 1);
+    while (at() < i) {
+	if (!cacheNext())
+	    return FALSE;
+    }
+    return TRUE;
+}
+
+bool TQtSqlCachedResult::fetchNext()
+{
+    if (d->seek(at() + 1)) {
+	setAt(at() + 1);
+	return TRUE;
+    }
+    return cacheNext();
+}
+
+bool TQtSqlCachedResult::fetchPrev()
+{
+    return fetch(at() - 1);
+}
+
+bool TQtSqlCachedResult::fetchFirst()
+{
+    if (d->forwardOnly && at() != TQSql::BeforeFirst) {
+	return FALSE;
+    }
+    if (d->seek(0)) {
+	setAt(0);
+	return TRUE;
+    }
+    return cacheNext();
+}
+
+bool TQtSqlCachedResult::fetchLast()
+{
+    if (at() == TQSql::AfterLast) {
+	if (d->forwardOnly)
+	    return FALSE;
+	else
+	    return fetch(d->rowCacheEnd - 1);
+    }
+
+    int i = at();
+    while (fetchNext())
+	i++; /* brute force */
+    if (d->forwardOnly && at() == TQSql::AfterLast) {
+	setAt(i);
+	return TRUE;
+    } else {
+	return fetch(d->rowCacheEnd - 1);
+    }
+}
+
+TQVariant TQtSqlCachedResult::data(int i)
+{
+    if (!d->current || i >= (int)d->current->size() || i < 0)
+	return TQVariant();
+
+    return (*d->current)[i];
+}
+
+bool TQtSqlCachedResult::isNull(int i)
+{
+    if (!d->current || i >= (int)d->current->size() || i < 0)
+	return TRUE;
+
+    return (*d->current)[i].isNull();
+}
+
+void TQtSqlCachedResult::cleanup()
+{
+    setAt(TQSql::BeforeFirst);
+    setActive(FALSE);
+    d->cleanup();
+}
+
+bool TQtSqlCachedResult::cacheNext()
+{
+    if (!gotoNext(d->next())) {
+	d->revertLast();
+	return FALSE;
+    }
+    setAt(at() + 1);
+    return TRUE;
+}
+
+int TQtSqlCachedResult::colCount() const
+{
+    return d->colCount;
+}
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/drivers/cache/tqsqlcachedresult.h b/tqtinterface/qt4/src/sql/drivers/cache/tqsqlcachedresult.h
new file mode 100644
index 0000000..c066770
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/cache/tqsqlcachedresult.h
@@ -0,0 +1,104 @@
+/****************************************************************************
+**
+** Definition of shared TQt SQL module classes
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLCACHEDRESULT_H
+#define TQSQLCACHEDRESULT_H
+
+//
+//  W A R N I N G
+//  -------------
+//
+// This file is not part of the TQt API.  It exists for the convenience
+// of other TQt classes.  This header file may change from version to
+// version without notice, or even be removed.
+//
+// We mean it.
+//
+//
+
+#include <tqglobal.h>
+#include <tqvariant.h>
+#include <tqptrvector.h>
+#include <tqvaluevector.h>
+#include <tqsqlresult.h>
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQtSqlCachedResultPrivate;
+
+class TQM_EXPORT_SQL TQtSqlCachedResult: public TQSqlResult
+{
+public:
+    virtual ~TQtSqlCachedResult();
+
+    typedef TQValueVector<TQVariant> RowCache;
+    typedef TQPtrVector<RowCache> RowsetCache;
+
+protected:    
+    TQtSqlCachedResult(const TQSqlDriver * db);
+
+    void init(int colCount);
+    void cleanup();
+    bool cacheNext();
+
+    virtual bool gotoNext(RowCache* row) = 0;
+
+    TQVariant data(int i);
+    bool isNull(int i);
+    bool fetch(int i);
+    bool fetchNext();
+    bool fetchPrev();
+    bool fetchFirst();
+    bool fetchLast();
+
+    int colCount() const;
+
+private:
+    TQtSqlCachedResultPrivate *d;
+};
+
+
+#endif
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/drivers/ibase/tqsql_ibase.cpp b/tqtinterface/qt4/src/sql/drivers/ibase/tqsql_ibase.cpp
new file mode 100644
index 0000000..955ecc4
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/ibase/tqsql_ibase.cpp
@@ -0,0 +1,1078 @@
+/****************************************************************************
+**
+** Implementation of Interbase driver classes.
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+** EDITIONS: FREE, ENTERPRISE
+**
+** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+**
+****************************************************************************/
+
+#include "tqsql_ibase.h"
+
+#include <tqdatetime.h>
+#include <private/tqsqlextension_p.h>
+
+#include <ibase.h>
+#include <stdlib.h>
+#include <limits.h>
+#include <math.h>
+
+#define TQIBASE_DRIVER_NAME "TQIBASE"
+
+class TQIBasePreparedExtension : public TQSqlExtension
+{
+public:
+    TQIBasePreparedExtension(TQIBaseResult *r)
+	: result(r) {}
+
+    bool prepare(const TQString &query)
+    {
+	return result->prepare(query);
+    }
+    
+    bool exec()
+    {
+	return result->exec();
+    }
+
+    TQIBaseResult *result;
+};
+
+static bool getIBaseError(TQString& msg, ISC_STATUS* status, long &sqlcode)
+{
+    if (status[0] != 1 || status[1] <= 0)
+	return FALSE;
+    
+    sqlcode = isc_sqlcode(status);
+    char buf[512];
+    isc_sql_interprete(sqlcode, buf, 512);
+    msg = TQString::fromUtf8(buf);
+    return TRUE;
+}
+
+static void createDA(XSTQLDA *&sqlda)
+{
+    sqlda = (XSTQLDA *) malloc(XSTQLDA_LENGTH(1));
+    sqlda->sqln = 1;
+    sqlda->sqld = 0;
+    sqlda->version = STQLDA_VERSION1;
+    sqlda->sqlvar[0].sqlind = 0;
+    sqlda->sqlvar[0].sqldata = 0;
+}
+
+static void enlargeDA(XSTQLDA *&sqlda, int n)
+{
+    free(sqlda);
+    sqlda = (XSTQLDA *) malloc(XSTQLDA_LENGTH(n));
+    sqlda->sqln = n;
+    sqlda->version = STQLDA_VERSION1;    
+}
+
+static void initDA(XSTQLDA *sqlda)
+{
+    for (int i = 0; i < sqlda->sqld; ++i) {
+	switch (sqlda->sqlvar[i].sqltype & ~1) {
+	case STQL_INT64:
+	case STQL_LONG:
+	case STQL_SHORT:
+	case STQL_FLOAT:
+	case STQL_DOUBLE:
+	case STQL_TIMESTAMP:
+	case STQL_TYPE_TIME:
+        case STQL_TYPE_DATE:
+	case STQL_TEXT:
+	case STQL_BLOB:
+	    sqlda->sqlvar[i].sqldata = (char*)malloc(sqlda->sqlvar[i].sqllen);
+	    break;
+	case STQL_VARYING:
+	    sqlda->sqlvar[i].sqldata = (char*)malloc(sqlda->sqlvar[i].sqllen + sizeof(short));
+	    break;
+	default:
+	    // not supported - do not bind.
+	    sqlda->sqlvar[i].sqldata = 0;
+	    break;
+	}
+	if (sqlda->sqlvar[i].sqltype & 1) {
+	    sqlda->sqlvar[i].sqlind = (short*)malloc(sizeof(short));
+	    *(sqlda->sqlvar[i].sqlind) = 0;
+	} else {
+	    sqlda->sqlvar[i].sqlind = 0;
+	}
+    }
+}
+
+static void delDA(XSTQLDA *&sqlda)
+{
+    if (!sqlda)
+	return;
+    for (int i = 0; i < sqlda->sqld; ++i) {
+	free(sqlda->sqlvar[i].sqlind);
+	free(sqlda->sqlvar[i].sqldata);
+    }
+    free(sqlda);
+    sqlda = 0;    
+}
+
+static TQVariant::Type qIBaseTypeName(int iType)
+{
+    switch (iType) {
+    case blr_varying:
+    case blr_varying2:
+    case blr_text:
+    case blr_cstring:
+    case blr_cstring2:
+	return TQVariant::String;
+    case blr_sql_time:
+	return TQVariant::Time;
+    case blr_sql_date:
+        return TQVariant::Date;
+    case blr_timestamp:
+	return TQVariant::DateTime;
+    case blr_blob:
+	return TQVariant::ByteArray;
+    case blr_quad:
+    case blr_short:
+    case blr_long:
+	return TQVariant::Int;
+    case blr_int64:
+	return TQVariant::LongLong;
+    case blr_float:
+    case blr_d_float:
+    case blr_double:
+	return TQVariant::Double;
+    }
+    return TQVariant::Invalid;
+}
+
+static TQVariant::Type qIBaseTypeName2(int iType)
+{
+    switch(iType & ~1) {
+    case STQL_VARYING:
+    case STQL_TEXT:
+	return TQVariant::String;
+    case STQL_LONG:
+    case STQL_SHORT:
+	return TQVariant::Int;
+    case STQL_INT64:
+	return TQVariant::LongLong;
+    case STQL_FLOAT:
+    case STQL_DOUBLE:
+	return TQVariant::Double;
+    case STQL_TIMESTAMP:
+	return TQVariant::DateTime;
+    case STQL_TYPE_DATE:
+        return TQVariant::Date;
+    case STQL_TYPE_TIME:
+	return TQVariant::Time;
+    default:
+	return TQVariant::Invalid;
+    }
+}
+
+static ISC_TIME toTime(const TQTime &t)
+{
+    static const TQTime midnight(0, 0, 0, 0);
+    return (ISC_TIME)midnight.msecsTo(t) * 10;
+}
+
+static ISC_DATE toDate(const TQDate &d)
+{
+    static const TQDate basedate(1858, 11, 17);
+    return (ISC_DATE)basedate.daysTo(d);
+}
+
+static ISC_TIMESTAMP toTimeStamp(const TQDateTime &dt)
+{
+    ISC_TIMESTAMP ts;
+    ts.timestamp_time = toTime(dt.time());
+    ts.timestamp_date = toDate(dt.date());
+    return ts;
+}
+
+static TQTime toTQTime(ISC_TIME time)
+{
+    // have to demangle the structure ourselves because isc_decode_time
+    // strips the msecs
+    static const TQTime t;
+    return t.addMSecs(time / 10);
+}
+
+static TQDate toTQDate(ISC_DATE d)
+{
+    static const TQDate bd(1858, 11, 17);
+    return bd.addDays(d);
+}
+
+static TQDateTime toTQDateTime(ISC_TIMESTAMP *ts)
+{
+    return TQDateTime(toTQDate(ts->timestamp_date), toTQTime(ts->timestamp_time));
+}
+
+class TQIBaseDriverPrivate
+{
+public:
+    TQIBaseDriverPrivate(TQIBaseDriver *d): q(d)
+    {
+	ibase = 0;
+	trans = 0;
+    }
+    
+    bool isError(const TQString &msg = TQString::null, TQSqlError::Type typ = TQSqlError::Unknown) 
+    {
+	TQString imsg;
+	long sqlcode;
+	if (!getIBaseError(imsg, status, sqlcode))
+	    return FALSE;
+	
+	q->setLastError(TQSqlError(msg, imsg, typ, (int)sqlcode));
+	return TRUE;
+    }
+
+public:    
+    TQIBaseDriver* q;
+    isc_db_handle ibase;
+    isc_tr_handle trans;
+    ISC_STATUS status[20];    
+};
+
+class TQIBaseResultPrivate
+{
+public:
+    TQIBaseResultPrivate(TQIBaseResult *d, const TQIBaseDriver *ddb);
+    ~TQIBaseResultPrivate() { cleanup(); }
+    
+    void cleanup();
+    bool isError(const TQString &msg = TQString::null, TQSqlError::Type typ = TQSqlError::Unknown) 
+    {
+	TQString imsg;
+	long sqlcode;
+	if (!getIBaseError(imsg, status, sqlcode))
+	    return FALSE;
+	
+	q->setLastError(TQSqlError(msg, imsg, typ, (int)sqlcode));
+	return TRUE;
+    }    
+    
+    bool transaction();
+    bool commit();
+
+    bool isSelect();
+    TQVariant fetchBlob(ISC_TQUAD *bId);
+    void writeBlob(int i, const TQByteArray &ba);
+
+public:    
+    TQIBaseResult *q; 
+    const TQIBaseDriver *db;
+    ISC_STATUS status[20];
+    isc_tr_handle trans;
+    //indicator whether we have a local transaction or a transaction on driver level    
+    bool localTransaction;
+    isc_stmt_handle stmt;
+    isc_db_handle ibase;
+    XSTQLDA *sqlda; // output sqlda
+    XSTQLDA *inda; // input parameters
+    int queryType;
+};
+
+TQIBaseResultPrivate::TQIBaseResultPrivate(TQIBaseResult *d, const TQIBaseDriver *ddb):
+    q(d), db(ddb), trans(0), stmt(0), ibase(ddb->d->ibase), sqlda(0), inda(0), queryType(-1)
+{
+    localTransaction = (ddb->d->ibase == 0);
+}
+
+void TQIBaseResultPrivate::cleanup()
+{
+    if (stmt) {
+	isc_dsql_free_statement(status, &stmt, DSTQL_drop);
+	stmt = 0;
+    }
+
+    commit();
+    if (!localTransaction)
+	trans = 0;
+
+    delDA(sqlda);
+    delDA(inda);
+
+    queryType = -1;
+    q->cleanup();
+}
+
+void TQIBaseResultPrivate::writeBlob(int i, const TQByteArray &ba)
+{
+    isc_blob_handle handle = 0;
+    ISC_TQUAD *bId = (ISC_TQUAD*)inda->sqlvar[i].sqldata;
+    isc_create_blob2(status, &ibase, &trans, &handle, bId, 0, 0);
+    if (!isError("Unable to create BLOB", TQSqlError::Statement)) {
+	uint i = 0;
+	while (i < ba.size()) {
+	    isc_put_segment(status, &handle, TQMIN(ba.size() - i, SHRT_MAX), ba.data());
+	    if (isError("Unable to write BLOB"))
+		break;
+	    i += SHRT_MAX;
+	}
+    }
+    isc_close_blob(status, &handle);
+}
+
+TQVariant TQIBaseResultPrivate::fetchBlob(ISC_TQUAD *bId)
+{
+    isc_blob_handle handle = 0;
+
+    isc_open_blob2(status, &ibase, &trans, &handle, bId, 0, 0);
+    if (isError("Unable to open BLOB", TQSqlError::Statement))
+	return TQVariant();
+
+    unsigned short len = 0;
+    TQByteArray ba(255);
+    ISC_STATUS stat = isc_get_segment(status, &handle, &len, ba.size(), ba.data());
+    while (status[1] == isc_segment) {
+	uint osize = ba.size();
+	// double the amount of data fetched on each iteration
+	ba.resize(TQMIN(ba.size() * 2, SHRT_MAX));
+	stat = isc_get_segment(status, &handle, &len, osize, ba.data() + osize);
+    }
+    bool isErr = isError("Unable to read BLOB", TQSqlError::Statement);
+    isc_close_blob(status, &handle);
+    if (isErr)
+	return TQVariant();
+
+    if (ba.size() > 255)
+	ba.resize(ba.size() / 2 + len);
+    else
+	ba.resize(len);
+
+    return ba;
+}
+
+bool TQIBaseResultPrivate::isSelect()
+{
+    char acBuffer[9];
+    char qType = isc_info_sql_stmt_type;
+    isc_dsql_sql_info(status, &stmt, 1, &qType, sizeof(acBuffer), acBuffer);
+    if (isError("Could not get query info", TQSqlError::Statement))
+	return FALSE;    
+    int iLength = isc_vax_integer(&acBuffer[1], 2);
+    queryType = isc_vax_integer(&acBuffer[3], iLength);
+    return (queryType == isc_info_sql_stmt_select);
+}
+
+bool TQIBaseResultPrivate::transaction()
+{
+    if (trans)
+	return TRUE;
+    if (db->d->trans) {
+	localTransaction = FALSE;
+	trans = db->d->trans;
+	return TRUE;
+    }
+    localTransaction = TRUE;
+    
+    isc_start_transaction(status, &trans, 1, &ibase, 0, NULL);
+    if (isError("Could not start transaction", TQSqlError::Statement))
+	return FALSE;
+    
+    return TRUE;
+}
+
+// does nothing if the transaction is on the
+// driver level
+bool TQIBaseResultPrivate::commit()
+{
+    if (!trans)
+	return FALSE;
+    // don't commit driver's transaction, the driver will do it for us
+    if (!localTransaction)
+	return TRUE;
+    
+    isc_commit_transaction(status, &trans);
+    trans = 0;
+    return !isError("Unable to commit transaction", TQSqlError::Statement);
+}
+
+//////////
+
+TQIBaseResult::TQIBaseResult(const TQIBaseDriver* db):
+    TQtSqlCachedResult(db)
+{
+    d = new TQIBaseResultPrivate(this, db);
+    setExtension(new TQIBasePreparedExtension(this));
+}
+
+TQIBaseResult::~TQIBaseResult()
+{
+    delete d;
+}
+
+bool TQIBaseResult::prepare(const TQString& query)
+{
+    //qDebug("prepare: %s", query.ascii());
+    if (!driver() || !driver()->isOpen() || driver()->isOpenError())
+	return FALSE;
+    d->cleanup();
+    setActive(FALSE);
+    setAt(TQSql::BeforeFirst);
+    
+    createDA(d->sqlda);
+    createDA(d->inda);
+    
+    if (!d->transaction())
+	return FALSE;
+    
+    isc_dsql_allocate_statement(d->status, &d->ibase, &d->stmt);
+    if (d->isError("Could not allocate statement", TQSqlError::Statement))
+	return FALSE;
+    isc_dsql_prepare(d->status, &d->trans, &d->stmt, 0, query.utf8().data(), 3, d->sqlda);
+    if (d->isError("Could not prepare statement", TQSqlError::Statement))
+	return FALSE;
+    
+    isc_dsql_describe_bind(d->status, &d->stmt, 1, d->inda);
+    if (d->isError("Could not describe input statement", TQSqlError::Statement))
+	return FALSE;
+    if (d->inda->sqld > d->inda->sqln) {
+	enlargeDA(d->inda, d->inda->sqld);
+
+	isc_dsql_describe_bind(d->status, &d->stmt, 1, d->inda);
+	if (d->isError("Could not describe input statement", TQSqlError::Statement))
+	    return FALSE;
+    }
+    initDA(d->inda);    
+    if (d->sqlda->sqld > d->sqlda->sqln) {
+	// need more field descriptors
+	enlargeDA(d->sqlda, d->sqlda->sqld);
+
+	isc_dsql_describe(d->status, &d->stmt, 1, d->sqlda);
+	if (d->isError("Could not describe statement", TQSqlError::Statement))
+	    return FALSE;
+    }
+    initDA(d->sqlda);
+ 
+    setSelect(d->isSelect());
+    if (!isSelect()) {
+	free(d->sqlda);
+	d->sqlda = 0;
+    }
+
+    return TRUE;
+}
+
+bool TQIBaseResult::exec()
+{    
+    if (!driver() || !driver()->isOpen() || driver()->isOpenError())
+	return FALSE;
+    setActive(FALSE);
+    setAt(TQSql::BeforeFirst);
+
+    if (d->inda && extension()->index.count() > 0) {
+	TQMap<int, TQString>::ConstIterator it;
+	if ((int)extension()->index.count() > d->inda->sqld) {
+	    qWarning("TQIBaseResult::exec: Parameter mismatch, expected %d, got %d parameters", d->inda->sqld, extension()->index.count());
+	    return FALSE;
+	}
+	int para = 0;
+	for (it = extension()->index.constBegin(); it != extension()->index.constEnd(); ++it, ++para) {
+	    if (para >= d->inda->sqld)
+		break;
+	    if (!d->inda->sqlvar[para].sqldata)
+		continue;
+	    const TQVariant val(extension()->values[it.data()].value);
+	    if (d->inda->sqlvar[para].sqltype & 1) {
+		if (val.isNull()) {
+		    // set null indicator
+		    *(d->inda->sqlvar[para].sqlind) = 1;
+		    // and set the value to 0, otherwise it would count as empty string.
+		    *((short*)d->inda->sqlvar[para].sqldata) = 0;
+		    continue;
+		}
+		// a value of 0 means non-null.
+		*(d->inda->sqlvar[para].sqlind) = 0;
+	    }
+	    switch(d->inda->sqlvar[para].sqltype & ~1) {
+	    case STQL_INT64:
+		if (d->inda->sqlvar[para].sqlscale < 0)
+		    *((TQ_LLONG*)d->inda->sqlvar[para].sqldata) = TQ_LLONG(val.toDouble() * 
+									 pow(10.0, d->inda->sqlvar[para].sqlscale * -1));
+		else
+		    *((TQ_LLONG*)d->inda->sqlvar[para].sqldata) = val.toLongLong();
+		break;
+	    case STQL_LONG:
+		*((long*)d->inda->sqlvar[para].sqldata) = (long)val.toLongLong();
+		break;
+	    case STQL_SHORT:
+		*((short*)d->inda->sqlvar[para].sqldata) = (short)val.toInt();
+		break;
+	    case STQL_FLOAT:
+		*((float*)d->inda->sqlvar[para].sqldata) = (float)val.toDouble();
+		break;
+	    case STQL_DOUBLE:
+		*((double*)d->inda->sqlvar[para].sqldata) = val.toDouble();
+		break;
+	    case STQL_TIMESTAMP:
+		*((ISC_TIMESTAMP*)d->inda->sqlvar[para].sqldata) = toTimeStamp(val.toDateTime());
+		break;
+	    case STQL_TYPE_TIME:
+		*((ISC_TIME*)d->inda->sqlvar[para].sqldata) = toTime(val.toTime());
+		break;
+            case STQL_TYPE_DATE:
+		*((ISC_DATE*)d->inda->sqlvar[para].sqldata) = toDate(val.toDate());
+		break;
+	    case STQL_VARYING: {
+		TQCString str(val.toString().utf8()); // keep a copy of the string alive in this scope
+		short buflen = d->inda->sqlvar[para].sqllen;
+		if (str.length() < (uint)buflen)
+		    buflen = str.length();
+		*(short*)d->inda->sqlvar[para].sqldata = buflen; // first two bytes is the length
+		memcpy(d->inda->sqlvar[para].sqldata + sizeof(short), str.data(), buflen);
+		break; }
+	    case STQL_TEXT: {
+		TQCString str(val.toString().utf8().leftJustify(d->inda->sqlvar[para].sqllen, ' ', TRUE));
+		memcpy(d->inda->sqlvar[para].sqldata, str.data(), d->inda->sqlvar[para].sqllen);
+		break; }
+	case STQL_BLOB:
+		d->writeBlob(para, val.toByteArray());
+		break;
+	    default:
+		break;
+	    }
+	}
+    }
+
+    if (colCount()) {
+	isc_dsql_free_statement(d->status, &d->stmt, DSTQL_close);
+	if (d->isError("Unable to close statement"))
+	    return FALSE;
+	cleanup();
+    }
+    if (d->sqlda)
+	init(d->sqlda->sqld);
+    isc_dsql_execute2(d->status, &d->trans, &d->stmt, 1, d->inda, 0);
+    if (d->isError("Unable to execute query"))
+	return FALSE;
+
+    setActive(TRUE);
+    return TRUE;
+}
+
+bool TQIBaseResult::reset (const TQString& query)
+{
+//    qDebug("reset: %s", query.ascii());
+    if (!driver() || !driver()->isOpen() || driver()->isOpenError())
+	return FALSE;
+    d->cleanup();
+    setActive(FALSE);
+    setAt(TQSql::BeforeFirst);
+    
+    createDA(d->sqlda);
+
+    if (!d->transaction())
+	return FALSE;
+    
+    isc_dsql_allocate_statement(d->status, &d->ibase, &d->stmt);
+    if (d->isError("Could not allocate statement", TQSqlError::Statement))
+	return FALSE;
+    isc_dsql_prepare(d->status, &d->trans, &d->stmt, 0, query.utf8().data(), 3, d->sqlda);
+    if (d->isError("Could not prepare statement", TQSqlError::Statement))
+	return FALSE;
+    
+    if (d->sqlda->sqld > d->sqlda->sqln) {
+	// need more field descriptors
+	int n = d->sqlda->sqld;
+	free(d->sqlda);
+	d->sqlda = (XSTQLDA *) malloc(XSTQLDA_LENGTH(n));
+	d->sqlda->sqln = n;
+	d->sqlda->version = STQLDA_VERSION1;
+
+	isc_dsql_describe(d->status, &d->stmt, 1, d->sqlda);
+	if (d->isError("Could not describe statement", TQSqlError::Statement))
+	    return FALSE;
+    }
+    
+    initDA(d->sqlda);
+
+    setSelect(d->isSelect());
+    if (isSelect()) {
+	init(d->sqlda->sqld);
+    } else {
+	free(d->sqlda);
+	d->sqlda = 0;
+    }
+    
+    isc_dsql_execute(d->status, &d->trans, &d->stmt, 1, 0);
+    if (d->isError("Unable to execute query"))
+	return FALSE;
+
+    // commit non-select queries (if they are local)
+    if (!isSelect() && !d->commit())
+	return FALSE;
+    
+    setActive(TRUE);
+    return TRUE;
+}
+
+bool TQIBaseResult::gotoNext(TQtSqlCachedResult::RowCache* row)
+{
+    ISC_STATUS stat = isc_dsql_fetch(d->status, &d->stmt, 1, d->sqlda);
+    
+    if (stat == 100) {
+	// no more rows
+	setAt(TQSql::AfterLast);
+	return FALSE;
+    }
+    if (d->isError("Could not fetch next item", TQSqlError::Statement))
+	return FALSE;
+    if (!row) // not interested in actual values
+	return TRUE;
+
+    TQ_ASSERT(row);
+    TQ_ASSERT((int)row->size() == d->sqlda->sqld);
+    for (int i = 0; i < d->sqlda->sqld; ++i) {
+	char *buf = d->sqlda->sqlvar[i].sqldata;
+	int size = d->sqlda->sqlvar[i].sqllen;
+	TQ_ASSERT(buf);
+	
+	if ((d->sqlda->sqlvar[i].sqltype & 1) && *d->sqlda->sqlvar[i].sqlind) {
+	    // null value
+	    TQVariant v;
+	    v.cast(qIBaseTypeName2(d->sqlda->sqlvar[i].sqltype));
+	    (*row)[i] = v;
+	    continue;
+	}
+    
+	switch(d->sqlda->sqlvar[i].sqltype & ~1) {
+	case STQL_VARYING:
+	    // pascal strings - a short with a length information followed by the data
+	    (*row)[i] = TQString::fromUtf8(buf + sizeof(short), *(short*)buf);
+	    break;
+	case STQL_INT64:
+	    if (d->sqlda->sqlvar[i].sqlscale < 0)
+		(*row)[i] = *(TQ_LLONG*)buf * pow(10.0, d->sqlda->sqlvar[i].sqlscale);
+	    else
+		(*row)[i] = TQVariant(*(TQ_LLONG*)buf);
+	    break;
+	case STQL_LONG:
+	    if (sizeof(int) == sizeof(long)) //dear compiler: please optimize me out.
+		(*row)[i] = TQVariant((int)(*(long*)buf));
+	    else
+		(*row)[i] = TQVariant((TQ_LLONG)(*(long*)buf));
+	    break;
+	case STQL_SHORT:
+	    (*row)[i] = TQVariant((int)(*(short*)buf));
+	    break;
+	case STQL_FLOAT:
+	    (*row)[i] = TQVariant((double)(*(float*)buf));	    
+	    break;
+	case STQL_DOUBLE:
+	    (*row)[i] = TQVariant(*(double*)buf);
+	    break;
+	case STQL_TIMESTAMP:
+	    (*row)[i] = toTQDateTime((ISC_TIMESTAMP*)buf);
+            break;
+	case STQL_TYPE_TIME:
+	    (*row)[i] = toTQTime(*(ISC_TIME*)buf);
+	    break;
+        case STQL_TYPE_DATE:
+	    (*row)[i] = toTQDate(*(ISC_DATE*)buf);
+            break;
+	case STQL_TEXT:
+	    (*row)[i] = TQString::fromUtf8(buf, size);
+	    break;
+	case STQL_BLOB:
+	    (*row)[i] = d->fetchBlob((ISC_TQUAD*)buf);
+	    break;
+	default:
+	    // unknown type - don't even try to fetch
+	    (*row)[i] = TQVariant();
+	    break;
+	}	
+    }
+
+    return TRUE;    
+}
+
+int TQIBaseResult::size()
+{
+    static char sizeInfo[] = {isc_info_sql_records};
+    char buf[33];
+    
+    if (!isActive() || !isSelect())
+	return -1;
+    
+    isc_dsql_sql_info(d->status, &d->stmt, sizeof(sizeInfo), sizeInfo, sizeof(buf), buf);
+    for (char* c = buf + 3; *c != isc_info_end; /*nothing*/) {
+	char ct = *c++;
+	short len = isc_vax_integer(c, 2);
+	c += 2;
+	int val = isc_vax_integer(c, len);
+	c += len;
+	if (ct == isc_info_req_select_count)
+	    return val;
+    }
+    return -1;
+}
+
+int TQIBaseResult::numRowsAffected()
+{
+    static char acCountInfo[] = {isc_info_sql_records};
+    char cCountType;
+
+    switch (d->queryType) {
+    case isc_info_sql_stmt_select:
+	cCountType = isc_info_req_select_count;
+	break;
+    case isc_info_sql_stmt_update:
+	cCountType = isc_info_req_update_count;
+	break;
+    case isc_info_sql_stmt_delete:
+	cCountType = isc_info_req_delete_count;
+	break;
+    case isc_info_sql_stmt_insert:
+	cCountType = isc_info_req_insert_count;
+	break;
+    }
+
+    char acBuffer[33];
+    int iResult = -1;    
+    isc_dsql_sql_info(d->status, &d->stmt, sizeof(acCountInfo), acCountInfo, sizeof(acBuffer), acBuffer);
+    if (d->isError("Could not get statement info", TQSqlError::Statement))
+	return -1;
+    for (char *pcBuf = acBuffer + 3; *pcBuf != isc_info_end; /*nothing*/) {
+	char cType = *pcBuf++;
+	short sLength = isc_vax_integer (pcBuf, 2);
+	pcBuf += 2;
+	int iValue = isc_vax_integer (pcBuf, sLength);
+	pcBuf += sLength;
+		
+	if (cType == cCountType) {
+	    iResult = iValue;
+	    break;
+	}
+    }
+    return iResult;    
+}
+
+/*********************************/
+
+TQIBaseDriver::TQIBaseDriver(TQObject * tqparent, const char * name)
+    : TQSqlDriver(tqparent, name ? name : TQIBASE_DRIVER_NAME)
+{
+    d = new TQIBaseDriverPrivate(this);
+}
+
+TQIBaseDriver::TQIBaseDriver(void *connection, TQObject *tqparent, const char *name)
+    : TQSqlDriver(tqparent, name ? name : TQIBASE_DRIVER_NAME)
+{
+    d = new TQIBaseDriverPrivate(this);
+    d->ibase = (isc_db_handle)connection;
+    setOpen(TRUE);
+    setOpenError(FALSE);
+}
+
+TQIBaseDriver::~TQIBaseDriver()
+{
+    delete d;
+}
+
+bool TQIBaseDriver::hasFeature(DriverFeature f) const
+{
+    switch (f) {
+    case Transactions:
+//    case QuerySize:
+    case PreparedQueries:
+    case PositionalPlaceholders:
+    case Unicode:
+    case BLOB:
+        return TRUE;
+    default:
+        return FALSE;
+    }
+}
+
+bool TQIBaseDriver::open(const TQString & db,
+	  const TQString & user,
+	  const TQString & password,
+	  const TQString & host,
+	  int /*port*/,
+	  const TQString & /* connOpts */)
+{
+    if (isOpen())
+        close();
+    
+    static const char enc[8] = "UTF_FSS";
+    TQCString usr = user.local8Bit();
+    TQCString pass = password.local8Bit();
+    usr.truncate(255);
+    pass.truncate(255);
+
+    TQByteArray ba(usr.length() + pass.length() + sizeof(enc) + 6);
+    int i = -1;
+    ba[++i] = isc_dpb_version1;
+    ba[++i] = isc_dpb_user_name;
+    ba[++i] = usr.length();
+    memcpy(&ba[++i], usr.data(), usr.length());
+    i += usr.length();
+    ba[i] = isc_dpb_password;
+    ba[++i] = pass.length();
+    memcpy(&ba[++i], pass.data(), pass.length());
+    i += pass.length();
+    ba[i] = isc_dpb_lc_ctype;
+    ba[++i] = sizeof(enc) - 1;
+    memcpy(&ba[++i], enc, sizeof(enc) - 1);
+    i += sizeof(enc) - 1;
+
+    TQString ldb;
+    if (!host.isEmpty())
+	ldb += host + ":";
+    ldb += db;
+    isc_attach_database(d->status, 0, (char*)ldb.latin1(), &d->ibase, i, ba.data());
+    if (d->isError("Error opening database", TQSqlError::Connection)) {
+	setOpenError(TRUE);
+	return FALSE;
+    }
+    
+    setOpen(TRUE);
+    return TRUE;
+}
+
+void TQIBaseDriver::close()
+{
+    if (isOpen()) {
+	isc_detach_database(d->status, &d->ibase);
+	d->ibase = 0;
+	setOpen(FALSE);
+	setOpenError(FALSE);
+    }
+}
+
+TQSqlQuery TQIBaseDriver::createQuery() const
+{
+    return TQSqlQuery(new TQIBaseResult(this));
+}
+
+bool TQIBaseDriver::beginTransaction()
+{
+    if (!isOpen() || isOpenError())
+	return FALSE;
+    if (d->trans)
+	return FALSE;
+    
+    isc_start_transaction(d->status, &d->trans, 1, &d->ibase, 0, NULL);    
+    return !d->isError("Could not start transaction", TQSqlError::Transaction);
+}
+
+bool TQIBaseDriver::commitTransaction()
+{
+    if (!isOpen() || isOpenError())
+	return FALSE;
+    if (!d->trans)
+	return FALSE;
+
+    isc_commit_transaction(d->status, &d->trans);
+    d->trans = 0;
+    return !d->isError("Unable to commit transaction", TQSqlError::Transaction);
+}
+
+bool TQIBaseDriver::rollbackTransaction()
+{
+    if (!isOpen() || isOpenError())
+	return FALSE;
+    if (!d->trans)
+	return FALSE;
+    
+    isc_rollback_transaction(d->status, &d->trans);
+    d->trans = 0;
+    return !d->isError("Unable to rollback transaction", TQSqlError::Transaction);
+}
+
+TQStringList TQIBaseDriver::tables(const TQString& typeName) const
+{
+    TQStringList res;
+    if (!isOpen())
+	return res;
+
+    int type = typeName.isEmpty() ? (int)TQSql::Tables | (int)TQSql::Views : typeName.toInt();
+    TQString typeFilter;
+
+    if (type == (int)TQSql::SystemTables) {
+	typeFilter += "RDB$SYSTEM_FLAG != 0";
+    } else if (type == ((int)TQSql::SystemTables | (int)TQSql::Views)) {
+	typeFilter += "RDB$SYSTEM_FLAG != 0 OR RDB$VIEW_BLR NOT NULL";
+    } else {
+	if (!(type & (int)TQSql::SystemTables))
+	    typeFilter += "RDB$SYSTEM_FLAG = 0 AND ";
+	if (!(type & (int)TQSql::Views))
+	    typeFilter += "RDB$VIEW_BLR IS NULL AND ";
+	if (!(type & (int)TQSql::Tables))
+	    typeFilter += "RDB$VIEW_BLR IS NOT NULL AND ";
+	if (!typeFilter.isEmpty())
+	    typeFilter.truncate(typeFilter.length() - 5);
+    }
+    if (!typeFilter.isEmpty())
+	typeFilter.prepend("where ");
+    
+    TQSqlQuery q = createQuery();
+    q.setForwardOnly(TRUE);
+    if (!q.exec("select rdb$relation_name from rdb$relations " + typeFilter))
+	return res;
+    while(q.next())
+	    res << q.value(0).toString().stripWhiteSpace();
+
+    return res;
+}
+
+TQSqlRecord TQIBaseDriver::record(const TQString& tablename) const
+{
+    TQSqlRecord rec;
+    if (!isOpen())
+	return rec;
+	
+    TQSqlQuery q = createQuery();
+    q.setForwardOnly(TRUE);
+    
+    q.exec("SELECT a.RDB$FIELD_NAME, b.RDB$FIELD_TYPE "
+	   "FROM RDB$RELATION_FIELDS a, RDB$FIELDS b "
+	   "WHERE b.RDB$FIELD_NAME = a.RDB$FIELD_SOURCE "
+	   "AND a.RDB$RELATION_NAME = '" + tablename.upper()+ "' "
+	   "ORDER BY RDB$FIELD_POSITION");
+    while (q.next()) {
+	TQSqlField field(q.value(0).toString().stripWhiteSpace(), qIBaseTypeName(q.value(1).toInt()));
+	rec.append(field);
+   }
+
+    return rec;
+}
+
+TQSqlRecordInfo TQIBaseDriver::recordInfo(const TQString& tablename) const
+{
+    TQSqlRecordInfo rec;
+    if (!isOpen())
+	return rec;
+	
+    TQSqlQuery q = createQuery();
+    q.setForwardOnly(TRUE);
+
+    q.exec("SELECT a.RDB$FIELD_NAME, b.RDB$FIELD_TYPE, b.RDB$FIELD_LENGTH, b.RDB$FIELD_SCALE, "
+	   "b.RDB$FIELD_PRECISION, a.RDB$NULL_FLAG "
+	   "FROM RDB$RELATION_FIELDS a, RDB$FIELDS b "
+	   "WHERE b.RDB$FIELD_NAME = a.RDB$FIELD_SOURCE "
+	   "AND a.RDB$RELATION_NAME = '" + tablename.upper() + "' "
+	   "ORDER BY a.RDB$FIELD_POSITION");
+
+    while (q.next()) {
+	TQVariant::Type type = qIBaseTypeName(q.value(1).toInt());
+	TQSqlFieldInfo field(q.value(0).toString().stripWhiteSpace(), type, q.value(5).toInt(),
+			     q.value(2).toInt(), q.value(4).toInt(), TQVariant());
+		
+	rec.append(field);
+    }
+
+    return rec;
+}
+
+TQSqlIndex TQIBaseDriver::primaryIndex(const TQString &table) const
+{
+    TQSqlIndex index(table);
+    if (!isOpen())
+	return index;
+
+    TQSqlQuery q = createQuery();
+    q.setForwardOnly(TRUE);
+    q.exec("SELECT a.RDB$INDEX_NAME, b.RDB$FIELD_NAME, d.RDB$FIELD_TYPE "
+	   "FROM RDB$RELATION_CONSTRAINTS a, RDB$INDEX_SEGMENTS b, RDB$RELATION_FIELDS c, RDB$FIELDS d "
+	   "WHERE a.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY' "
+	   "AND a.RDB$RELATION_NAME = '" + table.upper() + "' "
+	   "AND a.RDB$INDEX_NAME = b.RDB$INDEX_NAME "
+	   "AND c.RDB$RELATION_NAME = a.RDB$RELATION_NAME "
+	   "AND c.RDB$FIELD_NAME = b.RDB$FIELD_NAME "
+	   "AND d.RDB$FIELD_NAME = c.RDB$FIELD_SOURCE "
+	   "ORDER BY b.RDB$FIELD_POSITION");
+
+    while (q.next()) {
+	TQSqlField field(q.value(1).toString().stripWhiteSpace(), qIBaseTypeName(q.value(2).toInt()));
+	index.append(field); //TODO: asc? desc?
+	index.setName(q.value(0).toString());
+    }
+
+    return index;
+}
+
+TQSqlRecord TQIBaseDriver::record(const TQSqlQuery& query) const
+{
+    TQSqlRecord rec;
+    if (query.isActive() && query.driver() == this) {
+	TQIBaseResult* result = (TQIBaseResult*)query.result();
+	if (!result->d->sqlda)
+	    return rec;
+	XSTQLVAR v;
+	for (int i = 0; i < result->d->sqlda->sqld; ++i) {
+	    v = result->d->sqlda->sqlvar[i];
+	    TQSqlField f(TQString::tqfromLatin1(v.sqlname, v.sqlname_length).stripWhiteSpace(),
+			qIBaseTypeName2(result->d->sqlda->sqlvar[i].sqltype));
+	    rec.append(f);
+	}
+    }
+    return rec;
+}
+
+TQSqlRecordInfo TQIBaseDriver::recordInfo(const TQSqlQuery& query) const
+{
+    TQSqlRecordInfo rec;
+    if (query.isActive() && query.driver() == this) {
+	TQIBaseResult* result = (TQIBaseResult*)query.result();
+	if (!result->d->sqlda)
+	    return rec;
+	XSTQLVAR v;
+	for (int i = 0; i < result->d->sqlda->sqld; ++i) {
+	    v = result->d->sqlda->sqlvar[i];
+	    TQSqlFieldInfo f(TQString::tqfromLatin1(v.sqlname, v.sqlname_length).stripWhiteSpace(), 
+			    qIBaseTypeName2(result->d->sqlda->sqlvar[i].sqltype),
+			    -1, v.sqllen, TQABS(v.sqlscale), TQVariant(), v.sqltype);
+	    rec.append(f);
+	}
+    }
+    return rec;
+}
+
+TQString TQIBaseDriver::formatValue(const TQSqlField* field, bool trimStrings) const
+{
+    switch (field->type()) {
+    case TQVariant::DateTime: {
+	TQDateTime datetime = field->value().toDateTime();
+	if (datetime.isValid())
+	    return "'" + TQString::number(datetime.date().year()) + "-" +
+		TQString::number(datetime.date().month()) + "-" +
+		TQString::number(datetime.date().day()) + " " +
+		TQString::number(datetime.time().hour()) + ":" +
+		TQString::number(datetime.time().minute()) + ":" +
+		TQString::number(datetime.time().second()) + "." +
+		TQString::number(datetime.time().msec()).rightJustify(3, '0', TRUE) + "'";
+	else
+	    return "NULL";
+    }
+    case TQVariant::Time: {
+	TQTime time = field->value().toTime();
+	if (time.isValid())
+	    return "'" + TQString::number(time.hour()) + ":" +
+		TQString::number(time.minute()) + ":" +
+		TQString::number(time.second()) + "." +
+		TQString::number(time.msec()).rightJustify(3, '0', TRUE) + "'";
+	else
+	    return "NULL";
+    }
+    case TQVariant::Date: {
+	TQDate date = field->value().toDate();
+	if (date.isValid())
+	    return "'" + TQString::number(date.year()) + "-" +
+		TQString::number(date.month()) + "-" +
+		TQString::number(date.day()) + "'";
+	    else
+		return "NULL";
+    }
+    default:
+        return TQSqlDriver::formatValue(field, trimStrings);
+    }	
+}
diff --git a/tqtinterface/qt4/src/sql/drivers/ibase/tqsql_ibase.h b/tqtinterface/qt4/src/sql/drivers/ibase/tqsql_ibase.h
new file mode 100644
index 0000000..be5bfd5
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/ibase/tqsql_ibase.h
@@ -0,0 +1,117 @@
+/****************************************************************************
+**
+** Definition of Interbase driver classes
+**
+** Created : 030911
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQL_IBASE_H
+#define TQSQL_IBASE_H
+
+#include "tqsqlresult.h"
+#include "tqsqldriver.h"
+#include "../cache/tqsqlcachedresult.h"
+
+
+class TQIBaseDriverPrivate;
+class TQIBaseResultPrivate;
+class TQIBaseDriver;
+
+class TQIBaseResult : public TQtSqlCachedResult
+{
+    friend class TQIBaseDriver;
+    friend class TQIBaseResultPrivate;
+
+public:
+    TQIBaseResult(const TQIBaseDriver* db);
+    virtual ~TQIBaseResult();
+
+    bool prepare(const TQString& query);
+    bool exec();    
+
+protected:
+    bool gotoNext(TQtSqlCachedResult::RowCache* row);
+    bool reset (const TQString& query);
+    int size();
+    int numRowsAffected();
+
+private:
+    TQIBaseResultPrivate* d;
+};
+
+class TQIBaseDriver : public TQSqlDriver
+{
+    friend class TQIBaseDriverPrivate;
+    friend class TQIBaseResultPrivate;
+    friend class TQIBaseResult;
+public:
+    TQIBaseDriver(TQObject *tqparent = 0, const char *name = 0);
+    TQIBaseDriver(void *connection, TQObject *tqparent = 0, const char *name = 0);
+    virtual ~TQIBaseDriver();
+    bool hasFeature(DriverFeature f) const;
+    bool open(const TQString & db,
+                   const TQString & user,
+                   const TQString & password,
+                   const TQString & host,
+                   int port,
+                   const TQString & connOpts);
+    bool open( const TQString & db,
+	    const TQString & user,
+	    const TQString & password,
+	    const TQString & host,
+	    int port ) { return open (db, user, password, host, port, TQString()); }
+    void close();
+    TQSqlQuery createQuery() const;
+    bool beginTransaction();
+    bool commitTransaction();
+    bool rollbackTransaction();
+    TQStringList tables(const TQString& typeName) const;
+
+    TQSqlRecord record(const TQString& tablename) const;
+    TQSqlRecordInfo recordInfo(const TQString& tablename) const;
+    TQSqlIndex primaryIndex(const TQString &table) const;
+    TQSqlRecord record(const TQSqlQuery& query) const;
+    TQSqlRecordInfo recordInfo(const TQSqlQuery& query) const;
+
+    TQString formatValue(const TQSqlField* field, bool trimStrings) const;
+    
+private:
+    TQIBaseDriverPrivate* d;
+};
+
+
+#endif
+
diff --git a/tqtinterface/qt4/src/sql/drivers/mysql/tqsql_mysql.cpp b/tqtinterface/qt4/src/sql/drivers/mysql/tqsql_mysql.cpp
new file mode 100644
index 0000000..f97cd2e
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/mysql/tqsql_mysql.cpp
@@ -0,0 +1,775 @@
+/****************************************************************************
+**
+** Implementation of MYSQL driver classes
+**
+** Created : 001103
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsql_mysql.h"
+#include <private/tqsqlextension_p.h>
+
+#include <tqdatetime.h>
+#include <tqvaluevector.h>
+#include <tqsqlrecord.h>
+
+#define TQMYSTQL_DRIVER_NAME "TQMYSQL3"
+
+#ifdef TQ_OS_WIN32
+// comment the next line out if you want to use MySQL/embedded on Win32 systems.
+// note that it will crash if you don't statically link to the mysql/e library!
+# define TQ_NO_MYSTQL_EMBEDDED
+#endif
+
+TQPtrDict<TQSqlOpenExtension> *qSqlOpenExtDict();
+
+static int qMySqlConnectionCount = 0;
+static bool qMySqlInitHandledByUser = FALSE;
+
+class TQMYSTQLOpenExtension : public TQSqlOpenExtension
+{
+public:
+    TQMYSTQLOpenExtension( TQMYSTQLDriver *dri )
+	: TQSqlOpenExtension(), driver(dri) {}
+    ~TQMYSTQLOpenExtension() {}
+
+    bool open( const TQString& db,
+	       const TQString& user,
+	       const TQString& password,
+	       const TQString& host,
+	       int port,
+	       const TQString& connOpts );
+    
+private:
+    TQMYSTQLDriver *driver;
+};
+
+bool TQMYSTQLOpenExtension::open( const TQString& db,
+				const TQString& user,
+				const TQString& password,
+				const TQString& host,
+				int port,
+				const TQString& connOpts )
+{
+    return driver->open( db, user, password, host, port, connOpts );
+}
+
+class TQMYSTQLDriverPrivate
+{
+public:
+    TQMYSTQLDriverPrivate() : mysql(0) {}
+    MYSQL*     mysql;
+};
+
+class TQMYSTQLResultPrivate : public TQMYSTQLDriverPrivate
+{
+public:
+    TQMYSTQLResultPrivate() : TQMYSTQLDriverPrivate(), result(0) {}
+    MYSTQL_RES* result;
+    MYSTQL_ROW  row;
+    TQValueVector<TQVariant::Type> fieldTypes;
+};
+
+TQSqlError qMakeError( const TQString& err, int type, const TQMYSTQLDriverPrivate* p )
+{
+    return TQSqlError(TQMYSTQL_DRIVER_NAME ": " + err, TQString(mysql_error( p->mysql )), type, mysql_errno( p->mysql ));
+}
+
+TQVariant::Type qDecodeMYSTQLType( int mysqltype, uint flags )
+{
+    TQVariant::Type type;
+    switch ( mysqltype ) {
+    case FIELD_TYPE_TINY :
+    case FIELD_TYPE_SHORT :
+    case FIELD_TYPE_LONG :
+    case FIELD_TYPE_INT24 :
+	type = (flags & UNSIGNED_FLAG) ? TQVariant::UInt : TQVariant::Int;
+	break;
+    case FIELD_TYPE_YEAR :
+	type = TQVariant::Int;
+	break;
+    case FIELD_TYPE_LONGLONG :
+	type = (flags & UNSIGNED_FLAG) ? TQVariant::ULongLong : TQVariant::LongLong;
+	break;
+    case FIELD_TYPE_DECIMAL :
+    case FIELD_TYPE_FLOAT :
+    case FIELD_TYPE_DOUBLE :
+	type = TQVariant::Double;
+	break;
+    case FIELD_TYPE_DATE :
+	type = TQVariant::Date;
+	break;
+    case FIELD_TYPE_TIME :
+	type = TQVariant::Time;
+	break;
+    case FIELD_TYPE_DATETIME :
+    case FIELD_TYPE_TIMESTAMP :
+	type = TQVariant::DateTime;
+	break;
+    case FIELD_TYPE_BLOB :
+    case FIELD_TYPE_TINY_BLOB :
+    case FIELD_TYPE_MEDIUM_BLOB :
+    case FIELD_TYPE_LONG_BLOB :
+	type = (flags & BINARY_FLAG) ? TQVariant::ByteArray : TQVariant::CString;
+	break;
+    default:
+    case FIELD_TYPE_ENUM :
+    case FIELD_TYPE_SET :
+    case FIELD_TYPE_STRING :
+    case FIELD_TYPE_VAR_STRING :
+	type = TQVariant::String;
+	break;
+    }
+    return type;
+}
+
+TQMYSTQLResult::TQMYSTQLResult( const TQMYSTQLDriver* db )
+: TQSqlResult( db )
+{
+    d =   new TQMYSTQLResultPrivate();
+    d->mysql = db->d->mysql;
+}
+
+TQMYSTQLResult::~TQMYSTQLResult()
+{
+    cleanup();
+    delete d;
+}
+
+MYSTQL_RES* TQMYSTQLResult::result()
+{
+    return d->result;
+}
+
+void TQMYSTQLResult::cleanup()
+{
+    if ( d->result ) {
+	mysql_free_result( d->result );
+    }
+    d->result = NULL;
+    d->row = NULL;
+    setAt( -1 );
+    setActive( FALSE );
+}
+
+bool TQMYSTQLResult::fetch( int i )
+{
+    if ( isForwardOnly() ) { // fake a forward seek
+	if ( at() < i ) {
+	    int x = i - at();
+	    while ( --x && fetchNext() );
+	    return fetchNext();
+	} else {
+	    return FALSE;
+	}
+    }    
+    if ( at() == i )
+	return TRUE;
+    mysql_data_seek( d->result, i );
+    d->row = mysql_fetch_row( d->result );
+    if ( !d->row )
+	return FALSE;
+    setAt( i );
+    return TRUE;
+}
+
+bool TQMYSTQLResult::fetchNext()
+{
+    d->row = mysql_fetch_row( d->result );
+    if ( !d->row )
+	return FALSE;
+    setAt( at() + 1 );
+    return TRUE;
+}
+
+bool TQMYSTQLResult::fetchLast()
+{
+    if ( isForwardOnly() ) { // fake this since MySQL can't seek on forward only queries
+	bool success = fetchNext(); // did we move at all?
+	while ( fetchNext() );
+	return success;
+    }
+    my_ulonglong numRows = mysql_num_rows( d->result );
+    if ( !numRows )
+	return FALSE;
+    return fetch( numRows - 1 );
+}
+
+bool TQMYSTQLResult::fetchFirst()
+{
+    if ( isForwardOnly() ) // again, fake it
+	return fetchNext();
+    return fetch( 0 );
+}
+
+TQVariant TQMYSTQLResult::data( int field )
+{
+    if ( !isSelect() || field >= (int) d->fieldTypes.count() ) {
+	qWarning( "TQMYSTQLResult::data: column %d out of range", field );
+	return TQVariant();
+    }
+    
+    TQString val( d->row[field] );
+    switch ( d->fieldTypes.at( field ) ) {
+    case TQVariant::LongLong:
+	return TQVariant( val.toLongLong() );
+    case TQVariant::ULongLong:
+	return TQVariant( val.toULongLong() );
+    case TQVariant::Int: 
+	return TQVariant( val.toInt() );
+    case TQVariant::UInt:
+	return TQVariant( val.toUInt() );
+    case TQVariant::Double:
+	return TQVariant( val.toDouble() );
+    case TQVariant::Date:
+	if ( val.isEmpty() ) {
+	    return TQVariant( TQDate() );
+	} else {
+	    return TQVariant( TQDate::fromString( val, TQt::ISODate )  );
+	}
+    case TQVariant::Time:
+	if ( val.isEmpty() ) {
+	    return TQVariant( TQTime() );
+	} else {
+	    return TQVariant( TQTime::fromString( val, TQt::ISODate ) );
+	}
+    case TQVariant::DateTime:
+	if ( val.isEmpty() )
+	    return TQVariant( TQDateTime() );
+	if ( val.length() == 14u )
+	    // TIMESTAMPS have the format yyyyMMddhhmmss
+	    val.insert(4, "-").insert(7, "-").insert(10, 'T').insert(13, ':').insert(16, ':');
+	return TQVariant( TQDateTime::fromString( val, TQt::ISODate ) );
+    case TQVariant::ByteArray: {
+	unsigned long* fl = mysql_fetch_lengths( d->result );
+	TQByteArray ba;
+	ba.duplicate( d->row[field], fl[field] );
+	return TQVariant( ba );
+    }
+    default:
+    case TQVariant::String:
+    case TQVariant::CString:
+	return TQVariant( val );
+    }
+#ifdef TQT_CHECK_RANGE
+    qWarning("TQMYSTQLResult::data: unknown data type");
+#endif
+    return TQVariant();
+}
+
+bool TQMYSTQLResult::isNull( int field )
+{
+    if ( d->row[field] == NULL )
+	return TRUE;
+    return FALSE;
+}
+
+bool TQMYSTQLResult::reset ( const TQString& query )
+{
+    if ( !driver() )
+	return FALSE;
+    if ( !driver()-> isOpen() || driver()->isOpenError() )
+	return FALSE;
+    cleanup();
+
+    const char *encQuery = query.ascii();
+    if ( mysql_real_query( d->mysql, encQuery, tqstrlen(encQuery) ) ) {
+	setLastError( qMakeError("Unable to execute query", TQSqlError::Statement, d ) );
+	return FALSE;
+    }
+    if ( isForwardOnly() ) {
+	if ( isActive() || isValid() ) // have to empty the results from previous query
+	    fetchLast();
+	d->result = mysql_use_result( d->mysql );
+    } else {
+	d->result = mysql_store_result( d->mysql );
+    }
+    if ( !d->result && mysql_field_count( d->mysql ) > 0 ) {
+	setLastError( qMakeError( "Unable to store result", TQSqlError::Statement, d ) );
+	return FALSE;
+    }
+    int numFields = mysql_field_count( d->mysql );
+    setSelect( !( numFields == 0) );
+    d->fieldTypes.resize( numFields );
+    if ( isSelect() ) {
+	for( int i = 0; i < numFields; i++) {
+	    MYSTQL_FIELD* field = mysql_fetch_field_direct( d->result, i );
+	    if ( field->type == FIELD_TYPE_DECIMAL )
+		d->fieldTypes[i] = TQVariant::String;
+	    else
+		d->fieldTypes[i] = qDecodeMYSTQLType( field->type, field->flags );
+	}
+    }
+    setActive( TRUE );
+    return TRUE;
+}
+
+int TQMYSTQLResult::size()
+{
+    return isSelect() ? (int)mysql_num_rows( d->result ) : -1;
+}
+
+int TQMYSTQLResult::numRowsAffected()
+{
+    return (int)mysql_affected_rows( d->mysql );
+}
+
+/////////////////////////////////////////////////////////
+static void qServerEnd()
+{
+#ifndef TQ_NO_MYSTQL_EMBEDDED
+# if MYSTQL_VERSION_ID >= 40000
+    mysql_server_end();
+# endif // MYSTQL_VERSION_ID
+#endif // TQ_NO_MYSTQL_EMBEDDED
+}
+
+static void qServerInit()
+{
+#ifndef TQ_NO_MYSTQL_EMBEDDED
+# if MYSTQL_VERSION_ID >= 40000
+    if ( qMySqlInitHandledByUser || qMySqlConnectionCount > 1 )
+        return;
+
+    // this should only be called once
+    // has no effect on client/server library
+    // but is vital for the embedded lib
+    if ( mysql_server_init( 0, 0, 0 ) ) {
+#  ifdef TQT_CHECK_RANGE
+	qWarning( "TQMYSTQLDriver::qServerInit: unable to start server." );
+#  endif
+    }
+    
+# endif // MYSTQL_VERSION_ID
+#endif // TQ_NO_MYSTQL_EMBEDDED
+}
+
+TQMYSTQLDriver::TQMYSTQLDriver( TQObject * tqparent, const char * name )
+    : TQSqlDriver( tqparent, name ? name : TQMYSTQL_DRIVER_NAME )
+{
+    init();
+    qServerInit();
+}
+
+/*!
+    Create a driver instance with an already open connection handle.
+*/
+
+TQMYSTQLDriver::TQMYSTQLDriver( MYSQL * con, TQObject * tqparent, const char * name )
+    : TQSqlDriver( tqparent, name ? name : TQMYSTQL_DRIVER_NAME )
+{
+    init();
+    if ( con ) {
+	d->mysql = (MYSQL *) con;
+	setOpen( TRUE );
+	setOpenError( FALSE );
+        if (qMySqlConnectionCount == 1)
+            qMySqlInitHandledByUser = TRUE;
+    } else {
+        qServerInit();
+    }
+}
+
+void TQMYSTQLDriver::init()
+{
+    qSqlOpenExtDict()->insert( this, new TQMYSTQLOpenExtension(this) );
+    d = new TQMYSTQLDriverPrivate();
+    d->mysql = 0;
+    qMySqlConnectionCount++;
+}
+
+TQMYSTQLDriver::~TQMYSTQLDriver()
+{
+    qMySqlConnectionCount--;
+    if (qMySqlConnectionCount == 0 && !qMySqlInitHandledByUser)
+        qServerEnd();
+
+    delete d;
+    if ( !qSqlOpenExtDict()->isEmpty() ) {
+	TQSqlOpenExtension *ext = qSqlOpenExtDict()->take( this );
+	delete ext;
+    }
+}
+
+bool TQMYSTQLDriver::hasFeature( DriverFeature f ) const
+{
+    switch ( f ) {
+    case Transactions:
+// CLIENT_TRANSACTION should be defined in all recent mysql client libs > 3.23.34
+#ifdef CLIENT_TRANSACTIONS
+	if ( d->mysql ) {
+	    if ( ( d->mysql->server_capabilities & CLIENT_TRANSACTIONS ) == CLIENT_TRANSACTIONS )
+		return TRUE;
+	}
+#endif
+	return FALSE;
+    case QuerySize:
+	return TRUE;
+    case BLOB:
+	return TRUE;
+    case Unicode:
+	return FALSE;
+    default:
+	return FALSE;
+    }
+}
+
+bool TQMYSTQLDriver::open( const TQString&,
+			 const TQString&,
+			 const TQString&,
+			 const TQString&,
+			 int )
+{
+    qWarning("TQMYSTQLDriver::open(): This version of open() is no longer supported." );
+    return FALSE;
+}
+
+bool TQMYSTQLDriver::open( const TQString& db,
+			 const TQString& user,
+			 const TQString& password,
+			 const TQString& host,
+			 int port,
+			 const TQString& connOpts )
+{
+    if ( isOpen() )
+	close();
+ 
+    unsigned int optionFlags = 0;
+    
+    TQStringList raw = TQStringList::split( ';', connOpts );
+    TQStringList opts;
+    TQStringList::ConstIterator it;
+    
+    // extract the real options from the string
+    for ( it = raw.begin(); it != raw.end(); ++it ) {
+	TQString tmp( *it );
+	int idx;
+	if ( (idx = tmp.tqfind( '=' )) != -1 ) {
+	    TQString val( tmp.mid( idx + 1 ) );
+	    val.simplifyWhiteSpace();
+	    if ( val == "TRUE" || val == "1" )
+		opts << tmp.left( idx );
+	    else
+		qWarning( "TQMYSTQLDriver::open: Illegal connect option value '%s'", tmp.latin1() );
+	} else {
+	    opts << tmp;
+	}
+    }
+    
+    for ( it = opts.begin(); it != opts.end(); ++it ) {
+	TQString opt( (*it).upper() );
+	if ( opt == "CLIENT_COMPRESS" )
+	    optionFlags |= CLIENT_COMPRESS;
+	else if ( opt == "CLIENT_FOUND_ROWS" )
+	    optionFlags |= CLIENT_FOUND_ROWS;
+	else if ( opt == "CLIENT_IGNORE_SPACE" )
+	    optionFlags |= CLIENT_IGNORE_SPACE;
+	else if ( opt == "CLIENT_INTERACTIVE" )
+	    optionFlags |= CLIENT_INTERACTIVE;
+	else if ( opt == "CLIENT_NO_SCHEMA" )
+	    optionFlags |= CLIENT_NO_SCHEMA;
+	else if ( opt == "CLIENT_ODBC" )
+	    optionFlags |= CLIENT_ODBC;
+	else if ( opt == "CLIENT_SSL" )
+	    optionFlags |= CLIENT_SSL;
+	else 
+	    qWarning( "TQMYSTQLDriver::open: Unknown connect option '%s'", (*it).latin1() );
+    }
+
+    if ( (d->mysql = mysql_init((MYSQL*) 0)) &&
+	    mysql_real_connect( d->mysql,
+				host,
+				user,
+				password,
+				db.isNull() ? TQString("") : db,
+				(port > -1) ? port : 0,
+				NULL,
+				optionFlags ) )
+    {
+	if ( !db.isEmpty() && mysql_select_db( d->mysql, db )) {
+	    setLastError( qMakeError("Unable open database '" + db + "'", TQSqlError::Connection, d ) );
+	    mysql_close( d->mysql );
+	    setOpenError( TRUE );
+	    return FALSE;
+	}
+    } else {
+	    setLastError( qMakeError( "Unable to connect", TQSqlError::Connection, d ) );
+	    mysql_close( d->mysql );
+	    setOpenError( TRUE );
+	    return FALSE;
+    }
+    setOpen( TRUE );
+    setOpenError( FALSE );
+    return TRUE;
+}
+
+void TQMYSTQLDriver::close()
+{
+    if ( isOpen() ) {
+	mysql_close( d->mysql );
+	setOpen( FALSE );
+	setOpenError( FALSE );
+    }
+}
+
+TQSqlQuery TQMYSTQLDriver::createQuery() const
+{
+    return TQSqlQuery( new TQMYSTQLResult( this ) );
+}
+
+TQStringList TQMYSTQLDriver::tables( const TQString& typeName ) const
+{
+    TQStringList tl;
+    if ( !isOpen() )
+	return tl;
+    if ( !typeName.isEmpty() && !(typeName.toInt() & (int)TQSql::Tables) )
+	return tl;
+
+    MYSTQL_RES* tableRes = mysql_list_tables( d->mysql, NULL );
+    MYSTQL_ROW	row;
+    int i = 0;
+    while ( tableRes && TRUE ) {
+	mysql_data_seek( tableRes, i );
+	row = mysql_fetch_row( tableRes );
+	if ( !row )
+	    break;
+	tl.append( TQString(row[0]) );
+	i++;
+    }
+    mysql_free_result( tableRes );
+    return tl;
+}
+
+TQSqlIndex TQMYSTQLDriver::primaryIndex( const TQString& tablename ) const
+{
+    TQSqlIndex idx;
+    if ( !isOpen() )
+	return idx;
+    TQSqlQuery i = createQuery();
+    TQString stmt( "show index from %1;" );
+    TQSqlRecord fil = record( tablename );
+    i.exec( stmt.arg( tablename ) );
+    while ( i.isActive() && i.next() ) {
+	if ( i.value(2).toString() == "PRIMARY" ) {
+	    idx.append( *fil.field( i.value(4).toString() ) );
+	    idx.setCursorName( i.value(0).toString() );
+	    idx.setName( i.value(2).toString() );
+	}
+    }
+    return idx;
+}
+
+TQSqlRecord TQMYSTQLDriver::record( const TQString& tablename ) const
+{
+    TQSqlRecord fil;
+    if ( !isOpen() )
+	return fil;
+    MYSTQL_RES* r = mysql_list_fields( d->mysql, tablename.local8Bit().data(), 0);
+    if ( !r ) {
+	return fil;
+    }
+    MYSTQL_FIELD* field;
+    while ( (field = mysql_fetch_field( r ))) {
+	TQSqlField f ( TQString( field->name ) , qDecodeMYSTQLType( (int)field->type, field->flags ) );
+	fil.append ( f );
+    }
+    mysql_free_result( r );
+    return fil;
+}
+
+TQSqlRecord TQMYSTQLDriver::record( const TQSqlQuery& query ) const
+{
+    TQSqlRecord fil;
+    if ( !isOpen() )
+	return fil;
+    if ( query.isActive() && query.isSelect() && query.driver() == this ) {
+	TQMYSTQLResult* result =  (TQMYSTQLResult*)query.result();
+	TQMYSTQLResultPrivate* p = result->d;
+	if ( !mysql_errno( p->mysql ) ) {
+	    for ( ;; ) {
+		MYSTQL_FIELD* f = mysql_fetch_field( p->result );
+		if ( f ) {
+		    TQSqlField fi( TQString((const char*)f->name), qDecodeMYSTQLType( f->type, f->flags ) );
+		    fil.append( fi  );
+		} else
+		    break;
+	    }
+	}
+	mysql_field_seek( p->result, 0 );
+    }
+    return fil;
+}
+
+TQSqlRecordInfo TQMYSTQLDriver::recordInfo( const TQString& tablename ) const
+{
+    TQSqlRecordInfo info;
+    if ( !isOpen() )
+	return info;
+    MYSTQL_RES* r = mysql_list_fields( d->mysql, tablename.local8Bit().data(), 0);
+    if ( !r ) {
+	return info;
+    }
+    MYSTQL_FIELD* field;
+    while ( (field = mysql_fetch_field( r ))) {
+	info.append ( TQSqlFieldInfo( TQString( field->name ),
+				qDecodeMYSTQLType( (int)field->type, field->flags ),
+				IS_NOT_NULL( field->flags ),
+				(int)field->length,
+				(int)field->decimals,
+				TQString( field->def ),
+				(int)field->type ) );
+    }
+    mysql_free_result( r );
+    return info;
+}
+
+TQSqlRecordInfo TQMYSTQLDriver::recordInfo( const TQSqlQuery& query ) const
+{
+    TQSqlRecordInfo info;
+    if ( !isOpen() )
+	return info;
+    if ( query.isActive() && query.isSelect() && query.driver() == this ) {
+	TQMYSTQLResult* result =  (TQMYSTQLResult*)query.result();
+	TQMYSTQLResultPrivate* p = result->d;
+	if ( !mysql_errno( p->mysql ) ) {
+	    for ( ;; ) {
+		MYSTQL_FIELD* field = mysql_fetch_field( p->result );
+		if ( field ) {
+		    info.append ( TQSqlFieldInfo( TQString( field->name ),
+				qDecodeMYSTQLType( (int)field->type, field->flags ),
+				IS_NOT_NULL( field->flags ),
+				(int)field->length,
+				(int)field->decimals,
+				TQVariant(),
+				(int)field->type ) );
+		
+		} else
+		    break;
+	    }
+	}
+	mysql_field_seek( p->result, 0 );
+    }
+    return info;
+}
+
+MYSQL* TQMYSTQLDriver::mysql()
+{
+     return d->mysql;
+}
+
+bool TQMYSTQLDriver::beginTransaction()
+{
+#ifndef CLIENT_TRANSACTIONS
+    return FALSE;
+#endif
+    if ( !isOpen() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQMYSTQLDriver::beginTransaction: Database not open" );
+#endif
+	return FALSE;
+    }
+    if ( mysql_query( d->mysql, "BEGIN WORK" ) ) {
+	setLastError( qMakeError("Unable to begin transaction", TQSqlError::Statement, d ) );
+	return FALSE;
+    }
+    return TRUE;
+}
+
+bool TQMYSTQLDriver::commitTransaction()
+{
+#ifndef CLIENT_TRANSACTIONS
+    return FALSE;
+#endif
+    if ( !isOpen() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQMYSTQLDriver::commitTransaction: Database not open" );
+#endif
+	return FALSE;
+    }
+    if ( mysql_query( d->mysql, "COMMIT" ) ) {
+	setLastError( qMakeError("Unable to commit transaction", TQSqlError::Statement, d ) );
+	return FALSE;
+    }
+    return TRUE;
+}
+
+bool TQMYSTQLDriver::rollbackTransaction()
+{
+#ifndef CLIENT_TRANSACTIONS
+    return FALSE;
+#endif
+    if ( !isOpen() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQMYSTQLDriver::rollbackTransaction: Database not open" );
+#endif
+	return FALSE;
+    }
+    if ( mysql_query( d->mysql, "ROLLBACK" ) ) {
+	setLastError( qMakeError("Unable to rollback transaction", TQSqlError::Statement, d ) );
+	return FALSE;
+    }
+    return TRUE;
+}
+
+TQString TQMYSTQLDriver::formatValue( const TQSqlField* field, bool trimStrings ) const
+{
+    TQString r;
+    if ( field->isNull() ) {
+	r = nullText();
+    } else {
+	switch( field->type() ) {
+	case TQVariant::ByteArray: {
+	
+	    const TQByteArray ba = field->value().toByteArray();
+	    // buffer has to be at least length*2+1 bytes
+	    char* buffer = new char[ ba.size() * 2 + 1 ];
+	    /*uint escapedSize =*/ mysql_escape_string( buffer, ba.data(), ba.size() );
+	    r.append("'").append(buffer).append("'");
+	    delete[] buffer;
+	}
+	break;
+	case TQVariant::String:
+	case TQVariant::CString: {
+	    // Escape '\' characters
+	    r = TQSqlDriver::formatValue( field );
+	    r.tqreplace( "\\", "\\\\" );
+	    break;
+	}
+	default:
+	    r = TQSqlDriver::formatValue( field, trimStrings );
+	}
+    }
+    return r;
+}
diff --git a/tqtinterface/qt4/src/sql/drivers/mysql/tqsql_mysql.h b/tqtinterface/qt4/src/sql/drivers/mysql/tqsql_mysql.h
new file mode 100644
index 0000000..ef4f4ce
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/mysql/tqsql_mysql.h
@@ -0,0 +1,131 @@
+/****************************************************************************
+**
+** Definition of MySQL driver classes
+**
+** Created : 001103
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQL_MYSTQL_H
+#define TQSQL_MYSTQL_H
+
+#include <tqsqldriver.h>
+#include <tqsqlresult.h>
+#include <tqsqlfield.h>
+#include <tqsqlindex.h>
+
+#if defined (TQ_OS_WIN32)
+#include <tqt_windows.h>
+#endif
+
+#include <mysql.h>
+
+#ifdef TQT_PLUGIN
+#define TQ_EXPORT_STQLDRIVER_MYSQL
+#else
+#define TQ_EXPORT_STQLDRIVER_MYSQL TQ_EXPORT
+#endif
+
+class TQMYSTQLDriverPrivate;
+class TQMYSTQLResultPrivate;
+class TQMYSTQLDriver;
+class TQSqlRecordInfo;
+
+class TQMYSTQLResult : public TQSqlResult
+{
+    friend class TQMYSTQLDriver;
+public:
+    TQMYSTQLResult( const TQMYSTQLDriver* db );
+    ~TQMYSTQLResult();
+
+    MYSTQL_RES* result();
+protected:
+    void		cleanup();
+    bool		fetch( int i );
+    bool		fetchNext();
+    bool		fetchLast();
+    bool		fetchFirst();
+    TQVariant		data( int field );
+    bool		isNull( int field );
+    bool		reset ( const TQString& query );
+    int			size();
+    int			numRowsAffected();
+private:
+    TQMYSTQLResultPrivate* d;
+};
+
+class TQ_EXPORT_STQLDRIVER_MYSQL TQMYSTQLDriver : public TQSqlDriver
+{
+    friend class TQMYSTQLResult;
+public:
+    TQMYSTQLDriver( TQObject * tqparent=0, const char * name=0 );
+    TQMYSTQLDriver( MYSQL * con, TQObject * tqparent=0, const char * name=0 );
+    ~TQMYSTQLDriver();
+    bool		hasFeature( DriverFeature f ) const;
+    bool		open( const TQString & db,
+			      const TQString & user = TQString::null,
+			      const TQString & password = TQString::null,
+			      const TQString & host = TQString::null,
+			      int port = -1 );
+    void		close();
+    TQSqlQuery		createQuery() const;
+    TQStringList		tables( const TQString& user ) const;
+    TQSqlIndex		primaryIndex( const TQString& tablename ) const;
+    TQSqlRecord		record( const TQString& tablename ) const;
+    TQSqlRecord		record( const TQSqlQuery& query ) const;
+    TQSqlRecordInfo	recordInfo( const TQString& tablename ) const;
+    TQSqlRecordInfo	recordInfo( const TQSqlQuery& query ) const;
+    TQString		formatValue( const TQSqlField* field,
+				     bool trimStrings ) const;
+    MYSQL*		mysql();
+    // ### remove me for 4.0
+    bool open( const TQString& db,
+	       const TQString& user,
+	       const TQString& password,
+	       const TQString& host,
+	       int port,
+	       const TQString& connOpts );
+    
+protected:
+    bool		beginTransaction();
+    bool		commitTransaction();
+    bool		rollbackTransaction();
+private:
+    void		init();
+    TQMYSTQLDriverPrivate* d;
+};
+
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/drivers/odbc/tqsql_odbc.cpp b/tqtinterface/qt4/src/sql/drivers/odbc/tqsql_odbc.cpp
new file mode 100644
index 0000000..fda38a8
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/odbc/tqsql_odbc.cpp
@@ -0,0 +1,2035 @@
+/****************************************************************************
+**
+** Implementation of ODBC driver classes
+**
+** Created : 001103
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsql_odbc.h"
+#include <tqsqlrecord.h>
+
+#if defined (TQ_OS_WIN32)
+#include <tqt_windows.h>
+#include <tqapplication.h>
+#endif
+#include <tqdatetime.h>
+#include <private/tqsqlextension_p.h>
+#include <private/tqinternal_p.h>
+#include <stdlib.h>
+
+// undefine this to prevent initial check of the ODBC driver
+#define ODBC_CHECK_DRIVER
+
+#if defined(TQ_ODBC_VERSION_2)
+//crude hack to get non-tqunicode capable driver managers to work
+# undef UNICODE
+# define STQLTCHAR STQLCHAR
+# define STQL_C_WCHAR STQL_C_CHAR
+#endif
+
+// newer platform SDKs use STQLLEN instead of STQLINTEGER
+#ifdef STQLLEN
+# define TQSTQLLEN STQLLEN
+#else
+# define TQSTQLLEN STQLINTEGER
+#endif
+
+#ifdef STQLULEN
+# define TQSQLULEN STQLULEN
+#else
+# define TQSQLULEN STQLUINTEGER
+#endif
+
+
+static const TQSTQLLEN COLNAMESIZE = 256;
+//Map TQt parameter types to ODBC types
+static const STQLSMALLINT qParamType[ 4 ] = { STQL_PARAM_INPUT, STQL_PARAM_INPUT, STQL_PARAM_OUTPUT, STQL_PARAM_INPUT_OUTPUT };
+
+class TQODBCPrivate
+{
+public:
+    TQODBCPrivate()
+    : hEnv(0), hDbc(0), hStmt(0), useSchema(FALSE)
+    {
+	sql_char_type = sql_varchar_type = sql_longvarchar_type = TQVariant::CString;
+	tqunicode = FALSE;
+    }
+
+    STQLHANDLE hEnv;
+    STQLHANDLE hDbc;
+    STQLHANDLE hStmt;
+
+    bool tqunicode;
+    bool useSchema;
+    TQVariant::Type sql_char_type;
+    TQVariant::Type sql_varchar_type;
+    TQVariant::Type sql_longvarchar_type;
+
+    TQSqlRecordInfo rInf;
+
+    bool checkDriver() const;
+    void checkUnicode();
+    void checkSchemaUsage();
+    bool setConnectionOptions( const TQString& connOpts );
+    void splitTableQualifier(const TQString &qualifier, TQString &catalog,
+			     TQString &schema, TQString &table);
+};
+
+class TQODBCPreparedExtension : public TQSqlExtension
+{
+public:
+    TQODBCPreparedExtension( TQODBCResult * r )
+	: result( r ) {}
+
+    bool prepare( const TQString& query )
+    {
+	return result->prepare( query );
+    }
+
+    bool exec()
+    {
+	return result->exec();
+    }
+
+    TQODBCResult * result;
+};
+
+TQPtrDict<TQSqlOpenExtension> *qSqlOpenExtDict();
+
+class TQODBCOpenExtension : public TQSqlOpenExtension
+{
+public:
+    TQODBCOpenExtension( TQODBCDriver *dri )
+	: TQSqlOpenExtension(), driver(dri) {}
+    ~TQODBCOpenExtension() {}
+
+    bool open( const TQString& db,
+	       const TQString& user,
+	       const TQString& password,
+	       const TQString& host,
+	       int port,
+	       const TQString& connOpts );
+private:
+    TQODBCDriver *driver;
+};
+
+bool TQODBCOpenExtension::open( const TQString& db,
+			       const TQString& user,
+			       const TQString& password,
+			       const TQString& host,
+			       int port,
+			       const TQString& connOpts )
+{
+    return driver->open( db, user, password, host, port, connOpts );
+}
+
+static TQString qWarnODBCHandle(int handleType, STQLHANDLE handle)
+{
+    STQLINTEGER nativeCode_;
+    STQLSMALLINT msgLen;
+    STQLRETURN r = STQL_ERROR;
+    STQLTCHAR state_[STQL_STQLSTATE_SIZE+1];
+    STQLTCHAR description_[STQL_MAX_MESSAGE_LENGTH];
+    r = STQLGetDiagRec( handleType,
+			 handle,
+			 1,
+			 (STQLTCHAR*)state_,
+			 &nativeCode_,
+			 (STQLTCHAR*)description_,
+			 STQL_MAX_MESSAGE_LENGTH-1, /* in bytes, not in characters */
+			 &msgLen);
+    if ( r == STQL_SUCCESS || r == STQL_SUCCESS_WITH_INFO )
+#ifdef UNICODE
+	return TQString( (const TQChar*)description_, (uint)msgLen );
+#else
+	return TQString::fromLocal8Bit( (const char*)description_ );
+#endif
+    return TQString::null;
+}
+
+static TQString qODBCWarn( const TQODBCPrivate* odbc)
+{
+    return ( qWarnODBCHandle( STQL_HANDLE_ENV, odbc->hEnv ) + " "
+	     + qWarnODBCHandle( STQL_HANDLE_DBC, odbc->hDbc ) + " "
+	     + qWarnODBCHandle( STQL_HANDLE_STMT, odbc->hStmt ) );
+}
+
+static void qSqlWarning( const TQString& message, const TQODBCPrivate* odbc )
+{
+#ifdef TQT_CHECK_RANGE
+    qWarning( "%s\tError: %s", message.local8Bit().data(), qODBCWarn( odbc ).local8Bit().data() );
+#endif
+}
+
+static TQSqlError qMakeError( const TQString& err, int type, const TQODBCPrivate* p )
+{
+    return TQSqlError( "TQODBC3: " + err, qODBCWarn(p), type );
+}
+
+static TQVariant::Type qDecodeODBCType( STQLSMALLINT sqltype, const TQODBCPrivate* p )
+{
+    TQVariant::Type type = TQVariant::Invalid;
+    switch ( sqltype ) {
+    case STQL_DECIMAL:
+    case STQL_NUMERIC:
+    case STQL_REAL:
+    case STQL_FLOAT:
+    case STQL_DOUBLE:
+	type = TQVariant::Double;
+	break;
+    case STQL_SMALLINT:
+    case STQL_INTEGER:
+    case STQL_BIT:
+    case STQL_TINYINT:
+	type = TQVariant::Int;
+	break;
+    case STQL_BIGINT:
+	type = TQVariant::LongLong;
+	break;
+    case STQL_BINARY:
+    case STQL_VARBINARY:
+    case STQL_LONGVARBINARY:
+	type = TQVariant::ByteArray;
+	break;
+    case STQL_DATE:
+    case STQL_TYPE_DATE:
+	type = TQVariant::Date;
+	break;
+    case STQL_TIME:
+    case STQL_TYPE_TIME:
+	type = TQVariant::Time;
+	break;
+    case STQL_TIMESTAMP:
+    case STQL_TYPE_TIMESTAMP:
+	type = TQVariant::DateTime;
+	break;
+#ifndef TQ_ODBC_VERSION_2
+    case STQL_WCHAR:
+    case STQL_WVARCHAR:
+    case STQL_WLONGVARCHAR:
+	type = TQVariant::String;
+	break;
+#endif
+    case STQL_CHAR:
+	type = p->sql_char_type;
+	break;
+    case STQL_VARCHAR:
+	type = p->sql_varchar_type;
+	break;
+    case STQL_LONGVARCHAR:
+	type = p->sql_longvarchar_type;
+	break;
+    default:
+	type = TQVariant::CString;
+	break;
+    }
+    return type;
+}
+
+static TQString qGetStringData( STQLHANDLE hStmt, int column, int colSize, bool& isNull, bool tqunicode = FALSE )
+{
+    TQString     fieldVal;
+    STQLRETURN   r = STQL_ERROR;
+    TQSTQLLEN  lengthIndicator = 0;
+
+    if ( colSize <= 0 ) {
+	colSize = 256;
+    } else if ( colSize > 65536 ) { // limit buffer size to 64 KB
+	colSize = 65536;
+    } else {
+	colSize++; // make sure there is room for more than the 0 termination
+	if ( tqunicode ) {
+	    colSize *= 2; // a tiny bit faster, since it saves a STQLGetData() call
+	}
+    }
+    char* buf = new char[ colSize ];
+    while ( TRUE ) {
+	r = STQLGetData( hStmt,
+			column+1,
+			tqunicode ? STQL_C_WCHAR : STQL_C_CHAR,
+			(STQLPOINTER)buf,
+			(TQSTQLLEN)colSize,
+			&lengthIndicator );
+	if ( r == STQL_SUCCESS || r == STQL_SUCCESS_WITH_INFO ) {
+	    if ( lengthIndicator == STQL_NULL_DATA || lengthIndicator == STQL_NO_TOTAL ) {
+		fieldVal = TQString::null;
+		isNull = TRUE;
+		break;
+	    }
+	    // if STQL_SUCCESS_WITH_INFO is returned, indicating that
+	    // more data can be fetched, the length indicator does NOT
+	    // contain the number of bytes returned - it tqcontains the
+	    // total number of bytes that CAN be fetched
+	    // colSize-1: remove 0 termination when there is more data to fetch
+	    int rSize = (r == STQL_SUCCESS_WITH_INFO) ? (tqunicode ? colSize-2 : colSize-1) : lengthIndicator;
+	    if ( tqunicode ) {
+		fieldVal += TQString( (TQChar*) buf, rSize / 2 );
+	    } else {
+		buf[ rSize ] = 0;
+		fieldVal += buf;
+	    }
+	    if ( lengthIndicator < colSize ) {
+		// workaround for Drivermanagers that don't return STQL_NO_DATA
+		break;
+	    }
+	} else if ( r == STQL_NO_DATA ) {
+	    break;
+	} else {
+#ifdef TQT_CHECK_RANGE
+	    qWarning( "qGetStringData: Error while fetching data (%d)", r );
+#endif
+	    fieldVal = TQString::null;
+	    break;
+	}
+    }
+    delete[] buf;
+    return fieldVal;
+}
+
+static TQByteArray qGetBinaryData( STQLHANDLE hStmt, int column, TQSTQLLEN& lengthIndicator, bool& isNull )
+{
+    TQByteArray fieldVal;
+    STQLSMALLINT colNameLen;
+    STQLSMALLINT colType;
+    TQSQLULEN colSize;
+    STQLSMALLINT colScale;
+    STQLSMALLINT nullable;
+    STQLRETURN r = STQL_ERROR;
+
+    STQLTCHAR colName[COLNAMESIZE];
+    r = STQLDescribeCol( hStmt,
+			column+1,
+			colName,
+			COLNAMESIZE,
+			&colNameLen,
+			&colType,
+			&colSize,
+			&colScale,
+			&nullable );
+#ifdef TQT_CHECK_RANGE
+    if ( r != STQL_SUCCESS )
+	qWarning( "qGetBinaryData: Unable to describe column %d", column );
+#endif
+    // STQLDescribeCol may return 0 if size cannot be determined
+    if (!colSize) {
+	colSize = 256;
+    }
+    if ( colSize > 65536 ) { // read the field in 64 KB chunks
+	colSize = 65536;
+    }
+    char * buf = new char[ colSize ];
+    while ( TRUE ) {
+	r = STQLGetData( hStmt,
+			column+1,
+			STQL_C_BINARY,
+			(STQLPOINTER) buf,
+			(TQSTQLLEN)colSize,
+			&lengthIndicator );
+	if ( r == STQL_SUCCESS || r == STQL_SUCCESS_WITH_INFO ) {
+	    if ( lengthIndicator == STQL_NULL_DATA ) {
+ 		isNull = TRUE;
+		break;
+	    } else {
+		int rSize;
+		r == STQL_SUCCESS ? rSize = lengthIndicator : rSize = colSize;
+		if ( lengthIndicator == STQL_NO_TOTAL ) { // size cannot be determined
+		    rSize = colSize;
+		}
+		// NB! This is not a memleak - the mem will be deleted by TQByteArray when
+		// no longer ref'd
+		char * tmp = (char *) malloc( rSize + fieldVal.size() );
+		if ( fieldVal.size() ) {
+		    memcpy( tmp, fieldVal.data(), fieldVal.size() );
+		}
+		memcpy( tmp + fieldVal.size(), buf, rSize );
+		fieldVal = fieldVal.assign( tmp, fieldVal.size() + rSize );
+
+		if ( r == STQL_SUCCESS ) { // the whole field was read in one chunk
+		    break;
+		}
+	    }
+	} else {
+	    break;
+	}
+    }
+    delete [] buf;
+    return fieldVal;
+}
+
+static int qGetIntData( STQLHANDLE hStmt, int column, bool& isNull  )
+{
+    TQSTQLLEN intbuf = 0;
+    isNull = FALSE;
+    TQSTQLLEN lengthIndicator = 0;
+    STQLRETURN r = STQLGetData( hStmt,
+			      column+1,
+			      STQL_C_SLONG,
+			      (STQLPOINTER)&intbuf,
+			      (TQSTQLLEN)0,
+			      &lengthIndicator );
+    if ( ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) || lengthIndicator == STQL_NULL_DATA ) {
+	isNull = TRUE;
+	return 0;
+    }
+    return (int)intbuf;
+}
+
+static double qGetDoubleData( STQLHANDLE hStmt, int column, bool& isNull )
+{
+    STQLDOUBLE dblbuf;
+    TQSTQLLEN lengthIndicator = 0;
+    isNull = FALSE;
+    STQLRETURN r = STQLGetData( hStmt,
+			      column+1,
+			      STQL_C_DOUBLE,
+			      (STQLPOINTER)&dblbuf,
+			      (TQSTQLLEN)0,
+			      &lengthIndicator );
+    if ( ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) || lengthIndicator == STQL_NULL_DATA ) {
+	isNull = TRUE;
+	return 0.0;
+    }
+
+    return (double) dblbuf;
+}
+
+static STQLBIGINT qGetBigIntData( STQLHANDLE hStmt, int column, bool& isNull )
+{
+    STQLBIGINT lngbuf = TQ_INT64_C( 0 );
+    isNull = FALSE;
+    TQSTQLLEN lengthIndicator = 0;
+    STQLRETURN r = STQLGetData( hStmt,
+			      column+1,
+			      STQL_C_SBIGINT,
+			      (STQLPOINTER) &lngbuf,
+			      (TQSTQLLEN)0,
+			      &lengthIndicator );
+    if ( ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) || lengthIndicator == STQL_NULL_DATA )
+	isNull = TRUE;
+
+    return lngbuf;
+}
+
+// creates a TQSqlFieldInfo from a valid hStmt generated
+// by STQLColumns. The hStmt has to point to a valid position.
+static TQSqlFieldInfo qMakeFieldInfo( const STQLHANDLE hStmt, const TQODBCPrivate* p )
+{
+    bool isNull;
+    TQString fname = qGetStringData( hStmt, 3, -1, isNull, p->tqunicode );
+    int type = qGetIntData( hStmt, 4, isNull ); // column type
+    int required = qGetIntData( hStmt, 10, isNull ); // nullable-flag
+    // required can be STQL_NO_NULLS, STQL_NULLABLE or STQL_NULLABLE_UNKNOWN
+    if ( required == STQL_NO_NULLS ) {
+	required = 1;
+    } else if ( required == STQL_NULLABLE ) {
+	required = 0;
+    } else {
+	required = -1;
+    }
+    int size = qGetIntData( hStmt, 6, isNull ); // column size
+    int prec = qGetIntData( hStmt, 8, isNull ); // precision
+    return TQSqlFieldInfo( fname, qDecodeODBCType( type, p ), required, size, prec, TQVariant(), type );
+}
+
+static TQSqlFieldInfo qMakeFieldInfo( const TQODBCPrivate* p, int i  )
+{
+    STQLSMALLINT colNameLen;
+    STQLSMALLINT colType;
+    TQSQLULEN colSize;
+    STQLSMALLINT colScale;
+    STQLSMALLINT nullable;
+    STQLRETURN r = STQL_ERROR;
+    STQLTCHAR colName[ COLNAMESIZE ];
+    r = STQLDescribeCol( p->hStmt,
+			i+1,
+			colName,
+			(TQSQLULEN)COLNAMESIZE,
+			&colNameLen,
+			&colType,
+			&colSize,
+			&colScale,
+			&nullable);
+
+    if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( TQString("qMakeField: Unable to describe column %1").arg(i), p );
+#endif
+	return TQSqlFieldInfo();
+    }
+#ifdef UNICODE
+    TQString qColName( (const TQChar*)colName, (uint)colNameLen );
+#else
+    TQString qColName = TQString::fromLocal8Bit( (const char*)colName );
+#endif
+    // nullable can be STQL_NO_NULLS, STQL_NULLABLE or STQL_NULLABLE_UNKNOWN
+    int required = -1;
+    if ( nullable == STQL_NO_NULLS ) {
+	required = 1;
+    } else if ( nullable == STQL_NULLABLE ) {
+	required = 0;
+    }
+    TQVariant::Type type = qDecodeODBCType( colType, p );
+    return TQSqlFieldInfo( qColName,
+    			  type,
+    			  required,
+    			  (int)colSize == 0 ? -1 : (int)colSize,
+    			  (int)colScale == 0 ? -1 : (int)colScale,
+    			  TQVariant(),
+    			  (int)colType );
+}
+
+bool TQODBCPrivate::setConnectionOptions( const TQString& connOpts )
+{
+    // Set any connection attributes
+    TQStringList raw = TQStringList::split( ';', connOpts );
+    TQStringList opts;
+    STQLRETURN r = STQL_SUCCESS;
+    TQMap<TQString, TQString> connMap;
+    for ( TQStringList::ConstIterator it = raw.begin(); it != raw.end(); ++it ) {
+	TQString tmp( *it );
+	int idx;
+	if ( (idx = tmp.tqfind( '=' )) != -1 )
+	    connMap[ tmp.left( idx ) ] = tmp.mid( idx + 1 ).simplifyWhiteSpace();
+	else
+	    qWarning( "TQODBCDriver::open: Illegal connect option value '%s'", tmp.latin1() );
+    }
+    if ( connMap.count() ) {
+	TQMap<TQString, TQString>::ConstIterator it;
+	TQString opt, val;
+	STQLUINTEGER v = 0;
+	for ( it = connMap.begin(); it != connMap.end(); ++it ) {
+	    opt = it.key().upper();
+	    val = it.data().upper();
+	    r = STQL_SUCCESS;
+	    if ( opt == "STQL_ATTR_ACCESS_MODE" ) {
+		if ( val == "STQL_MODE_READ_ONLY" ) {
+		    v = STQL_MODE_READ_ONLY;
+		} else if ( val == "STQL_MODE_READ_WRITE" ) {
+		    v = STQL_MODE_READ_WRITE;
+		} else {
+		    qWarning( TQString( "TQODBCDriver::open: Unknown option value '%1'" ).arg( *it ) );
+		    break;
+		}
+		r = STQLSetConnectAttr( hDbc, STQL_ATTR_ACCESS_MODE, (STQLPOINTER) v, 0 );
+	    } else if ( opt == "STQL_ATTR_CONNECTION_TIMEOUT" ) {
+		v = val.toUInt();
+		r = STQLSetConnectAttr( hDbc, STQL_ATTR_CONNECTION_TIMEOUT, (STQLPOINTER) v, 0 );
+	    } else if ( opt == "STQL_ATTR_LOGIN_TIMEOUT" ) {
+		v = val.toUInt();
+		r = STQLSetConnectAttr( hDbc, STQL_ATTR_LOGIN_TIMEOUT, (STQLPOINTER) v, 0 );
+	    } else if ( opt == "STQL_ATTR_CURRENT_CATALOG" ) {
+		val.ucs2(); // 0 terminate
+		r = STQLSetConnectAttr( hDbc, STQL_ATTR_CURRENT_CATALOG,
+#ifdef UNICODE
+				       (STQLWCHAR*) val.tqunicode(),
+#else
+				       (STQLCHAR*) val.latin1(),
+#endif
+				       STQL_NTS );
+	    } else if ( opt == "STQL_ATTR_METADATA_ID" ) {
+		if ( val == "STQL_TRUE" ) {
+		    v = STQL_TRUE;
+		} else if ( val == "STQL_FALSE" ) {
+		    v = STQL_FALSE;
+		} else {
+		    qWarning( TQString( "TQODBCDriver::open: Unknown option value '%1'" ).arg( *it ) );
+		    break;
+		}
+		r = STQLSetConnectAttr( hDbc, STQL_ATTR_METADATA_ID, (STQLPOINTER) v, 0 );
+	    } else if ( opt == "STQL_ATTR_PACKET_SIZE" ) {
+		v = val.toUInt();
+		r = STQLSetConnectAttr( hDbc, STQL_ATTR_PACKET_SIZE, (STQLPOINTER) v, 0 );
+	    } else if ( opt == "STQL_ATTR_TRACEFILE" ) {
+		val.ucs2(); // 0 terminate
+		r = STQLSetConnectAttr( hDbc, STQL_ATTR_TRACEFILE,
+#ifdef UNICODE
+				       (STQLWCHAR*) val.tqunicode(),
+#else
+				       (STQLCHAR*) val.latin1(),
+#endif
+				       STQL_NTS );
+	    } else if ( opt == "STQL_ATTR_TRACE" ) {
+		if ( val == "STQL_OPT_TRACE_OFF" ) {
+		    v = STQL_OPT_TRACE_OFF;
+		} else if ( val == "STQL_OPT_TRACE_ON" ) {
+		    v = STQL_OPT_TRACE_ON;
+		} else {
+		    qWarning( TQString( "TQODBCDriver::open: Unknown option value '%1'" ).arg( *it ) );
+		    break;
+		}
+		r = STQLSetConnectAttr( hDbc, STQL_ATTR_TRACE, (STQLPOINTER) v, 0 );
+	    }
+#ifdef TQT_CHECK_RANGE
+              else {
+		  qWarning( TQString("TQODBCDriver::open: Unknown connection attribute '%1'").arg( opt ) );
+	    }
+#endif
+	    if ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) {
+#ifdef TQT_CHECK_RANGE
+		qSqlWarning( TQString("TQODBCDriver::open: Unable to set connection attribute '%1'").arg( opt ), this );
+#endif
+		return FALSE;
+	    }
+	}
+    }
+    return TRUE;
+}
+
+void TQODBCPrivate::splitTableQualifier(const TQString & qualifier, TQString &catalog,
+				       TQString &schema, TQString &table)
+{
+    if (!useSchema) {
+	table = qualifier;
+	return;
+    }
+    TQStringList l = TQStringList::split( ".", qualifier, TRUE );
+    if ( l.count() > 3 )
+	return; // can't possibly be a valid table qualifier
+    int i = 0, n = l.count();
+    if ( n == 1 ) {
+	table = qualifier;
+    } else {
+	for ( TQStringList::Iterator it = l.begin(); it != l.end(); ++it ) {
+	    if ( n == 3 ) {
+		if ( i == 0 ) {
+		    catalog = *it;
+		} else if ( i == 1 ) {
+		    schema = *it;
+		} else if ( i == 2 ) {
+		    table = *it;
+		}
+	    } else if ( n == 2 ) {
+		if ( i == 0 ) {
+		    schema = *it;
+		} else if ( i == 1 ) {
+		    table = *it;
+		}
+	    }
+	    i++;
+	}
+    }
+}
+
+////////////////////////////////////////////////////////////////////////////
+
+TQODBCResult::TQODBCResult( const TQODBCDriver * db, TQODBCPrivate* p )
+: TQSqlResult(db)
+{
+    d = new TQODBCPrivate();
+    (*d) = (*p);
+    setExtension( new TQODBCPreparedExtension( this ) );
+}
+
+TQODBCResult::~TQODBCResult()
+{
+    if ( d->hStmt && driver()->isOpen() ) {
+	STQLRETURN r = STQLFreeHandle( STQL_HANDLE_STMT, d->hStmt );
+#ifdef TQT_CHECK_RANGE
+	if ( r != STQL_SUCCESS )
+	    qSqlWarning( "TQODBCDriver: Unable to free statement handle " + TQString::number(r), d );
+#endif
+    }
+
+    delete d;
+}
+
+bool TQODBCResult::reset ( const TQString& query )
+{
+    setActive( FALSE );
+    setAt( TQSql::BeforeFirst );
+    STQLRETURN r;
+
+    d->rInf.clear();
+    // Always reallocate the statement handle - the statement attributes
+    // are not reset if STQLFreeStmt() is called which causes some problems.
+    if ( d->hStmt ) {
+	r = STQLFreeHandle( STQL_HANDLE_STMT, d->hStmt );
+	if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+	    qSqlWarning( "TQODBCResult::reset: Unable to free statement handle", d );
+#endif
+	    return FALSE;
+	}
+    }
+    r  = STQLAllocHandle( STQL_HANDLE_STMT,
+			 d->hDbc,
+			 &d->hStmt );
+    if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCResult::reset: Unable to allocate statement handle", d );
+#endif
+	return FALSE;
+    }
+
+    if ( isForwardOnly() ) {
+	r = STQLSetStmtAttr( d->hStmt,
+			    STQL_ATTR_CURSOR_TYPE,
+			    (STQLPOINTER)STQL_CURSOR_FORWARD_ONLY,
+			    STQL_IS_UINTEGER );
+    } else {
+	r = STQLSetStmtAttr( d->hStmt,
+			    STQL_ATTR_CURSOR_TYPE,
+			    (STQLPOINTER)STQL_CURSOR_STATIC,
+			    STQL_IS_UINTEGER );
+    }
+    if ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCResult::reset: Unable to set 'STQL_CURSOR_STATIC' as statement attribute. Please check your ODBC driver configuration", d );
+#endif
+	return FALSE;
+    }
+
+#ifdef UNICODE
+    r = STQLExecDirect( d->hStmt,
+		       (STQLWCHAR*) query.tqunicode(),
+		       (STQLINTEGER) query.length() );
+#else
+    TQCString query8 = query.local8Bit();
+    r = STQLExecDirect( d->hStmt,
+                       (STQLCHAR*) query8.data(),
+                       (STQLINTEGER) query8.length() );
+#endif
+    if ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) {
+	setLastError( qMakeError( "Unable to execute statement", TQSqlError::Statement, d ) );
+	return FALSE;
+    }
+    STQLSMALLINT count;
+    r = STQLNumResultCols( d->hStmt, &count );
+    if ( count ) {
+	setSelect( TRUE );
+	for ( int i = 0; i < count; ++i ) {
+	    d->rInf.append( qMakeFieldInfo( d, i ) );
+	}
+    } else {
+	setSelect( FALSE );
+    }
+    setActive( TRUE );
+    return TRUE;
+}
+
+bool TQODBCResult::fetch(int i)
+{
+    if ( isForwardOnly() && i < at() )
+	return FALSE;
+    if ( i == at() )
+	return TRUE;
+    fieldCache.clear();
+    nullCache.clear();
+    int actualIdx = i + 1;
+    if ( actualIdx <= 0 ) {
+	setAt( TQSql::BeforeFirst );
+	return FALSE;
+    }
+    STQLRETURN r;
+    if ( isForwardOnly() ) {
+	bool ok = TRUE;
+	while ( ok && i > at() )
+	    ok = fetchNext();
+	return ok;
+    } else {
+	r = STQLFetchScroll( d->hStmt,
+			    STQL_FETCH_ABSOLUTE,
+			    actualIdx );
+    }
+    if ( r != STQL_SUCCESS ){
+ 	return FALSE;
+    }
+    setAt( i );
+    return TRUE;
+}
+
+bool TQODBCResult::fetchNext()
+{
+    STQLRETURN r;
+    fieldCache.clear();
+    nullCache.clear();
+    r = STQLFetchScroll( d->hStmt,
+		       STQL_FETCH_NEXT,
+		       0 );
+    if ( r != STQL_SUCCESS )
+	return FALSE;
+    setAt( at() + 1 );
+    return TRUE;
+}
+
+bool TQODBCResult::fetchFirst()
+{
+    if ( isForwardOnly() && at() != TQSql::BeforeFirst )
+	return FALSE;
+    STQLRETURN r;
+    fieldCache.clear();
+    nullCache.clear();
+    if ( isForwardOnly() ) {
+	return fetchNext();
+    }
+    r = STQLFetchScroll( d->hStmt,
+		       STQL_FETCH_FIRST,
+		       0 );
+    if ( r != STQL_SUCCESS )
+	return FALSE;
+    setAt( 0 );
+    return TRUE;
+}
+
+bool TQODBCResult::fetchPrior()
+{
+    if ( isForwardOnly() )
+	return FALSE;
+    STQLRETURN r;
+    fieldCache.clear();
+    nullCache.clear();
+    r = STQLFetchScroll( d->hStmt,
+		       STQL_FETCH_PRIOR,
+		       0 );
+    if ( r != STQL_SUCCESS )
+	return FALSE;
+    setAt( at() - 1 );
+    return TRUE;
+}
+
+bool TQODBCResult::fetchLast()
+{
+    STQLRETURN r;
+    fieldCache.clear();
+    nullCache.clear();
+
+    if ( isForwardOnly() ) {
+	// cannot seek to last row in forwardOnly mode, so we have to use brute force
+	int i = at();
+	if ( i == TQSql::AfterLast )
+	    return FALSE;
+	if ( i == TQSql::BeforeFirst )
+	    i = 0;
+	while ( fetchNext() )
+	    ++i;
+	setAt( i );
+	return TRUE;
+    }
+
+    r = STQLFetchScroll( d->hStmt,
+		       STQL_FETCH_LAST,
+		       0 );
+    if ( r != STQL_SUCCESS ) {
+	return FALSE;
+    }
+    STQLINTEGER currRow;
+    r = STQLGetStmtAttr( d->hStmt,
+			STQL_ROW_NUMBER,
+			&currRow,
+			STQL_IS_INTEGER,
+			0 );
+    if ( r != STQL_SUCCESS )
+	return FALSE;
+    setAt( currRow-1 );
+    return TRUE;
+}
+
+TQVariant TQODBCResult::data( int field )
+{
+    if ( field >= (int) d->rInf.count() ) {
+	qWarning( "TQODBCResult::data: column %d out of range", field );
+	return TQVariant();
+    }
+    if ( fieldCache.tqcontains( field ) )
+	return fieldCache[ field ];
+    STQLRETURN r(0);
+    TQSTQLLEN lengthIndicator = 0;
+    bool isNull = FALSE;
+    int current = fieldCache.count();
+    for ( ; current < (field + 1); ++current ) {
+	const TQSqlFieldInfo info = d->rInf[ current ];
+	switch ( info.type() ) {
+	case TQVariant::LongLong:
+	    fieldCache[ current ] = TQVariant( (TQ_LLONG) qGetBigIntData( d->hStmt, current, isNull ) );
+	    nullCache[ current ] = isNull;
+	    break;
+	case TQVariant::Int:
+	    fieldCache[ current ] = TQVariant( qGetIntData( d->hStmt, current, isNull ) );
+	    nullCache[ current ] = isNull;
+	    break;
+	case TQVariant::Date:
+	    DATE_STRUCT dbuf;
+	    r = STQLGetData( d->hStmt,
+			    current+1,
+			    STQL_C_DATE,
+			    (STQLPOINTER)&dbuf,
+			    (TQSTQLLEN)0,
+			    &lengthIndicator );
+	    if ( ( r == STQL_SUCCESS || r == STQL_SUCCESS_WITH_INFO ) && ( lengthIndicator != STQL_NULL_DATA ) ) {
+		fieldCache[ current ] = TQVariant( TQDate( dbuf.year, dbuf.month, dbuf.day ) );
+		nullCache[ current ] = FALSE;
+	    } else {
+		fieldCache[ current ] = TQVariant( TQDate() );
+		nullCache[ current ] = TRUE;
+	    }
+	    break;
+	case TQVariant::Time:
+	    TIME_STRUCT tbuf;
+	    r = STQLGetData( d->hStmt,
+			    current+1,
+			    STQL_C_TIME,
+			    (STQLPOINTER)&tbuf,
+			    (TQSTQLLEN)0,
+			    &lengthIndicator );
+	    if ( ( r == STQL_SUCCESS || r == STQL_SUCCESS_WITH_INFO ) && ( lengthIndicator != STQL_NULL_DATA ) ) {
+		fieldCache[ current ] = TQVariant( TQTime( tbuf.hour, tbuf.minute, tbuf.second ) );
+		nullCache[ current ] = FALSE;
+	    } else {
+		fieldCache[ current ] = TQVariant( TQTime() );
+		nullCache[ current ] = TRUE;
+	    }
+	    break;
+	case TQVariant::DateTime:
+	    TIMESTAMP_STRUCT dtbuf;
+	    r = STQLGetData( d->hStmt,
+			    current+1,
+			    STQL_C_TIMESTAMP,
+			    (STQLPOINTER)&dtbuf,
+			    (TQSTQLLEN)0,
+			    &lengthIndicator );
+	    if ( ( r == STQL_SUCCESS || r == STQL_SUCCESS_WITH_INFO ) && ( lengthIndicator != STQL_NULL_DATA ) ) {
+		fieldCache[ current ] = TQVariant( TQDateTime( TQDate( dtbuf.year, dtbuf.month, dtbuf.day ), TQTime( dtbuf.hour, dtbuf.minute, dtbuf.second, dtbuf.fraction / 1000000 ) ) );
+		nullCache[ current ] = FALSE;
+	    } else {
+		fieldCache[ current ] = TQVariant( TQDateTime() );
+		nullCache[ current ] = TRUE;
+	    }
+	    break;
+        case TQVariant::ByteArray: {
+	    isNull = FALSE;
+	    TQByteArray val = qGetBinaryData( d->hStmt, current, lengthIndicator, isNull );
+	    fieldCache[ current ] = TQVariant( val );
+	    nullCache[ current ] = isNull;
+	    break; }
+	case TQVariant::String:
+	    isNull = FALSE;
+	    fieldCache[ current ] = TQVariant( qGetStringData( d->hStmt, current,
+					      info.length(), isNull, TRUE ) );
+	    nullCache[ current ] = isNull;
+	    break;
+	case TQVariant::Double:
+	    if ( info.typeID() == STQL_DECIMAL || info.typeID() == STQL_NUMERIC )
+		// bind Double values as string to prevent loss of precision
+		fieldCache[ current ] = TQVariant( qGetStringData( d->hStmt, current,
+						  info.length() + 1, isNull, FALSE ) ); // length + 1 for the comma
+	    else
+		fieldCache[ current ] = TQVariant( qGetDoubleData( d->hStmt, current, isNull ) );
+	    nullCache[ current ] = isNull;
+	    break;
+	case TQVariant::CString:
+	default:
+	    isNull = FALSE;
+	    fieldCache[ current ] = TQVariant( qGetStringData( d->hStmt, current,
+					      info.length(), isNull, FALSE ) );
+	    nullCache[ current ] = isNull;
+	    break;
+	}
+    }
+    return fieldCache[ --current ];
+}
+
+bool TQODBCResult::isNull( int field )
+{
+    if ( !fieldCache.tqcontains( field ) ) {
+	// since there is no good way to tqfind out whether the value is NULL
+	// without fetching the field we'll fetch it here.
+	// (data() also sets the NULL flag)
+	data( field );
+    }
+    return nullCache[ field ];
+}
+
+int TQODBCResult::size()
+{
+    return -1;
+}
+
+int TQODBCResult::numRowsAffected()
+{
+    TQSTQLLEN affectedRowCount(0);
+    STQLRETURN r = STQLRowCount( d->hStmt, &affectedRowCount );
+    if ( r == STQL_SUCCESS )
+	return affectedRowCount;
+#ifdef TQT_CHECK_RANGE
+    else
+	qSqlWarning( "TQODBCResult::numRowsAffected: Unable to count affected rows", d );
+#endif
+    return -1;
+}
+
+bool TQODBCResult::prepare( const TQString& query )
+{
+    setActive( FALSE );
+    setAt( TQSql::BeforeFirst );
+    STQLRETURN r;
+
+    d->rInf.clear();
+    if ( d->hStmt ) {
+	r = STQLFreeHandle( STQL_HANDLE_STMT, d->hStmt );
+	if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+	    qSqlWarning( "TQODBCResult::prepare: Unable to close statement", d );
+#endif
+	    return FALSE;
+	}
+    }
+    r  = STQLAllocHandle( STQL_HANDLE_STMT,
+	    		 d->hDbc,
+			 &d->hStmt );
+    if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCResult::prepare: Unable to allocate statement handle", d );
+#endif
+	return FALSE;
+    }
+
+    if ( isForwardOnly() ) {
+	r = STQLSetStmtAttr( d->hStmt,
+	    		    STQL_ATTR_CURSOR_TYPE,
+			    (STQLPOINTER)STQL_CURSOR_FORWARD_ONLY,
+			    STQL_IS_UINTEGER );
+    } else {
+	r = STQLSetStmtAttr( d->hStmt,
+			    STQL_ATTR_CURSOR_TYPE,
+			    (STQLPOINTER)STQL_CURSOR_STATIC,
+			    STQL_IS_UINTEGER );
+    }
+    if ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCResult::prepare: Unable to set 'STQL_CURSOR_STATIC' as statement attribute. Please check your ODBC driver configuration", d );
+#endif
+	return FALSE;
+    }
+
+#ifdef UNICODE
+    r = STQLPrepare( d->hStmt,
+		    (STQLWCHAR*) query.tqunicode(),
+		    (STQLINTEGER) query.length() );
+#else
+    TQCString query8 = query.local8Bit();
+    r = STQLPrepare( d->hStmt,
+		    (STQLCHAR*) query8.data(),
+		    (STQLINTEGER) query8.length() );
+#endif
+
+    if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCResult::prepare: Unable to prepare statement", d );
+#endif
+	return FALSE;
+    }
+    return TRUE;
+}
+
+bool TQODBCResult::exec()
+{
+    STQLRETURN r;
+    TQPtrList<TQVirtualDestructor> tmpStorage; // holds temporary ptrs. which will be deleted on fu exit
+    tmpStorage.setAutoDelete( TRUE );
+
+    setActive( FALSE );
+    setAt( TQSql::BeforeFirst );
+    d->rInf.clear();
+
+    if ( !d->hStmt ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCResult::exec: No statement handle available", d );
+#endif
+	return FALSE;
+    } else {
+	r = STQLFreeStmt( d->hStmt, STQL_CLOSE );
+	if ( r != STQL_SUCCESS ) {
+	    qSqlWarning( "TQODBCResult::exec: Unable to close statement handle", d );
+	    return FALSE;
+	}
+    }
+
+    // bind parameters - only positional binding allowed
+    if ( extension()->index.count() > 0 ) {
+	TQMap<int, TQString>::Iterator it;
+	int para = 1;
+	TQVariant val;
+	for ( it = extension()->index.begin(); it != extension()->index.end(); ++it ) {
+	    val = extension()->values[ it.data() ].value;
+	    TQSTQLLEN *ind = new TQSTQLLEN( STQL_NTS );
+	    tmpStorage.append( qAutoDeleter(ind) );
+	    if ( val.isNull() ) {
+		*ind = STQL_NULL_DATA;
+	    }
+	    switch ( val.type() ) {
+		case TQVariant::Date: {
+		    DATE_STRUCT * dt = new DATE_STRUCT;
+		    tmpStorage.append( qAutoDeleter(dt) );
+		    TQDate qdt = val.toDate();
+		    dt->year = qdt.year();
+		    dt->month = qdt.month();
+		    dt->day = qdt.day();
+		    r = STQLBindParameter( d->hStmt,
+					  para,
+					  qParamType[ (int)extension()->values[ it.data() ].typ ],
+					  STQL_C_DATE,
+					  STQL_DATE,
+					  0,
+					  0,
+					  (void *) dt,
+					  (TQSTQLLEN)0,
+					  *ind == STQL_NULL_DATA ? ind : NULL );
+		    break; }
+		case TQVariant::Time: {
+		    TIME_STRUCT * dt = new TIME_STRUCT;
+		    tmpStorage.append( qAutoDeleter(dt) );
+		    TQTime qdt = val.toTime();
+		    dt->hour = qdt.hour();
+		    dt->minute = qdt.minute();
+		    dt->second = qdt.second();
+		    r = STQLBindParameter( d->hStmt,
+					  para,
+					  qParamType[ (int)extension()->values[ it.data() ].typ ],
+					  STQL_C_TIME,
+					  STQL_TIME,
+					  0,
+					  0,
+					  (void *) dt,
+					  (TQSTQLLEN)0,
+	        			  *ind == STQL_NULL_DATA ? ind : NULL );
+		    break; }
+		case TQVariant::DateTime: {
+		    TIMESTAMP_STRUCT * dt = new TIMESTAMP_STRUCT;
+		    tmpStorage.append( qAutoDeleter(dt) );
+		    TQDateTime qdt = val.toDateTime();
+		    dt->year = qdt.date().year();
+		    dt->month = qdt.date().month();
+		    dt->day = qdt.date().day();
+		    dt->hour = qdt.time().hour();
+		    dt->minute = qdt.time().minute();
+		    dt->second = qdt.time().second();
+		    dt->fraction = 0;
+		    r = STQLBindParameter( d->hStmt,
+					  para,
+					  qParamType[ (int)extension()->values[ it.data() ].typ ],
+					  STQL_C_TIMESTAMP,
+					  STQL_TIMESTAMP,
+					  0,
+					  0,
+					  (void *) dt,
+					  (TQSTQLLEN)0,
+					  *ind == STQL_NULL_DATA ? ind : NULL );
+		    break; }
+	        case TQVariant::Int: {
+		    int * v = new int( val.toInt() );
+		    tmpStorage.append( qAutoDeleter(v) );
+		    r = STQLBindParameter( d->hStmt,
+					  para,
+					  qParamType[ (int)extension()->values[ it.data() ].typ ],
+					  STQL_C_SLONG,
+					  STQL_INTEGER,
+					  0,
+					  0,
+					  (void *) v,
+					  (TQSTQLLEN)0,
+					  *ind == STQL_NULL_DATA ? ind : NULL );
+		    break; }
+	        case TQVariant::Double: {
+		    double * v = new double( val.toDouble() );
+		    tmpStorage.append( qAutoDeleter(v) );
+		    r = STQLBindParameter( d->hStmt,
+					  para,
+					  qParamType[ (int)extension()->values[ it.data() ].typ ],
+					  STQL_C_DOUBLE,
+					  STQL_DOUBLE,
+					  0,
+					  0,
+					  (void *) v,
+					  (TQSTQLLEN)0,
+					  *ind == STQL_NULL_DATA ? ind : NULL );
+		    break; }
+	        case TQVariant::ByteArray: {
+		    if ( *ind != STQL_NULL_DATA ) {
+			*ind = val.asByteArray().size();
+		    }
+		    r = STQLBindParameter( d->hStmt,
+					  para,
+					  qParamType[ (int)extension()->values[ it.data() ].typ ],
+					  STQL_C_BINARY,
+					  STQL_LONGVARBINARY,
+					  val.asByteArray().size(),
+					  0,
+					  (void *) val.asByteArray().data(),
+					  (TQSTQLLEN)val.asByteArray().size(),
+					  ind );
+		    break; }
+#ifndef TQ_ODBC_VERSION_2
+	        case TQVariant::String:
+		    if ( d->tqunicode ) {
+			TQString * str = new TQString( val.asString() );
+			str->ucs2();
+			int len = str->length()*2;
+			tmpStorage.append( qAutoDeleter(str) );
+			r = STQLBindParameter( d->hStmt,
+					      para,
+					      qParamType[ (int)extension()->values[ it.data() ].typ ],
+					      STQL_C_WCHAR,
+					      len > 8000 ? STQL_WLONGVARCHAR : STQL_WVARCHAR,
+					      len > 8000 ? len : 0,
+					      0,
+					      (void *) str->tqunicode(),
+					      (TQSTQLLEN) len,
+					      ind );
+			break;
+		    }
+#endif
+		    // fall through
+	        default: {
+		    TQCString * str = new TQCString( val.asString().local8Bit() );
+		    tmpStorage.append( qAutoDeleter(str) );
+		    r = STQLBindParameter( d->hStmt,
+					  para,
+					  qParamType[ (int)extension()->values[ it.data() ].typ ],
+					  STQL_C_CHAR,
+					  str->length() > 4000 ? STQL_LONGVARCHAR : STQL_VARCHAR,
+					  str->length() + 1,
+					  0,
+					  (void *) str->data(),
+					  (TQSTQLLEN)(str->length() + 1),
+					  ind );
+		    break; }
+	    }
+	    para++;
+	    if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+		qWarning( "TQODBCResult::exec: unable to bind variable: %s", qODBCWarn( d ).local8Bit().data() );
+#endif
+		setLastError( qMakeError( "Unable to bind variable", TQSqlError::Statement, d ) );
+		return FALSE;
+	    }
+	}
+    }
+    r = STQLExecute( d->hStmt );
+    if ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQODBCResult::exec: Unable to execute statement: %s", qODBCWarn( d ).local8Bit().data() );
+#endif
+	setLastError( qMakeError( "Unable to execute statement", TQSqlError::Statement, d ) );
+	return FALSE;
+    }
+    STQLSMALLINT count;
+    r = STQLNumResultCols( d->hStmt, &count );
+    if ( count ) {
+	setSelect( TRUE );
+	for ( int i = 0; i < count; ++i ) {
+	    d->rInf.append( qMakeFieldInfo( d, i ) );
+	}
+    } else {
+	setSelect( FALSE );
+    }
+    setActive( TRUE );
+
+    //get out parameters
+    if ( extension()->index.count() > 0 ) {
+	TQMap<int, TQString>::Iterator it;
+	for ( it = extension()->index.begin(); it != extension()->index.end(); ++it ) {
+
+	    STQLINTEGER* indPtr = qAutoDeleterData( (TQAutoDeleter<STQLINTEGER>*)tmpStorage.getFirst() );
+	    if ( !indPtr )
+		return FALSE;
+	    bool isNull = (*indPtr == STQL_NULL_DATA);
+	    tmpStorage.removeFirst();
+
+	    TQVariant::Type type = extension()->values[ it.data() ].value.type();
+	    if ( isNull ) {
+		TQVariant v;
+		v.cast(type);
+		extension()->values[ it.data() ].value = v;
+		if (type != TQVariant::ByteArray)
+		    tmpStorage.removeFirst();
+		continue;
+	    }
+
+	    switch (type) {
+		case TQVariant::Date: {
+		    DATE_STRUCT * ds = qAutoDeleterData( (TQAutoDeleter<DATE_STRUCT>*)tmpStorage.getFirst() );
+		    extension()->values[ it.data() ].value = TQVariant( TQDate( ds->year, ds->month, ds->day ) );
+		    break; }
+		case TQVariant::Time: {
+		    TIME_STRUCT * dt = qAutoDeleterData( (TQAutoDeleter<TIME_STRUCT>*)tmpStorage.getFirst() );
+		    extension()->values[ it.data() ].value = TQVariant( TQTime( dt->hour, dt->minute, dt->second ) );
+		    break; }
+		case TQVariant::DateTime: {
+		    TIMESTAMP_STRUCT * dt = qAutoDeleterData( (TQAutoDeleter<TIMESTAMP_STRUCT>*)tmpStorage.getFirst() );
+		    extension()->values[ it.data() ].value = TQVariant( TQDateTime( TQDate( dt->year, dt->month, dt->day ),
+										  TQTime( dt->hour, dt->minute, dt->second ) ) );
+		    break; }
+	        case TQVariant::Int: {
+		    int * v = qAutoDeleterData( (TQAutoDeleter<int>*)tmpStorage.getFirst() );
+		    extension()->values[ it.data() ].value = TQVariant( *v );
+		    break; }
+	        case TQVariant::Double: {
+		    double * v = qAutoDeleterData( (TQAutoDeleter<double>*)tmpStorage.getFirst() );
+		    extension()->values[ it.data() ].value = TQVariant( *v );
+		    break; }
+	        case TQVariant::ByteArray:
+		    break;
+	        case TQVariant::String:
+		    if ( d->tqunicode ) {
+			TQString * str = qAutoDeleterData( (TQAutoDeleter<TQString>*)tmpStorage.getFirst() );
+			extension()->values[ it.data() ].value = TQVariant( *str );
+			break;
+		    }
+		    // fall through
+	        default: {
+		    TQCString * str = qAutoDeleterData( (TQAutoDeleter<TQCString>*)tmpStorage.getFirst() );
+		    extension()->values[ it.data() ].value = TQVariant( *str );
+		    break; }
+	    }
+	    if (type != TQVariant::ByteArray)
+		tmpStorage.removeFirst();
+	}
+    }
+
+    return TRUE;
+}
+
+////////////////////////////////////////
+
+
+TQODBCDriver::TQODBCDriver( TQObject * tqparent, const char * name )
+    : TQSqlDriver(tqparent,name ? name : "TQODBC")
+{
+    init();
+}
+
+TQODBCDriver::TQODBCDriver( STQLHANDLE env, STQLHANDLE con, TQObject * tqparent, const char * name )
+    : TQSqlDriver(tqparent,name ? name : "TQODBC")
+{
+    init();
+    d->hEnv = env;
+    d->hDbc = con;
+    if ( env && con ) {
+	setOpen( TRUE );
+	setOpenError( FALSE );
+    }
+}
+
+void TQODBCDriver::init()
+{
+    qSqlOpenExtDict()->insert( this, new TQODBCOpenExtension(this) );
+    d = new TQODBCPrivate();
+}
+
+TQODBCDriver::~TQODBCDriver()
+{
+    cleanup();
+    delete d;
+    if ( !qSqlOpenExtDict()->isEmpty() ) {
+	TQSqlOpenExtension *ext = qSqlOpenExtDict()->take( this );
+	delete ext;
+    }
+}
+
+bool TQODBCDriver::hasFeature( DriverFeature f ) const
+{
+    switch ( f ) {
+    case Transactions: {
+	if ( !d->hDbc )
+	    return FALSE;
+	STQLUSMALLINT txn;
+	STQLSMALLINT t;
+	int r = STQLGetInfo( d->hDbc,
+			(STQLUSMALLINT)STQL_TXN_CAPABLE,
+			&txn,
+			sizeof(txn),
+			&t);
+	if ( r != STQL_SUCCESS || txn == STQL_TC_NONE )
+	    return FALSE;
+	else
+	    return TRUE;
+    }
+    case QuerySize:
+	return FALSE;
+    case BLOB:
+	return TRUE;
+    case Unicode:
+	return d->tqunicode;
+    case PreparedQueries:
+	return TRUE;
+    case PositionalPlaceholders:
+	return TRUE;
+    default:
+	return FALSE;
+    }
+}
+
+bool TQODBCDriver::open( const TQString&,
+			const TQString&,
+			const TQString&,
+			const TQString&,
+			int )
+{
+    qWarning("TQODBCDriver::open(): This version of open() is no longer supported." );
+    return FALSE;
+}
+
+bool TQODBCDriver::open( const TQString & db,
+			const TQString & user,
+			const TQString & password,
+			const TQString &,
+			int,
+			const TQString& connOpts )
+{
+    if ( isOpen() )
+      close();
+    STQLRETURN r;
+    r = STQLAllocHandle( STQL_HANDLE_ENV,
+			STQL_NULL_HANDLE,
+			&d->hEnv);
+    if ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCDriver::open: Unable to allocate environment", d );
+#endif
+	setOpenError( TRUE );
+	return FALSE;
+    }
+    r = STQLSetEnvAttr( d->hEnv,
+		       STQL_ATTR_ODBC_VERSION,
+		       (STQLPOINTER)STQL_OV_ODBC2,
+		       STQL_IS_UINTEGER );
+    r = STQLAllocHandle( STQL_HANDLE_DBC,
+		        d->hEnv,
+		        &d->hDbc);
+    if ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCDriver::open: Unable to allocate connection", d );
+#endif
+	setOpenError( TRUE );
+	return FALSE;
+    }
+
+    if ( !d->setConnectionOptions( connOpts ) )
+	return FALSE;
+
+    // Create the connection string
+    TQString connTQStr;
+    // support the "DRIVER={SQL SERVER};SERVER=blah" syntax
+    if ( db.tqcontains(".dsn") )
+	connTQStr = "FILEDSN=" + db;
+    else if ( db.tqcontains( "DRIVER" ) || db.tqcontains( "SERVER" ) )
+	connTQStr = db;
+    else
+	connTQStr = "DSN=" + db;
+    connTQStr += ";UID=" + user + ";PWD=" + password;
+    STQLSMALLINT cb;
+    STQLTCHAR connOut[1024];
+    r = STQLDriverConnect( d->hDbc,
+			  NULL,
+#ifdef UNICODE
+			  (STQLWCHAR*)connTQStr.tqunicode(),
+#else
+			  (STQLCHAR*)connTQStr.latin1(),
+#endif
+			  (STQLSMALLINT)connTQStr.length(),
+			  connOut,
+			  1024,
+			  &cb,
+			  STQL_DRIVER_NOPROMPT );
+    if ( r != STQL_SUCCESS && r != STQL_SUCCESS_WITH_INFO ) {
+	setLastError( qMakeError( "Unable to connect", TQSqlError::Connection, d ) );
+	setOpenError( TRUE );
+	return FALSE;
+    }
+
+    if ( !d->checkDriver() ) {
+	setLastError( qMakeError( "Unable to connect - Driver doesn't support all needed functionality", TQSqlError::Connection, d ) );
+	setOpenError( TRUE );
+	return FALSE;
+    }
+
+    d->checkUnicode();
+    d->checkSchemaUsage();
+
+    setOpen( TRUE );
+    setOpenError( FALSE );
+    return TRUE;
+}
+
+void TQODBCDriver::close()
+{
+    cleanup();
+    setOpen( FALSE );
+    setOpenError( FALSE );
+}
+
+void TQODBCDriver::cleanup()
+{
+    STQLRETURN r;
+    if ( !d )
+	return;
+
+    if( d->hDbc ) {
+	// Open statements/descriptors handles are automatically cleaned up by STQLDisconnect
+	if ( isOpen() ) {
+	    r = STQLDisconnect( d->hDbc );
+#ifdef TQT_CHECK_RANGE
+	    if ( r != STQL_SUCCESS )
+		qSqlWarning( "TQODBCDriver::disconnect: Unable to disconnect datasource", d );
+#endif
+	}
+
+	r = STQLFreeHandle( STQL_HANDLE_DBC, d->hDbc );
+#ifdef TQT_CHECK_RANGE
+	if ( r != STQL_SUCCESS )
+	    qSqlWarning( "TQODBCDriver::cleanup: Unable to free connection handle", d );
+#endif
+	d->hDbc = 0;
+    }
+
+    if ( d->hEnv ) {
+	r = STQLFreeHandle( STQL_HANDLE_ENV, d->hEnv );
+#ifdef TQT_CHECK_RANGE
+	if ( r != STQL_SUCCESS )
+	    qSqlWarning( "TQODBCDriver::cleanup: Unable to free environment handle", d );
+#endif
+	d->hEnv = 0;
+    }
+}
+
+// checks whether the server can return char, varchar and longvarchar
+// as two byte tqunicode characters
+void TQODBCPrivate::checkUnicode()
+{
+#if defined(TQ_WS_WIN)
+    if ( !qt_wintqunicode ) {
+	tqunicode = FALSE;
+	return;
+    }
+#endif
+    STQLRETURN   r;
+    STQLUINTEGER fFunc;
+
+    tqunicode = FALSE;
+    r = STQLGetInfo( hDbc,
+		    STQL_CONVERT_CHAR,
+		    (STQLPOINTER)&fFunc,
+		    sizeof(fFunc),
+		    NULL );
+    if ( ( r == STQL_SUCCESS || r == STQL_SUCCESS_WITH_INFO ) && ( fFunc & STQL_CVT_WCHAR ) ) {
+	sql_char_type = TQVariant::String;
+	tqunicode = TRUE;
+    }
+
+    r = STQLGetInfo( hDbc,
+		    STQL_CONVERT_VARCHAR,
+		    (STQLPOINTER)&fFunc,
+		    sizeof(fFunc),
+		    NULL );
+    if ( ( r == STQL_SUCCESS || r == STQL_SUCCESS_WITH_INFO ) && ( fFunc & STQL_CVT_WVARCHAR ) ) {
+	sql_varchar_type = TQVariant::String;
+	tqunicode = TRUE;
+    }
+
+    r = STQLGetInfo( hDbc,
+		    STQL_CONVERT_LONGVARCHAR,
+		    (STQLPOINTER)&fFunc,
+		    sizeof(fFunc),
+		    NULL );
+    if ( ( r == STQL_SUCCESS || r == STQL_SUCCESS_WITH_INFO ) && ( fFunc & STQL_CVT_WLONGVARCHAR ) ) {
+	sql_longvarchar_type = TQVariant::String;
+	tqunicode = TRUE;
+    }
+}
+
+bool TQODBCPrivate::checkDriver() const
+{
+#ifdef ODBC_CHECK_DRIVER
+    // do not query for STQL_API_STQLFETCHSCROLL because it can't be used at this time
+    static const STQLUSMALLINT reqFunc[] = {
+		STQL_API_STQLDESCRIBECOL, STQL_API_STQLGETDATA, STQL_API_STQLCOLUMNS,
+		STQL_API_STQLGETSTMTATTR, STQL_API_STQLGETDIAGREC, STQL_API_STQLEXECDIRECT,
+		STQL_API_STQLGETINFO, STQL_API_STQLTABLES, 0
+    };
+
+    // these functions are optional
+    static const STQLUSMALLINT optFunc[] = {
+	STQL_API_STQLNUMRESULTCOLS, STQL_API_STQLROWCOUNT, 0
+    };
+
+    STQLRETURN r;
+    STQLUSMALLINT sup;
+
+
+    int i;
+    // check the required functions
+    for ( i = 0; reqFunc[ i ] != 0; ++i ) {
+
+	r = STQLGetFunctions( hDbc, reqFunc[ i ], &sup );
+
+#ifdef TQT_CHECK_RANGE
+        if ( r != STQL_SUCCESS ) {
+	    qSqlWarning( "TQODBCDriver::checkDriver: Cannot get list of supported functions", this );
+	    return FALSE;
+	}
+#endif
+	if ( sup == STQL_FALSE ) {
+#ifdef TQT_CHECK_RANGE
+	    qWarning ( "TQODBCDriver::open: Warning - Driver doesn't support all needed functionality (%d). "
+		       "Please look at the TQt SQL Module Driver documentation for more information.", reqFunc[ i ] );
+#endif
+	    return FALSE;
+	}
+    }
+
+    // these functions are optional and just generate a warning
+    for ( i = 0; optFunc[ i ] != 0; ++i ) {
+
+	r = STQLGetFunctions( hDbc, optFunc[ i ], &sup );
+
+#ifdef TQT_CHECK_RANGE
+        if ( r != STQL_SUCCESS ) {
+	    qSqlWarning( "TQODBCDriver::checkDriver: Cannot get list of supported functions", this );
+	    return FALSE;
+	}
+#endif
+	if ( sup == STQL_FALSE ) {
+#ifdef TQT_CHECK_RANGE
+	    qWarning( "TQODBCDriver::checkDriver: Warning - Driver doesn't support some non-critical functions (%d)", optFunc[ i ] );
+#endif
+	    return TRUE;
+	}
+    }
+#endif //ODBC_CHECK_DRIVER
+
+    return TRUE;
+}
+
+void TQODBCPrivate::checkSchemaUsage()
+{
+    STQLRETURN   r;
+    STQLUINTEGER val;
+
+    r = STQLGetInfo(hDbc,
+		   STQL_SCHEMA_USAGE,
+		   (STQLPOINTER) &val,
+		   sizeof(val),
+		   NULL);
+    if (r == STQL_SUCCESS || r == STQL_SUCCESS_WITH_INFO)
+	useSchema = (val != 0);
+}
+
+TQSqlQuery TQODBCDriver::createQuery() const
+{
+    return TQSqlQuery( new TQODBCResult( this, d ) );
+}
+
+bool TQODBCDriver::beginTransaction()
+{
+    if ( !isOpen() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning(" TQODBCDriver::beginTransaction: Database not open" );
+#endif
+	return FALSE;
+    }
+    STQLUINTEGER ac(STQL_AUTOCOMMIT_OFF);
+    STQLRETURN r  = STQLSetConnectAttr( d->hDbc,
+				      STQL_ATTR_AUTOCOMMIT,
+				      (STQLPOINTER)ac,
+				      sizeof(ac) );
+    if ( r != STQL_SUCCESS ) {
+	setLastError( qMakeError( "Unable to disable autocommit", TQSqlError::Transaction, d ) );
+	return FALSE;
+    }
+    return TRUE;
+}
+
+bool TQODBCDriver::commitTransaction()
+{
+    if ( !isOpen() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning(" TQODBCDriver::commitTransaction: Database not open" );
+#endif
+	return FALSE;
+    }
+    STQLRETURN r = STQLEndTran( STQL_HANDLE_DBC,
+			      d->hDbc,
+			      STQL_COMMIT );
+    if ( r != STQL_SUCCESS ) {
+	setLastError( qMakeError("Unable to commit transaction", TQSqlError::Transaction, d ) );
+	return FALSE;
+    }
+    return endTrans();
+}
+
+bool TQODBCDriver::rollbackTransaction()
+{
+    if ( !isOpen() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning(" TQODBCDriver::rollbackTransaction: Database not open" );
+#endif
+	return FALSE;
+    }
+    STQLRETURN r = STQLEndTran( STQL_HANDLE_DBC,
+			      d->hDbc,
+			      STQL_ROLLBACK );
+    if ( r != STQL_SUCCESS ) {
+	setLastError( qMakeError( "Unable to rollback transaction", TQSqlError::Transaction, d ) );
+	return FALSE;
+    }
+    return endTrans();
+}
+
+bool TQODBCDriver::endTrans()
+{
+    STQLUINTEGER ac(STQL_AUTOCOMMIT_ON);
+    STQLRETURN r  = STQLSetConnectAttr( d->hDbc,
+				      STQL_ATTR_AUTOCOMMIT,
+				      (STQLPOINTER)ac,
+				      sizeof(ac));
+    if ( r != STQL_SUCCESS ) {
+	setLastError( qMakeError( "Unable to enable autocommit", TQSqlError::Transaction, d ) );
+	return FALSE;
+    }
+    return TRUE;
+}
+
+TQStringList TQODBCDriver::tables( const TQString& typeName ) const
+{
+    TQStringList tl;
+    if ( !isOpen() )
+	return tl;
+    int type = typeName.toInt();
+    STQLHANDLE hStmt;
+
+    STQLRETURN r = STQLAllocHandle( STQL_HANDLE_STMT,
+				  d->hDbc,
+				  &hStmt );
+    if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCDriver::tables: Unable to allocate handle", d );
+#endif
+	return tl;
+    }
+    r = STQLSetStmtAttr( hStmt,
+			STQL_ATTR_CURSOR_TYPE,
+			(STQLPOINTER)STQL_CURSOR_FORWARD_ONLY,
+			STQL_IS_UINTEGER );
+    TQString tableType;
+    if ( typeName.isEmpty() || ((type & (int)TQSql::Tables) == (int)TQSql::Tables) )
+	tableType += "TABLE,";
+    if ( (type & (int)TQSql::Views) == (int)TQSql::Views )
+	tableType += "VIEW,";
+    if ( (type & (int)TQSql::SystemTables) == (int)TQSql::SystemTables )
+	tableType += "SYSTEM TABLE,";
+    if ( tableType.isEmpty() )
+	return tl;
+    tableType.truncate( tableType.length() - 1 );
+
+    r = STQLTables( hStmt,
+		   NULL,
+		   0,
+		   NULL,
+		   0,
+		   NULL,
+		   0,
+#ifdef UNICODE
+		   (STQLWCHAR*)tableType.tqunicode(),
+#else
+		   (STQLCHAR*)tableType.latin1(),
+#endif
+		   tableType.length() /* characters, not bytes */ );
+
+#ifdef TQT_CHECK_RANGE
+    if ( r != STQL_SUCCESS )
+	qSqlWarning( "TQODBCDriver::tables Unable to execute table list", d );
+#endif
+    r = STQLFetchScroll( hStmt,
+			STQL_FETCH_NEXT,
+			0);
+    while ( r == STQL_SUCCESS ) {
+	bool isNull;
+	TQString fieldVal = qGetStringData( hStmt, 2, -1, isNull, d->tqunicode );
+	tl.append( fieldVal );
+	r = STQLFetchScroll( hStmt,
+			    STQL_FETCH_NEXT,
+			    0);
+    }
+
+    r = STQLFreeHandle( STQL_HANDLE_STMT, hStmt );
+    if ( r!= STQL_SUCCESS )
+	qSqlWarning( "TQODBCDriver: Unable to free statement handle" + TQString::number(r), d );
+    return tl;
+}
+
+TQSqlIndex TQODBCDriver::primaryIndex( const TQString& tablename ) const
+{
+    TQSqlIndex index( tablename );
+    if ( !isOpen() )
+	return index;
+    bool usingSpecialColumns = FALSE;
+    TQSqlRecord rec = record( tablename );
+
+    STQLHANDLE hStmt;
+    STQLRETURN r = STQLAllocHandle( STQL_HANDLE_STMT,
+				  d->hDbc,
+				  &hStmt );
+    if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCDriver::primaryIndex: Unable to list primary key", d );
+#endif
+	return index;
+    }
+    TQString catalog, schema, table;
+    d->splitTableQualifier( tablename, catalog, schema, table );
+    r = STQLSetStmtAttr( hStmt,
+			STQL_ATTR_CURSOR_TYPE,
+			(STQLPOINTER)STQL_CURSOR_FORWARD_ONLY,
+			STQL_IS_UINTEGER );
+    r = STQLPrimaryKeys( hStmt,
+#ifdef UNICODE
+			catalog.length() == 0 ? NULL : (STQLWCHAR*)catalog.tqunicode(),
+#else
+			catalog.length() == 0 ? NULL : (STQLCHAR*)catalog.latin1(),
+#endif
+			catalog.length(),
+#ifdef UNICODE
+			schema.length() == 0 ? NULL : (STQLWCHAR*)schema.tqunicode(),
+#else
+			schema.length() == 0 ? NULL : (STQLCHAR*)schema.latin1(),
+#endif
+			schema.length(),
+#ifdef UNICODE
+			(STQLWCHAR*)table.tqunicode(),
+#else
+			(STQLCHAR*)table.latin1(),
+#endif
+			table.length() /* in characters, not in bytes */);
+
+    // if the STQLPrimaryKeys() call does not succeed (e.g the driver
+    // does not support it) - try an alternative method to get hold of
+    // the primary index (e.g MS Access and FoxPro)
+    if ( r != STQL_SUCCESS ) {
+	    r = STQLSpecialColumns( hStmt,
+				   STQL_BEST_ROWID,
+#ifdef UNICODE
+				   catalog.length() == 0 ? NULL : (STQLWCHAR*)catalog.tqunicode(),
+#else
+				   catalog.length() == 0 ? NULL : (STQLCHAR*)catalog.latin1(),
+#endif
+				   catalog.length(),
+#ifdef UNICODE
+				   schema.length() == 0 ? NULL : (STQLWCHAR*)schema.tqunicode(),
+#else
+				   schema.length() == 0 ? NULL : (STQLCHAR*)schema.latin1(),
+#endif
+				   schema.length(),
+#ifdef UNICODE
+				   (STQLWCHAR*)table.tqunicode(),
+#else
+				   (STQLCHAR*)table.latin1(),
+#endif
+
+				   table.length(),
+				   STQL_SCOPE_CURROW,
+				   STQL_NULLABLE );
+
+	    if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+		qSqlWarning( "TQODBCDriver::primaryIndex: Unable to execute primary key list", d );
+#endif
+	    } else {
+		usingSpecialColumns = TRUE;
+	    }
+    }
+    r = STQLFetchScroll( hStmt,
+			STQL_FETCH_NEXT,
+			0 );
+    bool isNull;
+    int fakeId = 0;
+    TQString cName, idxName;
+    // Store all fields in a StringList because some drivers can't detail fields in this FETCH loop
+    while ( r == STQL_SUCCESS ) {
+	if ( usingSpecialColumns ) {
+	    cName = qGetStringData( hStmt, 1, -1, isNull, d->tqunicode ); // column name
+	    idxName = TQString::number( fakeId++ ); // invent a fake index name
+	} else {
+	    cName = qGetStringData( hStmt, 3, -1, isNull, d->tqunicode ); // column name
+	    idxName = qGetStringData( hStmt, 5, -1, isNull, d->tqunicode ); // pk index name
+	}
+        TQSqlField *fld = rec.field(cName);
+        if (fld)
+	    index.append(*fld);
+	index.setName( idxName );
+	r = STQLFetchScroll( hStmt,
+			    STQL_FETCH_NEXT,
+			    0 );
+    }
+    r = STQLFreeHandle( STQL_HANDLE_STMT, hStmt );
+    if ( r!= STQL_SUCCESS )
+	qSqlWarning( "TQODBCDriver: Unable to free statement handle" + TQString::number(r), d );
+    return index;
+}
+
+TQSqlRecord TQODBCDriver::record( const TQString& tablename ) const
+{
+    return recordInfo( tablename ).toRecord();
+}
+
+TQSqlRecord TQODBCDriver::record( const TQSqlQuery& query ) const
+{
+    return recordInfo( query ).toRecord();
+}
+
+TQSqlRecordInfo TQODBCDriver::recordInfo( const TQString& tablename ) const
+{
+    TQSqlRecordInfo fil;
+    if ( !isOpen() )
+	return fil;
+
+    STQLHANDLE hStmt;
+    TQString catalog, schema, table;
+    d->splitTableQualifier( tablename, catalog, schema, table );
+    STQLRETURN r = STQLAllocHandle( STQL_HANDLE_STMT,
+				  d->hDbc,
+				  &hStmt );
+    if ( r != STQL_SUCCESS ) {
+#ifdef TQT_CHECK_RANGE
+	qSqlWarning( "TQODBCDriver::record: Unable to allocate handle", d );
+#endif
+	return fil;
+    }
+    r = STQLSetStmtAttr( hStmt,
+			STQL_ATTR_CURSOR_TYPE,
+			(STQLPOINTER)STQL_CURSOR_FORWARD_ONLY,
+			STQL_IS_UINTEGER );
+    r =  STQLColumns( hStmt,
+#ifdef UNICODE
+		     catalog.length() == 0 ? NULL : (STQLWCHAR*)catalog.tqunicode(),
+#else
+		     catalog.length() == 0 ? NULL : (STQLCHAR*)catalog.latin1(),
+#endif
+		     catalog.length(),
+#ifdef UNICODE
+		     schema.length() == 0 ? NULL : (STQLWCHAR*)schema.tqunicode(),
+#else
+		     schema.length() == 0 ? NULL : (STQLCHAR*)schema.latin1(),
+#endif
+		     schema.length(),
+#ifdef UNICODE
+		     (STQLWCHAR*)table.tqunicode(),
+#else
+		     (STQLCHAR*)table.latin1(),
+#endif
+		     table.length(),
+		     NULL,
+		     0 );
+#ifdef TQT_CHECK_RANGE
+    if ( r != STQL_SUCCESS )
+	qSqlWarning( "TQODBCDriver::record: Unable to execute column list", d );
+#endif
+    r = STQLFetchScroll( hStmt,
+			STQL_FETCH_NEXT,
+			0);
+    // Store all fields in a StringList because some drivers can't detail fields in this FETCH loop
+    while ( r == STQL_SUCCESS ) {
+
+	fil.append( qMakeFieldInfo( hStmt, d ) );
+
+	r = STQLFetchScroll( hStmt,
+			    STQL_FETCH_NEXT,
+			    0);
+    }
+
+    r = STQLFreeHandle( STQL_HANDLE_STMT, hStmt );
+    if ( r!= STQL_SUCCESS )
+	qSqlWarning( "TQODBCDriver: Unable to free statement handle " + TQString::number(r), d );
+
+    return fil;
+}
+
+TQSqlRecordInfo TQODBCDriver::recordInfo( const TQSqlQuery& query ) const
+{
+    TQSqlRecordInfo fil;
+    if ( !isOpen() )
+	return fil;
+    if ( query.isActive() && query.driver() == this ) {
+	TQODBCResult* result = (TQODBCResult*)query.result();
+	fil = result->d->rInf;
+    }
+    return fil;
+}
+
+STQLHANDLE TQODBCDriver::environment()
+{
+    return d->hEnv;
+}
+
+STQLHANDLE TQODBCDriver::connection()
+{
+    return d->hDbc;
+}
+
+TQString TQODBCDriver::formatValue( const TQSqlField* field,
+				  bool trimStrings ) const
+{
+    TQString r;
+    if ( field->isNull() ) {
+	r = nullText();
+    } else if ( field->type() == TQVariant::DateTime ) {
+	// Use an escape sequence for the datetime fields
+	if ( field->value().toDateTime().isValid() ){
+	    TQDate dt = field->value().toDateTime().date();
+	    TQTime tm = field->value().toDateTime().time();
+	    // Dateformat has to be "yyyy-MM-dd hh:mm:ss", with leading zeroes if month or day < 10
+	    r = "{ ts '" +
+		TQString::number(dt.year()) + "-" +
+		TQString::number(dt.month()).rightJustify( 2, '0', TRUE ) + "-" +
+		TQString::number(dt.day()).rightJustify( 2, '0', TRUE ) + " " +
+		tm.toString() +
+		"' }";
+	} else
+	    r = nullText();
+    } else if ( field->type() == TQVariant::ByteArray ) {
+	TQByteArray ba = field->value().toByteArray();
+	TQString res;
+	static const char hexchars[] = "0123456789abcdef";
+	for ( uint i = 0; i < ba.size(); ++i ) {
+	    uchar s = (uchar) ba[(int)i];
+	    res += hexchars[s >> 4];
+	    res += hexchars[s & 0x0f];
+	}
+	r = "0x" + res;
+    } else {
+	r = TQSqlDriver::formatValue( field, trimStrings );
+    }
+    return r;
+}
diff --git a/tqtinterface/qt4/src/sql/drivers/odbc/tqsql_odbc.h b/tqtinterface/qt4/src/sql/drivers/odbc/tqsql_odbc.h
new file mode 100644
index 0000000..74ab4e7
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/odbc/tqsql_odbc.h
@@ -0,0 +1,165 @@
+/****************************************************************************
+**
+** Definition of ODBC driver classes
+**
+** Created : 001103
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQL_ODBC_H
+#define TQSQL_ODBC_H
+
+#include <tqmap.h>
+#include <tqstring.h>
+#include <tqsqldriver.h>
+#include <tqsqlfield.h>
+#include <tqsqlresult.h>
+#include <tqsqlindex.h>
+
+#if defined (TQ_OS_WIN32)
+#include <tqt_windows.h>
+#endif
+
+#if defined (TQ_OS_MAC)
+// assume we use iodbc on MAC
+// comment next line out if you use a 
+// tqunicode compatible manager
+# define TQ_ODBC_VERSION_2
+#endif
+
+#ifdef TQT_PLUGIN
+#define TQ_EXPORT_STQLDRIVER_ODBC
+#else
+#define TQ_EXPORT_STQLDRIVER_ODBC TQ_EXPORT
+#endif
+
+#ifdef TQ_OS_UNIX
+#define HAVE_LONG_LONG 1 // force UnixODBC NOT to fall back to a struct for BIGINTs
+#endif
+
+#if defined(TQ_CC_BOR)
+// workaround for Borland to make sure that STQLBIGINT is defined
+#  define _MSC_VER 900
+#endif
+#include <sql.h>
+#if defined(TQ_CC_BOR)
+#  undef _MSC_VER
+#endif
+
+#ifndef TQ_ODBC_VERSION_2
+#include <sqlucode.h>
+#endif
+
+#include <sqlext.h>
+
+class TQODBCPrivate;
+class TQODBCDriver;
+class TQSqlRecordInfo;
+
+class TQODBCResult : public TQSqlResult
+{
+    friend class TQODBCDriver;
+public:
+    TQODBCResult( const TQODBCDriver * db, TQODBCPrivate* p );
+    ~TQODBCResult();
+
+    STQLHANDLE   statement();
+    bool	prepare( const TQString& query );
+    bool	exec();
+
+protected:
+    bool	fetchNext();
+    bool	fetchFirst();
+    bool	fetchLast();
+    bool	fetchPrior();
+    bool	fetch(int i);
+    bool	reset ( const TQString& query );
+    TQVariant	data( int field );
+    bool	isNull( int field );
+    int         size();
+    int         numRowsAffected();
+private:
+    TQODBCPrivate*	d;
+    typedef TQMap<int,TQVariant> FieldCache;
+    FieldCache fieldCache;
+    typedef TQMap<int,bool> NullCache;
+    NullCache nullCache;
+};
+
+class TQ_EXPORT_STQLDRIVER_ODBC TQODBCDriver : public TQSqlDriver
+{
+public:
+    TQODBCDriver( TQObject * tqparent=0, const char * name=0 );
+    TQODBCDriver( STQLHANDLE env, STQLHANDLE con, TQObject * tqparent=0, const char * name=0 );
+    ~TQODBCDriver();
+    bool		hasFeature( DriverFeature f ) const;
+    bool		open( const TQString & db,
+			      const TQString & user = TQString::null,
+			      const TQString & password = TQString::null,
+			      const TQString & host = TQString::null,
+			      int port = -1 );
+    void		close();
+    TQSqlQuery		createQuery() const;
+    TQStringList		tables( const TQString& user ) const;
+    TQSqlRecord		record( const TQString& tablename ) const;
+    TQSqlRecord		record( const TQSqlQuery& query ) const;
+    TQSqlRecordInfo	recordInfo( const TQString& tablename ) const;
+    TQSqlRecordInfo	recordInfo( const TQSqlQuery& query ) const;
+    TQSqlIndex		primaryIndex( const TQString& tablename ) const;
+    STQLHANDLE		environment();
+    STQLHANDLE		connection();
+
+    TQString		formatValue( const TQSqlField* field,
+				     bool trimStrings ) const;
+    // ### remove me for 4.0
+    bool open( const TQString& db,
+	       const TQString& user,
+	       const TQString& password,
+	       const TQString& host,
+	       int port,
+	       const TQString& connOpts );
+    
+protected:
+    bool		beginTransaction();
+    bool		commitTransaction();
+    bool		rollbackTransaction();
+private:
+    void init();
+    bool endTrans();
+    void cleanup();
+    TQODBCPrivate* d;
+};
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/drivers/psql/tqsql_psql.cpp b/tqtinterface/qt4/src/sql/drivers/psql/tqsql_psql.cpp
new file mode 100644
index 0000000..db233ce
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/psql/tqsql_psql.cpp
@@ -0,0 +1,1117 @@
+/****************************************************************************
+**
+** Implementation of PostgreSQL driver classes
+**
+** Created : 001103
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsql_psql.h"
+#include <private/tqsqlextension_p.h>
+
+#include <math.h>
+
+#include <tqpointarray.h>
+#include <tqsqlrecord.h>
+#include <tqregexp.h>
+#include <tqdatetime.h>
+// PostgreSQL header <utils/elog.h> included by <postgres.h> redefines DEBUG.
+#if defined(DEBUG)
+# undef DEBUG
+#endif
+#include <postgres.h>
+#include <libpq/libpq-fs.h>
+// PostgreSQL header <catalog/pg_type.h> redefines errno erroneously.
+#if defined(errno)
+# undef errno
+#endif
+#define errno qt_psql_errno
+#include <catalog/pg_type.h>
+#undef errno
+#ifdef open
+# undef open
+#endif
+
+TQPtrDict<TQSqlDriverExtension> *qSqlDriverExtDict();
+TQPtrDict<TQSqlOpenExtension> *qSqlOpenExtDict();
+
+class TQPSTQLPrivate
+{
+public:
+  TQPSTQLPrivate():connection(0), result(0), isUtf8(FALSE) {}
+    PGconn	*connection;
+    PGresult	*result;
+    bool        isUtf8;
+};
+
+class TQPSTQLDriverExtension : public TQSqlDriverExtension
+{
+public:
+    TQPSTQLDriverExtension( TQPSTQLDriver *dri )
+	: TQSqlDriverExtension(), driver(dri) { }
+    ~TQPSTQLDriverExtension() {}
+
+    bool isOpen() const;
+private:
+    TQPSTQLDriver *driver;
+};
+
+bool TQPSTQLDriverExtension::isOpen() const
+{
+    return PQstatus( driver->connection() ) == CONNECTION_OK;
+}
+
+class TQPSTQLOpenExtension : public TQSqlOpenExtension
+{
+public:
+    TQPSTQLOpenExtension( TQPSTQLDriver *dri )
+	: TQSqlOpenExtension(), driver(dri) { }
+    ~TQPSTQLOpenExtension() {}
+
+    bool open( const TQString& db,
+	       const TQString& user,
+	       const TQString& password,
+	       const TQString& host,
+	       int port,
+	       const TQString& connOpts );
+private:
+    TQPSTQLDriver *driver;
+};
+
+bool TQPSTQLOpenExtension::open( const TQString& db,
+			       const TQString& user,
+			       const TQString& password,
+			       const TQString& host,
+			       int port,
+			       const TQString& connOpts )
+{
+    return driver->open( db, user, password, host, port, connOpts );
+}
+
+static TQSqlError qMakeError( const TQString& err, int type, const TQPSTQLPrivate* p )
+{
+    const char *s = PQerrorMessage(p->connection);
+    TQString msg = p->isUtf8 ? TQString::fromUtf8(s) : TQString::fromLocal8Bit(s);
+    return TQSqlError("TQPSQL: " + err, msg, type);
+}
+
+static TQVariant::Type qDecodePSTQLType( int t )
+{
+    TQVariant::Type type = TQVariant::Invalid;
+    switch ( t ) {
+    case BOOLOID	:
+	type = TQVariant::Bool;
+	break;
+    case INT8OID	:
+	type = TQVariant::LongLong;
+	break;
+    case INT2OID	:
+	//    case INT2VECTOROID  : // 7.x
+    case INT4OID        :
+	type = TQVariant::Int;
+	break;
+    case NUMERICOID     :
+    case FLOAT4OID      :
+    case FLOAT8OID      :
+	type = TQVariant::Double;
+	break;
+    case ABSTIMEOID     :
+    case RELTIMEOID     :
+    case DATEOID	:
+	type = TQVariant::Date;
+	break;
+    case TIMEOID	:
+#ifdef TIMETZOID // 7.x
+	case TIMETZOID  :
+#endif
+	type = TQVariant::Time;
+	break;
+    case TIMESTAMPOID   :
+#ifdef DATETIMEOID
+    // Postgres 6.x datetime workaround.
+    // DATETIMEOID == TIMESTAMPOID (only the names have changed)
+    case DATETIMEOID    :
+#endif
+#ifdef TIMESTAMPTZOID
+    // Postgres 7.2 workaround
+    // TIMESTAMPTZOID == TIMESTAMPOID == DATETIMEOID
+    case TIMESTAMPTZOID :
+#endif
+	type = TQVariant::DateTime;
+	break;
+	//    case ZPBITOID	: // 7.x
+	//    case VARBITOID	: // 7.x
+    case OIDOID         :
+    case BYTEAOID       :
+	type = TQVariant::ByteArray;
+	break;
+    case REGPROCOID     :
+    case TIDOID         :
+    case XIDOID         :
+    case CIDOID         :
+	//    case OIDVECTOROID   : // 7.x
+    case UNKNOWNOID     :
+	//    case TINTERVALOID   : // 7.x
+	type = TQVariant::Invalid;
+	break;
+    default:
+    case CHAROID	:
+    case BPCHAROID	:
+	//    case LZTEXTOID	: // 7.x
+    case VARCHAROID	:
+    case TEXTOID	:
+    case NAMEOID	:
+    case CASHOID        :
+    case INETOID        :
+    case CIDROID        :
+    case CIRCLEOID      :
+	type = TQVariant::String;
+	break;
+    }
+    return type;
+}
+
+TQPSTQLResult::TQPSTQLResult( const TQPSTQLDriver* db, const TQPSTQLPrivate* p )
+: TQSqlResult( db ),
+  currentSize( 0 )
+{
+    d =   new TQPSTQLPrivate();
+    (*d) = (*p);
+}
+
+TQPSTQLResult::~TQPSTQLResult()
+{
+    cleanup();
+    delete d;
+}
+
+PGresult* TQPSTQLResult::result()
+{
+    return d->result;
+}
+
+void TQPSTQLResult::cleanup()
+{
+    if ( d->result )
+	PQclear( d->result );
+    d->result = 0;
+    setAt( -1 );
+    currentSize = 0;
+    setActive( FALSE );
+}
+
+bool TQPSTQLResult::fetch( int i )
+{
+    if ( !isActive() )
+	return FALSE;
+    if ( i < 0 )
+	return FALSE;
+    if ( i >= currentSize )
+	return FALSE;
+    if ( at() == i )
+	return TRUE;
+    setAt( i );
+    return TRUE;
+}
+
+bool TQPSTQLResult::fetchFirst()
+{
+    return fetch( 0 );
+}
+
+bool TQPSTQLResult::fetchLast()
+{
+    return fetch( PQntuples( d->result ) - 1 );
+}
+
+// some Postgres conversions
+static TQPoint pointFromString( const TQString& s)
+{
+    // format '(x,y)'
+    int pivot = s.tqfind( ',' );
+    if ( pivot != -1 ) {
+	int x = s.mid( 1, pivot-1 ).toInt();
+	int y = s.mid( pivot+1, s.length()-pivot-2 ).toInt();
+	return TQPoint( x, y ) ;
+    } else
+	return TQPoint();
+}
+
+TQVariant TQPSTQLResult::data( int i )
+{
+    if ( i >= PQnfields( d->result ) ) {
+	qWarning( "TQPSTQLResult::data: column %d out of range", i );
+	return TQVariant();
+    }
+    int ptype = PQftype( d->result, i );
+    TQVariant::Type type = qDecodePSTQLType( ptype );
+    const TQString val = ( d->isUtf8 && ptype != BYTEAOID ) ?
+			TQString::fromUtf8( PQgetvalue( d->result, at(), i ) ) :
+			TQString::fromLocal8Bit( PQgetvalue( d->result, at(), i ) );
+    if ( PQgetisnull( d->result, at(), i ) ) {
+	TQVariant v;
+	v.cast( type );
+	return v;
+    }
+    switch ( type ) {
+    case TQVariant::Bool:
+	{
+	    TQVariant b ( (bool)(val == "t"), 0 );
+	    return ( b );
+	}
+    case TQVariant::String:
+	return TQVariant( val );
+    case TQVariant::LongLong:
+	if ( val[0] == '-' )
+	    return TQVariant( val.toLongLong() );
+	else
+	    return TQVariant( val.toULongLong() );
+    case TQVariant::Int:
+	return TQVariant( val.toInt() );
+    case TQVariant::Double:
+	if ( ptype == NUMERICOID )
+	    return TQVariant( val );
+	return TQVariant( val.toDouble() );
+    case TQVariant::Date:
+	if ( val.isEmpty() ) {
+	    return TQVariant( TQDate() );
+	} else {
+	    return TQVariant( TQDate::fromString( val, TQt::ISODate ) );
+	}
+    case TQVariant::Time:
+	if ( val.isEmpty() )
+	    return TQVariant( TQTime() );
+	if ( val.at( val.length() - 3 ) == '+' )
+	    // strip the timezone
+	    return TQVariant( TQTime::fromString( val.left( val.length() - 3 ), TQt::ISODate ) );
+	return TQVariant( TQTime::fromString( val, TQt::ISODate ) );
+    case TQVariant::DateTime: {
+	if ( val.length() < 10 )
+	    return TQVariant( TQDateTime() );
+	// remove the timezone
+	TQString dtval = val;
+	if ( dtval.at( dtval.length() - 3 ) == '+' )
+	    dtval.truncate( dtval.length() - 3 );
+	// milliseconds are sometimes returned with 2 digits only
+	if ( dtval.at( dtval.length() - 3 ).isPunct() )
+	    dtval += '0';
+	if ( dtval.isEmpty() )
+	    return TQVariant( TQDateTime() );
+	else
+	    return TQVariant( TQDateTime::fromString( dtval, TQt::ISODate ) );
+    }
+    case TQVariant::Point:
+	return TQVariant( pointFromString( val ) );
+    case TQVariant::Rect: // format '(x,y),(x',y')'
+	{
+	    int pivot = val.tqfind( "),(" );
+	    if ( pivot != -1 )
+		return TQVariant( TQRect( pointFromString( val.mid(pivot+2,val.length()) ), pointFromString( val.mid(0,pivot+1) ) ) );
+	    return TQVariant( TQRect() );
+	}
+    case TQVariant::PointArray: // format '((x,y),(x1,y1),...,(xn,yn))'
+	{
+	    TQRegExp pointPattern("\\([0-9-]*,[0-9-]*\\)");
+	    int points = val.tqcontains( pointPattern );
+	    TQPointArray parray( points );
+	    int idx = 1;
+	    for ( int i = 0; i < points; i++ ){
+		int start = val.tqfind( pointPattern, idx );
+		int end = -1;
+		if ( start != -1 ) {
+		    end = val.tqfind( ')', start+1 );
+		    if ( end != -1 ) {
+			parray.setPoint( i, pointFromString( val.mid(idx, end-idx+1) ) );
+		    }
+		    else
+			parray.setPoint( i, TQPoint() );
+		} else {
+		    parray.setPoint( i, TQPoint() );
+		    break;
+		}
+		idx = end+2;
+	    }
+	    return TQVariant( parray );
+	}
+    case TQVariant::ByteArray: {
+	if ( ptype == BYTEAOID ) {
+	    uint i = 0;
+	    int index = 0;
+	    uint len = val.length();
+	    static const TQChar backslash( '\\' );
+	    TQByteArray ba( (int)len );
+	    while ( i < len ) {
+		if ( val.at( i ) == backslash ) {
+		    if ( val.at( i + 1 ).isDigit() ) {
+			ba[ index++ ] = (char)(val.mid( i + 1, 3 ).toInt( 0, 8 ));
+			i += 4;
+		    } else {
+			ba[ index++ ] = val.at( i + 1 );
+			i += 2;
+		    }
+		} else {
+		    ba[ index++ ] = val.at( i++ ).tqunicode();
+		}
+	    }
+	    ba.resize( index );
+	    return TQVariant( ba );
+	}
+
+	TQByteArray ba;
+	((TQSqlDriver*)driver())->beginTransaction();
+	Oid oid = val.toInt();
+	int fd = lo_open( d->connection, oid, INV_READ );
+#ifdef TQT_CHECK_RANGE
+	if ( fd < 0) {
+	    qWarning( "TQPSTQLResult::data: unable to open large object for read" );
+	    ((TQSqlDriver*)driver())->commitTransaction();
+	    return TQVariant( ba );
+	}
+#endif
+	int size = 0;
+	int retval = lo_lseek( d->connection, fd, 0L, SEEK_END );
+	if ( retval >= 0 ) {
+	    size = lo_tell( d->connection, fd );
+	    lo_lseek( d->connection, fd, 0L, SEEK_SET );
+	}
+	if ( size == 0 ) {
+	    lo_close( d->connection, fd );
+	    ((TQSqlDriver*)driver())->commitTransaction();
+	    return TQVariant( ba );
+	}
+	char * buf = new char[ size ];
+
+#ifdef TQ_OS_WIN32
+	// ### For some reason lo_read() fails if we try to read more than
+	// ### 32760 bytes
+	char * p = buf;
+	int nread = 0;
+
+	while( size < nread ){
+		retval = lo_read( d->connection, fd, p, 32760 );
+		nread += retval;
+		p += retval;
+	}
+#else
+	retval = lo_read( d->connection, fd, buf, size );
+#endif
+
+	if (retval < 0) {
+	    qWarning( "TQPSTQLResult::data: unable to read large object" );
+	} else {
+	    ba.duplicate( buf, size );
+	}
+	delete [] buf;
+	lo_close( d->connection, fd );
+	((TQSqlDriver*)driver())->commitTransaction();
+	return TQVariant( ba );
+    }
+    default:
+    case TQVariant::Invalid:
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQPSTQLResult::data: unknown data type");
+#endif
+	;
+    }
+    return TQVariant();
+}
+
+bool TQPSTQLResult::isNull( int field )
+{
+    PQgetvalue( d->result, at(), field );
+    return PQgetisnull( d->result, at(), field );
+}
+
+bool TQPSTQLResult::reset ( const TQString& query )
+{
+    cleanup();
+    if ( !driver() )
+	return FALSE;
+    if ( !driver()->isOpen() || driver()->isOpenError() )
+	return FALSE;
+    setActive( FALSE );
+    setAt( TQSql::BeforeFirst );
+    if ( d->result )
+	PQclear( d->result );
+    if ( d->isUtf8 ) {
+	d->result = PQexec( d->connection, query.utf8().data() );
+    } else {
+	d->result = PQexec( d->connection, query.local8Bit().data() );
+    }
+    int status =  PQresultqStatus( d->result );
+    if ( status == PGRES_COMMAND_OK || status == PGRES_TUPLES_OK ) {
+	if ( status == PGRES_TUPLES_OK ) {
+	    setSelect( TRUE );
+	    currentSize = PQntuples( d->result );
+	} else {
+	    setSelect( FALSE );
+	    currentSize = -1;
+	}
+	setActive( TRUE );
+	return TRUE;
+    }
+    setLastError( qMakeError( "Unable to create query", TQSqlError::Statement, d ) );
+    return FALSE;
+}
+
+int TQPSTQLResult::size()
+{
+    return currentSize;
+}
+
+int TQPSTQLResult::numRowsAffected()
+{
+    return TQString( PQcmdTuples( d->result ) ).toInt();
+}
+
+///////////////////////////////////////////////////////////////////
+
+static bool setEncodingUtf8( PGconn* connection )
+{
+    PGresult* result = PQexec( connection, "SET CLIENT_ENCODING TO 'UNICODE'" );
+    int status = PQresultqStatus( result );
+    PQclear( result );
+    return status == PGRES_COMMAND_OK;
+}
+
+static void setDatestyle( PGconn* connection )
+{
+    PGresult* result = PQexec( connection, "SET DATESTYLE TO 'ISO'" );
+#ifdef TQT_CHECK_RANGE
+    int status =  PQresultqStatus( result );
+    if ( status != PGRES_COMMAND_OK )
+        qWarning( "%s", PQerrorMessage( connection ) );
+#endif
+    PQclear( result );
+}
+
+static TQPSTQLDriver::Protocol getPSTQLVersion( PGconn* connection )
+{
+    PGresult* result = PQexec( connection, "select version()" );
+    int status =  PQresultqStatus( result );
+    if ( status == PGRES_COMMAND_OK || status == PGRES_TUPLES_OK ) {
+	TQString val( PQgetvalue( result, 0, 0 ) );
+	PQclear( result );
+	TQRegExp rx( "(\\d+)\\.(\\d+)" );
+	rx.setMinimal ( TRUE ); // enforce non-greedy RegExp
+        if ( rx.search( val ) != -1 ) {
+	    int vMaj = rx.cap( 1 ).toInt();
+	    int vMin = rx.cap( 2 ).toInt();
+	    if ( vMaj < 6 ) {
+#ifdef TQT_CHECK_RANGE
+		qWarning( "This version of PostgreSQL is not supported and may not work." );
+#endif
+		return TQPSTQLDriver::Version6;
+	    }
+	    if ( vMaj == 6 ) {
+		return TQPSTQLDriver::Version6;
+	    } else if ( vMaj == 7 ) {
+		if ( vMin < 1 )
+		    return TQPSTQLDriver::Version7;
+		else if ( vMin < 3 )
+		    return TQPSTQLDriver::Version71;
+	    }
+	    return TQPSTQLDriver::Version73;
+	}
+    } else {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "This version of PostgreSQL is not supported and may not work." );
+#endif
+    }
+
+    return TQPSTQLDriver::Version6;
+}
+
+TQPSTQLDriver::TQPSTQLDriver( TQObject * tqparent, const char * name )
+    : TQSqlDriver(tqparent,name ? name : "TQPSQL"), pro( TQPSTQLDriver::Version6 )
+{
+    init();
+}
+
+TQPSTQLDriver::TQPSTQLDriver( PGconn * conn, TQObject * tqparent, const char * name )
+    : TQSqlDriver(tqparent,name ? name : "TQPSQL"), pro( TQPSTQLDriver::Version6 )
+{
+    init();
+    d->connection = conn;
+    if ( conn ) {
+	pro = getPSTQLVersion( d->connection );
+	setOpen( TRUE );
+	setOpenError( FALSE );
+    }
+}
+
+void TQPSTQLDriver::init()
+{
+    qSqlDriverExtDict()->insert( this, new TQPSTQLDriverExtension(this) );
+    qSqlOpenExtDict()->insert( this, new TQPSTQLOpenExtension(this) );
+
+    d = new TQPSTQLPrivate();
+}
+
+TQPSTQLDriver::~TQPSTQLDriver()
+{
+    if ( d->connection )
+	PQfinish( d->connection );
+    delete d;
+    if ( !qSqlDriverExtDict()->isEmpty() ) {
+	TQSqlDriverExtension *ext = qSqlDriverExtDict()->take( this );
+	delete ext;
+    }
+    if ( !qSqlOpenExtDict()->isEmpty() ) {
+	TQSqlOpenExtension *ext = qSqlOpenExtDict()->take( this );
+	delete ext;
+    }
+}
+
+PGconn* TQPSTQLDriver::connection()
+{
+    return d->connection;
+}
+
+
+bool TQPSTQLDriver::hasFeature( DriverFeature f ) const
+{
+    switch ( f ) {
+    case Transactions:
+	return TRUE;
+    case QuerySize:
+	return TRUE;
+    case BLOB:
+	return pro >= TQPSTQLDriver::Version71;
+    case Unicode:
+	return d->isUtf8;
+    default:
+	return FALSE;
+    }
+}
+
+bool TQPSTQLDriver::open( const TQString&,
+			const TQString&,
+			const TQString&,
+			const TQString&,
+			int )
+{
+    qWarning("TQPSTQLDriver::open(): This version of open() is no longer supported." );
+    return FALSE;
+}
+
+bool TQPSTQLDriver::open( const TQString & db,
+			const TQString & user,
+			const TQString & password,
+			const TQString & host,
+			int port,
+			const TQString& connOpts )
+{
+    if ( isOpen() )
+	close();
+    TQString connectString;
+    if ( host.length() )
+	connectString.append( "host=" ).append( host );
+    if ( db.length() )
+	connectString.append( " dbname=" ).append( db );
+    if ( user.length() )
+	connectString.append( " user=" ).append( user );
+    if ( password.length() )
+	connectString.append( " password=" ).append( password );
+    if ( port > -1 )
+	connectString.append( " port=" ).append( TQString::number( port ) );
+
+    // add any connect options - the server will handle error detection
+    if ( !connOpts.isEmpty() )
+	connectString += " " + TQStringList::split( ';', connOpts ).join( " " );
+
+    d->connection = PQconnectdb( connectString.local8Bit().data() );
+    if ( PQstatus( d->connection ) == CONNECTION_BAD ) {
+	setLastError( qMakeError("Unable to connect", TQSqlError::Connection, d ) );
+	setOpenError( TRUE );
+	return FALSE;
+    }
+
+    pro = getPSTQLVersion( d->connection );
+    d->isUtf8 = setEncodingUtf8( d->connection );
+    setDatestyle( d->connection );
+
+    setOpen( TRUE );
+    setOpenError( FALSE );
+    return TRUE;
+}
+
+void TQPSTQLDriver::close()
+{
+    if ( isOpen() ) {
+        if (d->connection)
+	    PQfinish( d->connection );
+	d->connection = 0;
+	setOpen( FALSE );
+	setOpenError( FALSE );
+    }
+}
+
+TQSqlQuery TQPSTQLDriver::createQuery() const
+{
+    return TQSqlQuery( new TQPSTQLResult( this, d ) );
+}
+
+bool TQPSTQLDriver::beginTransaction()
+{
+    if ( !isOpen() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQPSTQLDriver::beginTransaction: Database not open" );
+#endif
+	return FALSE;
+    }
+    PGresult* res = PQexec( d->connection, "BEGIN" );
+    if ( !res || PQresultqStatus( res ) != PGRES_COMMAND_OK ) {
+	PQclear( res );
+	setLastError( qMakeError( "Could not begin transaction", TQSqlError::Transaction, d ) );
+	return FALSE;
+    }
+    PQclear( res );
+    return TRUE;
+}
+
+bool TQPSTQLDriver::commitTransaction()
+{
+    if ( !isOpen() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQPSTQLDriver::commitTransaction: Database not open" );
+#endif
+	return FALSE;
+    }
+    PGresult* res = PQexec( d->connection, "COMMIT" );
+    if ( !res || PQresultqStatus( res ) != PGRES_COMMAND_OK ) {
+	PQclear( res );
+	setLastError( qMakeError( "Could not commit transaction", TQSqlError::Transaction, d ) );
+	return FALSE;
+    }
+    PQclear( res );
+    return TRUE;
+}
+
+bool TQPSTQLDriver::rollbackTransaction()
+{
+    if ( !isOpen() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQPSTQLDriver::rollbackTransaction: Database not open" );
+#endif
+	return FALSE;
+    }
+    PGresult* res = PQexec( d->connection, "ROLLBACK" );
+    if ( !res || PQresultqStatus( res ) != PGRES_COMMAND_OK ) {
+	setLastError( qMakeError( "Could not rollback transaction", TQSqlError::Transaction, d ) );
+	PQclear( res );
+	return FALSE;
+    }
+    PQclear( res );
+    return TRUE;
+}
+
+TQStringList TQPSTQLDriver::tables( const TQString& typeName ) const
+{
+    TQStringList tl;
+    if ( !isOpen() )
+	return tl;
+    int type = typeName.toInt();
+    TQSqlQuery t = createQuery();
+    t.setForwardOnly( TRUE );
+
+    if ( typeName.isEmpty() || ((type & (int)TQSql::Tables) == (int)TQSql::Tables) ) {
+
+        TQString query("select relname from pg_class where (relkind = 'r') "
+                      "and (relname !~ '^Inv') "
+                      "and (relname !~ '^pg_') ");
+        if (pro >= TQPSTQLDriver::Version73)
+            query.append("and (relnamespace not in "
+                         "(select oid from pg_namespace where nspname = 'information_schema')) "
+                         "and pg_table_is_visible(pg_class.oid) ");
+        t.exec(query);
+	while ( t.next() )
+	    tl.append( t.value(0).toString() );
+    }
+    if ( (type & (int)TQSql::Views) == (int)TQSql::Views ) {
+        TQString query("select relname from pg_class where ( relkind = 'v' ) "
+                "and ( relname !~ '^Inv' ) "
+                "and ( relname !~ '^pg_' ) ");
+        if (pro >= TQPSTQLDriver::Version73)
+            query.append("and (relnamespace not in "
+                         "(select oid from pg_namespace where nspname = 'information_schema')) "
+                         "and pg_table_is_visible(pg_class.oid) ");
+        t.exec(query);
+	while ( t.next() )
+	    tl.append( t.value(0).toString() );
+    }
+    if ( (type & (int)TQSql::SystemTables) == (int)TQSql::SystemTables ) {
+        TQString query( "select relname from pg_class where ( relkind = 'r' ) "
+		"and ( relname like 'pg_%' ) " );
+        if (pro >= TQPSTQLDriver::Version73)
+		query.append( "and pg_table_is_visible(pg_class.oid) " );
+        t.exec(query);
+	while ( t.next() )
+	    tl.append( t.value(0).toString() );
+    }
+
+    return tl;
+}
+
+TQSqlIndex TQPSTQLDriver::primaryIndex( const TQString& tablename ) const
+{
+    TQSqlIndex idx( tablename );
+    if ( !isOpen() )
+	return idx;
+    TQSqlQuery i = createQuery();
+    TQString stmt;
+
+    switch( pro ) {
+    case TQPSTQLDriver::Version6:
+	stmt = "select pg_att1.attname, int(pg_att1.atttypid), pg_att2.attnum, pg_cl.relname "
+		"from pg_attribute pg_att1, pg_attribute pg_att2, pg_class pg_cl, pg_index pg_ind "
+		"where lower(pg_cl.relname) = '%1_pkey' ";
+	break;
+    case TQPSTQLDriver::Version7:
+    case TQPSTQLDriver::Version71:
+	stmt = "select pg_att1.attname, pg_att1.atttypid::int, pg_cl.relname "
+		"from pg_attribute pg_att1, pg_attribute pg_att2, pg_class pg_cl, pg_index pg_ind "
+		"where lower(pg_cl.relname) = '%1_pkey' ";
+	break;
+    case TQPSTQLDriver::Version73:
+	stmt = "select pg_att1.attname, pg_att1.atttypid::int, pg_cl.relname "
+		"from pg_attribute pg_att1, pg_attribute pg_att2, pg_class pg_cl, pg_index pg_ind "
+		"where lower(pg_cl.relname) = '%1_pkey' "
+		"and pg_table_is_visible(pg_cl.oid) "
+		"and pg_att1.attisdropped = false ";
+	break;
+    }
+    stmt += "and pg_cl.oid = pg_ind.indexrelid "
+	    "and pg_att2.attrelid = pg_ind.indexrelid "
+	    "and pg_att1.attrelid = pg_ind.indrelid "
+	    "and pg_att1.attnum = pg_ind.indkey[pg_att2.attnum-1] "
+	    "order by pg_att2.attnum";
+
+    i.exec( stmt.arg( tablename.lower() ) );
+    while ( i.isActive() && i.next() ) {
+	TQSqlField f( i.value(0).toString(), qDecodePSTQLType( i.value(1).toInt() ) );
+	idx.append( f );
+	idx.setName( i.value(2).toString() );
+    }
+    return idx;
+}
+
+TQSqlRecord TQPSTQLDriver::record( const TQString& tablename ) const
+{
+    TQSqlRecord fil;
+    if ( !isOpen() )
+	return fil;
+    TQString stmt;
+    switch( pro ) {
+    case TQPSTQLDriver::Version6:
+	stmt = "select pg_attribute.attname, int(pg_attribute.atttypid) "
+			"from pg_class, pg_attribute "
+			"where lower(pg_class.relname) = '%1' "
+			"and pg_attribute.attnum > 0 "
+			"and pg_attribute.attrelid = pg_class.oid ";
+	break;
+    case TQPSTQLDriver::Version7:
+    case TQPSTQLDriver::Version71:
+	stmt = "select pg_attribute.attname, pg_attribute.atttypid::int "
+			"from pg_class, pg_attribute "
+			"where lower(pg_class.relname) = '%1' "
+			"and pg_attribute.attnum > 0 "
+			"and pg_attribute.attrelid = pg_class.oid ";
+	break;
+    case TQPSTQLDriver::Version73:
+	stmt = "select pg_attribute.attname, pg_attribute.atttypid::int "
+			"from pg_class, pg_attribute "
+			"where lower(pg_class.relname) = '%1' "
+			"and pg_table_is_visible(pg_class.oid) "
+			"and pg_attribute.attnum > 0 "
+			"and pg_attribute.attisdropped = false "
+			"and pg_attribute.attrelid = pg_class.oid ";
+	break;
+    }
+
+    TQSqlQuery fi = createQuery();
+    fi.exec( stmt.arg( tablename.lower() ) );
+    while ( fi.next() ) {
+	TQSqlField f( fi.value(0).toString(), qDecodePSTQLType( fi.value(1).toInt() ) );
+	fil.append( f );
+    }
+    return fil;
+}
+
+TQSqlRecord TQPSTQLDriver::record( const TQSqlQuery& query ) const
+{
+    TQSqlRecord fil;
+    if ( !isOpen() )
+	return fil;
+    if ( query.isActive() && query.driver() == this ) {
+	TQPSTQLResult* result = (TQPSTQLResult*)query.result();
+	int count = PQnfields( result->d->result );
+	for ( int i = 0; i < count; ++i ) {
+	    TQString name = PQfname( result->d->result, i );
+	    TQVariant::Type type = qDecodePSTQLType( PQftype( result->d->result, i ) );
+	    TQSqlField rf( name, type );
+	    fil.append( rf );
+	}
+    }
+    return fil;
+}
+
+TQSqlRecordInfo TQPSTQLDriver::recordInfo( const TQString& tablename ) const
+{
+    TQSqlRecordInfo info;
+    if ( !isOpen() )
+	return info;
+
+    TQString stmt;
+    switch( pro ) {
+    case TQPSTQLDriver::Version6:
+	stmt = "select pg_attribute.attname, int(pg_attribute.atttypid), pg_attribute.attnotnull, "
+		"pg_attribute.attlen, pg_attribute.atttypmod, int(pg_attribute.attrelid), pg_attribute.attnum "
+		"from pg_class, pg_attribute "
+		"where lower(pg_class.relname) = '%1' "
+		"and pg_attribute.attnum > 0 "
+		"and pg_attribute.attrelid = pg_class.oid ";
+	break;
+    case TQPSTQLDriver::Version7:
+	stmt = "select pg_attribute.attname, pg_attribute.atttypid::int, pg_attribute.attnotnull, "
+		"pg_attribute.attlen, pg_attribute.atttypmod, pg_attribute.attrelid::int, pg_attribute.attnum "
+		"from pg_class, pg_attribute "
+		"where lower(pg_class.relname) = '%1' "
+		"and pg_attribute.attnum > 0 "
+		"and pg_attribute.attrelid = pg_class.oid ";
+	break;
+    case TQPSTQLDriver::Version71:
+	stmt = "select pg_attribute.attname, pg_attribute.atttypid::int, pg_attribute.attnotnull, "
+		"pg_attribute.attlen, pg_attribute.atttypmod, pg_attrdef.adsrc "
+		"from pg_class, pg_attribute "
+		"left join pg_attrdef on (pg_attrdef.adrelid = pg_attribute.attrelid and pg_attrdef.adnum = pg_attribute.attnum) "
+		"where lower(pg_class.relname) = '%1' "
+		"and pg_attribute.attnum > 0 "
+		"and pg_attribute.attrelid = pg_class.oid "
+		"order by pg_attribute.attnum ";
+	break;
+    case TQPSTQLDriver::Version73:
+	stmt = "select pg_attribute.attname, pg_attribute.atttypid::int, pg_attribute.attnotnull, "
+		"pg_attribute.attlen, pg_attribute.atttypmod, pg_attrdef.adsrc "
+		"from pg_class, pg_attribute "
+		"left join pg_attrdef on (pg_attrdef.adrelid = pg_attribute.attrelid and pg_attrdef.adnum = pg_attribute.attnum) "
+		"where lower(pg_class.relname) = '%1' "
+		"and pg_table_is_visible(pg_class.oid) "
+		"and pg_attribute.attnum > 0 "
+		"and pg_attribute.attrelid = pg_class.oid "
+		"and pg_attribute.attisdropped = false "
+		"order by pg_attribute.attnum ";
+	break;
+    }
+
+    TQSqlQuery query = createQuery();
+    query.exec( stmt.arg( tablename.lower() ) );
+    if ( pro >= TQPSTQLDriver::Version71 ) {
+	while ( query.next() ) {
+	    int len = query.value( 3 ).toInt();
+	    int precision = query.value( 4 ).toInt();
+	    // swap length and precision if length == -1
+	    if ( len == -1 && precision > -1 ) {
+		len = precision - 4;
+		precision = -1;
+	    }
+	    TQString defVal = query.value( 5 ).toString();
+	    if ( !defVal.isEmpty() && defVal.startsWith( "'" ) )
+		defVal = defVal.mid( 1, defVal.length() - 2 );
+	    info.append( TQSqlFieldInfo( query.value( 0 ).toString(),
+					qDecodePSTQLType( query.value( 1 ).toInt() ),
+					query.value( 2 ).toBool(),
+					len,
+					precision,
+					defVal,
+					query.value( 1 ).toInt() ) );
+	}
+    } else {
+	// Postgres < 7.1 cannot handle outer joins
+	while ( query.next() ) {
+	    TQString defVal;
+	    TQString stmt2 = "select pg_attrdef.adsrc from pg_attrdef where "
+			    "pg_attrdef.adrelid = %1 and pg_attrdef.adnum = %2 ";
+	    TQSqlQuery query2 = createQuery();
+	    query2.exec( stmt2.arg( query.value( 5 ).toInt() ).arg( query.value( 6 ).toInt() ) );
+	    if ( query2.isActive() && query2.next() )
+		defVal = query2.value( 0 ).toString();
+	    if ( !defVal.isEmpty() && defVal.startsWith( "'" ) )
+		defVal = defVal.mid( 1, defVal.length() - 2 );
+	    int len = query.value( 3 ).toInt();
+	    int precision = query.value( 4 ).toInt();
+	    // swap length and precision if length == -1
+	    if ( len == -1 && precision > -1 ) {
+		len = precision - 4;
+		precision = -1;
+	    }
+	    info.append( TQSqlFieldInfo( query.value( 0 ).toString(),
+					qDecodePSTQLType( query.value( 1 ).toInt() ),
+					query.value( 2 ).toBool(),
+					len,
+					precision,
+					defVal,
+					query.value( 1 ).toInt() ) );
+	}
+    }
+
+    return info;
+}
+
+TQSqlRecordInfo TQPSTQLDriver::recordInfo( const TQSqlQuery& query ) const
+{
+    TQSqlRecordInfo info;
+    if ( !isOpen() )
+	return info;
+    if ( query.isActive() && query.driver() == this ) {
+	TQPSTQLResult* result = (TQPSTQLResult*)query.result();
+	int count = PQnfields( result->d->result );
+	for ( int i = 0; i < count; ++i ) {
+	    TQString name = PQfname( result->d->result, i );
+	    int len = PQfsize( result->d->result, i );
+	    int precision = PQfmod( result->d->result, i );
+	    // swap length and precision if length == -1
+	    if ( len == -1 && precision > -1 ) {
+		len = precision - 4;
+		precision = -1;
+	    }
+	    info.append( TQSqlFieldInfo( name,
+					qDecodePSTQLType( PQftype( result->d->result, i ) ),
+					-1,
+					len,
+					precision,
+					TQVariant(),
+					PQftype( result->d->result, i ) ) );
+	}
+    }
+    return info;
+}
+
+TQString TQPSTQLDriver::formatValue( const TQSqlField* field,
+				  bool ) const
+{
+    TQString r;
+    if ( field->isNull() ) {
+	r = nullText();
+    } else {
+	switch ( field->type() ) {
+	case TQVariant::DateTime:
+	    if ( field->value().toDateTime().isValid() ) {
+		TQDate dt = field->value().toDateTime().date();
+		TQTime tm = field->value().toDateTime().time();
+		// msecs need to be right aligned otherwise psql
+		// interpretes them wrong
+		r = "'" + TQString::number( dt.year() ) + "-" +
+			  TQString::number( dt.month() ) + "-" +
+			  TQString::number( dt.day() ) + " " +
+			  tm.toString() + "." +
+			  TQString::number( tm.msec() ).rightJustify( 3, '0' ) + "'";
+	    } else {
+		r = nullText();
+	    }
+	    break;
+	case TQVariant::Time:
+	    if ( field->value().toTime().isValid() ) {
+		r = field->value().toTime().toString( TQt::ISODate );
+	    } else {
+		r = nullText();
+	    }
+	case TQVariant::String:
+	case TQVariant::CString: {
+	    switch ( field->value().type() ) {
+		case TQVariant::Rect: {
+		    TQRect rec = field->value().toRect();
+		    // upper right corner then lower left according to psql docs
+		    r = "'(" + TQString::number( rec.right() ) +
+			"," + TQString::number( rec.bottom() ) +
+			"),(" + TQString::number( rec.left() ) +
+			"," + TQString::number( rec.top() ) + ")'";
+		    break;
+		}
+		case TQVariant::Point: {
+		    TQPoint p = field->value().toPoint();
+		    r = "'(" + TQString::number( p.x() ) +
+			"," + TQString::number( p.y() ) + ")'";
+		    break;
+		}
+		case TQVariant::PointArray: {
+		    TQPointArray pa = field->value().toPointArray();
+		    r = "' ";
+		    for ( int i = 0; i < (int)pa.size(); ++i ) {
+			r += "(" + TQString::number( pa[i].x() ) +
+			     "," + TQString::number( pa[i].y() ) + "),";
+		    }
+		    r.truncate( r.length() - 1 );
+		    r += "'";
+		    break;
+		}
+		default:
+		    // Escape '\' characters
+		    r = TQSqlDriver::formatValue( field );
+		    r.tqreplace( "\\", "\\\\" );
+		    break;
+	    }
+	    break;
+	}
+	case TQVariant::Bool:
+	    if ( field->value().toBool() )
+		r = "TRUE";
+	    else
+		r = "FALSE";
+	    break;
+	case TQVariant::ByteArray: {
+	    TQByteArray ba = field->value().asByteArray();
+	    TQString res;
+	    r = "'";
+	    unsigned char uc;
+	    for ( int i = 0; i < (int)ba.size(); ++i ) {
+		uc = (unsigned char) ba[ i ];
+		if ( uc > 40 && uc < 92 ) {
+		    r += uc;
+		} else {
+		    r += "\\\\";
+		    r += TQString::number( (unsigned char) ba[ i ], 8 ).rightJustify( 3, '0', TRUE );
+		}
+	    }
+	    r += "'";
+	    break;
+	}
+	default:
+	    r = TQSqlDriver::formatValue( field );
+	    break;
+	}
+    }
+    return r;
+}
diff --git a/tqtinterface/qt4/src/sql/drivers/psql/tqsql_psql.h b/tqtinterface/qt4/src/sql/drivers/psql/tqsql_psql.h
new file mode 100644
index 0000000..c005107
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/psql/tqsql_psql.h
@@ -0,0 +1,131 @@
+/****************************************************************************
+**
+** Definition of PostgreSQL driver classes
+**
+** Created : 001103
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQL_PSTQL_H
+#define TQSQL_PSTQL_H
+
+#include <tqsqlresult.h>
+#include <tqsqlfield.h>
+#include <tqsqldriver.h>
+#include <libpq-fe.h>
+
+#ifdef TQT_PLUGIN
+#define TQ_EXPORT_STQLDRIVER_PSQL
+#else
+#define TQ_EXPORT_STQLDRIVER_PSQL TQ_EXPORT
+#endif
+
+class TQPSTQLPrivate;
+class TQPSTQLDriver;
+class TQSqlRecordInfo;
+
+class TQPSTQLResult : public TQSqlResult
+{
+    friend class TQPSTQLDriver;
+public:
+    TQPSTQLResult( const TQPSTQLDriver* db, const TQPSTQLPrivate* p );
+    ~TQPSTQLResult();
+    PGresult* result();
+protected:
+    void		cleanup();
+    bool		fetch( int i );
+    bool		fetchFirst();
+    bool		fetchLast();
+    TQVariant		data( int i );
+    bool		isNull( int field );
+    bool		reset ( const TQString& query );
+    int			size();
+    int			numRowsAffected();
+private:
+    int			currentSize;
+    TQPSTQLPrivate*	d;
+};
+
+class TQ_EXPORT_STQLDRIVER_PSQL TQPSTQLDriver : public TQSqlDriver
+{
+public:
+    enum Protocol {
+	Version6 = 6,
+	Version7 = 7,
+	Version71 = 8,
+	Version73 = 9
+    };
+
+    TQPSTQLDriver( TQObject * tqparent=0, const char * name=0 );
+    TQPSTQLDriver( PGconn * conn, TQObject * tqparent=0, const char * name=0 );
+    ~TQPSTQLDriver();
+    bool		hasFeature( DriverFeature f ) const;
+    bool		open( const TQString & db,
+				const TQString & user = TQString::null,
+				const TQString & password = TQString::null,
+				const TQString & host = TQString::null,
+				int port = -1 );
+    void		close();
+    TQSqlQuery		createQuery() const;
+    TQStringList		tables( const TQString& user ) const;
+    TQSqlIndex		primaryIndex( const TQString& tablename ) const;
+    TQSqlRecord		record( const TQString& tablename ) const;
+    TQSqlRecord		record( const TQSqlQuery& query ) const;
+    TQSqlRecordInfo	recordInfo( const TQString& tablename ) const;
+    TQSqlRecordInfo	recordInfo( const TQSqlQuery& query ) const;
+
+    Protocol            protocol() const { return pro; }
+    PGconn*             connection();
+    TQString		formatValue( const TQSqlField* field,
+				     bool trimStrings ) const;
+    
+    // ### remove me for 4.0
+    bool open( const TQString& db,
+	       const TQString& user,
+	       const TQString& password,
+	       const TQString& host,
+	       int port,
+	       const TQString& connOpts );
+protected:
+    bool		beginTransaction();
+    bool		commitTransaction();
+    bool		rollbackTransaction();
+private:
+    void		init();
+    Protocol            pro;
+    TQPSTQLPrivate*	d;
+};
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/drivers/sqlite/tqsql_sqlite.cpp b/tqtinterface/qt4/src/sql/drivers/sqlite/tqsql_sqlite.cpp
new file mode 100644
index 0000000..c94f595
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/sqlite/tqsql_sqlite.cpp
@@ -0,0 +1,513 @@
+/****************************************************************************
+**
+** Implementation of STQLite driver classes.
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+** EDITIONS: FREE, ENTERPRISE
+**
+** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+**
+****************************************************************************/
+
+#include "tqsql_sqlite.h"
+
+#include <tqdatetime.h>
+#include <tqregexp.h>
+#include <tqfile.h>
+
+#if (TQT_VERSION-0 < 0x030000)
+#  include <tqvector.h>
+#  if !defined TQ_WS_WIN32
+#    include <unistd.h>
+#  endif
+#  include "../../../3rdparty/libraries/sqlite/sqlite.h"
+#else
+#  include <tqptrvector.h>
+#  if !defined TQ_WS_WIN32
+#    include <unistd.h>
+#  endif
+#  include <sqlite.h>
+#endif
+
+typedef struct sqlite_vm sqlite_vm;
+
+#define TQSQLITE_DRIVER_NAME "TQSQLITE"
+
+static TQSqlVariant::Type nameToType(const TQString& typeName)
+{
+    TQString tName = typeName.upper();
+    if (tName.startsWith("INT"))
+        return TQSqlVariant::Int;
+    if (tName.startsWith("FLOAT") || tName.startsWith("NUMERIC"))
+        return TQSqlVariant::Double;
+    if (tName.startsWith("BOOL"))
+        return TQSqlVariant::Bool;
+    // STQLite is typeless - consider everything else as string
+    return TQSqlVariant::String;
+}
+
+class TQSTQLiteDriverPrivate
+{
+public:
+    TQSTQLiteDriverPrivate();
+    sqlite *access;
+    bool utf8;
+};
+
+TQSTQLiteDriverPrivate::TQSTQLiteDriverPrivate() : access(0)
+{
+    utf8 = (qstrcmp(sqlite_encoding, "UTF-8") == 0);
+}
+
+class TQSTQLiteResultPrivate
+{
+public:
+    TQSTQLiteResultPrivate(TQSTQLiteResult *res);
+    void cleanup();
+    bool fetchNext(TQtSqlCachedResult::RowCache *row);
+    bool isSelect();
+    // initializes the recordInfo and the cache
+    void init(const char **cnames, int numCols, TQtSqlCachedResult::RowCache **row = 0);
+    void finalize();
+
+    TQSTQLiteResult* q;
+    sqlite *access;
+
+    // and we have too keep our own struct for the data (sqlite works via
+    // callback.
+    const char *currentTail;
+    sqlite_vm *currentMachine;
+
+    uint skippedtqStatus: 1; // the status of the fetchNext() that's skipped
+    TQtSqlCachedResult::RowCache *skipRow;
+
+    uint utf8: 1;
+    TQSqlRecordInfo rInf;
+};
+
+static const uint initial_cache_size = 128;
+
+TQSTQLiteResultPrivate::TQSTQLiteResultPrivate(TQSTQLiteResult* res) : q(res), access(0), currentTail(0),
+    currentMachine(0), skippedtqStatus(FALSE), skipRow(0), utf8(FALSE)
+{
+}
+
+void TQSTQLiteResultPrivate::cleanup()
+{
+    finalize();
+    rInf.clear();
+    currentTail = 0;
+    currentMachine = 0;
+    skippedtqStatus = FALSE;
+    delete skipRow;
+    skipRow = 0;
+    q->setAt(TQSql::BeforeFirst);
+    q->setActive(FALSE);
+    q->cleanup();
+}
+
+void TQSTQLiteResultPrivate::finalize()
+{
+    if (!currentMachine)
+        return;
+
+    char* err = 0;
+    int res = sqlite_finalize(currentMachine, &err);
+    if (err) {
+        q->setLastError(TQSqlError("Unable to fetch results", err, TQSqlError::Statement, res));
+        sqlite_freemem(err);
+    }
+    currentMachine = 0;
+}
+
+// called on first fetch
+void TQSTQLiteResultPrivate::init(const char **cnames, int numCols, TQtSqlCachedResult::RowCache **row)
+{
+    if (!cnames)
+        return;
+
+    rInf.clear();
+    if (numCols <= 0)
+        return;
+
+    for (int i = 0; i < numCols; ++i) {
+        const char* lastDot = strrchr(cnames[i], '.');
+        const char* fieldName = lastDot ? lastDot + 1 : cnames[i];
+        rInf.append(TQSqlFieldInfo(fieldName, nameToType(cnames[i+numCols])));
+    }
+    // skip the first fetch
+    if (row && !*row) {
+	*row = new TQtSqlCachedResult::RowCache(numCols);
+	skipRow = *row;
+    }
+}
+
+bool TQSTQLiteResultPrivate::fetchNext(TQtSqlCachedResult::RowCache* row)
+{
+    // may be caching.
+    const char **fvals;
+    const char **cnames;
+    int colNum;
+    int res;
+    int i;
+
+    if (skipRow) {
+	// already fetched
+	if (row)
+	    *row = *skipRow;
+	delete skipRow;
+	skipRow = 0;
+	return skippedtqStatus;
+    }
+
+    if (!currentMachine)
+	return FALSE;
+
+    // keep trying while busy, wish I could implement this better.
+    while ((res = sqlite_step(currentMachine, &colNum, &fvals, &cnames)) == STQLITE_BUSY) {
+	// sleep instead requesting result again immidiately.
+#if defined TQ_WS_WIN32
+	Sleep(1000);
+#else
+	sleep(1);
+#endif
+    }
+
+    switch(res) {
+    case STQLITE_ROW:
+	// check to see if should fill out columns
+	if (rInf.isEmpty())
+	    // must be first call.
+	    init(cnames, colNum, &row);
+	if (!fvals)
+	    return FALSE;
+	if (!row)
+	    return TRUE;
+	for (i = 0; i < colNum; ++i)
+	    (*row)[i] = utf8 ? TQString::fromUtf8(fvals[i]) : TQString(fvals[i]);
+	return TRUE;
+    case STQLITE_DONE:
+	if (rInf.isEmpty())
+	    // must be first call.
+	    init(cnames, colNum);
+	q->setAt(TQSql::AfterLast);
+	return FALSE;
+    case STQLITE_ERROR:
+    case STQLITE_MISUSE:
+    default:
+	// something wrong, don't get col info, but still return false
+	finalize(); // finalize to get the error message.
+	q->setAt(TQSql::AfterLast);
+	return FALSE;
+    }
+    return FALSE;
+}
+
+TQSTQLiteResult::TQSTQLiteResult(const TQSTQLiteDriver* db)
+: TQtSqlCachedResult(db)
+{
+    d = new TQSTQLiteResultPrivate(this);
+    d->access = db->d->access;
+    d->utf8 = db->d->utf8;
+}
+
+TQSTQLiteResult::~TQSTQLiteResult()
+{
+    d->cleanup();
+    delete d;
+}
+
+/*
+   Execute \a query.
+*/
+bool TQSTQLiteResult::reset (const TQString& query)
+{
+    // this is where we build a query.
+    if (!driver())
+        return FALSE;
+    if (!driver()-> isOpen() || driver()->isOpenError())
+        return FALSE;
+
+    d->cleanup();
+
+    // Um, ok.  callback based so.... pass private static function for this.
+    setSelect(FALSE);
+    char *err = 0;
+    int res = sqlite_compile(d->access,
+                                d->utf8 ? (const char*)query.utf8().data() : query.ascii(),
+                                &(d->currentTail),
+                                &(d->currentMachine),
+                                &err);
+    if (res != STQLITE_OK || err) {
+        setLastError(TQSqlError("Unable to execute statement", err, TQSqlError::Statement, res));
+        sqlite_freemem(err);
+    }
+    //if (*d->currentTail != '\000' then there is more sql to eval
+    if (!d->currentMachine) {
+	setActive(FALSE);
+	return FALSE;
+    }
+    // we have to fetch one row to tqfind out about
+    // the structure of the result set
+    d->skippedtqStatus = d->fetchNext(0);
+    setSelect(!d->rInf.isEmpty());
+    if (isSelect())
+	init(d->rInf.count());
+    setActive(TRUE);
+    return TRUE;
+}
+
+bool TQSTQLiteResult::gotoNext(TQtSqlCachedResult::RowCache* row)
+{
+    return d->fetchNext(row);
+}
+
+int TQSTQLiteResult::size()
+{
+    return -1;
+}
+
+int TQSTQLiteResult::numRowsAffected()
+{
+    return sqlite_changes(d->access);
+}
+
+/////////////////////////////////////////////////////////
+
+TQSTQLiteDriver::TQSTQLiteDriver(TQObject * tqparent, const char * name)
+    : TQSqlDriver(tqparent, name ? name : TQSQLITE_DRIVER_NAME)
+{
+    d = new TQSTQLiteDriverPrivate();
+}
+
+TQSTQLiteDriver::TQSTQLiteDriver(sqlite *connection, TQObject *tqparent, const char *name)
+    : TQSqlDriver(tqparent, name ? name : TQSQLITE_DRIVER_NAME)
+{
+    d = new TQSTQLiteDriverPrivate();
+    d->access = connection;
+    setOpen(TRUE);
+    setOpenError(FALSE);
+}
+
+
+TQSTQLiteDriver::~TQSTQLiteDriver()
+{
+    delete d;
+}
+
+bool TQSTQLiteDriver::hasFeature(DriverFeature f) const
+{
+    switch (f) {
+    case Transactions:
+        return TRUE;
+#if (TQT_VERSION-0 >= 0x030000)
+    case Unicode:
+        return d->utf8;
+#endif
+//   case BLOB:
+    default:
+        return FALSE;
+    }
+}
+
+/*
+   STQLite dbs have no user name, passwords, hosts or ports.
+   just file names.
+*/
+bool TQSTQLiteDriver::open(const TQString & db, const TQString &, const TQString &, const TQString &, int, const TQString &)
+{
+    if (isOpen())
+        close();
+
+    if (db.isEmpty())
+	return FALSE;
+
+    char* err = 0;
+    d->access = sqlite_open(TQFile::encodeName(db), 0, &err);
+    if (err) {
+        setLastError(TQSqlError("Error to open database", err, TQSqlError::Connection));
+        sqlite_freemem(err);
+        err = 0;
+    }
+
+    if (d->access) {
+        setOpen(TRUE);
+	setOpenError(FALSE);
+        return TRUE;
+    }
+    setOpenError(TRUE);
+    return FALSE;
+}
+
+void TQSTQLiteDriver::close()
+{
+    if (isOpen()) {
+        sqlite_close(d->access);
+        d->access = 0;
+        setOpen(FALSE);
+        setOpenError(FALSE);
+    }
+}
+
+TQSqlQuery TQSTQLiteDriver::createQuery() const
+{
+    return TQSqlQuery(new TQSTQLiteResult(this));
+}
+
+bool TQSTQLiteDriver::beginTransaction()
+{
+    if (!isOpen() || isOpenError())
+        return FALSE;
+
+    char* err;
+    int res = sqlite_exec(d->access, "BEGIN", 0, this, &err);
+
+    if (res == STQLITE_OK)
+        return TRUE;
+
+    setLastError(TQSqlError("Unable to begin transaction", err, TQSqlError::Transaction, res));
+    sqlite_freemem(err);
+    return FALSE;
+}
+
+bool TQSTQLiteDriver::commitTransaction()
+{
+    if (!isOpen() || isOpenError())
+        return FALSE;
+
+    char* err;
+    int res = sqlite_exec(d->access, "COMMIT", 0, this, &err);
+
+    if (res == STQLITE_OK)
+        return TRUE;
+
+    setLastError(TQSqlError("Unable to commit transaction", err, TQSqlError::Transaction, res));
+    sqlite_freemem(err);
+    return FALSE;
+}
+
+bool TQSTQLiteDriver::rollbackTransaction()
+{
+    if (!isOpen() || isOpenError())
+        return FALSE;
+
+    char* err;
+    int res = sqlite_exec(d->access, "ROLLBACK", 0, this, &err);
+
+    if (res == STQLITE_OK)
+        return TRUE;
+
+    setLastError(TQSqlError("Unable to rollback Transaction", err, TQSqlError::Transaction, res));
+    sqlite_freemem(err);
+    return FALSE;
+}
+
+TQStringList TQSTQLiteDriver::tables(const TQString &typeName) const
+{
+    TQStringList res;
+    if (!isOpen())
+        return res;
+    int type = typeName.toInt();
+
+    TQSqlQuery q = createQuery();
+    q.setForwardOnly(TRUE);
+#if (TQT_VERSION-0 >= 0x030000)
+    if ((type & (int)TQSql::Tables) && (type & (int)TQSql::Views))
+        q.exec("SELECT name FROM sqlite_master WHERE type='table' OR type='view'");
+    else if (typeName.isEmpty() || (type & (int)TQSql::Tables))
+        q.exec("SELECT name FROM sqlite_master WHERE type='table'");
+    else if (type & (int)TQSql::Views)
+        q.exec("SELECT name FROM sqlite_master WHERE type='view'");
+#else
+        q.exec("SELECT name FROM sqlite_master WHERE type='table' OR type='view'");
+#endif
+
+
+    if (q.isActive()) {
+        while(q.next())
+            res.append(q.value(0).toString());
+    }
+
+#if (TQT_VERSION-0 >= 0x030000)
+    if (type & (int)TQSql::SystemTables) {
+        // there are no internal tables beside this one:
+        res.append("sqlite_master");
+    }
+#endif
+
+    return res;
+}
+
+TQSqlIndex TQSTQLiteDriver::primaryIndex(const TQString &tblname) const
+{
+    TQSqlRecordInfo rec(recordInfo(tblname)); // expensive :(
+
+    if (!isOpen())
+        return TQSqlIndex();
+
+    TQSqlQuery q = createQuery();
+    q.setForwardOnly(TRUE);
+    // finrst tqfind a UNITQUE INDEX
+    q.exec("PRAGMA index_list('" + tblname + "');");
+    TQString indexname;
+    while(q.next()) {
+	if (q.value(2).toInt()==1) {
+	    indexname = q.value(1).toString();
+	    break;
+	}
+    }
+    if (indexname.isEmpty())
+	return TQSqlIndex();
+
+    q.exec("PRAGMA index_info('" + indexname + "');");
+
+    TQSqlIndex index(tblname, indexname);
+    while(q.next()) {
+	TQString name = q.value(2).toString();
+	TQSqlVariant::Type type = TQSqlVariant::Invalid;
+	if (rec.tqcontains(name))
+	    type = rec.tqfind(name).type();
+	index.append(TQSqlField(name, type));
+    }
+    return index;
+}
+
+TQSqlRecordInfo TQSTQLiteDriver::recordInfo(const TQString &tbl) const
+{
+    if (!isOpen())
+        return TQSqlRecordInfo();
+
+    TQSqlQuery q = createQuery();
+    q.setForwardOnly(TRUE);
+    q.exec("SELECT * FROM " + tbl + " LIMIT 1");
+    return recordInfo(q);
+}
+
+TQSqlRecord TQSTQLiteDriver::record(const TQString &tblname) const
+{
+    if (!isOpen())
+        return TQSqlRecord();
+
+    return recordInfo(tblname).toRecord();
+}
+
+TQSqlRecord TQSTQLiteDriver::record(const TQSqlQuery& query) const
+{
+    if (query.isActive() && query.driver() == this) {
+        TQSTQLiteResult* result = (TQSTQLiteResult*)query.result();
+        return result->d->rInf.toRecord();
+    }
+    return TQSqlRecord();
+}
+
+TQSqlRecordInfo TQSTQLiteDriver::recordInfo(const TQSqlQuery& query) const
+{
+    if (query.isActive() && query.driver() == this) {
+        TQSTQLiteResult* result = (TQSTQLiteResult*)query.result();
+        return result->d->rInf;
+    }
+    return TQSqlRecordInfo();
+}
diff --git a/tqtinterface/qt4/src/sql/drivers/sqlite/tqsql_sqlite.h b/tqtinterface/qt4/src/sql/drivers/sqlite/tqsql_sqlite.h
new file mode 100644
index 0000000..5350ba1
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/drivers/sqlite/tqsql_sqlite.h
@@ -0,0 +1,90 @@
+/****************************************************************************
+**
+** Definition of STQLite driver classes.
+**
+** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+** EDITIONS: FREE, ENTERPRISE
+**
+** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+**
+****************************************************************************/
+
+#ifndef TQSQL_STQLITE_H
+#define TQSQL_STQLITE_H
+
+#include <tqsqldriver.h>
+#include <tqsqlresult.h>
+#include <tqsqlrecord.h>
+#include <tqsqlindex.h>
+#include "../cache/tqsqlcachedresult.h"
+
+#if (TQT_VERSION-0 >= 0x030000)
+typedef TQVariant TQSqlVariant;
+#endif
+
+#if defined (TQ_OS_WIN32)
+# include <tqt_windows.h>
+#endif
+
+class TQSTQLiteDriverPrivate;
+class TQSTQLiteResultPrivate;
+class TQSTQLiteDriver;
+struct sqlite;
+
+class TQSTQLiteResult : public TQtSqlCachedResult
+{
+    friend class TQSTQLiteDriver;
+    friend class TQSTQLiteResultPrivate;
+public:
+    TQSTQLiteResult(const TQSTQLiteDriver* db);
+    ~TQSTQLiteResult();
+
+protected:
+    bool gotoNext(TQtSqlCachedResult::RowCache* row);    
+    bool reset (const TQString& query);
+    int size();
+    int numRowsAffected();
+
+private:
+    TQSTQLiteResultPrivate* d;
+};
+
+class TQSTQLiteDriver : public TQSqlDriver
+{
+    friend class TQSTQLiteResult;
+public:
+    TQSTQLiteDriver(TQObject *tqparent = 0, const char *name = 0);
+    TQSTQLiteDriver(sqlite *connection, TQObject *tqparent = 0, const char *name = 0);
+    ~TQSTQLiteDriver();
+    bool hasFeature(DriverFeature f) const;
+    bool open(const TQString & db,
+                   const TQString & user,
+                   const TQString & password,
+                   const TQString & host,
+                   int port,
+                   const TQString & connOpts);
+    bool open( const TQString & db,
+	    const TQString & user,
+	    const TQString & password,
+	    const TQString & host,
+	    int port ) { return open (db, user, password, host, port, TQString()); }
+    void close();
+    TQSqlQuery createQuery() const;
+    bool beginTransaction();
+    bool commitTransaction();
+    bool rollbackTransaction();
+    TQStringList tables(const TQString& user) const;
+
+    TQSqlRecord record(const TQString& tablename) const;
+    TQSqlRecordInfo recordInfo(const TQString& tablename) const;
+    TQSqlIndex primaryIndex(const TQString &table) const;
+    TQSqlRecord record(const TQSqlQuery& query) const;
+    TQSqlRecordInfo recordInfo(const TQSqlQuery& query) const;
+
+private:
+    TQSTQLiteDriverPrivate* d;
+};
+#endif
diff --git a/tqtinterface/qt4/src/sql/qt_sql.pri b/tqtinterface/qt4/src/sql/qt_sql.pri
new file mode 100644
index 0000000..198edee
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/qt_sql.pri
@@ -0,0 +1,254 @@
+# Qt sql module
+
+sql {
+
+	!table {
+		message(table must be enabled for sql support)
+		REQUIRES += table
+	}
+	
+	SQL_P	    = sql
+	HEADERS     += $$SQL_H/tqsql.h \
+		    $$SQL_H/tqsqlquery.h \
+		    $$SQL_H/tqsqldatabase.h \
+		    $$SQL_H/tqsqlfield.h \
+		    $$SQL_H/tqsqlrecord.h \
+		    $$SQL_H/tqsqlcursor.h \
+		    $$SQL_H/tqsqlform.h \
+		    $$SQL_H/tqeditorfactory.h \
+		    $$SQL_H/tqsqleditorfactory.h \
+		    $$SQL_H/tqsqldriver.h \
+		    $$SQL_P/tqsqldriverinterface_p.h \
+		    $$SQL_P/tqsqlextension_p.h \
+		    $$SQL_H/tqsqldriverplugin.h \
+		    $$SQL_H/tqsqlerror.h \
+		    $$SQL_H/tqsqlresult.h \
+		    $$SQL_H/tqsqlindex.h \
+		    $$SQL_H/tqsqlpropertymap.h \
+		    $$SQL_P/tqsqlmanager_p.h \
+		    $$SQL_H/tqdatatable.h \
+		    $$SQL_H/tqdataview.h \
+		    $$SQL_H/tqdatabrowser.h \
+		    $$SQL_H/tqsqlselectcursor.h 
+
+	SOURCES     += $$SQL_CPP/tqsqlquery.cpp \
+		    $$SQL_CPP/tqsqldatabase.cpp \
+		    $$SQL_CPP/tqsqlfield.cpp \
+		    $$SQL_CPP/tqsqlrecord.cpp \
+		    $$SQL_CPP/tqsqlform.cpp \
+		    $$SQL_CPP/tqsqlcursor.cpp \
+		    $$SQL_CPP/tqeditorfactory.cpp \
+		    $$SQL_CPP/tqsqleditorfactory.cpp \
+		    $$SQL_CPP/tqsqldriver.cpp \
+		    $$SQL_CPP/tqsqlextension_p.cpp \
+		    $$SQL_CPP/tqsqldriverplugin.cpp \
+		    $$SQL_CPP/tqsqlerror.cpp \
+		    $$SQL_CPP/tqsqlresult.cpp \
+		    $$SQL_CPP/tqsqlindex.cpp \
+		    $$SQL_CPP/tqsqlpropertymap.cpp \
+		    $$SQL_CPP/tqsqlmanager_p.cpp \
+		    $$SQL_CPP/tqdatatable.cpp \
+		    $$SQL_CPP/tqdataview.cpp \
+		    $$SQL_CPP/tqdatabrowser.cpp \
+		    $$SQL_CPP/tqsqlselectcursor.cpp \
+		    $$SQL_CPP/drivers/cache/tqsqlcachedresult.cpp
+
+	tqcontains(sql-drivers, all ) {
+		sql-driver += psql mysql odbc oci tds db2 sqlite ibase
+	}			
+
+	tqcontains(sql-drivers, psql) {
+		HEADERS += $$SQL_CPP/drivers/psql/tqsql_psql.h
+		SOURCES += $$SQL_CPP/drivers/psql/tqsql_psql.cpp
+		DEFINES += TQT_SQL_POSTGRES
+		unix {
+			!tqcontains( LIBS, .*pq.* ) {
+				LIBS *= -lpq
+			}
+		}
+		win32 {
+			!tqcontains( LIBS, .*libpq.* ) {
+				LIBS *= libpqdll.lib
+			}
+#			win32-msvc: { 
+#				LIBS *= delayimp.lib
+#				QMAKE_LFLAGS += /DELAYLOAD:libpqdll.dll
+#			}
+#			win32-borland: {
+#				QMAKE_LFLAGS += /dlibpqdll.dll
+#			}		
+		}
+	}
+
+	tqcontains(sql-drivers, mysql) {
+		HEADERS += $$SQL_CPP/drivers/mysql/tqsql_mysql.h
+		SOURCES += $$SQL_CPP/drivers/mysql/tqsql_mysql.cpp
+		DEFINES += TQT_SQL_MYSQL
+		unix {
+			!tqcontains( LIBS, .*mysql.* ) {
+				LIBS    *= -lmysqlclient
+			}
+		}
+		win32 {
+			!tqcontains( LIBS, .*mysql.* ) {
+				LIBS    *= libmysql.lib
+			}
+#			win32-msvc: { 
+#				LIBS *= delayimp.lib
+#				QMAKE_LFLAGS += /DELAYLOAD:libmysql.dll
+#			}
+#			win32-borland: {
+#				QMAKE_LFLAGS += /dlibmysql.dll
+#			}
+		}
+	}
+	
+	tqcontains(sql-drivers, odbc) {
+		HEADERS += $$SQL_CPP/drivers/odbc/tqsql_odbc.h
+		SOURCES += $$SQL_CPP/drivers/odbc/tqsql_odbc.cpp
+		DEFINES += TQT_SQL_ODBC
+
+		mac {
+			!tqcontains( LIBS, .*odbc.* ) {
+				LIBS        *= -liodbc
+			}
+		}
+
+		unix {
+			!tqcontains( LIBS, .*odbc.* ) {
+				LIBS        *= -lodbc
+			}
+		}
+
+		win32 {
+			!win32-borland:LIBS     *= odbc32.lib
+			win32-borland:LIBS      *= $(BCB)/lib/PSDK/odbc32.lib
+		}
+
+	}
+
+	tqcontains(sql-drivers, oci) {
+		HEADERS += $$SQL_CPP/drivers/oci/tqsql_oci.h
+		SOURCES += $$SQL_CPP/drivers/oci/tqsql_oci.cpp
+		DEFINES += TQT_SQL_OCI
+		unix {
+			!tqcontains( LIBS, .*clnts.* ) {
+			    LIBS += -lclntsh -lwtc8
+			}
+		}
+		win32 {
+			LIBS += oci.lib
+#			win32-msvc: { 
+#				LIBS *= delayimp.lib
+#				QMAKE_LFLAGS += /DELAYLOAD:oci.dll
+#			}
+#			win32-borland: {
+#				QMAKE_LFLAGS += /doci.dll
+#			}		
+		}
+	}
+
+	tqcontains(sql-drivers, tds) {
+		HEADERS += $$SQL_CPP/drivers/tds/tqsql_tds.h \
+			   $$SQL_CPP/drivers/shared/tqsql_result.h
+		SOURCES += $$SQL_CPP/drivers/tds/tqsql_tds.cpp \
+			   $$SQL_CPP/drivers/shared/tqsql_result.cpp
+		DEFINES += TQT_SQL_TDS
+		unix {
+			LIBS += -L$SYBASE/lib -lsybdb
+		}
+		win32 {
+			!win32-borland:LIBS += NTWDBLIB.LIB
+			win32-borland:LIBS += $(BCB)/lib/PSDK/NTWDBLIB.LIB
+#			win32-msvc: { 
+#				LIBS *= delayimp.lib
+#				QMAKE_LFLAGS += /DELAYLOAD:ntwdblib.dll
+#			}
+#			win32-borland: {
+#				QMAKE_LFLAGS += /dntwdblib.dll
+#			}		
+		}
+	}
+
+	tqcontains(sql-drivers, db2) {
+		HEADERS += $$SQL_CPP/drivers/db2/tqsql_db2.h
+		SOURCES += $$SQL_CPP/drivers/db2/tqsql_db2.cpp
+		DEFINES += TQT_SQL_DB2
+		unix {
+			LIBS += -ldb2
+		}
+		win32 {
+			!win32-borland:LIBS += db2cli.lib
+#			win32-borland:LIBS  += $(BCB)/lib/PSDK/db2cli.lib
+		}
+	}
+
+	tqcontains(sql-drivers, ibase) {
+                HEADERS += $$SQL_CPP/drivers/ibase/tqsql_ibase.h
+                SOURCES += $$SQL_CPP/drivers/ibase/tqsql_ibase.cpp
+                DEFINES += TQT_SQL_IBASE
+                unix {
+                        LIBS *= -lgds
+                }
+                win32 {
+			!win32-borland:LIBS *= gds32_ms.lib
+			win32-borland:LIBS  += gds32.lib
+                }
+	}
+
+        tqcontains(sql-drivers, sqlite) {
+	    !tqcontains( LIBS, .*sqlite.* ) {
+
+                INCLUDEPATH += $$SQL_CPP/../3rdparty/sqlite/
+
+                HEADERS += $$SQL_CPP/../3rdparty/sqlite/btree.h \
+                $$SQL_CPP/../3rdparty/sqlite/config.h \
+                $$SQL_CPP/../3rdparty/sqlite/hash.h \
+                $$SQL_CPP/../3rdparty/sqlite/opcodes.h \
+                $$SQL_CPP/../3rdparty/sqlite/os.h \
+                $$SQL_CPP/../3rdparty/sqlite/pager.h \
+                $$SQL_CPP/../3rdparty/sqlite/parse.h \
+                $$SQL_CPP/../3rdparty/sqlite/sqlite.h \
+                $$SQL_CPP/../3rdparty/sqlite/sqliteInt.h \
+                $$SQL_CPP/../3rdparty/sqlite/vdbe.h \
+		$$SQL_CPP/../3rdparty/sqlite/vdbeInt.h
+
+                SOURCES += $$SQL_CPP/../3rdparty/sqlite/attach.c \
+                $$SQL_CPP/../3rdparty/sqlite/auth.c \
+                $$SQL_CPP/../3rdparty/sqlite/btree.c \
+                $$SQL_CPP/../3rdparty/sqlite/btree_rb.c \
+                $$SQL_CPP/../3rdparty/sqlite/build.c \
+                $$SQL_CPP/../3rdparty/sqlite/copy.c \
+		$$SQL_CPP/../3rdparty/sqlite/date.c \
+                $$SQL_CPP/../3rdparty/sqlite/delete.c \
+                $$SQL_CPP/../3rdparty/sqlite/expr.c \
+                $$SQL_CPP/../3rdparty/sqlite/func.c \
+                $$SQL_CPP/../3rdparty/sqlite/hash.c \
+                $$SQL_CPP/../3rdparty/sqlite/insert.c \
+                $$SQL_CPP/../3rdparty/sqlite/main.c \
+                $$SQL_CPP/../3rdparty/sqlite/opcodes.c \
+                $$SQL_CPP/../3rdparty/sqlite/os.c \
+                $$SQL_CPP/../3rdparty/sqlite/pager.c \
+                $$SQL_CPP/../3rdparty/sqlite/parse.c \
+                $$SQL_CPP/../3rdparty/sqlite/pragma.c \
+                $$SQL_CPP/../3rdparty/sqlite/printf.c \
+                $$SQL_CPP/../3rdparty/sqlite/random.c \
+                $$SQL_CPP/../3rdparty/sqlite/select.c \
+                $$SQL_CPP/../3rdparty/sqlite/shell.c \
+                $$SQL_CPP/../3rdparty/sqlite/table.c \
+                $$SQL_CPP/../3rdparty/sqlite/tokenize.c \
+                $$SQL_CPP/../3rdparty/sqlite/trigger.c \
+                $$SQL_CPP/../3rdparty/sqlite/update.c \
+                $$SQL_CPP/../3rdparty/sqlite/util.c \
+                $$SQL_CPP/../3rdparty/sqlite/vacuum.c \
+                $$SQL_CPP/../3rdparty/sqlite/vdbe.c \
+		$$SQL_CPP/../3rdparty/sqlite/vdbeaux.c \
+                $$SQL_CPP/../3rdparty/sqlite/where.c
+	    }
+
+            HEADERS += $$SQL_CPP/drivers/sqlite/tqsql_sqlite.h
+            SOURCES += $$SQL_CPP/drivers/sqlite/tqsql_sqlite.cpp
+            DEFINES += TQT_SQL_SQLITE
+        }
+}
+
diff --git a/tqtinterface/qt4/src/sql/tqdatabrowser.cpp b/tqtinterface/qt4/src/sql/tqdatabrowser.cpp
new file mode 100644
index 0000000..bf27e14
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqdatabrowser.cpp
@@ -0,0 +1,1284 @@
+/****************************************************************************
+**
+** Implementation of TQDataBrowser class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqdatabrowser.h"
+
+#ifndef TQT_NO_STQL_VIEW_WIDGETS
+
+#include "tqsqlform.h"
+#include "tqsqlmanager_p.h"
+#include "tqsqlresult.h"
+
+class TQDataBrowserPrivate
+{
+public:
+    TQDataBrowserPrivate() : boundaryCheck( TRUE ), readOnly( FALSE ) {}
+    TQSqlCursorManager cur;
+    TQSqlFormManager frm;
+    TQDataManager dat;
+    bool boundaryCheck;
+    bool readOnly;
+};
+
+/*!
+    \class TQDataBrowser tqdatabrowser.h
+    \brief The TQDataBrowser class provides data manipulation and
+    navigation for data entry forms.
+
+    \ingroup database
+    \mainclass
+    \module sql
+
+    A high-level API is provided for navigating through data records
+    in a cursor, for inserting, updating and deleting records, and for
+    refreshing data in the display.
+
+    If you want a read-only form to present database data use
+    TQDataView; if you want a table-based presentation of your data use
+    TQDataTable.
+
+    A TQDataBrowser is used to associate a dataset with a form in much
+    the same way as a TQDataTable associates a dataset with a table.
+    Once the data browser has been constructed it can be associated
+    with a dataset with setSqlCursor(), and with a form with
+    setForm(). Boundary checking, sorting and filtering can be set
+    with setBoundaryChecking(), setSort() and setFilter(),
+    respectively.
+
+    The insertCurrent() function reads the fields from the default
+    form into the default cursor and performs the insert. The
+    updateCurrent() and deleteCurrent() functions perform similarly to
+    update and delete the current record respectively.
+
+    The user can be asked to confirm all edits with setConfirmEdits().
+    For more precise control use setConfirmInsert(),
+    setConfirmUpdate(), setConfirmDelete() and setConfirmCancels().
+    Use setAutoEdit() to control the behaviour of the form when the
+    user edits a record and then navigates.
+
+    The record set is navigated using first(), next(), prev(), last()
+    and seek(). The form's display is updated with refresh(). When
+    navigation takes place the firstRecordAvailable(),
+    lastRecordAvailable(), nextRecordAvailable() and
+    prevRecordAvailable() Q_SIGNALS are emitted. When the cursor record
+    is changed due to navigation the cursorChanged() signal is
+    emitted.
+
+    If you want finer control of the insert, update and delete
+    processes then you can use the lower level functions to perform
+    these operations as described below.
+
+    The form is populated with data from the database with
+    readFields(). If the user is allowed to edit, (see setReadOnly()),
+    write the form's data back to the cursor's edit buffer with
+    writeFields(). You can clear the values in the form with
+    clearValues(). Editing is performed as follows:
+    \list
+    \i \e insert When the data browser enters insertion mode it emits the
+    primeInsert() signal which you can connect to, for example to
+    pre-populate fields. Call writeFields() to write the user's edits to
+    the cursor's edit buffer then call insert() to insert the record
+    into the database. The beforeInsert() signal is emitted just before
+    the cursor's edit buffer is inserted into the database; connect to
+    this for example, to populate fields such as an auto-generated
+    primary key.
+    \i \e update For updates the primeUpdate() signal is emitted when
+    the data browser enters update mode. After calling writeFields()
+    call update() to update the record and connect to the beforeUpdate()
+    signal to manipulate the user's data before the update takes place.
+    \i \e delete For deletion the primeDelete() signal is emitted when
+    the data browser enters deletion mode. After calling writeFields()
+    call del() to delete the record and connect to the beforeDelete()
+    signal, for example to record an audit of the deleted record.
+    \endlist
+
+*/
+
+/*!
+    \enum TQDataBrowser::Boundary
+
+    This enum describes where the data browser is positioned.
+
+    \value Unknown  the boundary cannot be determined (usually because
+    there is no default cursor, or the default cursor is not active).
+
+    \value None  the browser is not positioned on a boundary, but it is
+    positioned on a record somewhere in the middle.
+
+    \value BeforeBeginning  the browser is positioned before the
+    first available record.
+
+    \value Beginning  the browser is positioned at the first record.
+
+    \value End  the browser is positioned at the last
+    record.
+
+    \value AfterEnd  the browser is positioned after the last
+    available record.
+*/
+
+/*!
+    Constructs a data browser which is a child of \a tqparent, with the
+    name \a name and widget flags set to \a fl.
+*/
+
+TQDataBrowser::TQDataBrowser( TQWidget *tqparent, const char *name, WFlags fl )
+    : TQWidget( tqparent, name, fl )
+{
+    d = new TQDataBrowserPrivate();
+    d->dat.setMode( TQSql::Update );
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQDataBrowser::~TQDataBrowser()
+{
+    delete d;
+}
+
+
+/*!
+    Returns an enum indicating the boundary status of the browser.
+
+    This is achieved by moving the default cursor and checking the
+    position, however the current default form values will not be
+    altered. After checking for the boundary, the cursor is moved back
+    to its former position. See \l TQDataBrowser::Boundary.
+
+    \sa Boundary
+*/
+
+TQDataBrowser::Boundary TQDataBrowser::boundary()
+{
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !cur || !cur->isActive() )
+	return Unknown;
+    if ( !cur->isValid() ) {
+	if ( cur->at() == TQSql::BeforeFirst )
+	    return BeforeBeginning;
+	if ( cur->at() == TQSql::AfterLast )
+	    return AfterEnd;
+	return Unknown;
+    }
+    if ( cur->at() == 0 )
+	return Beginning;
+    int currentAt = cur->at();
+
+    Boundary b = None;
+    if ( !cur->prev() )
+	b = Beginning;
+    else
+	cur->seek( currentAt );
+    if ( b == None && !cur->next() )
+	b = End;
+    cur->seek( currentAt );
+    return b;
+}
+
+
+/*!
+    \property TQDataBrowser::boundaryChecking
+    \brief whether boundary checking is active
+
+    When boundary checking is active (the default), Q_SIGNALS are
+    emitted indicating the current position of the default cursor.
+
+    \sa boundary()
+*/
+
+void TQDataBrowser::setBoundaryChecking( bool active )
+{
+    d->boundaryCheck = active;
+}
+
+bool TQDataBrowser::boundaryChecking() const
+{
+    return d->boundaryCheck;
+}
+
+/*!
+    \property TQDataBrowser::sort
+    \brief the data browser's sort
+
+    The data browser's sort affects the order in which records are
+    viewed in the browser. Call refresh() to apply the new sort.
+
+    When retrieving the sort property, a string list is returned in
+    the form 'fieldname order', e.g. 'id ASC', 'surname DESC'.
+
+    There is no default sort.
+
+    Note that if you want to iterate over the list, you should iterate
+    over a copy, e.g.
+    \code
+    TQStringList list = myDataBrowser.sort();
+    TQStringList::Iterator it = list.begin();
+    while( it != list.end() ) {
+	myProcessing( *it );
+	++it;
+    }
+    \endcode
+*/
+
+void TQDataBrowser::setSort( const TQStringList& sort )
+{
+    d->cur.setSort( sort );
+}
+
+/*!
+    \overload
+
+    Sets the data browser's sort to the TQSqlIndex \a sort. To apply
+    the new sort, use refresh().
+
+*/
+void TQDataBrowser::setSort( const TQSqlIndex& sort )
+{
+    d->cur.setSort( sort );
+}
+
+TQStringList TQDataBrowser::sort() const
+{
+    return d->cur.sort();
+}
+
+
+/*!
+    \property TQDataBrowser::filter
+    \brief the data browser's filter
+
+    The filter applies to the data shown in the browser. Call
+    refresh() to apply the new filter. A filter is a string containing
+    a SQL WHERE clause without the WHERE keyword, e.g. "id>1000",
+    "name LIKE 'A%'", etc.
+
+    There is no default filter.
+
+    \sa sort()
+*/
+
+void TQDataBrowser::setFilter( const TQString& filter )
+{
+    d->cur.setFilter( filter );
+}
+
+
+TQString TQDataBrowser::filter() const
+{
+    return d->cur.filter();
+}
+
+
+/*!
+    Sets the default cursor used by the data browser to \a cursor. If
+    \a autoDelete is TRUE (the default is FALSE), the data browser
+    takes ownership of the \a cursor pointer, which will be deleted
+    when the browser is destroyed, or when setSqlCursor() is called
+    again. To activate the \a cursor use refresh(). The cursor's edit
+    buffer is used in the default form to browse and edit records.
+
+    \sa sqlCursor() form() setForm()
+*/
+
+void TQDataBrowser::setSqlCursor( TQSqlCursor* cursor, bool autoDelete )
+{
+    if ( !cursor )
+	return;
+    d->cur.setCursor( cursor, autoDelete );
+    d->frm.setRecord( cursor->editBuffer() );
+    if ( cursor->isReadOnly() )
+	setReadOnly( TRUE );
+}
+
+
+/*!
+    Returns the default cursor used for navigation, or 0 if there is
+    no default cursor.
+
+    \sa setSqlCursor()
+*/
+
+TQSqlCursor* TQDataBrowser::sqlCursor() const
+{
+    return d->cur.cursor();
+}
+
+
+/*!
+    Sets the browser's default form to \a form. The cursor and all
+    navigation and data manipulation functions that the browser
+    provides become available to the \a form.
+*/
+
+void TQDataBrowser::setForm( TQSqlForm* form )
+{
+    d->frm.setForm( form );
+}
+
+
+/*!
+    Returns the data browser's default form or 0 if no form has been
+    set.
+*/
+
+TQSqlForm* TQDataBrowser::form()
+{
+    return d->frm.form();
+}
+
+/*!
+    \property TQDataBrowser::readOnly
+    \brief whether the browser is read-only
+
+    The default is FALSE, i.e. data can be edited. If the data browser
+    is read-only, no database edits will be allowed.
+*/
+
+void TQDataBrowser::setReadOnly( bool active )
+{
+    d->readOnly = active;
+}
+
+bool TQDataBrowser::isReadOnly() const
+{
+    return d->readOnly;
+}
+
+void TQDataBrowser::setConfirmEdits( bool confirm )
+{
+    d->dat.setConfirmEdits( confirm );
+}
+
+/*!
+    \property TQDataBrowser::confirmInsert
+    \brief whether the data browser confirms insertions
+
+    If this property is TRUE, the browser confirms insertions,
+    otherwise insertions happen immediately.
+
+    \sa confirmCancels() confirmEdits() confirmUpdate() confirmDelete() confirmEdit()
+*/
+
+void TQDataBrowser::setConfirmInsert( bool confirm )
+{
+    d->dat.setConfirmInsert( confirm );
+}
+
+/*!
+    \property TQDataBrowser::confirmUpdate
+    \brief whether the browser confirms updates
+
+    If this property is TRUE, the browser confirms updates, otherwise
+    updates happen immediately.
+
+    \sa confirmCancels() confirmEdits() confirmInsert() confirmDelete() confirmEdit()
+*/
+
+void TQDataBrowser::setConfirmUpdate( bool confirm )
+{
+    d->dat.setConfirmUpdate( confirm );
+}
+
+/*!
+    \property TQDataBrowser::confirmDelete
+    \brief whether the browser confirms deletions
+
+    If this property is TRUE, the browser confirms deletions,
+    otherwise deletions happen immediately.
+
+    \sa confirmCancels() confirmEdits() confirmUpdate() confirmInsert() confirmEdit()
+*/
+
+void TQDataBrowser::setConfirmDelete( bool confirm )
+{
+    d->dat.setConfirmDelete( confirm );
+}
+
+/*!
+    \property TQDataBrowser::confirmEdits
+    \brief whether the browser confirms edits
+
+    If this property is TRUE, the browser confirms all edit operations
+    (insertions, updates and deletions), otherwise all edit operations
+    happen immediately. Confirmation is achieved by presenting the
+    user with a message box -- this behavior can be changed by
+    reimplementing the confirmEdit() function,
+
+    \sa confirmEdit() confirmCancels() confirmInsert() confirmUpdate() confirmDelete()
+*/
+
+bool TQDataBrowser::confirmEdits() const
+{
+    return ( d->dat.confirmEdits() );
+}
+
+bool TQDataBrowser::confirmInsert() const
+{
+    return ( d->dat.confirmInsert() );
+}
+
+bool TQDataBrowser::confirmUpdate() const
+{
+    return ( d->dat.confirmUpdate() );
+}
+
+bool TQDataBrowser::confirmDelete() const
+{
+    return ( d->dat.confirmDelete() );
+}
+
+/*!
+    \property TQDataBrowser::confirmCancels
+    \brief whether the browser confirms cancel operations
+
+    If this property is TRUE, all cancels must be confirmed by the
+    user through a message box (this behavior can be changed by
+    overriding the confirmCancel() function), otherwise all cancels
+    occur immediately. The default is FALSE.
+
+    \sa confirmEdits() confirmCancel()
+*/
+
+void TQDataBrowser::setConfirmCancels( bool confirm )
+{
+    d->dat.setConfirmCancels( confirm );
+}
+
+bool TQDataBrowser::confirmCancels() const
+{
+    return d->dat.confirmCancels();
+}
+
+/*!
+    \property TQDataBrowser::autoEdit
+    \brief whether the browser automatically applies edits
+
+    The default value for this property is TRUE. When the user begins
+    an insertion or an update on a form there are two possible
+    outcomes when they navigate to another record:
+
+    \list
+    \i the insert or update is is performed -- this occurs if autoEdit is TRUE
+    \i the insert or update is discarded -- this occurs if autoEdit is FALSE
+    \endlist
+*/
+
+void TQDataBrowser::setAutoEdit( bool autoEdit )
+{
+    d->dat.setAutoEdit( autoEdit );
+}
+
+bool TQDataBrowser::autoEdit() const
+{
+    return d->dat.autoEdit();
+}
+
+/*!
+    \fn void TQDataBrowser::firstRecordAvailable( bool available )
+
+    This signal is emitted whenever the position of the cursor
+    changes. The \a available parameter indicates whether or not the
+    first record in the default cursor is available.
+*/
+
+/*!
+    \fn void TQDataBrowser::lastRecordAvailable( bool available )
+
+    This signal is emitted whenever the position of the cursor
+    changes. The \a available parameter indicates whether or not the
+    last record in the default cursor is available.
+*/
+
+/*!
+    \fn void TQDataBrowser::nextRecordAvailable( bool available )
+
+    This signal is emitted whenever the position of the cursor
+    changes. The \a available parameter indicates whether or not the
+    next record in the default cursor is available.
+*/
+
+
+/*!
+    \fn void TQDataBrowser::prevRecordAvailable( bool available )
+
+    This signal is emitted whenever the position of the cursor
+    changes. The \a available parameter indicates whether or not the
+    previous record in the default cursor is available.
+*/
+
+
+/*!
+    \fn void TQDataBrowser::currentChanged( const TQSqlRecord* record )
+
+    This signal is emitted whenever the current cursor position
+    changes. The \a record parameter points to the contents of the
+    current cursor's record.
+*/
+
+
+/*!
+    \fn void TQDataBrowser::primeInsert( TQSqlRecord* buf )
+
+    This signal is emitted when the data browser enters insertion
+    mode. The \a buf parameter points to the record buffer that is to
+    be inserted. Connect to this signal to, for example, prime the
+    record buffer with default data values, auto-numbered fields etc.
+    (Note that TQSqlCursor::primeInsert() is \e not called on the
+    default cursor, as this would corrupt values in the form.)
+
+    \sa insert()
+*/
+
+
+/*!
+    \fn void TQDataBrowser::primeUpdate( TQSqlRecord* buf )
+
+    This signal is emitted when the data browser enters update mode.
+    Note that during navigation (first(), last(), next(), prev()),
+    each record that is shown in the default form is primed for
+    update. The \a buf parameter points to the record buffer being
+    updated. (Note that TQSqlCursor::primeUpdate() is \e not called on
+    the default cursor, as this would corrupt values in the form.)
+    Connect to this signal in order to, for example, keep track of
+    which records have been updated, perhaps for auditing purposes.
+
+    \sa update()
+*/
+
+/*!
+    \fn void TQDataBrowser::primeDelete( TQSqlRecord* buf )
+
+    This signal is emitted when the data browser enters deletion mode.
+    The \a buf parameter points to the record buffer being deleted.
+    (Note that TQSqlCursor::primeDelete() is \e not called on the
+    default cursor, as this would corrupt values in the form.)
+    Connect to this signal in order to, for example, save a copy of
+    the deleted record for auditing purposes.
+
+    \sa del()
+*/
+
+
+/*!
+    \fn void TQDataBrowser::cursorChanged( TQSqlCursor::Mode mode )
+
+    This signal is emitted whenever the cursor record was changed due
+    to navigation. The \a mode parameter is the edit that just took
+    place, e.g. Insert, Update or Delete. See \l TQSqlCursor::Mode.
+*/
+
+
+/*!
+    Refreshes the data browser's data using the default cursor. The
+    browser's current filter and sort are applied if they have been
+    set.
+
+    \sa setFilter() setSort()
+*/
+
+void TQDataBrowser::refresh()
+{
+    d->cur.refresh();
+}
+
+
+/*!
+    Performs an insert operation on the data browser's cursor. If
+    there is no default cursor or no default form, nothing happens.
+
+    If auto-editing is on (see setAutoEdit()), the following happens:
+
+    \list
+    \i If the browser is already actively inserting a record,
+    the current form's data is inserted into the database.
+    \i If the browser is not inserting a record, but the current record
+    was changed by the user, the record is updated in the database with
+    the current form's data (i.e. with the changes).
+    \endlist
+
+    If there is an error handling any of the above auto-edit actions,
+    handleError() is called and no insert or update is performed.
+
+    If no error occurred, or auto-editing is not enabled, the data browser
+    begins actively inserting a record into the database by performing the
+    following actions:
+
+    \list
+    \i The default cursor is primed for insert using TQSqlCursor::primeInsert().
+    \i The primeInsert() signal is emitted.
+    \i The form is updated with the values in the default cursor's.
+    edit buffer so that the user can fill in the values to be inserted.
+    \endlist
+
+*/
+
+void TQDataBrowser::insert()
+{
+    TQSqlRecord* buf = d->frm.record();
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !buf || !cur )
+	return;
+    bool doIns = TRUE;
+    TQSql::Confirm conf = TQSql::Yes;
+    switch ( d->dat.mode() ) {
+    case TQSql::Insert:
+	if ( autoEdit() ) {
+	    if ( confirmInsert() )
+		conf = confirmEdit( TQSql::Insert );
+	    switch ( conf ) {
+	    case TQSql::Yes:
+		insertCurrent();
+		break;
+	    case TQSql::No:
+		break;
+	    case TQSql::Cancel:
+		doIns = FALSE;
+		break;
+	    }
+	}
+	break;
+    default:
+	if ( autoEdit() && currentEdited() ) {
+	    if ( confirmUpdate() )
+		conf = confirmEdit( TQSql::Update );
+	    switch ( conf ) {
+	    case TQSql::Yes:
+		updateCurrent();
+		break;
+	    case TQSql::No:
+		break;
+	    case TQSql::Cancel:
+		doIns = FALSE;
+		break;
+	    }
+	}
+	break;
+    }
+    if ( doIns ) {
+	d->dat.setMode( TQSql::Insert );
+	sqlCursor()->primeInsert();
+	emit primeInsert( d->frm.record() );
+	readFields();
+    }
+}
+
+
+/*!
+    Performs an update operation on the data browser's cursor.
+
+    If there is no default cursor or no default form, nothing happens.
+    Otherwise, the following happens:
+
+    If the data browser is actively inserting a record (see insert()),
+    that record is inserted into the database using insertCurrent().
+    Otherwise, the database is updated with the current form's data
+    using updateCurrent(). If there is an error handling either
+    action, handleError() is called.
+*/
+
+void TQDataBrowser::update()
+{
+    TQSqlRecord* buf = d->frm.record();
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !buf || !cur )
+	return;
+    TQSql::Confirm conf = TQSql::Yes;
+    switch ( d->dat.mode() ){
+    case TQSql::Insert:
+	if ( confirmInsert() )
+	    conf = confirmEdit( TQSql::Insert );		
+	switch ( conf ) {
+	    case TQSql::Yes:
+		if ( insertCurrent() )
+		    d->dat.setMode( TQSql::Update );
+	    break;
+	    case TQSql::No:
+		d->dat.setMode( TQSql::Update );
+	    cur->editBuffer( TRUE );
+	    readFields();
+	    break;
+	    case TQSql::Cancel:
+	    break;
+	}
+    break;
+    default:
+	d->dat.setMode( TQSql::Update );
+	if ( confirmUpdate() )
+	    conf = confirmEdit( TQSql::Update );
+	switch ( conf ) {
+	case TQSql::Yes:
+	    updateCurrent();
+	    break;
+	case TQSql::No:
+	case TQSql::Cancel:
+	    break;
+	}
+	break;
+    }
+}
+
+
+/*!
+    Performs a delete operation on the data browser's cursor. If there
+    is no default cursor or no default form, nothing happens.
+
+    Otherwise, the following happens:
+
+    The current form's record is deleted from the database, providing
+    that the data browser is not in insert mode. If the data browser
+    is actively inserting a record (see insert()), the insert action
+    is canceled, and the browser navigates to the last valid record
+    that was current. If there is an error, handleError() is called.
+*/
+
+void TQDataBrowser::del()
+{
+    TQSqlRecord* buf = d->frm.record();
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !buf || !cur )
+	return;
+    TQSql::Confirm conf = TQSql::Yes;
+    switch ( d->dat.mode() ){
+    case TQSql::Insert:
+	if ( confirmCancels() )
+	    conf = confirmCancel( TQSql::Insert );
+	if ( conf == TQSql::Yes ) {
+	    cur->editBuffer( TRUE ); /* restore from cursor */
+	    readFields();
+	    d->dat.setMode( TQSql::Update );
+	} else
+	    d->dat.setMode( TQSql::Insert );
+	break;
+    default:
+	if ( confirmDelete() )
+	    conf = confirmEdit( TQSql::Delete );
+	switch ( conf ) {
+	case TQSql::Yes:
+	    emit primeDelete( buf );
+	    deleteCurrent();
+	    break;
+	case TQSql::No:
+	case TQSql::Cancel:
+	    break;
+	}
+	d->dat.setMode( TQSql::Update );
+	break;
+    }
+}
+
+/*!
+    Moves the default cursor to the record specified by the index \a i
+    and refreshes the default form to display this record. If there is
+    no default form or no default cursor, nothing happens. If \a
+    relative is TRUE (the default is FALSE), the cursor is moved
+    relative to its current position. If the data browser successfully
+    navigated to the desired record, the default cursor is primed for
+    update and the primeUpdate() signal is emitted.
+
+    If the browser is already positioned on the desired record nothing
+    happens.
+*/
+
+bool TQDataBrowser::seek( int i, bool relative )
+{
+    int b = 0;
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !cur )
+	return FALSE;
+    if ( preNav() )
+	b = cur->seek( i, relative );
+    postNav( b );
+    return b;
+}
+
+/*!
+    Moves the default cursor to the first record and refreshes the
+    default form to display this record. If there is no default form
+    or no default cursor, nothing happens. If the data browser
+    successfully navigated to the first record, the default cursor is
+    primed for update and the primeUpdate() signal is emitted.
+
+    If the browser is already positioned on the first record nothing
+    happens.
+
+*/
+
+void TQDataBrowser::first()
+{
+    nav( &TQSqlCursor::first );
+}
+
+
+/*!
+    Moves the default cursor to the last record and refreshes the
+    default form to display this record. If there is no default form
+    or no default cursor, nothing happens. If the data browser
+    successfully navigated to the last record, the default cursor is
+    primed for update and the primeUpdate() signal is emitted.
+
+    If the browser is already positioned on the last record nothing
+    happens.
+*/
+
+void TQDataBrowser::last()
+{
+    nav( &TQSqlCursor::last );
+}
+
+
+/*!
+    Moves the default cursor to the next record and refreshes the
+    default form to display this record. If there is no default form
+    or no default cursor, nothing happens. If the data browser
+    successfully navigated to the next record, the default cursor is
+    primed for update and the primeUpdate() signal is emitted.
+
+    If the browser is positioned on the last record nothing happens.
+*/
+
+void TQDataBrowser::next()
+{
+    nav( &TQSqlCursor::next );
+}
+
+
+/*!
+    Moves the default cursor to the previous record and refreshes the
+    default form to display this record. If there is no default form
+    or no default cursor, nothing happens. If the data browser
+    successfully navigated to the previous record, the default cursor
+    is primed for update and the primeUpdate() signal is emitted.
+
+    If the browser is positioned on the first record nothing happens.
+*/
+
+void TQDataBrowser::prev()
+{
+    nav( &TQSqlCursor::prev );
+}
+
+/*!
+    Reads the fields from the default cursor's edit buffer and
+    displays them in the form. If there is no default cursor or no
+    default form, nothing happens.
+*/
+
+void TQDataBrowser::readFields()
+{
+    d->frm.readFields();
+}
+
+
+/*!
+    Writes the form's data to the default cursor's edit buffer. If
+    there is no default cursor or no default form, nothing happens.
+*/
+
+void TQDataBrowser::writeFields()
+{
+    d->frm.writeFields();
+}
+
+
+/*!
+    Clears all the values in the form.
+
+    All the edit buffer field values are set to their 'zero state',
+    e.g. 0 for numeric fields and "" for string fields. Then the
+    widgets are updated using the property map. For example, a
+    combobox that is property-mapped to integers would scroll to the
+    first item. See the \l TQSqlPropertyMap constructor for the default
+    mappings of widgets to properties.
+*/
+
+void TQDataBrowser::clearValues()
+{
+    d->frm.clearValues();
+}
+
+/*!
+    Reads the fields from the default form into the default cursor and
+    performs an insert on the default cursor. If there is no default
+    form or no default cursor, nothing happens. If an error occurred
+    during the insert into the database, handleError() is called and
+    FALSE is returned. If the insert was successfull, the cursor is
+    refreshed and relocated to the newly inserted record, the
+    cursorChanged() signal is emitted, and TRUE is returned.
+
+    \sa cursorChanged() sqlCursor() form() handleError()
+*/
+
+bool TQDataBrowser::insertCurrent()
+{
+    if ( isReadOnly() )
+	return FALSE;
+    TQSqlRecord* buf = d->frm.record();
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !buf || !cur )
+	return FALSE;
+    writeFields();
+    emit beforeInsert( buf );
+    int ar = cur->insert();
+    if ( !ar || !cur->isActive() ) {
+	handleError( cur->lastError() );
+	refresh();
+	updateBoundary();
+    } else {
+	refresh();
+	d->cur.tqfindBuffer( cur->primaryIndex() );
+	updateBoundary();
+	cursorChanged( TQSqlCursor::Insert );
+	return TRUE;
+    }
+    return FALSE;
+}
+
+
+/*!
+    Reads the fields from the default form into the default cursor and
+    performs an update on the default cursor. If there is no default
+    form or no default cursor, nothing happens. If an error occurred
+    during the update on the database, handleError() is called and
+    FALSE is returned. If the update was successfull, the cursor is
+    refreshed and relocated to the updated record, the cursorChanged()
+    signal is emitted, and TRUE is returned.
+
+    \sa cursor() form() handleError()
+*/
+
+bool TQDataBrowser::updateCurrent()
+{
+    if ( isReadOnly() )
+	return FALSE;
+    TQSqlRecord* buf = d->frm.record();
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !buf || !cur )
+	return FALSE;
+    writeFields();
+    emit beforeUpdate( buf );
+    int ar = cur->update();
+    if ( !ar || !cur->isActive() ) {
+	handleError( cur->lastError() );
+	refresh();
+	updateBoundary();
+    } else {
+	refresh();
+	d->cur.tqfindBuffer( cur->primaryIndex() );
+	updateBoundary();
+	cur->editBuffer( TRUE );
+	cursorChanged( TQSqlCursor::Update );
+	readFields();
+	return TRUE;
+    }
+    return FALSE;
+}
+
+
+/*!
+    Performs a delete on the default cursor using the values from the
+    default form and updates the default form. If there is no default
+    form or no default cursor, nothing happens. If the deletion was
+    successful, the cursor is repositioned to the nearest record and
+    TRUE is returned. The nearest record is the next record if there
+    is one otherwise the previous record if there is one. If an error
+    occurred during the deletion from the database, handleError() is
+    called and FALSE is returned.
+
+    \sa cursor() form() handleError()
+*/
+
+bool TQDataBrowser::deleteCurrent()
+{
+    if ( isReadOnly() )
+	return FALSE;
+    TQSqlRecord* buf = d->frm.record();
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !buf || !cur )
+	return FALSE;
+    writeFields();
+    int n = cur->at();
+    emit beforeDelete( buf );
+    int ar = cur->del();
+    if ( ar ) {
+	refresh();
+	updateBoundary();
+	cursorChanged( TQSqlCursor::Delete );
+	if ( !cur->seek( n ) )
+	    last();
+	if ( cur->isValid() ) {
+	    cur->editBuffer( TRUE );
+	    readFields();
+	} else {
+	    clearValues();
+	}
+	return TRUE;
+    } else {
+	if ( !cur->isActive() ) {
+	    handleError( cur->lastError() );
+	    refresh();
+	    updateBoundary();
+	}
+    }
+    return FALSE;
+}
+
+
+/*!
+    Returns TRUE if the form's edit buffer differs from the current
+    cursor buffer; otherwise returns FALSE.
+*/
+
+bool TQDataBrowser::currentEdited()
+{
+    TQSqlRecord* buf = d->frm.record();
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !buf || !cur )
+	return FALSE;
+    if ( !cur->isActive() || !cur->isValid() )
+	return FALSE;
+    writeFields();
+    for ( uint i = 0; i < cur->count(); ++i ) {
+	if ( cur->value(i) != buf->value(i) )
+	    return TRUE;
+    }
+    return FALSE;
+}
+
+/*! \internal
+
+  Pre-navigation checking.
+*/
+
+bool TQDataBrowser::preNav()
+{
+    TQSqlRecord* buf = d->frm.record();
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !buf || !cur )
+	return FALSE;
+
+    if ( !isReadOnly() && autoEdit() && currentEdited() ) {
+	bool ok = TRUE;
+	TQSql::Confirm conf = TQSql::Yes;
+	switch ( d->dat.mode() ){
+	case TQSql::Insert:
+	    if ( confirmInsert() )
+		conf = confirmEdit( TQSql::Insert );
+	    switch ( conf ) {
+	    case TQSql::Yes:
+		ok = insertCurrent();
+		d->dat.setMode( TQSql::Update );
+		break;
+	    case TQSql::No:
+		d->dat.setMode( TQSql::Update );
+		break;
+	    case TQSql::Cancel:
+		return FALSE;
+	    }
+	    break;
+	default:
+	    if ( confirmUpdate() )
+		conf = confirmEdit( TQSql::Update );
+	    switch ( conf ) {
+	    case TQSql::Yes:
+		ok = updateCurrent();
+		break;
+	    case TQSql::No:
+		break;
+	    case TQSql::Cancel:
+		return FALSE;
+	    }
+	}
+	return ok;
+    }
+    return TRUE;
+}
+
+/*! \internal
+
+  Handles post-navigation according to \a primeUpd.
+*/
+
+void TQDataBrowser::postNav( bool primeUpd )
+{
+    if ( primeUpd ) {
+	TQSqlRecord* buf = d->frm.record();
+	TQSqlCursor* cur = d->cur.cursor();
+	if ( !buf || !cur )
+	    return;
+	currentChanged( cur );
+	cur->primeUpdate();
+	emit primeUpdate( buf );
+	readFields();
+    }
+    updateBoundary();
+}
+
+/*! \internal
+
+  Navigate default cursor according to \a nav. Handles autoEdit.
+
+*/
+void TQDataBrowser::nav( Nav nav )
+{
+    int b = 0;
+    TQSqlCursor* cur = d->cur.cursor();
+    if ( !cur )
+	return;
+    if ( preNav() )
+	b = (cur->*nav)();
+    postNav( b );
+}
+
+/*!
+    If boundaryChecking() is TRUE, checks the boundary of the current
+    default cursor and emits Q_SIGNALS which indicate the position of
+    the cursor.
+*/
+
+void TQDataBrowser::updateBoundary()
+{
+    if ( d->boundaryCheck ) {
+	Boundary bound = boundary();
+	switch ( bound ) {
+	case Unknown:
+	case None:
+	    emit firstRecordAvailable( TRUE );
+	    emit prevRecordAvailable( TRUE );
+	    emit nextRecordAvailable( TRUE );
+	    emit lastRecordAvailable( TRUE );
+	    break;
+
+	case BeforeBeginning:
+	    emit firstRecordAvailable( FALSE );
+	    emit prevRecordAvailable( FALSE );
+	    emit nextRecordAvailable( TRUE );
+	    emit lastRecordAvailable( TRUE );
+	    break;
+
+	case Beginning:
+	    emit firstRecordAvailable( FALSE );
+	    emit prevRecordAvailable( FALSE );
+	    emit nextRecordAvailable( TRUE );
+	    emit lastRecordAvailable( TRUE );
+	    break;
+
+	case End:
+	    emit firstRecordAvailable( TRUE );
+	    emit prevRecordAvailable( TRUE );
+	    emit nextRecordAvailable( FALSE );
+	    emit lastRecordAvailable( FALSE );
+	    break;
+
+	case AfterEnd:
+	    emit firstRecordAvailable( TRUE );
+	    emit prevRecordAvailable( TRUE );
+	    emit nextRecordAvailable( FALSE );
+	    emit lastRecordAvailable( FALSE );
+	    break;
+	}
+    }
+}
+
+/*!
+    Virtual function which handles the error \a error. The default
+    implementation warns the user with a message box.
+*/
+
+void TQDataBrowser::handleError( const TQSqlError& error )
+{
+    d->dat.handleError( this, error );
+}
+
+/*!
+    Protected virtual function which returns a confirmation for an
+    edit of mode \a m. Derived classes can reimplement this function
+    and provide their own confirmation dialog. The default
+    implementation uses a message box which prompts the user to
+    confirm the edit action.
+*/
+
+TQSql::Confirm TQDataBrowser::confirmEdit( TQSql::Op m )
+{
+    return d->dat.confirmEdit( this, m );
+}
+
+/*!
+    Protected virtual function which returns a confirmation for
+    cancelling an edit mode \a m. Derived classes can reimplement this
+    function and provide their own confirmation dialog. The default
+    implementation uses a message box which prompts the user to
+    confirm the edit action.
+*/
+
+TQSql::Confirm  TQDataBrowser::confirmCancel( TQSql::Op m )
+{
+    return d->dat.confirmCancel( this, m );
+}
+
+/*!
+    \fn void TQDataBrowser::beforeInsert( TQSqlRecord* buf )
+
+    This signal is emitted just before the cursor's edit buffer is
+    inserted into the database. The \a buf parameter points to the
+    edit buffer being inserted. You might connect to this signal to
+    populate a generated primary key for example.
+*/
+
+/*!
+    \fn void TQDataBrowser::beforeUpdate( TQSqlRecord* buf )
+
+    This signal is emitted just before the cursor's edit buffer is
+    updated in the database. The \a buf parameter points to the edit
+    buffer being updated. You might connect to this signal to capture
+    some auditing information about the update.
+*/
+
+/*!
+    \fn void TQDataBrowser::beforeDelete( TQSqlRecord* buf )
+
+    This signal is emitted just before the cursor's edit buffer  is
+    deleted from the database. The \a buf parameter points to the edit
+    buffer being deleted. You might connect to this signal to capture
+    some auditing information about the deletion.
+*/
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqdatabrowser.h b/tqtinterface/qt4/src/sql/tqdatabrowser.h
new file mode 100644
index 0000000..5379b78
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqdatabrowser.h
@@ -0,0 +1,178 @@
+/****************************************************************************
+**
+** Definition of TQDataBrowser class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQDATABROWSER_H
+#define TQDATABROWSER_H
+
+#ifndef TQT_H
+#include "tqwidget.h"
+#include "tqstring.h"
+#include "tqstringlist.h"
+#include "tqsql.h"
+#include "tqsqlindex.h"
+#include "tqsqlcursor.h"
+#include "tqsqlerror.h"
+#endif // TQT_H
+
+#ifndef TQT_NO_STQL_VIEW_WIDGETS
+
+class TQSqlForm;
+class TQDataBrowserPrivate;
+
+class TQ_EXPORT TQDataBrowser : public TQWidget
+{
+    Q_OBJECT
+    TQ_OBJECT
+    Q_PROPERTY( bool boundaryChecking READ boundaryChecking WRITE setBoundaryChecking )
+    Q_PROPERTY( TQString filter READ filter WRITE setFilter )
+    Q_PROPERTY( TQStringList sort READ sort WRITE setSort )
+    Q_PROPERTY( bool confirmEdits READ confirmEdits WRITE setConfirmEdits )
+    Q_PROPERTY( bool confirmInsert READ confirmInsert WRITE setConfirmInsert )
+    Q_PROPERTY( bool confirmUpdate READ confirmUpdate WRITE setConfirmUpdate )
+    Q_PROPERTY( bool confirmDelete READ confirmDelete WRITE setConfirmDelete )
+    Q_PROPERTY( bool confirmCancels READ confirmCancels WRITE setConfirmCancels )
+    Q_PROPERTY( bool readOnly READ isReadOnly WRITE setReadOnly )
+    Q_PROPERTY( bool autoEdit READ autoEdit WRITE setAutoEdit )
+
+public:
+    TQDataBrowser( TQWidget* tqparent=0, const char* name=0, WFlags fl = 0 );
+    ~TQDataBrowser();
+
+    enum Boundary {
+	Unknown,
+	None,
+	BeforeBeginning,
+	Beginning,
+	End,
+	AfterEnd
+    };
+
+    Boundary boundary();
+    void setBoundaryChecking( bool active );
+    bool boundaryChecking() const;
+
+    void setSort( const TQSqlIndex& sort );
+    void setSort( const TQStringList& sort );
+    TQStringList  sort() const;
+    void setFilter( const TQString& filter );
+    TQString filter() const;
+    virtual void setSqlCursor( TQSqlCursor* cursor, bool autoDelete = FALSE );
+    TQSqlCursor* sqlCursor() const;
+    virtual void setForm( TQSqlForm* form );
+    TQSqlForm* form();
+
+    virtual void setConfirmEdits( bool confirm );
+    virtual void setConfirmInsert( bool confirm );
+    virtual void setConfirmUpdate( bool confirm );
+    virtual void setConfirmDelete( bool confirm );
+    virtual void setConfirmCancels( bool confirm );
+    bool confirmEdits() const;
+    bool confirmInsert() const;
+    bool confirmUpdate() const;
+    bool confirmDelete() const;
+    bool confirmCancels() const;
+
+    virtual void setReadOnly( bool active );
+    bool isReadOnly() const;
+    virtual void setAutoEdit( bool autoEdit );
+    bool autoEdit() const;
+
+    virtual bool seek( int i, bool relative = FALSE );
+
+Q_SIGNALS:
+    void firstRecordAvailable( bool available );
+    void lastRecordAvailable( bool available );
+    void nextRecordAvailable( bool available );
+    void prevRecordAvailable( bool available );
+
+    void currentChanged( const TQSqlRecord* record );
+    void primeInsert( TQSqlRecord* buf );
+    void primeUpdate( TQSqlRecord* buf );
+    void primeDelete( TQSqlRecord* buf );
+    void beforeInsert( TQSqlRecord* buf );
+    void beforeUpdate( TQSqlRecord* buf );
+    void beforeDelete( TQSqlRecord* buf );
+    void cursorChanged( TQSqlCursor::Mode mode );
+
+public Q_SLOTS:
+    virtual void refresh();
+
+    virtual void insert();
+    virtual void update();
+    virtual void del();
+
+    virtual void first();
+    virtual void last();
+    virtual void next();
+    virtual void prev();
+
+    virtual void readFields();
+    virtual void writeFields();
+    virtual void clearValues();
+
+    void updateBoundary();
+
+protected:
+    virtual bool insertCurrent();
+    virtual bool updateCurrent();
+    virtual bool deleteCurrent();
+    virtual bool currentEdited();
+
+    virtual TQSql::Confirm confirmEdit( TQSql::Op m );
+    virtual TQSql::Confirm confirmCancel( TQSql::Op m );
+
+    virtual void handleError( const TQSqlError& error );
+
+private:
+    typedef bool (TQSqlCursor::*Nav)();
+    bool preNav();
+    void postNav( bool primeUpd );
+    void nav( Nav nav );
+    TQDataBrowserPrivate* d;
+
+#if defined(TQ_DISABLE_COPY) // Disabled copy constructor and operator=
+    TQDataBrowser( const TQDataBrowser & );
+    TQDataBrowser &operator=( const TQDataBrowser & );
+#endif
+};
+
+
+#endif
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqdatatable.cpp b/tqtinterface/qt4/src/sql/tqdatatable.cpp
new file mode 100644
index 0000000..496da9d
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqdatatable.cpp
@@ -0,0 +1,2322 @@
+/****************************************************************************
+**
+** Implementation of TQDataTable class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqdatatable.h"
+
+#ifndef TQT_NO_STQL_VIEW_WIDGETS
+
+#include "tqsqldriver.h"
+#include "tqsqleditorfactory.h"
+#include "tqsqlpropertymap.h"
+#include "tqapplication.h"
+#include "tqlayout.h"
+#include "tqpainter.h"
+#include "tqpopupmenu.h"
+#include "tqvaluelist.h"
+#include "tqsqlmanager_p.h"
+#include "tqdatetime.h"
+#include "tqcursor.h"
+#include "tqtimer.h"
+
+//#define TQT_DEBUG_DATATABLE
+
+class TQDataTablePrivate
+{
+public:
+    TQDataTablePrivate()
+	: nullTxtChanged( FALSE ),
+	  haveAllRows( FALSE ),
+	  continuousEdit( FALSE ),
+	  editorFactory( 0 ),
+	  propertyMap( 0 ),
+	  editRow( -1 ),
+	  editCol( -1 ),
+	  insertRowLast( -1 ),
+	  insertPreRows( -1 ),
+	  editBuffer( 0 ),
+	  cancelMode( FALSE ),
+	  cancelInsert( FALSE ),
+	  cancelUpdate( FALSE )
+    {}
+    ~TQDataTablePrivate() { if ( propertyMap ) delete propertyMap; }
+
+    TQString nullTxt;
+    bool nullTxtChanged;
+    typedef TQValueList< uint > ColIndex;
+    ColIndex colIndex;
+    bool haveAllRows;
+    bool continuousEdit;
+    TQSqlEditorFactory* editorFactory;
+    TQSqlPropertyMap* propertyMap;
+    TQString trueTxt;
+    Qt::DateFormat datefmt;
+    TQString falseTxt;
+    int editRow;
+    int editCol;
+    int insertRowLast;
+    TQString insertHeaderLabelLast;
+    int insertPreRows;
+    TQSqlRecord* editBuffer;
+    bool cancelMode;
+    bool cancelInsert;
+    bool cancelUpdate;
+    int lastAt;
+    TQString ftr;
+    TQStringList srt;
+    TQStringList fld;
+    TQStringList fldLabel;
+    TQValueList<int> fldWidth;
+    TQValueList<TQIconSet> fldIcon;
+    TQValueList<bool> fldHidden;
+    TQSqlCursorManager cur;
+    TQDataManager dat;
+};
+
+#ifdef TQT_DEBUG_DATATABLE
+void qt_debug_buffer( const TQString& msg, TQSqlRecord* cursor )
+{
+    qDebug("+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++");
+    qDebug(msg);
+    for ( uint j = 0; j < cursor->count(); ++j ) {
+	qDebug(cursor->field(j)->name() + " type:" + TQString(cursor->field(j)->value().typeName()) + " value:" + cursor->field(j)->value().toString() );
+    }
+}
+#endif
+
+/*!
+    \enum TQDataTable::Refresh
+
+    This enum describes the refresh options.
+
+    \value RefreshData  refresh the data, i.e. read it from the database
+    \value RefreshColumns  refresh the list of fields, e.g. the column headings
+    \value RefreshAll  refresh both the data and the list of fields
+*/
+
+
+/*!
+    \class TQDataTable tqdatatable.h
+    \brief The TQDataTable class provides a flexible SQL table widget that supports browsing and editing.
+
+    \ingroup database
+    \mainclass
+    \module sql
+
+    TQDataTable supports various functions for presenting and editing
+    SQL data from a \l TQSqlCursor in a table.
+
+    If you want a to present your data in a form use TQDataBrowser, or
+    for read-only forms, TQDataView.
+
+    When displaying data, TQDataTable only retrieves data for visible
+    rows. If the driver supports the 'query size' property the
+    TQDataTable will have the correct number of rows and the vertical
+    scrollbar will accurately reflect the number of rows displayed in
+    proportion to the number of rows in the dataset. If the driver
+    does not support the 'query size' property, rows are dynamically
+    fetched from the database on an as-needed basis with the scrollbar
+    becoming more accurate as the user scrolls down through the
+    records. This allows extremely large queries to be displayed as
+    quickly as possible, with minimum memory usage.
+
+    TQDataTable inherits TQTable's API and extends it with functions to
+    sort and filter the data and sort columns. See setSqlCursor(),
+    setFilter(), setSort(), setSorting(), sortColumn() and refresh().
+
+    When displaying editable cursors, cell editing will be enabled.
+    (For more information on editable cursors, see \l TQSqlCursor).
+    TQDataTable can be used to modify existing data and to add new
+    records. When a user makes changes to a field in the table, the
+    cursor's edit buffer is used. The table will not send changes in
+    the edit buffer to the database until the user moves to a
+    different record in the grid or presses Enter. Cell editing is
+    initiated by pressing F2 (or right clicking and then clicking the
+    appropriate popup menu item) and canceled by pressing Esc. If
+    there is a problem updating or adding data, errors are handled
+    automatically (see handleError() to change this behavior). Note
+    that if autoEdit() is FALSE navigating to another record will
+    cancel the insert or update.
+
+    The user can be asked to confirm all edits with setConfirmEdits().
+    For more precise control use setConfirmInsert(),
+    setConfirmUpdate(), setConfirmDelete() and setConfirmCancels().
+    Use setAutoEdit() to control the behaviour of the table when the
+    user edits a record and then navigates. (Note that setAutoDelete()
+    is unrelated; it is used to set whether the TQSqlCursor is deleted
+    when the table is deleted.)
+
+    Since the data table can perform edits, it must be able to
+    uniquely identify every record so that edits are correctly
+    applied. Because of this the underlying cursor must have a valid
+    primary index to ensure that a unique record is inserted, updated
+    or deleted within the database otherwise the database may be
+    changed to an inconsistent state.
+
+    TQDataTable creates editors using the default \l TQSqlEditorFactory.
+    Different editor factories can be used by calling
+    installEditorFactory(). A property map is used to map between the
+    cell's value and the editor. You can use your own property map
+    with installPropertyMap().
+
+    The contents of a cell is available as a TQString with text() or as
+    a TQVariant with value(). The current record is returned by
+    currentRecord(). Use the tqfind() function to search for a string in
+    the table.
+
+    Editing actions can be applied programatically. For example, the
+    insertCurrent() function reads the fields from the current record
+    into the cursor and performs the insert. The updateCurrent() and
+    deleteCurrent() functions perform similarly to update and delete
+    the current record respectively.
+
+    Columns in the table can be created automatically based on the
+    cursor (see setSqlCursor()). Columns can be manipulated manually
+    using addColumn(), removeColumn() and setColumn().
+
+    The table automatically copies many of the properties of the
+    cursor to format the display of data within cells (tqalignment,
+    visibility, etc.). The cursor can be changed with setSqlCursor().
+    The filter (see setFilter()) and sort defined within the table are
+    used instead of the filter and sort set on the cursor. For sorting
+    options see setSort(), sortColumn(), sortAscending() and
+    sortDescending(). Note that sorting operations will not behave as
+    expected if you are using a TQSqlSelectCursor because it uses
+    user-defined SQL queries to obtain data.
+
+    The text used to represent NULL, TRUE and FALSE values can be
+    changed with setNullText(), setTrueText() and setFalseText()
+    respectively. You can change the appearance of cells by
+    reimplementing paintField().
+
+    Whenever a new row is selected in the table the currentChanged()
+    signal is emitted. The primeInsert() signal is emitted when an
+    insert is initiated. The primeUpdate() and primeDelete() Q_SIGNALS
+    are emitted when update and deletion are initiated respectively.
+    Just before the database is updated a signal is emitted;
+    beforeInsert(), beforeUpdate() or beforeDelete() as appropriate.
+
+*/
+
+/*!
+    Constructs a data table which is a child of \a tqparent, called
+    name \a name.
+*/
+
+TQDataTable::TQDataTable ( TQWidget * tqparent, const char * name )
+    : TQTable( tqparent, name )
+{
+    init();
+}
+
+/*!
+    Constructs a data table which is a child of \a tqparent, called name
+    \a name using the cursor \a cursor.
+
+    If \a autoPopulate is TRUE (the default is FALSE), columns are
+    automatically created based upon the fields in the \a cursor
+    record. Note that \a autoPopulate only governs the creation of
+    columns; to load the cursor's data into the table use refresh().
+
+    If the \a cursor is read-only, the table also becomes read-only.
+    In addition, the table adopts the cursor's driver's definition for
+    representing NULL values as strings.
+*/
+
+TQDataTable::TQDataTable ( TQSqlCursor* cursor, bool autoPopulate, TQWidget * tqparent, const char * name )
+    : TQTable( tqparent, name )
+{
+    init();
+    setSqlCursor( cursor, autoPopulate );
+}
+
+/*! \internal
+*/
+
+
+void TQDataTable::init()
+{
+    d = new TQDataTablePrivate();
+    setAutoEdit( TRUE );
+    setSelectionMode( SingleRow );
+    setFocusStyle( FollowStyle );
+    d->trueTxt = tr( "True" );
+    d->falseTxt = tr( "False" );
+    d->datefmt = Qt::LocalDate;
+    reset();
+    connect( this, TQT_SIGNAL( selectionChanged() ),
+	     TQT_SLOT( updateCurrentSelection()));
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQDataTable::~TQDataTable()
+{
+    delete d;
+}
+
+
+/*!
+    Adds the next column to be displayed using the field \a fieldName,
+    column label \a label, width \a width and iconset \a iconset.
+
+    If \a label is specified, it is used as the column's header label,
+    otherwise the field's display label is used when setSqlCursor() is
+    called. The \a iconset is used to set the icon used by the column
+    header; by default there is no icon.
+
+    \sa setSqlCursor() refresh()
+*/
+
+void TQDataTable::addColumn( const TQString& fieldName,
+			    const TQString& label,
+			    int width,
+			    const TQIconSet& iconset )
+{
+    d->fld += fieldName;
+    d->fldLabel += label;
+    d->fldIcon += iconset;
+    d->fldWidth += width;
+    d->fldHidden += FALSE;
+}
+
+/*!
+    Sets the \a col column to display using the field \a fieldName,
+    column label \a label, width \a width and iconset \a iconset.
+
+    If \a label is specified, it is used as the column's header label,
+    otherwise the field's display label is used when setSqlCursor() is
+    called. The \a iconset is used to set the icon used by the column
+    header; by default there is no icon.
+
+    \sa setSqlCursor() refresh()
+*/
+
+void TQDataTable::setColumn( uint col, const TQString& fieldName,
+			    const TQString& label,
+			    int width,
+			    const TQIconSet& iconset )
+{
+    d->fld[col]= fieldName;
+    d->fldLabel[col] = label;
+    d->fldIcon[col] = iconset;
+    d->fldWidth[col] = width;
+    d->fldHidden[col] = FALSE;
+}
+
+/*!
+    Removes column \a col from the list of columns to be displayed. If
+    \a col does not exist, nothing happens.
+
+    \sa TQSqlField
+*/
+
+void TQDataTable::removeColumn( uint col )
+{
+    if ( d->fld.at( col ) != d->fld.end() ) {
+	d->fld.remove( d->fld.at( col ) );
+	d->fldLabel.remove( d->fldLabel.at( col ) );
+	d->fldIcon.remove( d->fldIcon.at( col ) );
+	d->fldWidth.remove( d->fldWidth.at( col ) );
+	d->fldHidden.remove( d->fldHidden.at( col ) );
+    }
+}
+
+/*!
+    Sets the column \a col to the width \a w. Note that unlike TQTable
+    the TQDataTable is not immediately redrawn, you must call
+    refresh(TQDataTable::RefreshColumns)
+    yourself.
+
+    \sa refresh()
+*/
+void TQDataTable::setColumnWidth( int col, int w )
+{
+    if ( d->fldWidth.at( col ) != d->fldWidth.end() ) {
+	d->fldWidth[col] = w;
+    }
+}
+
+/*!
+    Resizes column \a col so that the column width is wide enough to
+    display the widest item the column tqcontains (including the column
+    label). If the table's TQSqlCursor is not currently active, the
+    cursor will be refreshed before the column width is calculated. Be
+    aware that this function may be slow on tables that contain large
+    result sets.
+*/
+void TQDataTable::adjustColumn( int col )
+{
+    TQSqlCursor * cur = sqlCursor();
+    if ( !cur || cur->count() <= (uint)col )
+	return;
+    if ( !cur->isActive() ) {
+	d->cur.refresh();
+    }
+    int oldRow = currentRow();
+    int w = fontMetrics().width( horizontalHeader()->label( col ) + "W" );
+    cur->seek( TQSql::BeforeFirst );
+    while ( cur->next() ) {
+	w = TQMAX( w, fontMetrics().width( fieldToString( cur->field( indexOf( col ) ) ) ) + 10 );
+    }
+    setColumnWidth( col, w );
+    cur->seek( oldRow );
+    refresh( RefreshColumns );
+}
+
+/*! \reimp
+*/
+void TQDataTable::setColumnStretchable( int col, bool s )
+{
+    if ( numCols() == 0 ) {
+	refresh( RefreshColumns );
+    }
+    if ( numCols() > col ) {
+	TQTable::setColumnStretchable( col, s );
+    }
+}
+
+TQString TQDataTable::filter() const
+{
+    return d->cur.filter();
+}
+
+/*!
+    \property TQDataTable::filter
+    \brief the data filter for the data table
+
+    The filter applies to the data shown in the table. To view data
+    with a new filter, use refresh(). A filter string is an SQL WHERE
+    clause without the WHERE keyword.
+
+    There is no default filter.
+
+    \sa sort()
+
+*/
+
+void TQDataTable::setFilter( const TQString& filter )
+{
+    d->cur.setFilter( filter );
+}
+
+
+/*!
+    \property TQDataTable::sort
+    \brief the data table's sort
+
+    The table's sort affects the order in which data records are
+    displayed in the table. To apply a sort, use refresh().
+
+    When examining the sort property, a string list is returned with
+    each item having the form 'fieldname order' (e.g., 'id ASC',
+    'surname DESC').
+
+    There is no default sort.
+
+    Note that if you want to iterate over the sort list, you should
+    iterate over a copy, e.g.
+    \code
+    TQStringList list = myDataTable.sort();
+    TQStringList::Iterator it = list.begin();
+    while( it != list.end() ) {
+	myProcessing( *it );
+	++it;
+    }
+    \endcode
+
+    \sa filter() refresh()
+*/
+
+void TQDataTable::setSort( const TQStringList& sort )
+{
+    d->cur.setSort( sort );
+}
+
+/*!
+    \overload
+
+    Sets the sort to be applied to the displayed data to \a sort. If
+    there is no current cursor, nothing happens. A TQSqlIndex tqcontains
+    field names and their ordering (ASC or DESC); these are used to
+    compose the ORDER BY clause.
+
+    \sa sort()
+*/
+
+void TQDataTable::setSort( const TQSqlIndex& sort )
+{
+    d->cur.setSort( sort );
+}
+
+TQStringList TQDataTable::sort() const
+{
+    return d->cur.sort();
+}
+
+/*!
+    Returns the cursor used by the data table.
+*/
+
+TQSqlCursor* TQDataTable::sqlCursor() const
+{
+    return d->cur.cursor();
+}
+
+void TQDataTable::setConfirmEdits( bool confirm )
+{
+    d->dat.setConfirmEdits( confirm );
+}
+
+void TQDataTable::setConfirmInsert( bool confirm )
+{
+    d->dat.setConfirmInsert( confirm );
+}
+
+void TQDataTable::setConfirmUpdate( bool confirm )
+{
+    d->dat.setConfirmUpdate( confirm );
+}
+
+void TQDataTable::setConfirmDelete( bool confirm )
+{
+    d->dat.setConfirmDelete( confirm );
+}
+
+/*!
+    \property TQDataTable::confirmEdits
+    \brief whether the data table confirms edit operations
+
+    If the confirmEdits property is TRUE, the data table confirms all
+    edit operations (inserts, updates and deletes). Finer control of
+    edit confirmation can be achieved using \l confirmCancels, \l
+    confirmInsert, \l confirmUpdate and \l confirmDelete.
+
+    \sa confirmCancels() confirmInsert() confirmUpdate() confirmDelete()
+*/
+
+bool TQDataTable::confirmEdits() const
+{
+    return ( d->dat.confirmEdits() );
+}
+
+/*!
+    \property TQDataTable::confirmInsert
+    \brief whether the data table confirms insert operations
+
+    If the confirmInsert property is TRUE, all insertions must be
+    confirmed by the user through a message box (this behaviour can be
+    changed by overriding the confirmEdit() function), otherwise all
+    insert operations occur immediately.
+
+    \sa confirmCancels() confirmEdits() confirmUpdate() confirmDelete()
+*/
+
+bool TQDataTable::confirmInsert() const
+{
+    return ( d->dat.confirmInsert() );
+}
+
+/*!
+    \property TQDataTable::confirmUpdate
+    \brief whether the data table confirms update operations
+
+    If the confirmUpdate property is TRUE, all updates must be
+    confirmed by the user through a message box (this behaviour can be
+    changed by overriding the confirmEdit() function), otherwise all
+    update operations occur immediately.
+
+    \sa confirmCancels() confirmEdits() confirmInsert() confirmDelete()
+*/
+
+bool TQDataTable::confirmUpdate() const
+{
+    return ( d->dat.confirmUpdate() );
+}
+
+/*!
+    \property TQDataTable::confirmDelete
+    \brief whether the data table confirms delete operations
+
+    If the confirmDelete property is TRUE, all deletions must be
+    confirmed by the user through a message box (this behaviour can be
+    changed by overriding the confirmEdit() function), otherwise all
+    delete operations occur immediately.
+
+    \sa confirmCancels() confirmEdits() confirmUpdate() confirmInsert()
+*/
+
+bool TQDataTable::confirmDelete() const
+{
+    return ( d->dat.confirmDelete() );
+}
+
+/*!
+    \property TQDataTable::confirmCancels
+    \brief whether the data table confirms cancel operations
+
+    If the confirmCancel property is TRUE, all cancels must be
+    confirmed by the user through a message box (this behavior can be
+    changed by overriding the confirmCancel() function), otherwise all
+    cancels occur immediately. The default is FALSE.
+
+    \sa confirmEdits() confirmCancel()
+*/
+
+void TQDataTable::setConfirmCancels( bool confirm )
+{
+    d->dat.setConfirmCancels( confirm );
+}
+
+bool TQDataTable::confirmCancels() const
+{
+    return d->dat.confirmCancels();
+}
+
+/*!
+    \reimp
+
+    For an editable table, creates an editor suitable for the field in
+    column \a col. The editor is created using the default editor
+    factory, unless a different editor factory was installed with
+    installEditorFactory(). The editor is primed with the value of the
+    field in \a col using a property map. The property map used is the
+    default property map, unless a new property map was installed with
+    installPropertMap(). If \a initFromCell is TRUE then the editor is
+    primed with the value in the TQDataTable cell.
+*/
+
+TQWidget * TQDataTable::createEditor( int , int col, bool initFromCell ) const
+{
+    if ( d->dat.mode() == TQSql::None )
+	return 0;
+
+    TQSqlEditorFactory * f = (d->editorFactory == 0) ?
+		     TQSqlEditorFactory::defaultFactory() : d->editorFactory;
+
+    TQSqlPropertyMap * m = (d->propertyMap == 0) ?
+			  TQSqlPropertyMap::defaultMap() : d->propertyMap;
+
+    TQWidget * w = 0;
+    if( initFromCell && d->editBuffer ){
+	w = f->createEditor( viewport(), d->editBuffer->field( indexOf( col ) ) );
+	if ( w )
+	    m->setProperty( w, d->editBuffer->value( indexOf( col ) ) );
+    }
+    return w;
+}
+
+/*! \reimp */
+bool TQDataTable::eventFilter( TQObject *o, TQEvent *e )
+{
+    if ( d->cancelMode )
+	return TRUE;
+
+    int r = currentRow();
+    int c = currentColumn();
+
+    if ( d->dat.mode() != TQSql::None ) {
+	r = d->editRow;
+	c = d->editCol;
+    }
+
+    d->cancelInsert = FALSE;
+    d->cancelUpdate = FALSE;
+    switch ( e->type() ) {
+    case TQEvent::KeyPress: {
+	int conf = TQSql::Yes;
+	TQKeyEvent *ke = (TQKeyEvent*)e;
+	if ( ( ke->key() == Qt::Key_Tab || ke->key() == TQt::Key_BackTab )
+	    && ke->state() & ControlButton )
+	    return FALSE;
+
+	if ( ke->key() == Key_Escape && d->dat.mode() == TQSql::Insert ){
+	    if ( confirmCancels() && !d->cancelMode ) {
+		d->cancelMode = TRUE;
+		conf = confirmCancel( TQSql::Insert );
+		d->cancelMode = FALSE;
+	    }
+	    if ( conf == TQSql::Yes ) {
+		d->cancelInsert = TRUE;
+	    } else {
+		TQWidget *editorWidget = cellWidget( r, c );
+		if ( editorWidget ) {
+		    editorWidget->setActiveWindow();
+		    editorWidget->setFocus();
+		}
+		return TRUE;
+	    }
+	}
+	if ( ke->key() == Key_Escape && d->dat.mode() == TQSql::Update ) {
+	    if ( confirmCancels() && !d->cancelMode ) {
+		d->cancelMode = TRUE;
+		conf = confirmCancel( TQSql::Update );
+		d->cancelMode = FALSE;
+	    }
+	    if ( conf == TQSql::Yes ){
+		d->cancelUpdate = TRUE;
+	    } else {
+		TQWidget *editorWidget = cellWidget( r, c );
+		if ( editorWidget ) {
+		    editorWidget->setActiveWindow();
+		    editorWidget->setFocus();
+		}
+		return TRUE;
+	    }
+	}
+	if ( ke->key() == Qt::Key_Insert && d->dat.mode() == TQSql::None ) {
+	    beginInsert();
+	    return TRUE;
+	}
+	if ( ke->key() == Qt::Key_Delete && d->dat.mode() == TQSql::None ) {
+	    deleteCurrent();
+	    return TRUE;
+	}
+	if ( d->dat.mode() != TQSql::None ) {
+	    if ( (ke->key() == Qt::Key_Tab) && (c < numCols() - 1) && (!isColumnReadOnly( c+1 ) || d->dat.mode() == TQSql::Insert) )
+		d->continuousEdit = TRUE;
+	    else if ( (ke->key() == TQt::Key_BackTab) && (c > 0) && (!isColumnReadOnly( c-1 ) || d->dat.mode() == TQSql::Insert) )
+		d->continuousEdit = TRUE;
+	    else
+		d->continuousEdit = FALSE;
+	}
+	TQSqlCursor * sql = sqlCursor();
+	if ( sql && sql->driver() &&
+	     !sql->driver()->hasFeature( TQSqlDriver::QuerySize ) &&
+	     ke->key() == Qt::Key_End && d->dat.mode() == TQSql::None ) {
+#ifndef TQT_NO_CURSOR
+	    TQApplication::setOverrideCursor( TQt::WaitCursor );
+#endif
+	    int i = sql->at();
+	    if ( i < 0 ) {
+		i = 0;
+		sql->seek(0);
+	    }
+	    while ( sql->next() )
+		i++;
+	    setNumRows( i+1 );
+	    setCurrentCell( i+1, currentColumn() );
+#ifndef TQT_NO_CURSOR
+	    TQApplication::restoreOverrideCursor();
+#endif
+	    return TRUE;
+	}
+	break;
+    }
+    case TQEvent::FocusOut: {
+	TQWidget *editorWidget = cellWidget( r, c );
+	repaintCell( currentRow(), currentColumn() );
+	if ( !d->cancelMode && editorWidget && TQT_BASE_OBJECT(o) == TQT_BASE_OBJECT(editorWidget) &&
+	     ( d->dat.mode() == TQSql::Insert) && !d->continuousEdit) {
+	    setCurrentCell( r, c );
+	    d->cancelInsert = TRUE;
+	}
+	d->continuousEdit = FALSE;
+	break;
+    }
+    case TQEvent::FocusIn:
+	repaintCell( currentRow(), currentColumn() );
+	break;
+    default:
+	break;
+    }
+    return TQTable::eventFilter( o, e );
+}
+
+/*! \reimp */
+void TQDataTable::resizeEvent ( TQResizeEvent * e )
+{
+    if ( sqlCursor() &&
+	 sqlCursor()->driver() &&
+	 !sqlCursor()->driver()->hasFeature( TQSqlDriver::QuerySize ) )
+	loadNextPage();
+    TQTable::resizeEvent( e );
+}
+
+/*! \reimp */
+void TQDataTable::contentsContextMenuEvent( TQContextMenuEvent* e )
+{
+    TQTable::contentsContextMenuEvent( e );
+    if ( isEditing() && d->dat.mode() != TQSql::None )
+	endEdit( d->editRow, d->editCol, autoEdit(), FALSE );
+    if ( !sqlCursor() )
+	return;
+    if ( d->dat.mode() == TQSql::None ) {
+	if ( isReadOnly() )
+	    return;
+	enum {
+	    IdInsert,
+	    IdUpdate,
+	    IdDelete
+	};
+	TQGuardedPtr<TQPopupMenu> popup = new TQPopupMenu( this, "qt_datatable_menu" );
+	int id[ 3 ];
+	id[ IdInsert ] = popup->insertItem( tr( "Insert" ) );
+	id[ IdUpdate ] = popup->insertItem( tr( "Update" ) );
+	id[ IdDelete ] = popup->insertItem( tr( "Delete" ) );
+	bool enableInsert = sqlCursor()->canInsert();
+	popup->setItemEnabled( id[ IdInsert ], enableInsert );
+	bool enableUpdate = currentRow() > -1 && sqlCursor()->canUpdate() && !isColumnReadOnly( currentColumn() );
+	popup->setItemEnabled( id[ IdUpdate ], enableUpdate );
+	bool enableDelete = currentRow() > -1 && sqlCursor()->canDelete();
+	popup->setItemEnabled( id[ IdDelete ], enableDelete );
+	int r = popup->exec( e->globalPos() );
+	delete (TQPopupMenu*) popup;
+	if ( r == id[ IdInsert ] )
+	    beginInsert();
+	else if ( r == id[ IdUpdate ] ) {
+	    if ( beginEdit( currentRow(), currentColumn(), FALSE ) )
+		setEditMode( Editing, currentRow(), currentColumn() );
+	    else
+		endUpdate();
+	}
+	else if ( r == id[ IdDelete ] )
+	    deleteCurrent();
+	e->accept();
+    }
+}
+
+/*! \reimp */
+void TQDataTable::contentsMousePressEvent( TQMouseEvent* e )
+{
+    TQTable::contentsMousePressEvent( e );
+}
+
+/*! \reimp */
+TQWidget* TQDataTable::beginEdit ( int row, int col, bool tqreplace )
+{
+    d->editRow = -1;
+    d->editCol = -1;
+    if ( !sqlCursor() )
+	return 0;
+    if ( d->dat.mode() == TQSql::Insert && !sqlCursor()->canInsert() )
+	return 0;
+    if ( d->dat.mode() == TQSql::Update && !sqlCursor()->canUpdate() )
+	return 0;
+    d->editRow = row;
+    d->editCol = col;
+    if ( d->continuousEdit ) {
+	// see comment in beginInsert()
+	bool fakeReadOnly = isColumnReadOnly( col );
+	setColumnReadOnly( col, FALSE );
+	TQWidget* w = TQTable::beginEdit( row, col, tqreplace );
+	setColumnReadOnly( col, fakeReadOnly );
+	return w;
+    }
+    if ( d->dat.mode() == TQSql::None && sqlCursor()->canUpdate() && sqlCursor()->primaryIndex().count() > 0 )
+	return beginUpdate( row, col, tqreplace );
+    return 0;
+}
+
+/*! \reimp */
+void TQDataTable::endEdit( int row, int col, bool, bool )
+{
+    bool accept = autoEdit() && !d->cancelInsert && !d->cancelUpdate;
+
+    TQWidget *editor = cellWidget( row, col );
+    if ( !editor )
+	return;
+    if ( d->cancelMode )
+	return;
+    if ( d->dat.mode() != TQSql::None && d->editBuffer ) {
+	TQSqlPropertyMap * m = (d->propertyMap == 0) ?
+			      TQSqlPropertyMap::defaultMap() : d->propertyMap;
+	d->editBuffer->setValue( indexOf( col ),  m->property( editor ) );
+	clearCellWidget( row, col );
+	if ( !d->continuousEdit ) {
+	    switch ( d->dat.mode() ) {
+	    case TQSql::Insert:
+		if ( accept )
+		    TQTimer::singleShot( 0, this, TQT_SLOT( doInsertCurrent() ) );
+		else
+		    endInsert();
+		break;
+	    case TQSql::Update:
+		if ( accept )
+		    TQTimer::singleShot( 0, this, TQT_SLOT( doUpdateCurrent() ) );
+		else
+		    endUpdate();
+		break;
+	    default:
+		break;
+	    }
+	}
+    } else {
+	setEditMode( NotEditing, -1, -1 );
+    }
+    if ( d->dat.mode() == TQSql::None )
+	viewport()->setFocus();
+    updateCell( row, col );
+    emit valueChanged( row, col );
+}
+
+/*! \internal */
+void TQDataTable::doInsertCurrent()
+{
+    insertCurrent();
+}
+
+/*! \internal */
+void TQDataTable::doUpdateCurrent()
+{
+    updateCurrent();
+    if ( d->dat.mode() == TQSql::None ) {
+	viewport()->setFocus();
+    }
+}
+
+/*! \reimp */
+void TQDataTable::activateNextCell()
+{
+//     if ( d->dat.mode() == TQSql::None )
+//	TQTable::activateNextCell();
+}
+
+/*! \internal
+*/
+
+void TQDataTable::endInsert()
+{
+    if ( d->dat.mode() != TQSql::Insert )
+	return;
+    d->dat.setMode( TQSql::None );
+    d->editBuffer = 0;
+    verticalHeader()->setLabel( d->editRow, TQString::number( d->editRow +1 ) );
+    d->editRow = -1;
+    d->editCol = -1;
+    d->insertRowLast = -1;
+    d->insertHeaderLabelLast = TQString::null;
+    setEditMode( NotEditing, -1, -1 );
+    setNumRows( d->insertPreRows );
+    d->insertPreRows = -1;
+    viewport()->setFocus();
+}
+
+/*! \internal
+*/
+
+void TQDataTable::endUpdate()
+{
+    d->dat.setMode( TQSql::None );
+    d->editBuffer = 0;
+    updateRow( d->editRow );
+    d->editRow = -1;
+    d->editCol = -1;
+    setEditMode( NotEditing, -1, -1 );
+}
+
+/*!
+    Protected virtual function called when editing is about to begin
+    on a new record. If the table is read-only, or if there's no
+    cursor or the cursor does not allow inserts, nothing happens.
+
+    Editing takes place using the cursor's edit buffer(see
+    TQSqlCursor::editBuffer()).
+
+    When editing begins, a new row is created in the table marked with
+    an asterisk '*' in the row's vertical header column, i.e. at the
+    left of the row.
+*/
+
+bool TQDataTable::beginInsert()
+{
+    if ( !sqlCursor() || isReadOnly() || !numCols() )
+	return FALSE;
+    if ( !sqlCursor()->canInsert() )
+	return FALSE;
+    int i = 0;
+    int row = currentRow();
+
+    d->insertPreRows = numRows();
+    if ( row < 0 || numRows() < 1 )
+	row = 0;
+    setNumRows( d->insertPreRows + 1 );
+    setCurrentCell( row, 0 );
+    d->editBuffer = sqlCursor()->primeInsert();
+    emit primeInsert( d->editBuffer );
+    d->dat.setMode( TQSql::Insert );
+    int lastRow = row;
+    int lastY = contentsY() + visibleHeight();
+    for ( i = row; i < numRows() ; ++i ) {
+	TQRect cg = cellGeometry( i, 0 );
+	if ( (cg.y()+cg.height()) > lastY ) {
+	    lastRow = i;
+	    break;
+	}
+    }
+    if ( lastRow == row && ( numRows()-1 > row ) )
+	lastRow = numRows() - 1;
+    d->insertRowLast = lastRow;
+    d->insertHeaderLabelLast = verticalHeader()->label( d->insertRowLast );
+    verticalHeader()->setLabel( row, "*" );
+    d->editRow = row;
+    // in the db world it's common to allow inserting new records
+    // into a table that has read-only columns - temporarily
+    // switch off read-only mode for such columns
+    bool fakeReadOnly = isColumnReadOnly( 0 );
+    setColumnReadOnly( 0, FALSE );
+    if ( TQTable::beginEdit( row, 0, FALSE ) )
+	setEditMode( Editing, row, 0 );
+    setColumnReadOnly( 0, fakeReadOnly );
+    return TRUE;
+}
+
+/*!
+    Protected virtual function called when editing is about to begin
+    on an existing row. If the table is read-only, or if there's no
+    cursor, nothing happens.
+
+    Editing takes place using the cursor's edit buffer (see
+    TQSqlCursor::editBuffer()).
+
+    \a row and \a col refer to the row and column in the TQDataTable.
+
+    (\a tqreplace is provided for reimplementors and reflects the API of
+    TQTable::beginEdit().)
+*/
+
+TQWidget* TQDataTable::beginUpdate ( int row, int col, bool tqreplace )
+{
+    if ( !sqlCursor() || isReadOnly() || isColumnReadOnly( col ) )
+	return 0;
+    setCurrentCell( row, col );
+    d->dat.setMode( TQSql::Update );
+    if ( sqlCursor()->seek( row ) ) {
+	d->editBuffer = sqlCursor()->primeUpdate();
+	sqlCursor()->seek( currentRow() );
+	emit primeUpdate( d->editBuffer );
+	return TQTable::beginEdit( row, col, tqreplace );
+    }
+    return 0;
+}
+
+/*!
+    For an editable table, issues an insert on the current cursor
+    using the values in the cursor's edit buffer. If there is no
+    current cursor or there is no current "insert" row, nothing
+    happens. If confirmEdits() or confirmInsert() is TRUE,
+    confirmEdit() is called to confirm the insert. Returns TRUE if the
+    insert succeeded; otherwise returns FALSE.
+
+    The underlying cursor must have a valid primary index to ensure
+    that a unique record is inserted within the database otherwise the
+    database may be changed to an inconsistent state.
+*/
+
+bool TQDataTable::insertCurrent()
+{
+    if ( d->dat.mode() != TQSql::Insert || ! numCols() )
+	return FALSE;
+    if ( !sqlCursor()->canInsert() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQDataTable::insertCurrent: insert not allowed for %s",
+		 sqlCursor()->name().latin1() );
+#endif
+	endInsert();
+	return FALSE;
+    }
+    int b = 0;
+    int conf = TQSql::Yes;
+    if ( confirmEdits() || confirmInsert() )
+	conf = confirmEdit( TQSql::Insert );
+    switch ( conf ) {
+    case TQSql::Yes: {
+#ifndef TQT_NO_CURSOR
+	TQApplication::setOverrideCursor( Qt::WaitCursor );
+#endif
+	emit beforeInsert( d->editBuffer );
+	b = sqlCursor()->insert();
+#ifndef TQT_NO_CURSOR
+	TQApplication::restoreOverrideCursor();
+#endif
+	if ( ( !b && !sqlCursor()->isActive() ) || !sqlCursor()->isActive() ) {
+	    handleError( sqlCursor()->lastError() );
+	    endInsert(); // cancel the insert if anything goes wrong
+	    refresh();
+	} else {
+	    endInsert();
+	    refresh();
+	    TQSqlIndex idx = sqlCursor()->primaryIndex();
+	    tqfindBuffer( idx, d->lastAt );
+	    repaintContents( contentsX(), contentsY(), visibleWidth(), visibleHeight(), FALSE );
+	    emit cursorChanged( TQSql::Insert );
+	}
+	break;
+    }
+    case TQSql::No:
+	endInsert();
+	break;
+    case TQSql::Cancel:
+	if ( TQTable::beginEdit( currentRow(), currentColumn(), FALSE ) )
+	    setEditMode( Editing, currentRow(), currentColumn() );
+	break;
+    }
+    return ( b > 0 );
+}
+
+/*! \internal
+
+  Updates the row \a row.
+*/
+
+void TQDataTable::updateRow( int row )
+{
+    for ( int i = 0; i < numCols(); ++i )
+	updateCell( row, i );
+}
+
+/*!
+    For an editable table, issues an update using the cursor's edit
+    buffer. If there is no current cursor or there is no current
+    selection, nothing happens. If confirmEdits() or confirmUpdate()
+    is TRUE, confirmEdit() is called to confirm the update. Returns
+    TRUE if the update succeeded; otherwise returns FALSE.
+
+    The underlying cursor must have a valid primary index to ensure
+    that a unique record is updated within the database otherwise the
+    database may be changed to an inconsistent state.
+*/
+
+bool TQDataTable::updateCurrent()
+{
+    if ( d->dat.mode() != TQSql::Update )
+	return FALSE;
+    if ( sqlCursor()->primaryIndex().count() == 0 ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQDataTable::updateCurrent: no primary index for %s",
+		 sqlCursor()->name().latin1() );
+#endif
+	endUpdate();
+	return FALSE;
+    }
+    if ( !sqlCursor()->canUpdate() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQDataTable::updateCurrent: updates not allowed for %s",
+		 sqlCursor()->name().latin1() );
+#endif
+	endUpdate();
+	return FALSE;
+    }
+    int b = 0;
+    int conf = TQSql::Yes;
+    if ( confirmEdits() || confirmUpdate() )
+	conf = confirmEdit( TQSql::Update );
+    switch ( conf ) {
+    case TQSql::Yes: {
+#ifndef TQT_NO_CURSOR
+	TQApplication::setOverrideCursor( Qt::WaitCursor );
+#endif
+	emit beforeUpdate( d->editBuffer );
+	b = sqlCursor()->update();
+#ifndef TQT_NO_CURSOR
+	TQApplication::restoreOverrideCursor();
+#endif
+	if ( ( !b && !sqlCursor()->isActive() ) || !sqlCursor()->isActive() ) {
+	    handleError( sqlCursor()->lastError() );
+	    endUpdate();
+	    refresh();
+	    setCurrentCell( d->editRow, d->editCol );
+	    if ( TQTable::beginEdit( d->editRow, d->editCol, FALSE ) )
+		setEditMode( Editing, d->editRow, d->editCol );
+	} else {
+	    emit cursorChanged( TQSql::Update );
+	    refresh();
+	    endUpdate();
+	}
+	break;
+    }
+    case TQSql::No:
+	endUpdate();
+	setEditMode( NotEditing, -1, -1 );
+	break;
+    case TQSql::Cancel:
+	setCurrentCell( d->editRow, d->editCol );
+	if ( TQTable::beginEdit( d->editRow, d->editCol, FALSE ) )
+	    setEditMode( Editing, d->editRow, d->editCol );
+	break;
+    }
+    return ( b > 0 );
+}
+
+/*!
+    For an editable table, issues a delete on the current cursor's
+    primary index using the values of the currently selected row. If
+    there is no current cursor or there is no current selection,
+    nothing happens. If confirmEdits() or confirmDelete() is TRUE,
+    confirmEdit() is called to confirm the delete. Returns TRUE if the
+    delete succeeded; otherwise FALSE.
+
+    The underlying cursor must have a valid primary index to ensure
+    that a unique record is deleted within the database otherwise the
+    database may be changed to an inconsistent state.
+*/
+
+bool TQDataTable::deleteCurrent()
+{
+    if ( !sqlCursor() || isReadOnly() )
+	return FALSE;
+    if ( sqlCursor()->primaryIndex().count() == 0 ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQDataTable::deleteCurrent: no primary index %s",
+		 sqlCursor()->name().latin1() );
+#endif
+	return FALSE;
+    }
+    if ( !sqlCursor()->canDelete() )
+	return FALSE;
+
+    int b = 0;
+    int conf = TQSql::Yes;
+    if ( confirmEdits() || confirmDelete() )
+	conf = confirmEdit( TQSql::Delete );
+
+    // Have to have this here - the confirmEdit() might pop up a
+    // dialog that causes a tqrepaint which the cursor to the
+    // record it has to tqrepaint.
+    if ( !sqlCursor()->seek( currentRow() ) )
+	return FALSE;
+    switch ( conf ) {
+	case TQSql::Yes:{
+#ifndef TQT_NO_CURSOR
+	    TQApplication::setOverrideCursor( Qt::WaitCursor );
+#endif
+	    sqlCursor()->primeDelete();
+	    emit primeDelete( sqlCursor()->editBuffer() );
+	    emit beforeDelete( sqlCursor()->editBuffer() );
+	    b = sqlCursor()->del();
+#ifndef TQT_NO_CURSOR
+	    TQApplication::restoreOverrideCursor();
+#endif
+	    if ( !b )
+		handleError( sqlCursor()->lastError() );
+	    refresh();
+	    emit cursorChanged( TQSql::Delete );
+	    setCurrentCell( currentRow(), currentColumn() );
+	    repaintContents( contentsX(), contentsY(), visibleWidth(), visibleHeight(), FALSE );
+	    verticalHeader()->tqrepaint(); // get rid of trailing garbage
+	}
+	break;
+    case TQSql::No:
+	setEditMode( NotEditing, -1, -1 );
+	break;
+    }
+    return ( b > 0 );
+}
+
+/*!
+    Protected virtual function which returns a confirmation for an
+    edit of mode \a m. Derived classes can reimplement this function
+    to provide their own confirmation dialog. The default
+    implementation uses a message box which prompts the user to
+    confirm the edit action.
+*/
+
+TQSql::Confirm TQDataTable::confirmEdit( TQSql::Op m )
+{
+    return d->dat.confirmEdit( this, m );
+}
+
+/*!
+    Protected virtual function which returns a confirmation for
+    cancelling an edit mode of \a m. Derived classes can reimplement
+    this function to provide their own cancel dialog. The default
+    implementation uses a message box which prompts the user to
+    confirm the cancel.
+*/
+
+TQSql::Confirm  TQDataTable::confirmCancel( TQSql::Op m )
+{
+    return d->dat.confirmCancel( this, m );
+}
+
+
+/*!
+    Searches the current cursor for a cell containing the string \a
+    str starting at the current cell and working forwards (or
+    backwards if \a backwards is TRUE). If the string is found, the
+    cell containing the string is set as the current cell. If \a
+    caseSensitive is FALSE the case of \a str will be ignored.
+
+    The search will wrap, i.e. if the first (or if backwards is TRUE,
+    last) cell is reached without tqfinding \a str the search will
+    continue until it reaches the starting cell. If \a str is not
+    found the search will fail and the current cell will remain
+    unchanged.
+*/
+void TQDataTable::tqfind( const TQString & str, bool caseSensitive, bool backwards )
+{
+    if ( !sqlCursor() )
+	return;
+
+    TQSqlCursor * r = sqlCursor();
+    TQString tmp, text;
+    uint  row = currentRow(), startRow = row,
+	  col = backwards ? currentColumn() - 1 : currentColumn() + 1;
+    bool  wrap = TRUE, found = FALSE;
+
+    if( str.isEmpty() || str.isNull() )
+	return;
+
+    if( !caseSensitive )
+	tmp = str.lower();
+    else
+	tmp = str;
+
+#ifndef TQT_NO_CURSOR
+    TQApplication::setOverrideCursor( Qt::WaitCursor );
+#endif
+    while( wrap ){
+	while( !found && r->seek( row ) ){
+	    for( int i = col; backwards ? (i >= 0) : (i < (int) numCols());
+		 backwards ? i-- : i++ )
+	    {
+		text = r->value( indexOf( i ) ).toString();
+		if( !caseSensitive ){
+		    text = text.lower();
+		}
+		if( text.tqcontains( tmp ) ){
+		    setCurrentCell( row, i );
+		    col = i;
+		    found = TRUE;
+		}
+	    }
+	    if( !backwards ){
+		col = 0;
+		row++;
+	    } else {
+		col = numCols() - 1;
+		row--;
+	    }
+	}
+	if( !backwards ){
+	    if( startRow != 0 ){
+		startRow = 0;
+	    } else {
+		wrap = FALSE;
+	    }
+	    r->first();
+	    row = 0;
+	} else {
+	    if( startRow != (uint) (numRows() - 1) ){
+		startRow = numRows() - 1;
+	    } else {
+		wrap = FALSE;
+	    }
+	    r->last();
+	    row = numRows() - 1;
+	}
+    }
+#ifndef TQT_NO_CURSOR
+    TQApplication::restoreOverrideCursor();
+#endif
+}
+
+
+/*!
+    Resets the table so that it displays no data.
+
+    \sa setSqlCursor()
+*/
+
+void TQDataTable::reset()
+{
+    clearCellWidget( currentRow(), currentColumn() );
+    switch ( d->dat.mode() ) {
+    case TQSql::Insert:
+	endInsert();
+	break;
+    case TQSql::Update:
+	endUpdate();
+	break;
+    default:
+	break;
+    }
+    ensureVisible( 0, 0 );
+    verticalScrollBar()->setValue(0);
+    setNumRows(0);
+
+    d->haveAllRows = FALSE;
+    d->continuousEdit = FALSE;
+    d->dat.setMode( TQSql::None );
+    d->editRow = -1;
+    d->editCol = -1;
+    d->insertRowLast = -1;
+    d->insertHeaderLabelLast = TQString::null;
+    d->cancelMode = FALSE;
+    d->lastAt = -1;
+    d->fld.clear();
+    d->fldLabel.clear();
+    d->fldWidth.clear();
+    d->fldIcon.clear();
+    d->fldHidden.clear();
+    if ( sorting() )
+	horizontalHeader()->setSortIndicator( -1 );
+}
+
+/*!
+    Returns the index of the field within the current SQL query that
+    is displayed in column \a i.
+*/
+
+int TQDataTable::indexOf( uint i ) const
+{
+    TQDataTablePrivate::ColIndex::ConstIterator it = d->colIndex.at( i );
+    if ( it != d->colIndex.end() )
+	return *it;
+    return -1;
+}
+
+/*!
+    Returns TRUE if the table will automatically delete the cursor
+    specified by setSqlCursor(); otherwise returns FALSE.
+*/
+
+bool TQDataTable::autoDelete() const
+{
+    return d->cur.autoDelete();
+}
+
+/*!
+    Sets the cursor auto-delete flag to \a enable. If \a enable is
+    TRUE, the table will automatically delete the cursor specified by
+    setSqlCursor(). If \a enable is FALSE (the default), the cursor
+    will not be deleted.
+*/
+
+void TQDataTable::setAutoDelete( bool enable )
+{
+    d->cur.setAutoDelete( enable );
+}
+
+/*!
+    \property TQDataTable::autoEdit
+    \brief whether the data table automatically applies edits
+
+    The default value for this property is TRUE. When the user begins
+    an insert or update in the table there are two possible outcomes
+    when they navigate to another record:
+
+    \list 1
+    \i the insert or update is is performed -- this occurs if autoEdit is TRUE
+    \i the insert or update is abandoned -- this occurs if autoEdit is FALSE
+    \endlist
+*/
+
+void TQDataTable::setAutoEdit( bool autoEdit )
+{
+    d->dat.setAutoEdit( autoEdit );
+}
+
+bool TQDataTable::autoEdit() const
+{
+    return d->dat.autoEdit();
+}
+
+/*!
+    \property TQDataTable::nullText
+    \brief the text used to represent NULL values
+
+    The nullText property will be used to represent NULL values in the
+    table. The default value is provided by the cursor's driver.
+*/
+
+void TQDataTable::setNullText( const TQString& nullText )
+{
+    d->nullTxt = nullText;
+    d->nullTxtChanged = TRUE;
+}
+
+TQString TQDataTable::nullText() const
+{
+    return d->nullTxt;
+}
+
+/*!
+    \property TQDataTable::trueText
+    \brief the text used to represent true values
+
+    The trueText property will be used to represent NULL values in the
+    table. The default value is "True".
+*/
+
+void TQDataTable::setTrueText( const TQString& trueText )
+{
+    d->trueTxt = trueText;
+}
+
+TQString TQDataTable::trueText() const
+{
+    return d->trueTxt;
+}
+
+/*!
+    \property TQDataTable::falseText
+    \brief the text used to represent false values
+
+    The falseText property will be used to represent NULL values in
+    the table. The default value is "False".
+*/
+
+void TQDataTable::setFalseText( const TQString& falseText )
+{
+    d->falseTxt = falseText;
+}
+
+TQString TQDataTable::falseText() const
+{
+    return d->falseTxt;
+}
+
+/*!
+    \property TQDataTable::dateFormat
+    \brief the format used for displaying date/time values
+
+    The dateFormat property is used for displaying date/time values in
+    the table. The default value is \c TQt::LocalDate.
+*/
+
+void TQDataTable::setDateFormat( const Qt::DateFormat f )
+{
+    d->datefmt = f;
+}
+
+Qt::DateFormat TQDataTable::dateFormat() const
+{
+    return d->datefmt;
+}
+
+/*!
+    \property TQDataTable::numRows
+
+    \brief the number of rows in the table
+*/
+
+int TQDataTable::numRows() const
+{
+    return TQTable::numRows();
+}
+
+/*!
+    \reimp
+
+    The number of rows in the table will be determined by the cursor
+    (see setSqlCursor()), so normally this function should never be
+    called. It is included for completeness.
+*/
+
+void TQDataTable::setNumRows ( int r )
+{
+    TQTable::setNumRows( r );
+}
+
+/*!
+    \reimp
+
+    The number of columns in the table will be determined
+    automatically (see addColumn()), so normally this function should
+    never be called. It is included for completeness.
+*/
+
+void TQDataTable::setNumCols ( int r )
+{
+    TQTable::setNumCols( r );
+}
+
+/*!
+    \property TQDataTable::numCols
+
+    \brief the number of columns in the table
+*/
+
+int TQDataTable::numCols() const
+{
+    return TQTable::numCols();
+}
+
+/*!
+    Returns the text in cell \a row, \a col, or an empty string if the
+    cell is empty. If the cell's value is NULL then nullText() will be
+    returned. If the cell does not exist then TQString::null is
+    returned.
+*/
+
+TQString TQDataTable::text ( int row, int col ) const
+{
+    if ( !sqlCursor() )
+	return TQString::null;
+
+    TQString s;
+    if ( sqlCursor()->seek( row ) )
+	s = sqlCursor()->value( indexOf( col ) ).toString();
+    sqlCursor()->seek( currentRow() );
+    return s;
+}
+
+/*!
+    Returns the value in cell \a row, \a col, or an invalid value if
+    the cell does not exist or has no value.
+*/
+
+TQVariant TQDataTable::value ( int row, int col ) const
+{
+    if ( !sqlCursor() )
+	return TQVariant();
+
+    TQVariant v;
+    if ( sqlCursor()->seek( row ) )
+	v = sqlCursor()->value( indexOf( col ) );
+    sqlCursor()->seek( currentRow() );
+    return v;
+}
+
+/*!  \internal
+  Used to update the table when the size of the result set cannot be
+  determined - divide the result set into pages and load the pages as
+  the user moves around in the table.
+*/
+void TQDataTable::loadNextPage()
+{
+    if ( d->haveAllRows )
+	return;
+    if ( !sqlCursor() )
+	return;
+    int pageSize = 0;
+    int lookAhead = 0;
+    if ( height() ) {
+	pageSize = (int)( height() * 2 / 20 );
+	lookAhead = pageSize / 2;
+    }
+    int startIdx = verticalScrollBar()->value() / 20;
+    int endIdx = startIdx + pageSize + lookAhead;
+    if ( endIdx < numRows() || endIdx < 0 )
+	return;
+
+    // check for empty result set
+    if ( sqlCursor()->at() == TQSql::BeforeFirst && !sqlCursor()->next() ) {
+	d->haveAllRows = TRUE;
+	return;
+    }
+
+    while ( endIdx > 0 && !sqlCursor()->seek( endIdx ) )
+	endIdx--;
+    if ( endIdx != ( startIdx + pageSize + lookAhead ) )
+	d->haveAllRows = TRUE;
+    // small hack to prevent TQTable from moving the view when a row
+    // is selected and the contents is resized
+    SelectionMode m = selectionMode();
+    clearSelection();
+    setSelectionMode( NoSelection );
+    setNumRows( endIdx + 1 );
+    sqlCursor()->seek( currentRow() );
+    setSelectionMode( m );
+}
+
+/*! \internal */
+void TQDataTable::sliderPressed()
+{
+    disconnect( verticalScrollBar(), TQT_SIGNAL( valueChanged(int) ),
+		this, TQT_SLOT( loadNextPage() ) );
+}
+
+/*! \internal */
+void TQDataTable::sliderReleased()
+{
+    loadNextPage();
+    connect( verticalScrollBar(), TQT_SIGNAL( valueChanged(int) ),
+	     this, TQT_SLOT( loadNextPage() ) );
+}
+
+/*!
+    Sorts column \a col in ascending order if \a ascending is TRUE
+    (the default); otherwise sorts in descending order.
+
+    The \a wholeRows parameter is ignored; TQDataTable always sorts
+    whole rows by the specified column.
+*/
+
+void TQDataTable::sortColumn ( int col, bool ascending,
+			      bool  )
+{
+    if ( sorting() ) {
+	if ( isEditing() && d->dat.mode() != TQSql::None )
+	    endEdit( d->editRow, d->editCol, autoEdit(), FALSE );
+	if ( !sqlCursor() )
+	    return;
+	TQSqlIndex lastSort = sqlCursor()->sort();
+	TQSqlIndex newSort( lastSort.cursorName(), "newSort" );
+	TQSqlField *field = sqlCursor()->field( indexOf( col ) );
+	if ( field )
+	    newSort.append( *field );
+	newSort.setDescending( 0, !ascending );
+	horizontalHeader()->setSortIndicator( col, ascending );
+	setSort( newSort );
+	refresh();
+    }
+}
+
+/*! \reimp */
+void TQDataTable::columnClicked ( int col )
+{
+    if ( sorting() ) {
+	if ( !sqlCursor() )
+	    return;
+	TQSqlIndex lastSort = sqlCursor()->sort();
+	bool asc = TRUE;
+	if ( lastSort.count() && lastSort.field( 0 )->name() == sqlCursor()->field( indexOf( col ) )->name() )
+	    asc = lastSort.isDescending( 0 );
+	sortColumn( col, asc );
+	emit currentChanged( sqlCursor() );
+    }
+}
+
+/*!
+    \reimp
+
+    Repaints the cell at \a row, \a col.
+*/
+void TQDataTable::repaintCell( int row, int col )
+{
+    TQRect cg = cellGeometry( row, col );
+    TQRect re( TQPoint( cg.x() - 2, cg.y() - 2 ),
+	      TQSize( cg.width() + 4, cg.height() + 4 ) );
+    repaintContents( re, FALSE );
+}
+
+/*!
+    \reimp
+
+    This function renders the cell at \a row, \a col with the value of
+    the corresponding cursor field on the painter \a p. Depending on
+    the table's current edit mode, paintField() is called for the
+    appropriate cursor field. \a cr describes the cell coordinates in
+    the content coordinate system. If \a selected is TRUE the cell has
+    been selected and would normally be rendered differently than an
+    unselected cell.
+
+    \sa TQSql::isNull()
+*/
+
+void TQDataTable::paintCell( TQPainter * p, int row, int col, const TQRect & cr,
+			  bool selected, const TQColorGroup &cg )
+{
+    TQTable::paintCell( p, row, col, cr, selected, cg );  // empty cell
+
+    if ( !sqlCursor() )
+	return;
+
+    p->setPen( selected ? cg.highlightedText() : cg.text() );
+    if ( d->dat.mode() != TQSql::None ) {
+	if ( row == d->editRow && d->editBuffer ) {
+	    paintField( p, d->editBuffer->field( indexOf( col ) ), cr,
+			selected );
+	} else if ( row > d->editRow && d->dat.mode() == TQSql::Insert ) {
+	    if ( sqlCursor()->seek( row - 1 ) )
+		paintField( p, sqlCursor()->field( indexOf( col ) ), cr,
+			    selected );
+	} else {
+	    if ( sqlCursor()->seek( row ) )
+		paintField( p, sqlCursor()->field( indexOf( col ) ), cr,
+			    selected );
+	}
+    } else {
+	if ( sqlCursor()->seek( row ) )
+		paintField( p, sqlCursor()->field( indexOf( col ) ), cr, selected );
+
+    }
+}
+
+
+/*!
+    Paints the \a field on the painter \a p. The painter has already
+    been translated to the appropriate cell's origin where the \a
+    field is to be rendered. \a cr describes the cell coordinates in
+    the content coordinate system. The \a selected parameter is
+    ignored.
+
+    If you want to draw custom field content you must reimplement
+    paintField() to do the custom drawing. The default implementation
+    renders the \a field value as text. If the field is NULL,
+    nullText() is displayed in the cell. If the field is Boolean,
+    trueText() or falseText() is displayed as appropriate.
+*/
+
+void TQDataTable::paintField( TQPainter * p, const TQSqlField* field,
+			    const TQRect & cr, bool )
+{
+    if ( !field )
+	return;
+    p->drawText( 2,2, cr.width()-4, cr.height()-4, fieldAlignment( field ), fieldToString( field ) );
+}
+
+/*!
+    Returns the tqalignment for \a field.
+*/
+
+int TQDataTable::fieldAlignment( const TQSqlField* /*field*/ )
+{
+    return TQt::AlignLeft | TQt::AlignVCenter; //## Reggie: add tqalignment to TQTable
+}
+
+
+/*!
+    If the cursor's \a sql driver supports query sizes, the number of
+    rows in the table is set to the size of the query. Otherwise, the
+    table dynamically resizes itself as it is scrolled. If \a sql is
+    not active, it is made active by issuing a select() on the cursor
+    using the \a sql cursor's current filter and current sort.
+*/
+
+void TQDataTable::setSize( TQSqlCursor* sql )
+{
+    // ### what are the connect/disconnect calls doing here!? move to refresh()
+    if ( sql->driver() && sql->driver()->hasFeature( TQSqlDriver::QuerySize ) ) {
+	setVScrollBarMode( Auto );
+ 	disconnect( verticalScrollBar(), TQT_SIGNAL( sliderPressed() ),
+		    this, TQT_SLOT( sliderPressed() ) );
+ 	disconnect( verticalScrollBar(), TQT_SIGNAL( sliderReleased() ),
+		    this, TQT_SLOT( sliderReleased() ) );
+	disconnect( verticalScrollBar(), TQT_SIGNAL( valueChanged(int) ),
+		    this, TQT_SLOT( loadNextPage() ) );
+	if ( numRows() != sql->size() )
+	    setNumRows( sql->size() );
+    } else {
+	setVScrollBarMode( AlwaysOn );
+ 	connect( verticalScrollBar(), TQT_SIGNAL( sliderPressed() ),
+ 		 this, TQT_SLOT( sliderPressed() ) );
+ 	connect( verticalScrollBar(), TQT_SIGNAL( sliderReleased() ),
+ 		 this, TQT_SLOT( sliderReleased() ) );
+	connect( verticalScrollBar(), TQT_SIGNAL( valueChanged(int) ),
+		 this, TQT_SLOT( loadNextPage() ) );
+	setNumRows(0);
+	loadNextPage();
+    }
+}
+
+/*!
+    Sets \a cursor as the data source for the table. To force the
+    display of the data from \a cursor, use refresh(). If \a
+    autoPopulate is TRUE, columns are automatically created based upon
+    the fields in the \a cursor record. If \a autoDelete is TRUE (the
+    default is FALSE), the table will take ownership of the \a cursor
+    and delete it when appropriate. If the \a cursor is read-only, the
+    table becomes read-only. The table adopts the cursor's driver's
+    definition for representing NULL values as strings.
+
+    \sa refresh() setReadOnly() setAutoDelete() TQSqlDriver::nullText()
+*/
+
+void TQDataTable::setSqlCursor( TQSqlCursor* cursor, bool autoPopulate, bool autoDelete )
+{
+    setUpdatesEnabled( FALSE );
+    d->cur.setCursor( 0 );
+    if ( cursor ) {
+	d->cur.setCursor( cursor, autoDelete );
+	if ( autoPopulate ) {
+	    d->fld.clear();
+	    d->fldLabel.clear();
+	    d->fldWidth.clear();
+	    d->fldIcon.clear();
+	    d->fldHidden.clear();
+	    for ( uint i = 0; i < sqlCursor()->count(); ++i ) {
+		addColumn( sqlCursor()->field( i )->name(), sqlCursor()->field( i )->name() );
+		setColumnReadOnly( i, sqlCursor()->field( i )->isReadOnly() );
+	    }
+	}
+	setReadOnly( sqlCursor()->isReadOnly() );
+	if ( sqlCursor()->driver() && !d->nullTxtChanged )
+	    setNullText(sqlCursor()->driver()->nullText() );
+	setAutoDelete( autoDelete );
+    } else {
+	setNumRows( 0 );
+	setNumCols( 0 );
+    }
+    setUpdatesEnabled( TRUE );
+}
+
+
+/*!
+    Protected virtual function which is called when an error \a e has
+    occurred on the current cursor(). The default implementation
+    displays a warning message to the user with information about the
+    error.
+*/
+void TQDataTable::handleError( const TQSqlError& e )
+{
+    d->dat.handleError( this, e );
+}
+
+/*! \reimp
+  */
+
+void TQDataTable::keyPressEvent( TQKeyEvent* e )
+{
+    switch( e->key() ) {
+    case Qt::Key_Left:
+    case Qt::Key_Right:
+    case Qt::Key_Up:
+    case Qt::Key_Down:
+    case TQt::Key_Prior:
+    case TQt::Key_Next:
+    case Qt::Key_Home:
+    case Qt::Key_End:
+    case Qt::Key_F2:
+    case Qt::Key_Enter: case Qt::Key_Return:
+    case Qt::Key_Tab: case TQt::Key_BackTab:
+	TQTable::keyPressEvent( e );
+    default:
+	return;
+    }
+}
+
+/*!  \reimp
+*/
+
+void TQDataTable::resizeData ( int )
+{
+
+}
+
+/*!  \reimp
+*/
+
+TQTableItem * TQDataTable::item ( int, int ) const
+{
+    return 0;
+}
+
+/*!  \reimp
+*/
+
+void TQDataTable::setItem ( int , int , TQTableItem * )
+{
+
+}
+
+/*!  \reimp
+*/
+
+void TQDataTable::clearCell ( int , int )
+{
+
+}
+
+/*!  \reimp
+*/
+
+void TQDataTable::setPixmap ( int , int , const TQPixmap &  )
+{
+
+}
+
+/*! \reimp */
+void TQDataTable::takeItem ( TQTableItem * )
+{
+
+}
+
+/*!
+    Installs a new SQL editor factory \a f. This enables the user to
+    create and instantiate their own editors for use in cell editing.
+    Note that TQDataTable takes ownership of this pointer, and will
+    delete it when it is no longer needed or when
+    installEditorFactory() is called again.
+
+    \sa TQSqlEditorFactory
+*/
+
+void TQDataTable::installEditorFactory( TQSqlEditorFactory * f )
+{
+    if( f ) {
+	delete d->editorFactory;
+	d->editorFactory = f;
+    }
+}
+
+/*!
+    Installs a new property map \a m. This enables the user to create
+    and instantiate their own property maps for use in cell editing.
+    Note that TQDataTable takes ownership of this pointer, and will
+    delete it when it is no longer needed or when installPropertMap()
+    is called again.
+
+    \sa TQSqlPropertyMap
+*/
+
+void TQDataTable::installPropertyMap( TQSqlPropertyMap* m )
+{
+    if ( m ) {
+	delete d->propertyMap;
+	d->propertyMap = m;
+    }
+}
+
+/*!  \internal
+
+  Sets the current selection to \a row, \a col.
+*/
+
+void TQDataTable::setCurrentSelection( int row, int )
+{
+    if ( !sqlCursor() )
+	return;
+    if ( row == d->lastAt )
+	return;
+    if ( !sqlCursor()->seek( row ) )
+	return;
+    d->lastAt = row;
+    emit currentChanged( sqlCursor() );
+}
+
+void TQDataTable::updateCurrentSelection()
+{
+    setCurrentSelection( currentRow(), -1 );
+}
+
+/*!
+    Returns the currently selected record, or 0 if there is no current
+    selection. The table owns the pointer, so do \e not delete it or
+    otherwise modify it or the cursor it points to.
+*/
+
+TQSqlRecord* TQDataTable::currentRecord() const
+{
+    if ( !sqlCursor() || currentRow() < 0 )
+	return 0;
+    if ( !sqlCursor()->seek( currentRow() ) )
+	return 0;
+    return sqlCursor();
+}
+
+/*!
+    Sorts column \a col in ascending order.
+
+    \sa setSorting()
+*/
+
+void TQDataTable::sortAscending( int col )
+{
+    sortColumn( col, TRUE );
+}
+
+/*!
+    Sorts column \a col in descending order.
+
+    \sa setSorting()
+*/
+
+void TQDataTable::sortDescending( int col )
+{
+    sortColumn( col, FALSE );
+}
+
+/*!
+    \overload void TQDataTable::refresh( Refresh mode )
+
+    Refreshes the table. If there is no currently defined cursor (see
+    setSqlCursor()), nothing happens. The \a mode parameter determines
+    which type of refresh will take place.
+
+    \sa Refresh setSqlCursor() addColumn()
+*/
+
+void TQDataTable::refresh( TQDataTable::Refresh mode )
+{
+    TQSqlCursor* cur = sqlCursor();
+    if ( !cur )
+	return;
+    bool refreshData = ( (mode & RefreshData) == RefreshData );
+    bool refreshCol = ( (mode & RefreshColumns) == RefreshColumns );
+    if ( ( (mode & RefreshAll) == RefreshAll ) ) {
+	refreshData = TRUE;
+	refreshCol = TRUE;
+    }
+    if ( !refreshCol && d->fld.count() && numCols() == 0 )
+	refreshCol = TRUE;
+    viewport()->setUpdatesEnabled( FALSE );
+    d->haveAllRows = FALSE;
+    if ( refreshData ) {
+	if ( !d->cur.refresh() && d->cur.cursor() ) {
+	    handleError( d->cur.cursor()->lastError() );
+	}
+	d->lastAt = -1;
+    }
+    if ( refreshCol ) {
+	setNumCols( 0 );
+	d->colIndex.clear();
+	if ( d->fld.count() ) {
+	    TQSqlField* field = 0;
+	    int i;
+	    int fpos = -1;
+	    for ( i = 0; i < (int)d->fld.count(); ++i ) {
+		if ( cur->field( i ) && cur->field( i )->name() == d->fld[ i ] )
+		    // if there is a field with the desired name on the desired position
+		    // then we take that
+		    fpos = i;
+		else
+		    // otherwise we take the first field that matches the desired name
+		    fpos = cur->position( d->fld[ i ] );
+		field = cur->field( fpos );
+		if ( field && ( cur->isGenerated( fpos ) ||
+				cur->isCalculated( field->name() ) ) )
+		{
+		    setNumCols( numCols() + 1 );
+		    d->colIndex.append( fpos );
+		    setColumnReadOnly( numCols()-1, field->isReadOnly() || isColumnReadOnly( numCols()-1 ) );
+		    horizontalHeader()->setLabel( numCols()-1, d->fldIcon[ i ], d->fldLabel[ i ] );
+		    if ( d->fldHidden[ i ] ) {
+			TQTable::showColumn( i ); // ugly but necessary
+			TQTable::hideColumn( i );
+		    } else {
+			TQTable::showColumn( i );
+		    }
+		    if ( d->fldWidth[ i ] > -1 )
+			TQTable::setColumnWidth( i, d->fldWidth[i] );
+		}
+	    }
+	}
+    }
+    viewport()->setUpdatesEnabled( TRUE );
+    viewport()->tqrepaint( FALSE );
+    horizontalHeader()->tqrepaint();
+    verticalHeader()->tqrepaint();
+    setSize( cur );
+    // keep others aware
+    if ( d->lastAt == -1 )
+ 	setCurrentSelection( -1, -1 );
+    else if ( d->lastAt != currentRow() )
+	setCurrentSelection( currentRow(), currentColumn() );
+    if ( cur->isValid() )
+	emit currentChanged( sqlCursor() );
+}
+
+/*!
+    Refreshes the table. The cursor is refreshed using the current
+    filter, the current sort, and the currently defined columns.
+    Equivalent to calling refresh( TQDataTable::RefreshData ).
+*/
+
+void TQDataTable::refresh()
+{
+    refresh( RefreshData );
+}
+
+/*!
+    \reimp
+
+    Selects the record in the table using the current cursor edit
+    buffer and the fields specified by the index \a idx. If \a atHint
+    is specified, it will be used as a hint about where to begin
+    searching.
+*/
+
+bool TQDataTable::tqfindBuffer( const TQSqlIndex& idx, int atHint )
+{
+    TQSqlCursor* cur = sqlCursor();
+    if ( !cur )
+	return FALSE;
+    bool found = d->cur.tqfindBuffer( idx, atHint );
+    if ( found )
+	setCurrentCell( cur->at(), currentColumn() );
+    return found;
+}
+
+/*! \internal
+    Returns the string representation of a database field.
+*/
+TQString TQDataTable::fieldToString( const TQSqlField * field )
+{
+    TQString text;
+    if ( field->isNull() ) {
+	text = nullText();
+    } else {
+	TQVariant val = field->value();
+	switch ( val.type() ) {
+	    case TQVariant::Bool:
+		text = val.toBool() ? d->trueTxt : d->falseTxt;
+		break;
+	    case TQVariant::Date:
+		text = val.toDate().toString( (Qt::DateFormat)d->datefmt );
+		break;
+	    case TQVariant::Time:
+		text = val.toTime().toString( (Qt::DateFormat)d->datefmt );
+		break;
+	    case TQVariant::DateTime:
+		text = val.toDateTime().toString( (Qt::DateFormat)d->datefmt );
+		break;
+	    default:
+		text = val.toString();
+		break;
+	}
+    }
+    return text;
+}
+
+/*!
+    \reimp
+*/
+
+void TQDataTable::swapColumns( int col1, int col2, bool )
+{
+    TQString fld = d->fld[ col1 ];
+    TQString fldLabel = d->fldLabel[ col1 ];
+    TQIconSet fldIcon = d->fldIcon[ col1 ];
+    int fldWidth = d->fldWidth[ col1 ];
+
+    d->fld[ col1 ] = d->fld[ col2 ];
+    d->fldLabel[ col1 ] = d->fldLabel[ col2 ];
+    d->fldIcon[ col1 ] = d->fldIcon[ col2 ];
+    d->fldWidth[ col1 ] = d->fldWidth[ col2 ];
+
+    d->fld[ col2 ] = fld;
+    d->fldLabel[ col2 ] = fldLabel;
+    d->fldIcon[ col2 ] = fldIcon;
+    d->fldWidth[ col2 ] = fldWidth;
+
+    int colIndex = d->colIndex[ col1 ];
+    d->colIndex[ col1 ] = d->colIndex[ col2 ];
+    d->colIndex[ col2 ] = colIndex;
+}
+
+/*!
+    \reimp
+*/
+
+void TQDataTable::drawContents( TQPainter * p, int cx, int cy, int cw, int ch )
+{
+    TQTable::drawContents( p, cx, cy, cw, ch );
+    if ( sqlCursor() && currentRow() >= 0 )
+	sqlCursor()->seek( currentRow() );
+}
+
+/*!
+    \reimp
+*/
+
+void TQDataTable::hideColumn( int col )
+{
+    d->fldHidden[col] = TRUE;
+    refresh( RefreshColumns );
+}
+
+/*!
+    \reimp
+*/
+
+void TQDataTable::showColumn( int col )
+{
+    d->fldHidden[col] = FALSE;
+    refresh( RefreshColumns );
+}
+
+/*!
+    \fn void TQDataTable::currentChanged( TQSqlRecord* record )
+
+    This signal is emitted whenever a new row is selected in the
+    table. The \a record parameter points to the contents of the newly
+    selected record.
+*/
+
+/*!
+    \fn void TQDataTable::primeInsert( TQSqlRecord* buf )
+
+    This signal is emitted after the cursor is primed for insert by
+    the table, when an insert action is beginning on the table. The \a
+    buf parameter points to the edit buffer being inserted. Connect to
+    this signal in order to, for example, prime the record buffer with
+    default data values.
+*/
+
+/*!
+    \fn void TQDataTable::primeUpdate( TQSqlRecord* buf )
+
+    This signal is emitted after the cursor is primed for update by
+    the table, when an update action is beginning on the table. The \a
+    buf parameter points to the edit buffer being updated. Connect to
+    this signal in order to, for example, provide some visual feedback
+    that the user is in 'edit mode'.
+*/
+
+/*!
+    \fn void TQDataTable::primeDelete( TQSqlRecord* buf )
+
+    This signal is emitted after the cursor is primed for delete by
+    the table, when a delete action is beginning on the table. The \a
+    buf parameter points to the edit buffer being deleted. Connect to
+    this signal in order to, for example, record auditing information
+    on deletions.
+*/
+
+/*!
+    \fn void TQDataTable::beforeInsert( TQSqlRecord* buf )
+
+    This signal is emitted just before the cursor's edit buffer is
+    inserted into the database. The \a buf parameter points to the
+    edit buffer being inserted. Connect to this signal to, for
+    example, populate a key field with a unique sequence number.
+*/
+
+/*!
+    \fn void TQDataTable::beforeUpdate( TQSqlRecord* buf )
+
+    This signal is emitted just before the cursor's edit buffer is
+    updated in the database. The \a buf parameter points to the edit
+    buffer being updated. Connect to this signal when you want to
+    transform the user's data behind-the-scenes.
+*/
+
+/*!
+    \fn void TQDataTable::beforeDelete( TQSqlRecord* buf )
+
+    This signal is emitted just before the currently selected record
+    is deleted from the database. The \a buf parameter points to the
+    edit buffer being deleted. Connect to this signal to, for example,
+    copy some of the fields for later use.
+*/
+
+/*!
+    \fn void TQDataTable::cursorChanged( TQSql::Op mode )
+
+    This signal is emitted whenever the cursor record was changed due
+    to an edit. The \a mode parameter is the type of edit that just
+    took place.
+*/
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqdatatable.h b/tqtinterface/qt4/src/sql/tqdatatable.h
new file mode 100644
index 0000000..657dc9c
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqdatatable.h
@@ -0,0 +1,245 @@
+/****************************************************************************
+**
+** Definition of TQDataTable class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQDATATABLE_H
+#define TQDATATABLE_H
+
+#ifndef TQT_H
+#include "tqstring.h"
+#include "tqvariant.h"
+#include "tqtable.h"
+#include "tqsql.h"
+#include "tqsqlcursor.h"
+#include "tqsqlindex.h"
+#include "tqsqleditorfactory.h"
+#include "tqiconset.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_STQL_VIEW_WIDGETS
+
+class TQPainter;
+class TQSqlField;
+class TQSqlPropertyMap;
+class TQDataTablePrivate;
+
+class TQM_EXPORT_SQL TQDataTable : public TQTable
+{
+    Q_OBJECT
+    TQ_OBJECT
+
+    Q_PROPERTY( TQString nullText READ nullText WRITE setNullText )
+    Q_PROPERTY( TQString trueText READ trueText WRITE setTrueText )
+    Q_PROPERTY( TQString falseText READ falseText WRITE setFalseText )
+//    Q_PROPERTY( DateFormat dateFormat READ dateFormat WRITE setDateFormat )
+    Q_PROPERTY( bool confirmEdits READ confirmEdits WRITE setConfirmEdits )
+    Q_PROPERTY( bool confirmInsert READ confirmInsert WRITE setConfirmInsert )
+    Q_PROPERTY( bool confirmUpdate READ confirmUpdate WRITE setConfirmUpdate )
+    Q_PROPERTY( bool confirmDelete READ confirmDelete WRITE setConfirmDelete )
+    Q_PROPERTY( bool confirmCancels READ confirmCancels WRITE setConfirmCancels )
+    Q_PROPERTY( bool autoEdit READ autoEdit WRITE setAutoEdit )
+    Q_PROPERTY( TQString filter READ filter WRITE setFilter )
+    Q_PROPERTY( TQStringList sort READ sort WRITE setSort )
+    Q_PROPERTY( int numCols READ numCols )
+    Q_PROPERTY( int numRows READ numRows )
+
+public:
+    TQDataTable ( TQWidget* tqparent=0, const char* name=0 );
+    TQDataTable ( TQSqlCursor* cursor, bool autoPopulate = FALSE, TQWidget* tqparent=0, const char* name=0 );
+    ~TQDataTable();
+
+    virtual void addColumn( const TQString& fieldName,
+			    const TQString& label = TQString::null,
+			    int width = -1,
+			    const TQIconSet& iconset = TQIconSet() );
+    virtual void removeColumn( uint col );
+    virtual void setColumn( uint col, const TQString& fieldName,
+			    const TQString& label = TQString::null,
+			    int width = -1,
+			    const TQIconSet& iconset = TQIconSet() );
+
+    TQString      nullText() const;
+    TQString      trueText() const;
+    TQString      falseText() const;
+    Qt::DateFormat   dateFormat() const;
+    bool         confirmEdits() const;
+    bool         confirmInsert() const;
+    bool         confirmUpdate() const;
+    bool         confirmDelete() const;
+    bool         confirmCancels() const;
+    bool         autoDelete() const;
+    bool         autoEdit() const;
+    TQString      filter() const;
+    TQStringList  sort() const;
+
+    virtual void setSqlCursor( TQSqlCursor* cursor = 0,
+			    bool autoPopulate = FALSE, bool autoDelete = FALSE );
+    TQSqlCursor* sqlCursor() const;
+
+    virtual void setNullText( const TQString& nullText );
+    virtual void setTrueText( const TQString& trueText );
+    virtual void setFalseText( const TQString& falseText );
+    virtual void setDateFormat( const Qt::DateFormat f );
+    virtual void setConfirmEdits( bool confirm );
+    virtual void setConfirmInsert( bool confirm );
+    virtual void setConfirmUpdate( bool confirm );
+    virtual void setConfirmDelete( bool confirm );
+    virtual void setConfirmCancels( bool confirm );
+    virtual void setAutoDelete( bool enable );
+    virtual void setAutoEdit( bool autoEdit );
+    virtual void setFilter( const TQString& filter );
+    virtual void setSort( const TQStringList& sort );
+    virtual void setSort( const TQSqlIndex& sort );
+
+    enum Refresh {
+	RefreshData = 1,
+	RefreshColumns = 2,
+	RefreshAll = 3
+    };
+    void         refresh( Refresh mode );
+    void         sortColumn ( int col, bool ascending = TRUE,
+			      bool wholeRows = FALSE );
+    TQString      text ( int row, int col ) const;
+    TQVariant     value ( int row, int col ) const;
+    TQSqlRecord*  currentRecord() const;
+
+    void         installEditorFactory( TQSqlEditorFactory * f );
+    void         installPropertyMap( TQSqlPropertyMap* m );
+
+    int          numCols() const;
+    int          numRows() const;
+    void         setNumCols( int c );
+    void         setNumRows ( int r );
+    bool         tqfindBuffer( const TQSqlIndex& idx, int atHint = 0 );
+
+    void 	 hideColumn( int col );
+    void 	 showColumn( int col );
+Q_SIGNALS:
+    void         currentChanged( TQSqlRecord* record );
+    void         primeInsert( TQSqlRecord* buf );
+    void         primeUpdate( TQSqlRecord* buf );
+    void         primeDelete( TQSqlRecord* buf );
+    void         beforeInsert( TQSqlRecord* buf );
+    void         beforeUpdate( TQSqlRecord* buf );
+    void         beforeDelete( TQSqlRecord* buf );
+    void         cursorChanged( TQSql::Op mode );
+
+public Q_SLOTS:
+    virtual void tqfind( const TQString & str, bool caseSensitive,
+			     bool backwards );
+    virtual void sortAscending( int col );
+    virtual void sortDescending( int col );
+    virtual void refresh();
+    void setColumnWidth( int col, int w );
+    void adjustColumn( int col );
+    void setColumnStretchable( int col, bool stretch );
+    void swapColumns( int col1, int col2, bool swapHeaders = FALSE );
+
+protected:
+    virtual bool insertCurrent();
+    virtual bool updateCurrent();
+    virtual bool deleteCurrent();
+
+    virtual TQSql::Confirm confirmEdit( TQSql::Op m );
+    virtual TQSql::Confirm confirmCancel( TQSql::Op m );
+
+    virtual void handleError( const TQSqlError& e );
+
+    virtual bool beginInsert();
+    virtual TQWidget* beginUpdate ( int row, int col, bool tqreplace );
+
+    bool         eventFilter( TQObject *o, TQEvent *e );
+    void         keyPressEvent( TQKeyEvent* );
+    void         resizeEvent ( TQResizeEvent * );
+    void         contentsMousePressEvent( TQMouseEvent* e );
+    void         contentsContextMenuEvent( TQContextMenuEvent* e );
+    void         endEdit( int row, int col, bool accept, bool tqreplace );
+    TQWidget *    createEditor( int row, int col, bool initFromCell ) const;
+    void         activateNextCell();
+    int          indexOf( uint i ) const; // ### make this public in 4.0
+    void         reset();
+    void         setSize( TQSqlCursor* sql );
+    void         repaintCell( int row, int col );
+    void         paintCell ( TQPainter * p, int row, int col, const TQRect & cr,
+			     bool selected, const TQColorGroup &cg );
+    virtual void paintField( TQPainter * p, const TQSqlField* field, const TQRect & cr,
+			     bool selected );
+    void	 drawContents( TQPainter * p, int cx, int cy, int cw, int ch );
+    virtual int  fieldAlignment( const TQSqlField* field );
+    void         columnClicked ( int col );
+    void         resizeData ( int len );
+
+    TQTableItem * item ( int row, int col ) const;
+    void         setItem ( int row, int col, TQTableItem * item );
+    void         clearCell ( int row, int col ) ;
+    void         setPixmap ( int row, int col, const TQPixmap & pix );
+    void         takeItem ( TQTableItem * i );
+
+private Q_SLOTS:
+    void         loadNextPage();
+    void         setCurrentSelection( int row, int col );
+    void         updateCurrentSelection();
+    void 	 sliderPressed();
+    void 	 sliderReleased();
+    void	 doInsertCurrent();
+    void	 doUpdateCurrent();
+
+private:
+    TQString 	 fieldToString( const TQSqlField * field );
+    void         init();
+    TQWidget*     beginEdit ( int row, int col, bool tqreplace );
+    void         updateRow( int row );
+    void         endInsert();
+    void         endUpdate();
+    TQDataTablePrivate* d;
+
+#if defined(TQ_DISABLE_COPY) // Disabled copy constructor and operator=
+    TQDataTable( const TQDataTable & );
+    TQDataTable &operator=( const TQDataTable & );
+#endif
+};
+
+#endif
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqdataview.cpp b/tqtinterface/qt4/src/sql/tqdataview.cpp
new file mode 100644
index 0000000..b2fbecf
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqdataview.cpp
@@ -0,0 +1,208 @@
+/****************************************************************************
+**
+** Implementation of TQDataView class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqdataview.h"
+
+#ifndef TQT_NO_STQL_VIEW_WIDGETS
+
+#include "tqsqlmanager_p.h"
+
+class TQDataViewPrivate
+{
+public:
+    TQDataViewPrivate() {}
+    TQSqlFormManager frm;
+};
+
+
+/*!
+    \class TQDataView tqdataview.h
+    \brief The TQDataView class provides read-only SQL forms.
+
+    \ingroup database
+    \mainclass
+    \module sql
+
+    This class provides a form which displays SQL field data from a
+    record buffer. Because TQDataView does not support editing it uses
+    less resources than a TQDataBrowser. This class is well suited for
+    displaying read-only data from a SQL database.
+
+    If you want a to present your data in an editable form use
+    TQDataBrowser; if you want a table-based presentation of your data
+    use TQDataTable.
+
+    The form is associated with the data view with setForm() and the
+    record is associated with setRecord(). You can also pass a
+    TQSqlRecord to the refresh() function which will set the record to
+    the given record and read the record's fields into the form.
+*/
+
+/*!
+    Constructs a data view which is a child of \a tqparent, called \a
+    name, and with widget flags \a fl.
+*/
+
+TQDataView::TQDataView( TQWidget *tqparent, const char *name, WFlags fl )
+    : TQWidget( tqparent, name, fl )
+{
+    d = new TQDataViewPrivate();
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQDataView::~TQDataView()
+{
+    delete d;
+}
+
+/*!
+    Clears the default form's values. If there is no default form,
+    nothing happens. All the values are set to their 'zero state',
+    e.g. 0 for numeric fields, "" for string fields.
+*/
+
+void TQDataView::clearValues()
+{
+    d->frm.clearValues();
+}
+
+/*!
+    Sets the form used by the data view to \a form. If a record has
+    already been assigned to the data view, the form will display that
+    record's data.
+
+    \sa form()
+*/
+
+void TQDataView::setForm( TQSqlForm* form )
+{
+    d->frm.setForm( form );
+}
+
+
+/*!
+    Returns the default form used by the data view, or 0 if there is
+    none.
+
+    \sa setForm()
+*/
+
+TQSqlForm* TQDataView::form()
+{
+    return d->frm.form();
+}
+
+
+/*!
+    Sets the record used by the data view to \a record. If a form has
+    already been assigned to the data view, the form will display the
+    data from \a record in that form.
+
+    \sa record()
+*/
+
+void TQDataView::setRecord( TQSqlRecord* record )
+{
+    d->frm.setRecord( record );
+}
+
+
+/*!
+    Returns the default record used by the data view, or 0 if there is
+    none.
+
+    \sa setRecord()
+*/
+
+TQSqlRecord* TQDataView::record()
+{
+    return d->frm.record();
+}
+
+
+/*!
+    Causes the default form to read its fields from the record buffer.
+    If there is no default form, or no record, nothing happens.
+
+    \sa setForm()
+*/
+
+void TQDataView::readFields()
+{
+    d->frm.readFields();
+}
+
+/*!
+    Causes the default form to write its fields to the record buffer.
+    If there is no default form, or no record, nothing happens.
+
+    \sa setForm()
+*/
+
+void TQDataView::writeFields()
+{
+    d->frm.writeFields();
+}
+
+/*!
+    Causes the default form to display the contents of \a buf. If
+    there is no default form, nothing happens.The \a buf also becomes
+    the default record for all subsequent calls to readFields() and
+    writefields(). This slot is equivalant to calling:
+
+    \code
+    myView.setRecord( record );
+    myView.readFields();
+    \endcode
+
+    \sa setRecord() readFields()
+*/
+
+void TQDataView::refresh( TQSqlRecord* buf )
+{
+    if ( buf && buf != record() )
+	setRecord( buf );
+    readFields();
+}
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqdataview.h b/tqtinterface/qt4/src/sql/tqdataview.h
new file mode 100644
index 0000000..017fae6
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqdataview.h
@@ -0,0 +1,91 @@
+/****************************************************************************
+**
+** Definition of TQDataView class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQDATAVIEW_H
+#define TQDATAVIEW_H
+
+#ifndef TQT_H
+#include "tqwidget.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_STQL_VIEW_WIDGETS
+
+class TQSqlForm;
+class TQSqlRecord;
+class TQDataViewPrivate;
+
+class TQM_EXPORT_SQL TQDataView : public TQWidget
+{
+    Q_OBJECT
+    TQ_OBJECT
+
+public:
+    TQDataView( TQWidget* tqparent=0, const char* name=0, WFlags fl = 0 );
+    ~TQDataView();
+
+    virtual void setForm( TQSqlForm* form );
+    TQSqlForm* form();
+    virtual void setRecord( TQSqlRecord* record );
+    TQSqlRecord* record();
+
+public Q_SLOTS:
+    virtual void refresh( TQSqlRecord* buf );
+    virtual void readFields();
+    virtual void writeFields();
+    virtual void clearValues();
+
+private:
+    TQDataViewPrivate* d;
+
+#if defined(TQ_DISABLE_COPY) // Disabled copy constructor and operator=
+    TQDataView( const TQDataView & );
+    TQDataView &operator=( const TQDataView & );
+#endif
+};
+
+
+#endif
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqeditorfactory.cpp b/tqtinterface/qt4/src/sql/tqeditorfactory.cpp
new file mode 100644
index 0000000..2d02088
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqeditorfactory.cpp
@@ -0,0 +1,192 @@
+/****************************************************************************
+**
+** Implementation of TQEditorFactory class
+**
+** Created : 2000-11-17
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqcleanuphandler.h"
+#include "tqlabel.h"
+#include "tqlineedit.h"
+#include "tqspinbox.h"
+#include "tqcombobox.h"
+
+#include "tqeditorfactory.h"
+#include "tqdatetimeedit.h"
+
+#ifndef TQT_NO_STQL_EDIT_WIDGETS
+
+/*!
+    \class TQEditorFactory tqeditorfactory.h
+    \brief The TQEditorFactory class is used to create editor widgets
+    for TQVariant data types.
+
+    \ingroup database
+    \module sql
+
+    Each editor factory provides the createEditor() function which
+    given a TQVariant will create and return a TQWidget that can edit
+    that TQVariant. For example if you have a TQVariant::String type, a
+    TQLineEdit would be the default editor returned, whereas a
+    TQVariant::Int's default editor would be a TQSpinBox.
+
+    If you want to create different editors for fields with the same
+    data type, subclass TQEditorFactory and reimplement the
+    createEditor() function.
+*/
+
+/*!
+    Constructs an editor factory with tqparent \a tqparent, called \a name.
+*/
+
+TQEditorFactory::TQEditorFactory ( TQObject * tqparent, const char * name )
+    : TQObject( tqparent, name )
+{
+
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQEditorFactory::~TQEditorFactory()
+{
+
+}
+
+static TQEditorFactory * defaultfactory = 0;
+static TQCleanupHandler< TQEditorFactory > q_cleanup_editor_factory;
+
+/*!
+    Returns an instance of a default editor factory.
+*/
+
+TQEditorFactory * TQEditorFactory::defaultFactory()
+{
+    if( defaultfactory == 0 ){
+	defaultfactory = new TQEditorFactory();
+	q_cleanup_editor_factory.add( &defaultfactory );
+    }
+
+    return defaultfactory;
+}
+
+/*!
+    Replaces the default editor factory with \a factory.
+    \e{TQEditorFactory takes ownership of factory, and destroys it
+    when it is no longer needed.}
+*/
+
+void TQEditorFactory::installDefaultFactory( TQEditorFactory * factory )
+{
+    if( factory == 0 || factory == defaultfactory ) return;
+
+    if( defaultfactory != 0 ){
+	q_cleanup_editor_factory.remove( &defaultfactory );
+	delete defaultfactory;
+    }
+    defaultfactory = factory;
+    q_cleanup_editor_factory.add( &defaultfactory );
+}
+
+/*!
+    Creates and returns the appropriate editor for the TQVariant \a v.
+    If the TQVariant is invalid, 0 is returned. The \a tqparent is passed
+    to the appropriate editor's constructor.
+*/
+
+TQWidget * TQEditorFactory::createEditor( TQWidget * tqparent, const TQVariant & v )
+{
+    TQWidget * w = 0;
+    switch( v.type() ){
+	case TQVariant::Invalid:
+	    w = 0;
+	    break;
+	case TQVariant::Bool:
+	    w = new TQComboBox( tqparent, "qt_editor_bool" );
+	    ((TQComboBox *) w)->insertItem( "False" );
+	    ((TQComboBox *) w)->insertItem( "True" );
+	    break;
+	case TQVariant::UInt:
+	    w = new TQSpinBox( 0, 999999, 1, tqparent, "qt_editor_spinbox" );
+	    break;
+	case TQVariant::Int:
+	    w = new TQSpinBox( -999999, 999999, 1, tqparent, "qt_editor_int" );
+	    break;
+	case TQVariant::String:
+	case TQVariant::CString:
+	case TQVariant::Double:
+	    w = new TQLineEdit( tqparent, "qt_editor_double" );
+	    ((TQLineEdit*)w)->setFrame( FALSE );
+	    break;
+	case TQVariant::Date:
+	    w = new TQDateEdit( tqparent, "qt_editor_date" );
+	    break;
+	case TQVariant::Time:
+	    w = new TQTimeEdit( tqparent, "qt_editor_time" );
+	    break;
+	case TQVariant::DateTime:
+	    w = new TQDateTimeEdit( tqparent, "qt_editor_datetime" );
+	    break;
+#ifndef TQT_NO_LABEL
+	case TQVariant::Pixmap:
+	    w = new TQLabel( tqparent, "qt_editor_pixmap" );
+	    break;
+#endif
+	case TQVariant::Palette:
+	case TQVariant::ColorGroup:
+	case TQVariant::Color:
+	case TQVariant::Font:
+	case TQVariant::Brush:
+	case TQVariant::Bitmap:
+	case TQVariant::Cursor:
+	case TQVariant::Map:
+	case TQVariant::StringList:
+	case TQVariant::Rect:
+	case TQVariant::Size:
+	case TQVariant::IconSet:
+	case TQVariant::Point:
+	case TQVariant::PointArray:
+	case TQVariant::Region:
+	case TQVariant::SizePolicy:
+	case TQVariant::ByteArray:
+	default:
+	    w = new TQWidget( tqparent, "qt_editor_default" );
+	    break;
+    }
+    return w;
+}
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/tqeditorfactory.h b/tqtinterface/qt4/src/sql/tqeditorfactory.h
new file mode 100644
index 0000000..fb67e0f
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqeditorfactory.h
@@ -0,0 +1,76 @@
+/****************************************************************************
+**
+** Definition of TQEditorFactory class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQEDITORFACTORY_H
+#define TQEDITORFACTORY_H
+
+#ifndef TQT_H
+#include "tqobject.h"
+#include "tqvariant.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_STQL_EDIT_WIDGETS
+
+class TQM_EXPORT_SQL TQEditorFactory : public TQObject
+{
+public:
+    TQEditorFactory ( TQObject * tqparent = 0, const char * name = 0 );
+    ~TQEditorFactory();
+    
+    virtual TQWidget * createEditor( TQWidget * tqparent, const TQVariant & v );
+    
+    static TQEditorFactory * defaultFactory();
+    static void installDefaultFactory( TQEditorFactory * factory);
+
+private:
+#if defined(TQ_DISABLE_COPY) // Disabled copy constructor and operator=
+    TQEditorFactory( const TQEditorFactory & );
+    TQEditorFactory &operator=( const TQEditorFactory & );
+#endif
+}; 
+
+#endif // TQT_NO_SQL
+#endif // TQEDITORFACTORY_H
diff --git a/tqtinterface/qt4/src/sql/tqsql.cpp b/tqtinterface/qt4/src/sql/tqsql.cpp
new file mode 100644
index 0000000..ab497c6
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsql.cpp
@@ -0,0 +1,114 @@
+/****************************************************************************
+**
+** Implementation of TQSql class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2000-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+
+/*!
+    \class TQSql tqsql.h
+    \brief The TQSql class is a namespace for TQt SQL identifiers that
+    need to be global-like.
+
+    \ingroup database
+    \mainclass
+    \module sql
+
+    Normally, you can ignore this class. Several TQt SQL classes
+    inherit it, so all the identifiers in the TQt SQL namespace are
+    visible without qualification.
+*/
+
+/*!
+    \enum TQSql::Confirm
+
+    This enum type describes edit confirmations.
+
+    \value Yes
+    \value No
+    \value Cancel
+*/
+
+/*!
+    \enum TQSql::Op
+
+    This enum type describes edit operations.
+
+    \value None
+    \value Insert
+    \value Update
+    \value Delete
+*/
+
+
+/*!
+    \enum TQSql::Location
+
+    This enum type describes SQL navigation locations.
+
+    \value BeforeFirst
+    \value AfterLast
+*/
+
+/*!
+    \enum TQSql::ParameterType
+
+    This enum is used to set the type of a bind parameter
+
+    \value In  the bind parameter is used to put data into the database
+    \value Out  the bind parameter is used to receive data from the database
+    \value InOut  the bind parameter is used to put data into the
+	database; it will be overwritten with output data on executing
+	a query.
+*/
+
+/*!
+    \enum TQSql::TableType
+
+    This enum type describes types of tables
+
+    \value Tables  All the tables visible to the user
+    \value SystemTables  Internal tables used by the DBMS
+    \value Views  All the views visible to the user
+    \value AllTables  All of the above
+*/
+
+/*!
+    \fn TQSql::TQSql()
+
+    Constructs a TQt SQL namespace class
+*/
diff --git a/tqtinterface/qt4/src/sql/tqsql.h b/tqtinterface/qt4/src/sql/tqsql.h
new file mode 100644
index 0000000..ffb7d99
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsql.h
@@ -0,0 +1,100 @@
+/****************************************************************************
+**
+** Definition of TQSql class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQL_H
+#define TQSQL_H
+
+#ifndef TQT_H
+#include "tqglobal.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQM_EXPORT_SQL TQSql
+{
+public:
+    TQSql() {}
+    enum Op {
+	None = -1,
+	Insert = 0,
+	Update = 1,
+	Delete = 2
+    };
+
+    enum Location {
+	BeforeFirst = -1,
+	AfterLast = -2
+    };
+
+    enum Confirm {
+	Cancel = -1,
+	No = 0,
+	Yes = 1
+    };
+
+    enum ParameterType {
+	In = 1,
+	Out = 2,
+	InOut = 3  //InOut = In | Out
+    };
+
+    enum TableType { 
+	Tables = 0x01,
+	SystemTables = 0x02,
+	Views = 0x04,
+	AllTables = 0xff
+    };
+
+private:	// Disabled copy constructor and operator=
+#if defined(TQ_DISABLE_COPY)
+    TQSql( const TQSql & );
+    TQSql &operator=( const TQSql & );
+#endif
+
+};
+
+#endif
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlcursor.cpp b/tqtinterface/qt4/src/sql/tqsqlcursor.cpp
new file mode 100644
index 0000000..0d9fc53
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlcursor.cpp
@@ -0,0 +1,1549 @@
+/****************************************************************************
+**
+** Implementation of TQSqlCursor class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlcursor.h"
+
+#ifndef TQT_NO_SQL
+
+#include "tqsqldriver.h"
+#include "tqsqlresult.h"
+#include "tqdatetime.h"
+#include "tqsqldatabase.h"
+#include "tqsql.h"
+
+class TQSqlCursorPrivate
+{
+public:
+
+    TQSqlCursorPrivate( const TQString& name, TQSqlDatabase* sdb )
+	: lastAt( TQSql::BeforeFirst ), nm( name ), srt( name ), md( 0 ), db( sdb ), q( 0 )
+    {}
+    ~TQSqlCursorPrivate()
+    {
+	delete q;
+    }
+
+    TQSqlQuery* query()
+    {
+	if ( !q )
+	    q = new TQSqlQuery( 0, db );
+	return q;
+    }
+
+    int               lastAt;
+    TQString           nm;         //name
+    TQSqlIndex         srt;        //sort
+    TQString           ftr;        //filter
+    int               md;         //mode
+    TQSqlIndex         priIndx;    //primary index
+    TQSqlRecord        editBuffer;
+    // the primary index as it was before the user changed the values in editBuffer
+    TQString           editIndex;
+    TQSqlRecordInfo    infoBuffer;
+    TQSqlDatabase*     db;
+    TQSqlQuery*        q;
+};
+
+TQString qOrderByClause( const TQSqlIndex & i, const TQString& prefix = TQString::null )
+{
+    TQString str;
+    int k = i.count();
+    if( k == 0 ) return TQString::null;
+    str = " order by " + i.toString( prefix );
+    return str;
+}
+
+TQString qWhereClause( const TQString& prefix, TQSqlField* field, const TQSqlDriver* driver )
+{
+    TQString f;
+    if ( field && driver ) {
+        f = ( prefix.length() > 0 ? prefix + TQString(".") : TQString() ) + field->name();
+        if ( field->isNull() ) {
+            f += " IS NULL";
+        } else {
+            f += " = " + driver->formatValue( field );
+        }
+    }
+    return f;
+}
+
+TQString qWhereClause( TQSqlRecord* rec, const TQString& prefix, const TQString& sep,
+		      const TQSqlDriver* driver )
+{
+    static TQString blank( " " );
+    TQString filter;
+    bool separator = FALSE;
+    for ( uint j = 0; j < rec->count(); ++j ) {
+        TQSqlField* f = rec->field( j );
+        if ( rec->isGenerated( j ) ) {
+            if ( separator )
+                filter += sep + blank;
+            filter += qWhereClause( prefix, f, driver );
+            filter += blank;
+            separator = TRUE;
+        }
+    }
+    return filter;
+}
+
+/*!
+    \class TQSqlCursor tqsqlcursor.h
+    \brief The TQSqlCursor class provides browsing and editing of SQL
+    tables and views.
+
+    \ingroup database
+    \module sql
+
+    A TQSqlCursor is a database record (see \l TQSqlRecord) that
+    corresponds to a table or view within an SQL database (see \l
+    TQSqlDatabase). There are two buffers in a cursor, one used for
+    browsing and one used for editing records. Each buffer tqcontains a
+    list of fields which correspond to the fields in the table or
+    view.
+
+    When positioned on a valid record, the browse buffer tqcontains the
+    values of the current record's fields from the database. The edit
+    buffer is separate, and is used for editing existing records and
+    inserting new records.
+
+    For browsing data, a cursor must first select() data from the
+    database. After a successful select() the cursor is active
+    (isActive() returns TRUE), but is initially not positioned on a
+    valid record (isValid() returns FALSE). To position the cursor on
+    a valid record, use one of the navigation functions, next(),
+    prev(), first(), last(), or seek(). Once positioned on a valid
+    record, data can be retrieved from the browse buffer using
+    value(). If a navigation function is not successful, it returns
+    FALSE, the cursor will no longer be positioned on a valid record
+    and the values returned by value() are undefined.
+
+    For example:
+
+    \quotefile sql/overview/retrieve2/main.cpp
+    \skipto TQSqlCursor
+    \printline TQSqlCursor
+    \printuntil }
+
+    In the above example, a cursor is created specifying a table or
+    view name in the database. Then, select() is called, which can be
+    optionally parameterised to filter and order the records
+    retrieved. Each record in the cursor is retrieved using next().
+    When next() returns FALSE, there are no more records to process,
+    and the loop terminates.
+
+    For editing records (rows of data), a cursor tqcontains a separate
+    edit buffer which is independent of the fields used when browsing.
+    The functions insert(), update() and del() operate on the edit
+    buffer. This allows the cursor to be repositioned to other
+    records while simultaneously maintaining a separate buffer for
+    edits. You can get a pointer to the edit buffer using
+    editBuffer(). The primeInsert(), primeUpdate() and primeDelete()
+    functions also return a pointer to the edit buffer and prepare it
+    for insert, update and delete respectively. Edit operations only
+    affect a single row at a time. Note that update() and del()
+    require that the table or view contain a primaryIndex() to ensure
+    that edit operations affect a unique record within the database.
+
+    For example:
+
+    \quotefile sql/overview/update/main.cpp
+    \skipto prices
+    \printline prices
+    \printuntil update
+    \printline
+
+    To edit an existing database record, first move to the record you
+    wish to update. Call primeUpdate() to get the pointer to the
+    cursor's edit buffer. Then use this pointer to modify the values
+    in the edit buffer. Finally, call update() to save the changes to
+    the database. The values in the edit buffer will be used to
+    locate the appropriate record when updating the database (see
+    primaryIndex()).
+
+    Similarly, when deleting an existing database record, first move
+    to the record you wish to delete. Then, call primeDelete() to get
+    the pointer to the edit buffer. Finally, call del() to delete the
+    record from the database. Again, the values in the edit buffer
+    will be used to locate and delete the appropriate record.
+
+    To insert a new record, call primeInsert() to get the pointer to
+    the edit buffer. Use this pointer to populate the edit buffer
+    with new values and then insert() the record into the database.
+
+    After calling insert(), update() or del(), the cursor is no longer
+    positioned on a valid record and can no longer be navigated
+    (isValid() return FALSE). The reason for this is that any changes
+    made to the database will not be visible until select() is called
+    to refresh the cursor. You can change this behavior by passing
+    FALSE to insert(), update() or del() which will prevent the cursor
+    from becoming invalid. The edits will still not be visible when
+    navigating the cursor until select() is called.
+
+    TQSqlCursor tqcontains virtual methods which allow editing behavior
+    to be customized by subclasses. This allows custom cursors to be
+    created that encapsulate the editing behavior of a database table
+    for an entire application. For example, a cursor can be customized
+    to always auto-number primary index fields, or provide fields with
+    suitable default values, when inserting new records. TQSqlCursor
+    generates SQL statements which are sent to the database engine;
+    you can control which fields are included in these statements
+    using setGenerated().
+
+    Note that TQSqlCursor does not inherit from TQObject. This means
+    that you are responsible for destroying instances of this class
+    yourself. However if you create a TQSqlCursor and use it in a
+    \l TQDataTable, \l TQDataBrowser or a \l TQDataView these classes will
+    usually take ownership of the cursor and destroy it when they
+    don't need it anymore. The documentation for TQDataTable,
+    TQDataBrowser and TQDataView explicitly states which calls take
+    ownership of the cursor.
+*/
+
+/*!
+    \enum TQSqlCursor::Mode
+
+    This enum type describes how TQSqlCursor operates on records in the
+    database.
+
+    \value ReadOnly  the cursor can only SELECT records from the
+    database.
+
+    \value Insert  the cursor can INSERT records into the database.
+
+    \value Update  the cursor can UPDATE records in the database.
+
+    \value Delete  the cursor can DELETE records from the database.
+
+    \value Writable  the cursor can INSERT, UPDATE and DELETE records
+    in the database.
+*/
+
+/*!
+    Constructs a cursor on database \a db using table or view \a name.
+
+    If \a autopopulate is TRUE (the default), the \a name of the
+    cursor must correspond to an existing table or view name in the
+    database so that field information can be automatically created.
+    If the table or view does not exist, the cursor will not be
+    functional.
+
+    The cursor is created with an initial mode of TQSqlCursor::Writable
+    (meaning that records can be inserted, updated or deleted using
+    the cursor). If the cursor does not have a unique primary index,
+    update and deletes cannot be performed.
+
+    Note that \a autopopulate refers to populating the cursor with
+    meta-data, e.g. the names of the table's fields, not with
+    retrieving data. The select() function is used to populate the
+    cursor with data.
+
+    \sa setName() setMode()
+*/
+
+TQSqlCursor::TQSqlCursor( const TQString & name, bool autopopulate, TQSqlDatabase* db )
+    : TQSqlRecord(), TQSqlQuery( TQString::null, db )
+{
+    d = new TQSqlCursorPrivate( name, db );
+    setMode( Writable );
+    if ( !d->nm.isNull() )
+	setName( d->nm, autopopulate );
+}
+
+/*!
+    Constructs a copy of \a other.
+*/
+
+TQSqlCursor::TQSqlCursor( const TQSqlCursor & other )
+    : TQSqlRecord( other ), TQSqlQuery( other )
+{
+    d = new TQSqlCursorPrivate( other.d->nm, other.d->db );
+    d->lastAt = other.d->lastAt;
+    d->nm = other.d->nm;
+    d->srt = other.d->srt;
+    d->ftr = other.d->ftr;
+    d->priIndx = other.d->priIndx;
+    d->editBuffer = other.d->editBuffer;
+    d->infoBuffer = other.d->infoBuffer;
+    d->q = 0; // do not share queries
+    setMode( other.mode() );
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQSqlCursor::~TQSqlCursor()
+{
+    delete d;
+}
+
+/*!
+    Sets the cursor equal to \a other.
+*/
+
+TQSqlCursor& TQSqlCursor::operator=( const TQSqlCursor& other )
+{
+    TQSqlRecord::operator=( other );
+    TQSqlQuery::operator=( other );
+    delete d;
+    d = new TQSqlCursorPrivate( other.d->nm, other.d->db );
+    d->lastAt = other.d->lastAt;
+    d->nm = other.d->nm;
+    d->srt = other.d->srt;
+    d->ftr = other.d->ftr;
+    d->priIndx = other.d->priIndx;
+    d->editBuffer = other.d->editBuffer;
+    d->infoBuffer = other.d->infoBuffer;
+    d->q = 0; // do not share queries
+    setMode( other.mode() );
+    return *this;
+}
+
+/*!
+    Sets the current sort to \a sort. Note that no new records are
+    selected. To select new records, use select(). The \a sort will
+    apply to any subsequent select() calls that do not explicitly
+    specify a sort.
+*/
+
+void TQSqlCursor::setSort( const TQSqlIndex& sort )
+{
+    d->srt = sort;
+}
+
+/*!
+    Returns the current sort, or an empty index if there is no current
+    sort.
+*/
+TQSqlIndex TQSqlCursor::sort() const
+{
+    return d->srt;
+}
+
+/*!
+    Sets the current filter to \a filter. Note that no new records are
+    selected. To select new records, use select(). The \a filter will
+    apply to any subsequent select() calls that do not explicitly
+    specify a filter.
+
+    The filter is a SQL \c WHERE clause without the keyword 'WHERE',
+    e.g. \c{name='Dave'} which will be processed by the DBMS.
+*/
+void TQSqlCursor::setFilter( const TQString& filter )
+{
+    d->ftr = filter;
+}
+
+/*!
+    Returns the current filter, or an empty string if there is no
+    current filter.
+*/
+TQString TQSqlCursor::filter() const
+{
+    return d->ftr;
+}
+
+/*!
+    Sets the name of the cursor to \a name. If \a autopopulate is TRUE
+    (the default), the \a name must correspond to a valid table or
+    view name in the database. Also, note that all references to the
+    cursor edit buffer become invalidated when fields are
+    auto-populated. See the TQSqlCursor constructor documentation for
+    more information.
+*/
+void TQSqlCursor::setName( const TQString& name, bool autopopulate )
+{
+    d->nm = name;
+    if ( autopopulate ) {
+	if ( driver() ) {
+	    d->infoBuffer = driver()->recordInfo( name );
+	    *this = d->infoBuffer.toRecord();
+	    d->editBuffer = *this;
+	    d->priIndx = driver()->primaryIndex( name );
+	}
+#ifdef TQT_CHECK_RANGE
+	if ( isEmpty() )
+	    qWarning("TQSqlCursor::setName: unable to build record, does '%s' exist?", name.latin1() );
+#endif
+    }
+}
+
+/*!
+    Returns the name of the cursor.
+*/
+
+TQString TQSqlCursor::name() const
+{
+    return d->nm;
+}
+
+/*! \reimp
+*/
+
+TQString TQSqlCursor::toString( const TQString& prefix, const TQString& sep ) const
+{
+    TQString pflist;
+    TQString pfix =  prefix.isEmpty() ? TQString() : prefix + ".";
+    bool comma = FALSE;
+
+    for ( uint i = 0; i < count(); ++i ) {
+	const TQString fname = fieldName( i );
+	if ( isGenerated( i ) ) {
+	    if( comma )
+		pflist += sep + " ";
+	    pflist += pfix + fname;
+	    comma = TRUE;
+	}
+    }
+    return pflist;
+}
+
+/*!
+  \internal
+
+  Assigns the record \a list.
+
+*/
+TQSqlRecord & TQSqlCursor::operator=( const TQSqlRecord & list )
+{
+    return TQSqlRecord::operator=( list );
+}
+
+/*!
+    Append a copy of field \a fieldInfo to the end of the cursor. Note
+    that all references to the cursor edit buffer become invalidated.
+*/
+
+void TQSqlCursor::append( const TQSqlFieldInfo& fieldInfo )
+{
+    d->editBuffer.append( fieldInfo.toField() );
+    d->editBuffer.setGenerated( d->editBuffer.count() - 1, fieldInfo.isGenerated() );
+    d->infoBuffer.append( fieldInfo );
+    TQSqlRecord::append( fieldInfo.toField() );
+    TQSqlRecord::setGenerated( TQSqlRecord::count() - 1, fieldInfo.isGenerated() );
+}
+
+/*!
+    Removes all fields from the cursor. Note that all references to
+    the cursor edit buffer become invalidated.
+*/
+void TQSqlCursor::clear()
+{
+    d->editBuffer.clear();
+    d->infoBuffer.clear();
+    TQSqlRecord::clear();
+}
+
+
+/*!
+    Insert a copy of \a fieldInfo at position \a pos. If a field
+    already exists at \a pos, it is removed. Note that all references
+    to the cursor edit buffer become invalidated.
+*/
+
+void  TQSqlCursor::insert( int pos, const TQSqlFieldInfo& fieldInfo )
+{
+    d->editBuffer.insert( pos, fieldInfo.toField() );
+    d->editBuffer.setGenerated( pos, fieldInfo.isGenerated() );
+    d->infoBuffer[ pos ] = fieldInfo;
+    TQSqlRecord::insert( pos, fieldInfo.toField() );
+    TQSqlRecord::setGenerated( pos, fieldInfo.isGenerated() );
+}
+
+/*!
+    Removes the field at \a pos. If \a pos does not exist, nothing
+    happens. Note that all references to the cursor edit buffer become
+    invalidated.
+*/
+
+void TQSqlCursor::remove( int pos )
+{
+    d->editBuffer.remove( pos );
+    d->infoBuffer[ pos ] = TQSqlFieldInfo();
+    TQSqlRecord::remove( pos );
+}
+
+/*!
+    Sets the generated flag for the field \a name to \a generated. If
+    the field does not exist, nothing happens. Only fields that have
+    \a generated set to TRUE are included in the SQL that is
+    generated by insert(), update() or del().
+
+    \sa isGenerated()
+*/
+
+void TQSqlCursor::setGenerated( const TQString& name, bool generated )
+{
+    int pos = position( name );
+    if ( pos == -1 )
+	return;
+    TQSqlRecord::setGenerated( name, generated );
+    d->editBuffer.setGenerated( name, generated );
+    d->infoBuffer[ pos ].setGenerated( generated );
+}
+
+/*!
+    \overload
+
+    Sets the generated flag for the field \a i to \a generated.
+
+    \sa isGenerated()
+*/
+void TQSqlCursor::setGenerated( int i, bool generated )
+{
+    if ( i < 0 || i >= (int)d->infoBuffer.count() )
+	return;
+    TQSqlRecord::setGenerated( i, generated );
+    d->editBuffer.setGenerated( i, generated );
+    d->infoBuffer[i].setGenerated( generated );
+}
+
+/*!
+    Returns the primary index associated with the cursor as defined in
+    the database, or an empty index if there is no primary index. If
+    \a setFromCursor is TRUE (the default), the index fields are
+    populated with the corresponding values in the cursor's current
+    record.
+*/
+
+TQSqlIndex TQSqlCursor::primaryIndex( bool setFromCursor ) const
+{
+    if ( setFromCursor ) {
+	for ( uint i = 0; i < d->priIndx.count(); ++i ) {
+	    const TQString fn = d->priIndx.fieldName( i );
+	    if ( tqcontains( fn ) )
+		d->priIndx.setValue( i, value( fn ) );
+	}
+    }
+    return d->priIndx;
+}
+
+/*!
+    Sets the primary index associated with the cursor to the index \a
+    idx. Note that this index must contain a field or set of fields
+    which identify a unique record within the underlying database
+    table or view so that update() and del() will execute as expected.
+
+    \sa update() del()
+*/
+
+void TQSqlCursor::setPrimaryIndex( const TQSqlIndex& idx )
+{
+    d->priIndx = idx;
+}
+
+
+/*!
+    Returns an index composed of \a fieldNames, all in ASCending
+    order. Note that all field names must exist in the cursor,
+    otherwise an empty index is returned.
+
+    \sa TQSqlIndex
+*/
+
+TQSqlIndex TQSqlCursor::index( const TQStringList& fieldNames ) const
+{
+    TQSqlIndex idx;
+    for ( TQStringList::ConstIterator it = fieldNames.begin(); it != fieldNames.end(); ++it ) {
+	const TQSqlField* f = field( (*it) );
+	if ( !f ) { /* all fields must exist */
+	    idx.clear();
+	    break;
+	}
+	idx.append( *f );
+    }
+    return idx;
+}
+
+/*!
+    \overload
+
+    Returns an index based on \a fieldName.
+*/
+
+TQSqlIndex TQSqlCursor::index( const TQString& fieldName ) const
+{
+    TQStringList fl( fieldName );
+    return index( fl );
+}
+
+/*!
+    \overload
+
+    Returns an index based on \a fieldName.
+*/
+
+TQSqlIndex TQSqlCursor::index( const char* fieldName ) const
+{
+    return index( TQStringList( TQString( fieldName ) ) );
+}
+
+/*!
+    Selects all fields in the cursor from the database matching the
+    filter criteria \a filter. The data is returned in the order
+    specified by the index \a sort. Returns TRUE if the data was
+    successfully selected; otherwise returns FALSE.
+
+    The \a filter is a string containing a SQL \c WHERE clause but
+    without the 'WHERE' keyword. The cursor is initially positioned at
+    an invalid row after this function is called. To move to a valid
+    row, use seek(), first(), last(), prev() or next().
+
+    Example:
+    \code
+    TQSqlCursor cur( "Employee" ); // Use the Employee table or view
+    cur.select( "deptno=10" ); // select all records in department 10
+    while( cur.next() ) {
+	... // process data
+    }
+    ...
+    // select records in other departments, ordered by department number
+    cur.select( "deptno>10", cur.index( "deptno" ) );
+    ...
+    \endcode
+
+    The filter will apply to any subsequent select() calls that do not
+    explicitly specify another filter. Similarly the sort will apply
+    to any subsequent select() calls that do not explicitly specify
+    another sort.
+
+    \code
+    TQSqlCursor cur( "Employee" );
+    cur.select( "deptno=10" ); // select all records in department 10
+    while( cur.next() ) {
+	... // process data
+    }
+    ...
+    cur.select(); // re-selects all records in department 10
+    ...
+    \endcode
+
+*/
+
+bool TQSqlCursor::select( const TQString & filter, const TQSqlIndex & sort )
+{
+    TQString fieldList = toString( d->nm );
+    if ( fieldList.isEmpty() )
+	return FALSE;
+    TQString str= "select " + fieldList;
+    str += " from " + d->nm;
+    if ( !filter.isEmpty() ) {
+	d->ftr = filter;
+	str += " where " + filter;
+    } else
+	d->ftr = TQString::null;
+    if ( sort.count() > 0 )
+	str += " order by " + sort.toString( d->nm );
+    d->srt = sort;
+    return exec( str );
+}
+
+/*!
+    \overload
+
+    Selects all fields in the cursor from the database. The rows are
+    returned in the order specified by the last call to setSort() or
+    the last call to select() that specified a sort, whichever is the
+    most recent. If there is no current sort, the order in which the
+    rows are returned is undefined. The records are filtered according
+    to the filter specified by the last call to setFilter() or the
+    last call to select() that specified a filter, whichever is the
+    most recent. If there is no current filter, all records are
+    returned. The cursor is initially positioned at an invalid row. To
+    move to a valid row, use seek(), first(), last(), prev() or
+    next().
+
+    \sa setSort() setFilter()
+*/
+
+bool TQSqlCursor::select()
+{
+    return select( filter(), sort() );
+}
+
+/*!
+    \overload
+
+    Selects all fields in the cursor from the database. The data is
+    returned in the order specified by the index \a sort. The records
+    are filtered according to the filter specified by the last call to
+    setFilter() or the last call to select() that specified a filter,
+    whichever is the most recent. The cursor is initially positioned
+    at an invalid row. To move to a valid row, use seek(), first(),
+    last(), prev() or next().
+*/
+
+bool TQSqlCursor::select( const TQSqlIndex& sort )
+{
+    return select( filter(), sort );
+}
+
+/*!
+    \overload
+
+    Selects all fields in the cursor matching the filter index \a
+    filter. The data is returned in the order specified by the index
+    \a sort. The \a filter index works by constructing a WHERE clause
+    using the names of the fields from the \a filter and their values
+    from the current cursor record. The cursor is initially positioned
+    at an invalid row. To move to a valid row, use seek(), first(),
+    last(), prev() or next(). This function is useful, for example,
+    for retrieving data based upon a table's primary index:
+
+    \code
+    TQSqlCursor cur( "Employee" );
+    TQSqlIndex pk = cur.primaryIndex();
+    cur.setValue( "id", 10 );
+    cur.select( pk, pk ); // generates "SELECT ... FROM Employee WHERE id=10 ORDER BY id"
+    ...
+    \endcode
+
+    In this example the TQSqlIndex, pk, is used for two different
+    purposes. When used as the filter (first) argument, the field
+    names it tqcontains are used to construct the WHERE clause, each set
+    to the current cursor value, \c{WHERE id=10}, in this case. When
+    used as the sort (second) argument the field names it tqcontains are
+    used for the ORDER BY clause, \c{ORDER BY id} in this example.
+*/
+
+bool TQSqlCursor::select( const TQSqlIndex & filter, const TQSqlIndex & sort )
+{
+    return select( toString( filter, this, d->nm, "=", "and" ), sort );
+}
+
+/*!
+    Sets the cursor mode to \a mode. This value can be an OR'ed
+    combination of \l TQSqlCursor::Mode values. The default mode for a
+    cursor is \c TQSqlCursor::Writable.
+
+    \code
+    TQSqlCursor cur( "Employee" );
+    cur.setMode( TQSqlCursor::Writable ); // allow insert/update/delete
+    ...
+    cur.setMode( TQSqlCursor::Insert | TQSqlCursor::Update ); // allow inserts and updates only
+    ...
+    cur.setMode( TQSqlCursor::ReadOnly ); // no inserts/updates/deletes allowed
+
+    \endcode
+*/
+
+void TQSqlCursor::setMode( int mode )
+{
+    d->md = mode;
+}
+
+/*!
+    Returns the current cursor mode.
+
+    \sa setMode()
+*/
+
+int TQSqlCursor::mode() const
+{
+    return d->md;
+}
+
+/*!
+    Sets field \a name to \a calculated. If the field \a name does not
+    exist, nothing happens. The value of a calculated field is set by
+    the calculateField() virtual function which you must reimplement
+    (or the field value will be an invalid TQVariant). Calculated
+    fields do not appear in generated SQL statements sent to the
+    database.
+
+    \sa calculateField() TQSqlRecord::setGenerated()
+*/
+
+void TQSqlCursor::setCalculated( const TQString& name, bool calculated )
+{
+    int pos = position( name );
+    if ( pos < 0 )
+	return;
+    d->infoBuffer[ pos ].setCalculated( calculated );
+    if ( calculated )
+	setGenerated( pos, FALSE );
+}
+
+/*!
+    Returns TRUE if the field \a name exists and is calculated;
+    otherwise returns FALSE.
+
+    \sa setCalculated()
+*/
+
+bool TQSqlCursor::isCalculated( const TQString& name ) const
+{
+    int pos = position( name );
+    if ( pos < 0 )
+	return FALSE;
+    return d->infoBuffer[ pos ].isCalculated();
+}
+
+/*!
+    Sets field \a{name}'s trimmed status to \a trim. If the field \a
+    name does not exist, nothing happens.
+
+    When a trimmed field of type string or cstring is read from the
+    database any trailing (right-most) spaces are removed.
+
+    \sa isTrimmed() TQVariant
+*/
+
+void TQSqlCursor::setTrimmed( const TQString& name, bool trim )
+{
+    int pos = position( name );
+    if ( pos < 0 )
+	return;
+    d->infoBuffer[ pos ].setTrim( trim );
+}
+
+/*!
+    Returns TRUE if the field \a name exists and is trimmed; otherwise
+    returns FALSE.
+
+    When a trimmed field of type string or cstring is read from the
+    database any trailing (right-most) spaces are removed.
+
+    \sa setTrimmed()
+*/
+
+bool TQSqlCursor::isTrimmed( const TQString& name ) const
+{
+    int pos = position( name );
+    if ( pos < 0 )
+	return FALSE;
+    return d->infoBuffer[ pos ].isTrim();
+}
+
+/*!
+    Returns TRUE if the cursor is read-only; otherwise returns FALSE.
+    The default is FALSE. Read-only cursors cannot be edited using
+    insert(), update() or del().
+
+    \sa setMode()
+*/
+
+bool TQSqlCursor::isReadOnly() const
+{
+    return d->md == 0;
+}
+
+/*!
+    Returns TRUE if the cursor will perform inserts; otherwise returns
+    FALSE.
+
+    \sa setMode()
+*/
+
+bool TQSqlCursor::canInsert() const
+{
+    return ( ( d->md & Insert ) == Insert ) ;
+}
+
+
+/*!
+    Returns TRUE if the cursor will perform updates; otherwise returns
+    FALSE.
+
+    \sa setMode()
+*/
+
+bool TQSqlCursor::canUpdate() const
+{
+    return ( ( d->md & Update ) == Update ) ;
+}
+
+/*!
+    Returns TRUE if the cursor will perform deletes; otherwise returns
+    FALSE.
+
+    \sa setMode()
+*/
+
+bool TQSqlCursor::canDelete() const
+{
+    return ( ( d->md & Delete ) == Delete ) ;
+}
+
+/*!
+    \overload
+
+    Returns a formatted string composed of the \a prefix (e.g. table
+    or view name), ".", the \a field name, the \a fieldSep and the
+    field value. If the \a prefix is empty then the string will begin
+    with the \a field name. This function is useful for generating SQL
+    statements.
+*/
+
+TQString TQSqlCursor::toString( const TQString& prefix, TQSqlField* field, const TQString& fieldSep ) const
+{
+    TQString f;
+    if ( field && driver() ) {
+	f = ( prefix.length() > 0 ? prefix + TQString(".") : TQString() ) + field->name();
+	f += " " + fieldSep + " ";
+	if ( field->isNull() ) {
+	    f += "NULL";
+	} else {
+	    f += driver()->formatValue( field );
+	}
+    }
+    return f;
+}
+
+/*!
+    Returns a formatted string composed of all the fields in \a rec.
+    Each field is composed of the \a prefix (e.g. table or view name),
+    ".", the field name, the \a fieldSep and the field value. If the
+    \a prefix is empty then each field will begin with the field name.
+    The fields are then joined together separated by \a sep. Fields
+    where isGenerated() returns FALSE are not included. This function
+    is useful for generating SQL statements.
+*/
+
+TQString TQSqlCursor::toString( TQSqlRecord* rec, const TQString& prefix, const TQString& fieldSep,
+			      const TQString& sep ) const
+{
+    static TQString blank( " " );
+    TQString filter;
+    bool separator = FALSE;
+    for ( uint j = 0; j < count(); ++j ) {
+	TQSqlField* f = rec->field( j );
+	if ( rec->isGenerated( j ) ) {
+	    if ( separator )
+		filter += sep + blank;
+	    filter += toString( prefix, f, fieldSep );
+	    filter += blank;
+	    separator = TRUE;
+	}
+    }
+    return filter;
+}
+
+/*!
+    \overload
+
+    Returns a formatted string composed of all the fields in the index
+    \a i. Each field is composed of the \a prefix (e.g. table or view
+    name), ".", the field name, the \a fieldSep and the field value.
+    If the \a prefix is empty then each field will begin with the field
+    name. The field values are taken from \a rec. The fields are then
+    joined together separated by \a sep. Fields where isGenerated()
+    returns FALSE are ignored. This function is useful for generating
+    SQL statements.
+*/
+
+TQString TQSqlCursor::toString( const TQSqlIndex& i, TQSqlRecord* rec, const TQString& prefix,
+				const TQString& fieldSep, const TQString& sep ) const
+{
+    TQString filter;
+    bool separator = FALSE;
+    for( uint j = 0; j < i.count(); ++j ){
+	if ( rec->isGenerated( j ) ) {
+	    if( separator ) {
+		filter += " " + sep + " " ;
+	    }
+	    TQString fn = i.fieldName( j );
+	    TQSqlField* f = rec->field( fn );
+	    filter += toString( prefix, f, fieldSep );
+	    separator = TRUE;
+	}
+    }
+    return filter;
+}
+
+/*!
+    \overload
+
+    Inserts the current contents of the cursor's edit record buffer
+    into the database, if the cursor allows inserts. Returns the
+    number of rows affected by the insert. For error information, use
+    lastError().
+
+    If \a tqinvalidate is TRUE (the default), the cursor will no longer
+    be positioned on a valid record and can no longer be navigated. A
+    new select() call must be made before navigating to a valid
+    record.
+
+    \quotefile sql/overview/insert2/main.cpp
+    \skipto prices
+    \printline prices
+    \printuntil insert
+
+    In the above example, a cursor is created on the 'prices' table
+    and a pointer to the insert buffer is aquired using primeInsert().
+    Each field's value is set to the desired value and then insert()
+    is called to insert the data into the database. Remember: all edit
+    operations (insert(), update() and delete()) operate on the
+    contents of the cursor edit buffer and not on the contents of the
+    cursor itself.
+
+    \sa setMode() lastError()
+*/
+
+int TQSqlCursor::insert( bool tqinvalidate )
+{
+    if ( ( d->md & Insert ) != Insert || !driver() )
+	return FALSE;
+    int k = d->editBuffer.count();
+    if ( k == 0 )
+	return 0;
+
+    TQString fList;
+    TQString vList;
+    bool comma = FALSE;
+    // use a prepared query if the driver supports it
+    if ( driver()->hasFeature( TQSqlDriver::PreparedQueries ) ) {
+	int cnt = 0;
+	bool oraStyle = driver()->hasFeature( TQSqlDriver::NamedPlaceholders );
+	for( int j = 0; j < k; ++j ) {
+	    TQSqlField* f = d->editBuffer.field( j );
+	    if ( d->editBuffer.isGenerated( j ) ) {
+		if ( comma ) {
+		    fList += ",";
+		    vList += ",";
+		}
+		fList += f->name();
+		vList += (oraStyle == TRUE) ? ":f" + TQString::number(cnt) : TQString("?");
+		cnt++;
+		comma = TRUE;
+	    }
+	}
+	if ( !comma ) {
+	    return 0;
+	}
+	TQString str;
+	str.append( "insert into " ).append( name() ).append( "(" ).append( fList ).append( ") values (" ).append( vList ). append ( ")" );
+	return applyPrepared( str, tqinvalidate );
+    } else {
+	for( int j = 0; j < k; ++j ) {
+	    TQSqlField* f = d->editBuffer.field( j );
+	    if ( d->editBuffer.isGenerated( j ) ) {
+		if ( comma ) {
+		    fList += ",";
+		    vList += ",";
+		}
+		fList += f->name();
+		vList += driver()->formatValue( f );
+		comma = TRUE;
+	    }
+	}
+
+	if ( !comma ) {
+	    // no valid fields found
+	    return 0;
+	}
+	TQString str;
+	str.append( "insert into " ).append( name() ).append( "(" ).append( fList ).append( ") values (" ).append( vList ). append ( ")" );
+	return apply( str, tqinvalidate );
+    }
+}
+
+/*!
+    Returns the current internal edit buffer. If \a copy is TRUE (the
+    default is FALSE), the current cursor field values are first
+    copied into the edit buffer. The edit buffer is valid as long as
+    the cursor remains valid. The cursor retains ownership of the
+    returned pointer, so it must not be deleted or modified.
+
+    \sa primeInsert(), primeUpdate() primeDelete()
+*/
+
+TQSqlRecord* TQSqlCursor::editBuffer( bool copy )
+{
+    if ( copy ) {
+	for(uint i = 0; i < d->editBuffer.count(); i++) {
+	    if ( TQSqlRecord::isNull( i ) ) {
+		d->editBuffer.setNull( i );
+	    } else {
+		d->editBuffer.setValue( i, value( i ) );
+	    }
+	}
+    }
+    return &d->editBuffer;
+}
+
+/*!
+    This function primes the edit buffer's field values for update and
+    returns the edit buffer. The default implementation copies the
+    field values from the current cursor record into the edit buffer
+    (therefore, this function is equivalent to calling editBuffer(
+    TRUE ) ). The cursor retains ownership of the returned pointer, so
+    it must not be deleted or modified.
+
+    \sa editBuffer() update()
+*/
+
+TQSqlRecord* TQSqlCursor::primeUpdate()
+{
+    // memorize the primary keys as they were before the user changed the values in editBuffer
+    TQSqlRecord* buf = editBuffer( TRUE );
+    TQSqlIndex idx = primaryIndex( FALSE );
+    if ( !idx.isEmpty() )
+	d->editIndex = toString( idx, buf, d->nm, "=", "and" );
+    else
+	d->editIndex = qWhereClause( buf, d->nm, "and", driver() );
+    return buf;
+}
+
+/*!
+    This function primes the edit buffer's field values for delete and
+    returns the edit buffer. The default implementation copies the
+    field values from the current cursor record into the edit buffer
+    (therefore, this function is equivalent to calling editBuffer(
+    TRUE ) ). The cursor retains ownership of the returned pointer, so
+    it must not be deleted or modified.
+
+    \sa editBuffer() del()
+*/
+
+TQSqlRecord* TQSqlCursor::primeDelete()
+{
+    return editBuffer( TRUE );
+}
+
+/*!
+    This function primes the edit buffer's field values for insert and
+    returns the edit buffer. The default implementation clears all
+    field values in the edit buffer. The cursor retains ownership of
+    the returned pointer, so it must not be deleted or modified.
+
+    \sa editBuffer() insert()
+*/
+
+TQSqlRecord* TQSqlCursor::primeInsert()
+{
+    d->editBuffer.clearValues();
+    return &d->editBuffer;
+}
+
+
+/*!
+    Updates the database with the current contents of the edit buffer.
+    Returns the number of records which were updated.
+    For error information, use lastError().
+
+    Only records which meet the filter criteria specified by the
+    cursor's primary index are updated. If the cursor does not contain
+    a primary index, no update is performed and 0 is returned.
+
+    If \a tqinvalidate is TRUE (the default), the current cursor can no
+    longer be navigated. A new select() call must be made before you
+    can move to a valid record. For example:
+
+    \quotefile sql/overview/update/main.cpp
+    \skipto prices
+    \printline prices
+    \printuntil update
+    \printline
+
+    In the above example, a cursor is created on the 'prices' table
+    and is positioned on the record to be updated. Then a pointer to
+    the cursor's edit buffer is acquired using primeUpdate(). A new
+    value is calculated and placed into the edit buffer with the
+    setValue() call. Finally, an update() call is made on the cursor
+    which uses the tables's primary index to update the record in the
+    database with the contents of the cursor's edit buffer. Remember:
+    all edit operations (insert(), update() and delete()) operate on
+    the contents of the cursor edit buffer and not on the contents of
+    the cursor itself.
+
+    Note that if the primary index does not uniquely distinguish
+    records the database may be changed into an inconsistent state.
+
+    \sa setMode() lastError()
+*/
+
+int TQSqlCursor::update( bool tqinvalidate )
+{
+    if ( d->editIndex.isEmpty() )
+	return 0;
+    return update( d->editIndex, tqinvalidate );
+}
+
+/*!
+    \overload
+
+    Updates the database with the current contents of the cursor edit
+    buffer using the specified \a filter. Returns the number of
+    records which were updated.
+    For error information, use lastError().
+
+    Only records which meet the filter criteria are updated, otherwise
+    all records in the table are updated.
+
+    If \a tqinvalidate is TRUE (the default), the cursor can no longer
+    be navigated. A new select() call must be made before you can move
+    to a valid record.
+
+    \sa primeUpdate() setMode() lastError()
+*/
+
+int TQSqlCursor::update( const TQString & filter, bool tqinvalidate )
+{
+    if ( ( d->md & Update ) != Update ) {
+	return FALSE;
+    }
+    int k = count();
+    if ( k == 0 ) {
+	return 0;
+    }
+
+    // use a prepared query if the driver supports it
+    if ( driver()->hasFeature( TQSqlDriver::PreparedQueries ) ) {
+	TQString fList;
+	bool comma = FALSE;
+	int cnt = 0;
+	bool oraStyle = driver()->hasFeature( TQSqlDriver::NamedPlaceholders );
+	for( int j = 0; j < k; ++j ) {
+	    TQSqlField* f = d->editBuffer.field( j );
+	    if ( d->editBuffer.isGenerated( j ) ) {
+		if ( comma ) {
+		    fList += ",";
+		}
+		fList += f->name() + " = " + (oraStyle == TRUE ? ":f" + TQString::number(cnt) : TQString("?"));
+		cnt++;
+		comma = TRUE;
+	    }
+	}
+	if ( !comma ) {
+	    return 0;
+	}
+	TQString str = "update " + name() + " set " + fList;
+	if ( filter.length() ) {
+	    str+= " where " + filter;
+	}
+	return applyPrepared( str, tqinvalidate );
+    } else {
+	TQString str = "update " + name();
+	str += " set " + toString( &d->editBuffer, TQString::null, "=", "," );
+	if ( filter.length() ) {
+	    str+= " where " + filter;
+	}
+	return apply( str, tqinvalidate );
+    }
+}
+
+/*!
+    Deletes a record from the database using the cursor's primary
+    index and the contents of the cursor edit buffer. Returns the
+    number of records which were deleted.
+    For error information, use lastError().
+
+    Only records which meet the filter criteria specified by the
+    cursor's primary index are deleted. If the cursor does not contain
+    a primary index, no delete is performed and 0 is returned. If \a
+    tqinvalidate is TRUE (the default), the current cursor can no longer
+    be navigated. A new select() call must be made before you can move
+    to a valid record. For example:
+
+    \quotefile sql/overview/delete/main.cpp
+    \skipto prices
+    \printline prices
+    \printuntil }
+
+    In the above example, a cursor is created on the 'prices' table
+    and positioned to the record to be deleted. First primeDelete() is
+    called to populate the edit buffer with the current cursor values,
+    e.g. with an id of 999, and then del() is called to actually
+    delete the record from the database. Remember: all edit operations
+    (insert(), update() and delete()) operate on the contents of the
+    cursor edit buffer and not on the contents of the cursor itself.
+
+    \sa primeDelete() setMode() lastError()
+*/
+
+int TQSqlCursor::del( bool tqinvalidate )
+{
+    TQSqlIndex idx = primaryIndex( FALSE );
+    if ( idx.isEmpty() )
+        return del( qWhereClause( &d->editBuffer, d->nm, "and", driver() ), tqinvalidate );
+    else
+	return del( toString( primaryIndex(), &d->editBuffer, d->nm,
+			  "=", "and" ), tqinvalidate );
+}
+
+/*!
+    \overload
+
+    Deletes the current cursor record from the database using the
+    filter \a filter. Only records which meet the filter criteria are
+    deleted. Returns the number of records which were deleted. If \a
+    tqinvalidate is TRUE (the default), the current cursor can no longer
+    be navigated. A new select() call must be made before you can move
+    to a valid record. For error information, use lastError().
+
+    The \a filter is an SQL \c WHERE clause, e.g. \c{id=500}.
+
+    \sa setMode() lastError()
+*/
+
+int TQSqlCursor::del( const TQString & filter, bool tqinvalidate )
+{
+    if ( ( d->md & Delete ) != Delete )
+	return 0;
+    int k = count();
+    if( k == 0 ) return 0;
+    TQString str = "delete from " + name();
+    if ( filter.length() )
+	str+= " where " + filter;
+    return apply( str, tqinvalidate );
+}
+
+/*
+  \internal
+*/
+
+int TQSqlCursor::apply( const TQString& q, bool tqinvalidate )
+{
+    int ar = 0;
+    if ( tqinvalidate ) {
+	if ( exec( q ) )
+	    ar = numRowsAffected();
+    } else if ( driver() ) {
+	TQSqlQuery* sql = d->query();
+	if ( sql && sql->exec( q ) )
+	    ar = sql->numRowsAffected();
+    }
+    return ar;
+}
+
+/*
+  \internal
+*/
+
+int TQSqlCursor::applyPrepared( const TQString& q, bool tqinvalidate )
+{
+    int ar = 0;
+    TQSqlQuery* sql = 0;
+
+    if ( tqinvalidate ) {
+	sql = (TQSqlQuery*)this;
+	d->lastAt = TQSql::BeforeFirst;
+    } else {
+	sql = d->query();
+    }
+    if ( !sql )
+	return 0;
+
+    if ( tqinvalidate || sql->lastQuery() != q ) {
+	if ( !sql->prepare( q ) )
+	    return 0;
+    }
+
+    int cnt = 0;
+    int fieldCount = (int)count();
+    for ( int j = 0; j < fieldCount; ++j ) {
+	const TQSqlField* f = d->editBuffer.field( j );
+	if ( d->editBuffer.isGenerated( j ) ) {
+	    sql->bindValue( cnt, f->value() );
+	    cnt++;
+	}
+    }
+    if ( sql->exec() ) {
+	ar = sql->numRowsAffected();
+    }
+    return ar;
+}
+
+/*!  \reimp
+
+  Executes the SQL query \a sql. Returns TRUE of the cursor is
+  active, otherwise returns FALSE.
+
+*/
+bool TQSqlCursor::exec( const TQString & sql )
+{
+    d->lastAt = TQSql::BeforeFirst;
+    TQSqlQuery::exec( sql );
+    return isActive();
+}
+
+/*!
+    Protected virtual function which is called whenever a field needs
+    to be calculated. If calculated fields are being used, derived
+    classes must reimplement this function and return the appropriate
+    value for field \a name. The default implementation returns an
+    invalid TQVariant.
+
+    \sa setCalculated()
+*/
+
+TQVariant TQSqlCursor::calculateField( const TQString& )
+{
+    return TQVariant();
+}
+
+/*! \internal
+   Ensure fieldlist is synced with query.
+
+*/
+
+static TQString qTrim( const TQString& s )
+{
+    TQString result = s;
+    int end = result.length() - 1;
+    while ( end >= 0 && result[end].isSpace() ) // skip white space from end
+	end--;
+    result.truncate( end + 1 );
+    return result;
+}
+
+/*! \internal
+ */
+
+void TQSqlCursor::sync()
+{
+    if ( isActive() && isValid() && d->lastAt != at() ) {
+	d->lastAt = at();
+	uint i = 0;
+	uint j = 0;
+	bool haveCalculatedFields = FALSE;
+	for ( ; i < count(); ++i ) {
+	    if ( !haveCalculatedFields && d->infoBuffer[i].isCalculated() ) {
+		haveCalculatedFields = TRUE;
+	    }
+	    if ( TQSqlRecord::isGenerated( i ) ) {
+		TQVariant v = TQSqlQuery::value( j );
+		if ( ( v.type() == TQVariant::String || v.type() == TQVariant::CString ) &&
+			d->infoBuffer[ i ].isTrim() ) {
+		    v = qTrim( v.toString() );
+		}
+		TQSqlRecord::setValue( i, v );
+		if ( TQSqlQuery::isNull( j ) )
+		    TQSqlRecord::field( i )->setNull();
+		j++;
+	    }
+	}
+	if ( haveCalculatedFields ) {
+	    for ( i = 0; i < count(); ++i ) {
+		if ( d->infoBuffer[i].isCalculated() )
+		    TQSqlRecord::setValue( i, calculateField( fieldName( i ) ) );
+	    }
+	}
+    }
+}
+
+/*! \reimp
+
+*/
+
+void TQSqlCursor::afterSeek()
+{
+    sync();
+}
+
+/*!
+    \reimp
+
+    Returns the value of field number \a i.
+*/
+
+TQVariant TQSqlCursor::value( int i ) const
+{
+    return TQSqlRecord::value( i );
+}
+
+/*!
+    \reimp
+
+    Returns the value of the field called \a name.
+*/
+
+TQVariant TQSqlCursor::value( const TQString& name ) const
+{
+    return TQSqlRecord::value( name );
+}
+
+/*! \internal
+  cursors should be filled with TQSqlFieldInfos...
+*/
+void TQSqlCursor::append( const TQSqlField& field )
+{
+    append( TQSqlFieldInfo( field ) );
+}
+/*! \internal
+  cursors should be filled with TQSqlFieldInfos...
+*/
+void TQSqlCursor::insert( int pos, const TQSqlField& field )
+{
+    insert( pos, TQSqlFieldInfo( field ) );
+}
+
+/*!
+    Returns TRUE if the field \a i is NULL or if there is no field at
+    position \a i; otherwise returns FALSE.
+
+    This is the same as calling TQSqlRecord::isNull( \a i )
+*/
+bool TQSqlCursor::isNull( int i ) const
+{
+    return TQSqlRecord::isNull( i );
+}
+/*!
+    \overload
+
+    Returns TRUE if the field called \a name is NULL or if there is no
+    field called \a name; otherwise returns FALSE.
+
+    This is the same as calling TQSqlRecord::isNull( \a name )
+*/
+bool TQSqlCursor::isNull( const TQString& name ) const
+{
+    return TQSqlRecord::isNull( name );
+}
+
+/*! \reimp */
+void TQSqlCursor::setValue( int i, const TQVariant& val )
+{
+#ifdef TQT_DEBUG
+    qDebug("TQSqlCursor::setValue(): This will not affect actual database values. Use primeInsert(), primeUpdate() or primeDelete().");
+#endif
+    TQSqlRecord::setValue( i, val );
+}
+
+/*! \reimp */
+void TQSqlCursor::setValue( const TQString& name, const TQVariant& val )
+{
+#ifdef TQT_DEBUG
+    qDebug("TQSqlCursor::setValue(): This will not affect actual database values. Use primeInsert(), primeUpdate() or primeDelete().");
+#endif
+    TQSqlRecord::setValue( name, val );
+}
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlcursor.h b/tqtinterface/qt4/src/sql/tqsqlcursor.h
new file mode 100644
index 0000000..9617b12
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlcursor.h
@@ -0,0 +1,160 @@
+/****************************************************************************
+**
+** Definition of TQSqlCursor class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLCURSOR_H
+#define TQSQLCURSOR_H
+
+#ifndef TQT_H
+#include "tqsqlrecord.h"
+#include "tqstringlist.h"
+#include "tqsqlquery.h"
+#include "tqsqlindex.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQSqlDatabase;
+class TQSqlCursorPrivate;
+
+class TQM_EXPORT_SQL TQSqlCursor : public TQSqlRecord, public TQSqlQuery
+{
+public:
+    TQSqlCursor( const TQString & name = TQString::null, bool autopopulate = TRUE, TQSqlDatabase* db = 0 );
+    TQSqlCursor( const TQSqlCursor & other );
+    TQSqlCursor& operator=( const TQSqlCursor& other );
+    ~TQSqlCursor();
+
+    enum Mode {
+	ReadOnly = 0,
+	Insert = 1,
+	Update = 2,
+	Delete = 4,
+	Writable = 7
+    };
+
+    TQVariant		value( int i ) const;
+    TQVariant		value( const TQString& name ) const;
+    void         	setValue( int i, const TQVariant& val );
+    void         	setValue( const TQString& name, const TQVariant& val );
+    virtual TQSqlIndex	primaryIndex( bool prime = TRUE ) const;
+    virtual TQSqlIndex	index( const TQStringList& fieldNames ) const;
+    TQSqlIndex		index( const TQString& fieldName ) const;
+    TQSqlIndex		index( const char* fieldName ) const;
+    virtual void	setPrimaryIndex( const TQSqlIndex& idx );
+
+    virtual void	append( const TQSqlFieldInfo& fieldInfo );
+    virtual void	insert( int pos, const TQSqlFieldInfo& fieldInfo );
+    void		remove( int pos );
+    void		clear();
+    void		setGenerated( const TQString& name, bool generated );
+    void		setGenerated( int i, bool generated );
+
+    virtual TQSqlRecord*	editBuffer( bool copy = FALSE );
+    virtual TQSqlRecord*	primeInsert();
+    virtual TQSqlRecord*	primeUpdate();
+    virtual TQSqlRecord*	primeDelete();
+    virtual int		insert( bool tqinvalidate = TRUE );
+    virtual int		update( bool tqinvalidate = TRUE );
+    virtual int		del( bool tqinvalidate = TRUE );
+
+    virtual void	setMode( int flags );
+    int			mode() const;
+    virtual void	setCalculated( const TQString& name, bool calculated );
+    bool		isCalculated( const TQString& name ) const;
+    virtual void	setTrimmed( const TQString& name, bool trim );
+    bool		isTrimmed( const TQString& name ) const;
+
+    bool		isReadOnly() const;
+    bool		canInsert() const;
+    bool		canUpdate() const;
+    bool		canDelete() const;
+
+    bool		select();
+    bool		select( const TQSqlIndex& sort );
+    bool		select( const TQSqlIndex & filter, const TQSqlIndex & sort );
+    virtual bool	select( const TQString & filter, const TQSqlIndex & sort = TQSqlIndex() );
+
+    virtual void	setSort( const TQSqlIndex& sort );
+    TQSqlIndex		sort() const;
+    virtual void	setFilter( const TQString& filter );
+    TQString		filter() const;
+    virtual void	setName( const TQString& name, bool autopopulate = TRUE );
+    TQString		name() const;
+    TQString		toString( const TQString& prefix = TQString::null,
+				const TQString& sep = "," ) const;
+    bool 		isNull( int i ) const;
+    bool 		isNull( const TQString& name ) const;
+    
+protected:
+    void		afterSeek();
+    bool		exec( const TQString & sql );
+
+    virtual TQVariant	calculateField( const TQString& name );
+    virtual int		update( const TQString & filter, bool tqinvalidate = TRUE );
+    virtual int		del( const TQString & filter, bool tqinvalidate = TRUE );
+
+    virtual TQString	toString( const TQString& prefix, TQSqlField* field, const TQString& fieldSep ) const;
+    virtual TQString	toString( TQSqlRecord* rec, const TQString& prefix, const TQString& fieldSep,
+				const TQString& sep ) const;
+    virtual TQString	toString( const TQSqlIndex& i, TQSqlRecord* rec, const TQString& prefix,
+				const TQString& fieldSep, const TQString& sep ) const;
+
+private:
+    void		sync();
+    int			apply( const TQString& q, bool tqinvalidate );
+    int			applyPrepared( const TQString& q, bool tqinvalidate );
+    TQSqlRecord&		operator=( const TQSqlRecord & list );
+    void 		append( const TQSqlField& field );
+    void 		insert( int pos, const TQSqlField& field );
+
+    TQSqlCursorPrivate*	d;
+};
+
+
+
+
+#endif	// TQT_NO_SQL
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqldatabase.cpp b/tqtinterface/qt4/src/sql/tqsqldatabase.cpp
new file mode 100644
index 0000000..45cca58
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqldatabase.cpp
@@ -0,0 +1,1332 @@
+/****************************************************************************
+**
+** Implementation of TQSqlDatabase class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2000-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqldatabase.h"
+
+#ifndef TQT_NO_SQL
+
+#ifdef TQ_OS_WIN32
+// Conflicting declarations of LPCBYTE in sqlfront.h and winscard.h
+#define _WINSCARD_H_
+#endif
+
+#ifdef TQT_STQL_POSTGRES
+#include "drivers/psql/tqsql_psql.h"
+#endif
+#ifdef TQT_STQL_MYSQL
+#include "drivers/mysql/tqsql_mysql.h"
+#endif
+#ifdef TQT_STQL_ODBC
+#include "drivers/odbc/tqsql_odbc.h"
+#endif
+#ifdef TQT_STQL_OCI
+#include "drivers/oci/tqsql_oci.h"
+#endif
+#ifdef TQT_STQL_TDS
+#include "drivers/tds/tqsql_tds.h"
+#endif
+#ifdef TQT_STQL_DB2
+#include "drivers/db2/tqsql_db2.h"
+#endif
+#ifdef TQT_STQL_STQLITE
+#include "drivers/sqlite/tqsql_sqlite.h"
+#endif
+#ifdef TQT_STQL_IBASE
+#include "drivers/ibase/tqsql_ibase.h"
+#endif
+
+#include "tqapplication.h"
+#include "tqsqlresult.h"
+#include "tqsqldriver.h"
+#include "tqsqldriverinterface_p.h"
+#include <private/tqpluginmanager_p.h>
+#include <private/tqsqlextension_p.h>
+#include "tqobject.h"
+#include "tqguardedptr.h"
+#include "tqcleanuphandler.h"
+#include "tqdict.h"
+#include <stdlib.h>
+
+TQT_STATIC_CONST_IMPL char * const TQSqlDatabase::defaultConnection = "qt_sql_default_connection";
+
+TQPtrDict<TQSqlDriverExtension> *qt_driver_extension_dict = 0;
+TQPtrDict<TQSqlOpenExtension> *qt_open_extension_dict = 0;
+
+static TQSingleCleanupHandler< TQPtrDict<TQSqlDriverExtension> > qt_driver_ext_cleanup;
+static TQSingleCleanupHandler< TQPtrDict<TQSqlOpenExtension> > qt_open_ext_cleanup;
+
+TQ_EXPORT TQPtrDict<TQSqlDriverExtension> *qSqlDriverExtDict()
+{
+    if ( !qt_driver_extension_dict ) {
+	qt_driver_extension_dict = new TQPtrDict<TQSqlDriverExtension>;
+	qt_driver_ext_cleanup.set( &qt_driver_extension_dict );
+    }
+    return qt_driver_extension_dict;
+}
+
+TQ_EXPORT TQPtrDict<TQSqlOpenExtension> *qSqlOpenExtDict()
+{
+    if ( !qt_open_extension_dict ) {
+	qt_open_extension_dict = new TQPtrDict<TQSqlOpenExtension>;
+	qt_open_ext_cleanup.set( &qt_open_extension_dict );
+    }
+    return qt_open_extension_dict;
+}
+
+class TQNullResult : public TQSqlResult
+{
+public:
+    TQNullResult(const TQSqlDriver* d): TQSqlResult(d){}
+    ~TQNullResult(){}
+protected:
+    TQVariant    data( int ) { return TQVariant(); }
+    bool        reset ( const TQString& sqlquery ) { TQString s(sqlquery); return FALSE; }
+    bool        fetch( int i ) { i = i; return FALSE; }
+    bool        fetchFirst() { return FALSE; }
+    bool        fetchLast() { return FALSE; }
+    bool        isNull( int ) {return FALSE; }
+    TQSqlRecord 	record() {return TQSqlRecord();}
+    int         size()  {return 0;}
+    int         numRowsAffected() {return 0;}
+};
+
+class TQNullDriver : public TQSqlDriver
+{
+public:
+    TQNullDriver(): TQSqlDriver(){}
+    ~TQNullDriver(){}
+    bool    hasFeature( DriverFeature /* f */ ) const { return FALSE; } ;
+    bool    open( const TQString & ,
+		  const TQString & ,
+		  const TQString & ,
+		  const TQString &,
+		  int ) {
+	return FALSE;
+    }
+    void    close() {}
+    TQSqlQuery createQuery() const { return TQSqlQuery( new TQNullResult(this) ); }
+};
+
+typedef TQDict<TQSqlDriverCreatorBase> TQDriverDict;
+
+class TQSqlDatabaseManager : public TQObject
+{
+public:
+    TQSqlDatabaseManager( TQObject * tqparent = 0, const char * name = 0 );
+    ~TQSqlDatabaseManager();
+    static TQSqlDatabase* database( const TQString& name, bool open );
+    static TQSqlDatabase* addDatabase( TQSqlDatabase* db, const TQString & name );
+    static void          removeDatabase( const TQString& name );
+    static void          removeDatabase( TQSqlDatabase* db );
+    static bool          tqcontains( const TQString& name );
+    static TQDriverDict*  driverDict();
+
+protected:
+    static TQSqlDatabaseManager* instance();
+    TQDict< TQSqlDatabase > dbDict;
+    TQDriverDict* drDict;
+};
+
+/*!
+    Constructs an SQL database manager.
+*/
+
+TQSqlDatabaseManager::TQSqlDatabaseManager( TQObject * tqparent, const char * name )
+    : TQObject( tqparent, name ), dbDict( 1 ), drDict( 0 )
+{
+}
+
+/*!
+    Destroys the object and frees any allocated resources. All open
+    database connections are closed. All database connections are
+    deleted.
+*/
+
+TQSqlDatabaseManager::~TQSqlDatabaseManager()
+{
+    TQDictIterator< TQSqlDatabase > it( dbDict );
+    while ( it.current() ) {
+	it.current()->close();
+	delete it.current();
+	++it;
+    }
+    delete drDict;
+}
+
+/*!
+  \internal
+*/
+TQDriverDict* TQSqlDatabaseManager::driverDict()
+{
+    TQSqlDatabaseManager* sqlConnection = instance();
+    if ( !sqlConnection->drDict ) {
+	sqlConnection->drDict = new TQDriverDict();
+	sqlConnection->drDict->setAutoDelete( TRUE );
+    }
+    return sqlConnection->drDict;
+}
+
+
+/*!
+  \internal
+*/
+TQSqlDatabaseManager* TQSqlDatabaseManager::instance()
+{
+    static TQGuardedPtr<TQSqlDatabaseManager> sqlConnection = 0;
+    if ( !sqlConnection ) {
+	if( tqApp == 0 ){
+	    qFatal( "TQSqlDatabaseManager: A TQApplication object has to be "
+		    "instantiated in order to use the SQL module." );
+	    return 0;
+	}
+	sqlConnection = new TQSqlDatabaseManager( TQT_TQOBJECT(tqApp), "database manager" );
+    }
+    return (TQSqlDatabaseManager*)sqlConnection;
+}
+
+/*!
+    Returns the database connection called \a name. If \a open is
+    TRUE, the database connection is opened. If \a name does not exist
+    in the list of managed databases, 0 is returned.
+*/
+
+TQSqlDatabase* TQSqlDatabaseManager::database( const TQString& name, bool open )
+{
+    if ( !tqcontains( name ) )
+	return 0;
+
+    TQSqlDatabaseManager* sqlConnection = instance();
+    TQSqlDatabase* db = sqlConnection->dbDict.tqfind( name );
+    if ( db && !db->isOpen() && open ) {
+	db->open();
+#ifdef TQT_CHECK_RANGE
+	if ( !db->isOpen() )
+	    qWarning("TQSqlDatabaseManager::database: unable to open database: %s: %s",
+                    db->lastError().databaseText().latin1(), db->lastError().driverText().latin1() );
+#endif
+    }
+    return db;
+}
+
+/*!
+    Returns TRUE if the list of database connections tqcontains \a name;
+    otherwise returns FALSE.
+*/
+
+bool TQSqlDatabaseManager::tqcontains( const TQString& name )
+{
+   TQSqlDatabaseManager* sqlConnection = instance();
+   TQSqlDatabase* db = sqlConnection->dbDict.tqfind( name );
+   if ( db )
+       return TRUE;
+   return FALSE;
+}
+
+
+/*!
+    Adds a database to the SQL connection manager. The database
+    connection is referred to by \a name. The newly added database
+    connection is returned. This function will only return 0 if it is
+    called \e before a TQApplication object has been instantiated. Use
+    the output of drivers() to determine whether a particular driver
+    is available or not.
+
+    The returned TQSqlDatabase object is owned by the framework and
+    must not be deleted. If you want to explicitly remove the connection,
+    use removeDatabase().
+
+    \sa TQSqlDatabase database()
+*/
+
+TQSqlDatabase* TQSqlDatabaseManager::addDatabase( TQSqlDatabase* db, const TQString & name )
+{
+    TQSqlDatabaseManager* sqlConnection = instance();
+    if( sqlConnection == 0 )
+	return 0;
+    if ( tqcontains( name ) )
+	sqlConnection->removeDatabase( name );
+    sqlConnection->dbDict.insert( name, db );
+    return db;
+}
+
+/*!
+    Removes the database connection \a name from the SQL connection
+    manager.
+
+    \warning There should be no open queries on the database
+    connection when this function is called, otherwise a resource leak
+    will occur.
+*/
+
+void TQSqlDatabaseManager::removeDatabase( const TQString& name )
+{
+    TQSqlDatabaseManager* sqlConnection = instance();
+    sqlConnection->dbDict.setAutoDelete( TRUE );
+    sqlConnection->dbDict.remove( name );
+    sqlConnection->dbDict.setAutoDelete( FALSE );
+}
+
+
+/*!
+    Removes the database connection \a db from the SQL connection
+    manager. The TQSqlDatabase object is destroyed when it is removed
+    from the manager.
+
+    \warning The \a db pointer is not valid after this function has
+    been called.
+*/
+
+void TQSqlDatabaseManager::removeDatabase( TQSqlDatabase* db )
+{
+    TQSqlDatabaseManager* sqlConnection = instance();
+    if ( !sqlConnection )
+	return;
+    TQDictIterator< TQSqlDatabase > it( sqlConnection->dbDict );
+    while ( it.current() ) {
+	if ( it.current() == db ) {
+	    sqlConnection->dbDict.remove( it.currentKey() );
+	    db->close();
+	    delete db;
+	    break;
+	}
+	++it;
+    }
+}
+
+class TQSqlDatabasePrivate
+{
+public:
+    TQSqlDatabasePrivate():
+	driver(0),
+#ifndef TQT_NO_COMPONENT
+	plugIns(0),
+#endif
+	port(-1) {}
+    ~TQSqlDatabasePrivate()
+    {
+    }
+    TQSqlDriver* driver;
+#ifndef TQT_NO_COMPONENT
+    TQPluginManager<TQSqlDriverFactoryInterface> *plugIns;
+#endif
+    TQString dbname;
+    TQString uname;
+    TQString pword;
+    TQString hname;
+    TQString drvName;
+    int port;
+    TQString connOptions;
+};
+
+/*!
+    \class TQSqlDatabase tqsqldatabase.h
+    \brief The TQSqlDatabase class is used to create SQL database
+    connections and to provide transaction handling.
+
+    \ingroup database
+    \mainclass
+    \module sql
+
+    Note that transaction handling is not supported by every SQL
+    database. You can tqfind out whether transactions are supported
+    using TQSqlDriver::hasFeature().
+
+    The TQSqlDatabase class provides an abstract interface for
+    accessing many types of database backends. Database-specific
+    drivers are used internally to actually access and manipulate
+    data, (see TQSqlDriver). Result set objects provide the interface
+    for executing and manipulating SQL queries (see TQSqlQuery).
+*/
+
+/*!
+    Adds a database to the list of database connections using the
+    driver \a type and the connection name \a connectionName.
+
+    The database connection is referred to by \a connectionName. The
+    newly added database connection is returned. This pointer is owned
+    by TQSqlDatabase and will be deleted on program exit or when
+    removeDatabase() is called.
+
+    If \a connectionName is not specified, the newly added database
+    connection becomes the default database connection for the
+    application, and subsequent calls to database() (without a
+    database name parameter) will return a pointer to it. If \a
+    connectionName is given, use \link TQSqlDatabase::database()
+    database(connectionName)\endlink to retrieve a pointer to the
+    database connection.
+
+    \warning If you add a database with the same name as an
+    existing database, the new database will tqreplace the old one.
+    This will happen automatically if you call this function more
+    than once without specifying \a connectionName.
+
+    \sa database() removeDatabase()
+*/
+TQSqlDatabase* TQSqlDatabase::addDatabase( const TQString& type, const TQString& connectionName )
+{
+    return TQSqlDatabaseManager::addDatabase( new TQSqlDatabase( type, connectionName ), connectionName );
+}
+
+/*!
+    Returns the database connection called \a connectionName. The
+    database connection must have been previously added with
+    addDatabase(). If \a open is TRUE (the default) and the database
+    connection is not already open it is opened now. If no \a
+    connectionName is specified the default connection is used. If \a
+    connectionName does not exist in the list of databases, 0 is
+    returned. The pointer returned is owned by TQSqlDatabase and should
+    \e not be deleted.
+
+    \warning There are restrictions on the use of database connections
+    in threaded applications. Please see the \link threads.html#threads-sql
+    Thread Support in TQt\endlink document for more information about
+    threading and SQL databases.
+*/
+
+TQSqlDatabase* TQSqlDatabase::database( const TQString& connectionName, bool open )
+{
+    return TQSqlDatabaseManager::database( connectionName, open );
+}
+
+/*!
+    Removes the database connection \a connectionName from the list of
+    database connections.
+
+    \warning There should be no open queries on the database
+    connection when this function is called, otherwise a resource leak
+    will occur.
+*/
+
+void TQSqlDatabase::removeDatabase( const TQString& connectionName )
+{
+    TQSqlDatabaseManager::removeDatabase( connectionName );
+}
+
+/*!
+    \overload
+
+    Removes the database connection \a db from the list of database
+    connections. The TQSqlDatabase object is destroyed when it is removed
+    from the list.
+
+    \warning The \a db pointer is not valid after this function has
+    been called. There should be no open queries on the database
+    connection when this function is called, otherwise a resource leak
+    will occur.
+*/
+
+void TQSqlDatabase::removeDatabase( TQSqlDatabase* db )
+{
+    TQSqlDatabaseManager::removeDatabase( db );
+}
+
+/*!
+    Returns a list of all the available database drivers.
+
+    Note that if you want to iterate over the list, you should iterate
+    over a copy, e.g.
+    \code
+    TQStringList list = TQSqlDatabase::drivers();
+    TQStringList::Iterator it = list.begin();
+    while( it != list.end() ) {
+	myProcessing( *it );
+	++it;
+    }
+    \endcode
+*/
+
+TQStringList TQSqlDatabase::drivers()
+{
+    TQStringList l;
+
+#ifndef TQT_NO_COMPONENT
+    TQPluginManager<TQSqlDriverFactoryInterface> *plugIns;
+    plugIns = new TQPluginManager<TQSqlDriverFactoryInterface>( IID_TQSqlDriverFactory, TQApplication::libraryPaths(), TQString("/sqldrivers") );
+
+    l = plugIns->featureList();
+    delete plugIns;
+#endif
+
+    TQDictIterator<TQSqlDriverCreatorBase> itd( *TQSqlDatabaseManager::driverDict() );
+    while ( itd.current() ) {
+	if ( !l.tqcontains( itd.currentKey() ) )
+	    l << itd.currentKey();
+	++itd;
+    }
+
+#ifdef TQT_STQL_POSTGRES
+    if ( !l.tqcontains( "TQPSQL7" ) )
+	l << "TQPSQL7";
+#endif
+#ifdef TQT_STQL_MYSQL
+    if ( !l.tqcontains( "TQMYSQL3" ) )
+	l << "TQMYSQL3";
+#endif
+#ifdef TQT_STQL_ODBC
+    if ( !l.tqcontains( "TQODBC3" ) )
+	l << "TQODBC3";
+#endif
+#ifdef TQT_STQL_OCI
+    if ( !l.tqcontains( "TQOCI8" ) )
+	l << "TQOCI8";
+#endif
+#ifdef TQT_STQL_TDS
+    if ( !l.tqcontains( "TQTDS7" ) )
+	l << "TQTDS7";
+#endif
+#ifdef TQT_STQL_DB2
+    if ( !l.tqcontains( "TQDB2" ) )
+	l << "TQDB2";
+#endif
+#ifdef TQT_STQL_STQLITE
+    if ( !l.tqcontains( "TQSQLITE" ) )
+	l << "TQSQLITE";
+#endif
+#ifdef TQT_STQL_IBASE
+    if ( !l.tqcontains( "TQIBASE" ) )
+	l << "TQIBASE";
+#endif
+
+    return l;
+}
+
+/*!
+    This function registers a new SQL driver called \a name, within
+    the SQL framework. This is useful if you have a custom SQL driver
+    and don't want to compile it as a plugin.
+
+    Example usage:
+
+    \code
+    TQSqlDatabase::registerSqlDriver( "MYDRIVER", new TQSqlDriverCreator<MyDatabaseDriver> );
+    TQSqlDatabase* db = TQSqlDatabase::addDatabase( "MYDRIVER" );
+    ...
+    \endcode
+
+    \warning The framework takes ownership of the \a creator pointer,
+    so it should not be deleted.
+*/
+void TQSqlDatabase::registerSqlDriver( const TQString& name, const TQSqlDriverCreatorBase* creator )
+{
+    TQSqlDatabaseManager::driverDict()->remove( name );
+    if ( creator )
+	TQSqlDatabaseManager::driverDict()->insert( name, creator );
+}
+
+/*!
+    Returns TRUE if the list of database connections tqcontains \a
+    connectionName; otherwise returns FALSE.
+*/
+
+bool TQSqlDatabase::tqcontains( const TQString& connectionName )
+{
+    return TQSqlDatabaseManager::tqcontains( connectionName );
+}
+
+
+/*!
+    Creates a TQSqlDatabase connection called \a name that uses the
+    driver referred to by \a type, with the tqparent \a tqparent and the
+    object name \a objname. If the \a type is not recognized, the
+    database connection will have no functionality.
+
+    The currently available drivers are:
+
+    \table
+    \header \i Driver Type \i Description
+    \row \i TQODBC3 \i ODBC Driver (includes Microsoft SQL Server)
+    \row \i TQOCI8 \i Oracle Call Interface Driver
+    \row \i TQPSQL7 \i PostgreSQL v6.x and v7.x Driver
+    \row \i TQTDS7 \i Sybase Adaptive Server
+    \row \i TQMYSQL3 \i MySQL Driver
+    \row \i TQDB2 \i IBM DB2, v7.1 and higher
+    \row \i TQSQLITE \i STQLite Driver
+    \row \i TQIBASE \i Borland Interbase Driver
+    \endtable
+
+    Additional third party drivers, including your own custom drivers,
+    can be loaded dynamically.
+
+    \sa registerSqlDriver()
+*/
+
+TQSqlDatabase::TQSqlDatabase( const TQString& type, const TQString& name, TQObject * tqparent, const char * objname )
+    : TQObject( tqparent, objname )
+{
+    init( type, name );
+}
+
+
+/*!
+    \overload
+
+     Creates a database connection using the driver \a driver, with
+     the tqparent \a tqparent and the object name \a objname.
+
+     \warning The framework takes ownership of the \a driver pointer,
+     so it should not be deleted.
+*/
+
+TQSqlDatabase::TQSqlDatabase( TQSqlDriver* driver, TQObject * tqparent, const char * objname )
+    : TQObject( tqparent, objname )
+{
+    d = new TQSqlDatabasePrivate();
+    d->driver = driver;
+}
+
+/*!
+  \internal
+
+  Create the actual driver instance \a type.
+*/
+
+void TQSqlDatabase::init( const TQString& type, const TQString& )
+{
+    d = new TQSqlDatabasePrivate();
+    d->drvName = type;
+
+    if ( !d->driver ) {
+
+#ifdef TQT_STQL_POSTGRES
+	if ( type == "TQPSQL7" )
+	    d->driver = new TQPSTQLDriver();
+#endif
+
+#ifdef TQT_STQL_MYSQL
+	if ( type == "TQMYSQL3" )
+	    d->driver = new TQMYSTQLDriver();
+#endif
+
+#ifdef TQT_STQL_ODBC
+	if ( type == "TQODBC3" )
+	    d->driver = new TQODBCDriver();
+#endif
+
+#ifdef TQT_STQL_OCI
+	if ( type == "TQOCI8" )
+	    d->driver = new TQOCIDriver();
+#endif
+
+#ifdef TQT_STQL_TDS
+	if ( type == "TQTDS7" )
+	    d->driver = new TQTDSDriver();
+#endif
+
+#ifdef TQT_STQL_DB2
+	if ( type == "TQDB2" )
+	    d->driver = new TQDB2Driver();
+#endif
+
+#ifdef TQT_STQL_STQLITE
+	if ( type == "TQSQLITE" )
+	    d->driver = new TQSTQLiteDriver();
+#endif
+
+#ifdef TQT_STQL_IBASE
+	if ( type == "TQIBASE" )
+	    d->driver = new TQIBaseDriver();
+#endif
+
+    }
+
+    if ( !d->driver ) {
+	TQDictIterator<TQSqlDriverCreatorBase> it( *TQSqlDatabaseManager::driverDict() );
+	while ( it.current() && !d->driver ) {
+	    if ( type == it.currentKey() ) {
+		d->driver = it.current()->createObject();
+	    }
+	    ++it;
+	}
+    }
+
+#ifndef TQT_NO_COMPONENT
+    if ( !d->driver ) {
+	d->plugIns =
+	    new TQPluginManager<TQSqlDriverFactoryInterface>( IID_TQSqlDriverFactory, TQApplication::libraryPaths(), "/sqldrivers" );
+
+	TQInterfacePtr<TQSqlDriverFactoryInterface> iface = 0;
+	d->plugIns->queryInterface( type, &iface );
+	if( iface )
+	    d->driver = iface->create( type );
+    }
+#endif
+
+    if ( !d->driver ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQSqlDatabase: %s driver not loaded", type.latin1() );
+	qWarning( "TQSqlDatabase: available drivers: %s", drivers().join(" ").latin1() );
+#endif
+	d->driver = new TQNullDriver();
+	d->driver->setLastError( TQSqlError( "Driver not loaded", "Driver not loaded" ) );
+    }
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQSqlDatabase::~TQSqlDatabase()
+{
+    delete d->driver;
+#ifndef TQT_NO_COMPONENT
+    delete d->plugIns;
+#endif
+    delete d;
+}
+
+/*!
+    Executes a SQL statement (e.g. an \c INSERT, \c UPDATE or \c
+    DELETE statement) on the database, and returns a TQSqlQuery object.
+    Use lastError() to retrieve error information. If \a query is
+    TQString::null, an empty, invalid query is returned and lastError()
+    is not affected.
+
+    \sa TQSqlQuery lastError()
+*/
+
+TQSqlQuery TQSqlDatabase::exec( const TQString & query ) const
+{
+    TQSqlQuery r = d->driver->createQuery();
+    if ( !query.isNull() ) {
+	r.exec( query );
+	d->driver->setLastError( r.lastError() );
+    }
+    return r;
+}
+
+/*!
+    Opens the database connection using the current connection values.
+    Returns TRUE on success; otherwise returns FALSE. Error
+    information can be retrieved using the lastError() function.
+
+    \sa lastError()
+*/
+
+bool TQSqlDatabase::open()
+{
+    return d->driver->open( d->dbname, d->uname, d->pword, d->hname,
+			    d->port, d->connOptions );
+}
+
+/*!
+    \overload
+
+    Opens the database connection using the given \a user name and \a
+    password. Returns TRUE on success; otherwise returns FALSE. Error
+    information can be retrieved using the lastError() function.
+
+    This function does not store the password it is given. Instead,
+    the password is passed directly to the driver for opening a
+    connection and is then discarded.
+
+    \sa lastError()
+*/
+
+bool TQSqlDatabase::open( const TQString& user, const TQString& password )
+{
+    setUserName( user );
+    return d->driver->open( d->dbname, user, password, d->hname,
+			    d->port, d->connOptions );
+}
+
+/*!
+    Closes the database connection, freeing any resources acquired.
+
+    \sa removeDatabase()
+*/
+
+void TQSqlDatabase::close()
+{
+    d->driver->close();
+}
+
+/*!
+    Returns TRUE if the database connection is currently open;
+    otherwise returns FALSE.
+*/
+
+bool TQSqlDatabase::isOpen() const
+{
+    return d->driver->isOpen();
+}
+
+/*!
+    Returns TRUE if there was an error opening the database
+    connection; otherwise returns FALSE. Error information can be
+    retrieved using the lastError() function.
+*/
+
+bool TQSqlDatabase::isOpenError() const
+{
+    return d->driver->isOpenError();
+}
+
+/*!
+    Begins a transaction on the database if the driver supports
+    transactions. Returns TRUE if the operation succeeded; otherwise
+    returns FALSE.
+
+    \sa TQSqlDriver::hasFeature() commit() rollback()
+*/
+
+bool TQSqlDatabase::transaction()
+{
+    if ( !d->driver->hasFeature( TQSqlDriver::Transactions ) )
+	return FALSE;
+    return d->driver->beginTransaction();
+}
+
+/*!
+    Commits a transaction to the database if the driver supports
+    transactions. Returns TRUE if the operation succeeded; otherwise
+    returns FALSE.
+
+    \sa TQSqlDriver::hasFeature() rollback()
+*/
+
+bool TQSqlDatabase::commit()
+{
+    if ( !d->driver->hasFeature( TQSqlDriver::Transactions ) )
+	return FALSE;
+    return d->driver->commitTransaction();
+}
+
+/*!
+    Rolls a transaction back on the database if the driver supports
+    transactions. Returns TRUE if the operation succeeded; otherwise
+    returns FALSE.
+
+    \sa TQSqlDriver::hasFeature() commit() transaction()
+*/
+
+bool TQSqlDatabase::rollback()
+{
+    if ( !d->driver->hasFeature( TQSqlDriver::Transactions ) )
+	return FALSE;
+    return d->driver->rollbackTransaction();
+}
+
+/*!
+    \property TQSqlDatabase::databaseName
+    \brief the name of the database
+
+    Note that the database name is the TNS Service Name for the TQOCI8
+    (Oracle) driver.
+
+    For the TQODBC3 driver it can either be a DSN, a DSN filename (the
+    file must have a \c .dsn extension), or a connection string. MS
+    Access users can for example use the following connection string
+    to open a \c .mdb file directly, instead of having to create a DSN
+    entry in the ODBC manager:
+
+    \code
+    ...
+    db = TQSqlDatabase::addDatabase( "TQODBC3" );
+    db->setDatabaseName( "DRIVER={Microsoft Access Driver (*.mdb)};FIL={MS Access};DBQ=myaccessfile.mdb" );
+    if ( db->open() ) {
+        // success!
+    }
+    ...
+    \endcode
+    ("FIL" is the required spelling in Microsoft's API.)
+
+    There is no default value.
+*/
+
+void TQSqlDatabase::setDatabaseName( const TQString& name )
+{
+    d->dbname = name;
+}
+
+/*!
+    \property TQSqlDatabase::userName
+    \brief the user name connected to the database
+
+    There is no default value.
+*/
+
+void TQSqlDatabase::setUserName( const TQString& name )
+{
+    d->uname = name;
+}
+
+/*!
+    \property TQSqlDatabase::password
+    \brief the password used to connect to the database
+
+    There is no default value.
+
+    \warning This function stores the password in plain text within
+    TQt. Use the open() call that takes a password as parameter to
+    avoid this behaviour.
+
+    \sa open()
+*/
+
+void TQSqlDatabase::setPassword( const TQString& password )
+{
+    d->pword = password;
+}
+
+/*!
+    \property TQSqlDatabase::hostName
+    \brief the host name where the database resides
+
+    There is no default value.
+*/
+
+void TQSqlDatabase::setHostName( const TQString& host )
+{
+    d->hname = host;
+}
+
+/*!
+    \property TQSqlDatabase::port
+    \brief the port used to connect to the database
+
+    There is no default value.
+*/
+
+void TQSqlDatabase::setPort( int p )
+{
+    d->port = p;
+}
+
+TQString TQSqlDatabase::databaseName() const
+{
+    return d->dbname;
+}
+
+TQString TQSqlDatabase::userName() const
+{
+    return d->uname;
+}
+
+TQString TQSqlDatabase::password() const
+{
+    return d->pword;
+}
+
+TQString TQSqlDatabase::hostName() const
+{
+    return d->hname;
+}
+
+/*!
+    Returns the name of the driver used by the database connection.
+*/
+TQString TQSqlDatabase::driverName() const
+{
+    return d->drvName;
+}
+
+int TQSqlDatabase::port() const
+{
+    return d->port;
+}
+
+/*!
+    Returns the database driver used to access the database
+    connection.
+*/
+
+TQSqlDriver* TQSqlDatabase::driver() const
+{
+    return d->driver;
+}
+
+/*!
+    Returns information about the last error that occurred on the
+    database. See TQSqlError for more information.
+*/
+
+TQSqlError TQSqlDatabase::lastError() const
+{
+    return d->driver->lastError();
+}
+
+
+/*!
+    \overload
+
+    Returns a list of the database's tables that are visible to the
+    user. To include views or system tables, use the version of this
+    function that takes a table \c type parameter.
+
+    Note that if you want to iterate over the list, you should iterate
+    over a copy, e.g.
+    \code
+    TQStringList list = myDatabase.tables();
+    TQStringList::Iterator it = list.begin();
+    while( it != list.end() ) {
+	myProcessing( *it );
+	++it;
+    }
+    \endcode
+*/
+
+TQStringList TQSqlDatabase::tables() const
+{
+    return tables( TQSql::Tables );
+}
+
+/*!
+    Returns a list of the database's tables, system tables and views,
+    as specified by the parameter \a type.
+
+    Note that if you want to iterate over the list, you should iterate
+    over a copy, e.g.
+    \code
+    TQStringList list = myDatabase.tables( TQSql::Tables | TQSql::Views );
+    TQStringList::Iterator it = list.begin();
+    while( it != list.end() ) {
+        myProcessing( *it );
+        ++it;
+    }
+    \endcode
+*/
+
+TQStringList TQSqlDatabase::tables( TQSql::TableType type ) const
+{
+    return d->driver->tables( TQString::number( (int)type ) );
+}
+
+/*!
+    Returns the primary index for table \a tablename. If no primary
+    index exists an empty TQSqlIndex will be returned.
+*/
+
+TQSqlIndex TQSqlDatabase::primaryIndex( const TQString& tablename ) const
+{
+    return d->driver->primaryIndex( tablename );
+}
+
+
+/*!
+    Returns a TQSqlRecord populated with the names of all the fields in
+    the table (or view) called \a tablename. The order in which the
+    fields appear in the record is undefined. If no such table (or
+    view) exists, an empty record is returned.
+
+    \sa recordInfo()
+*/
+
+TQSqlRecord TQSqlDatabase::record( const TQString& tablename ) const
+{
+    return d->driver->record( tablename );
+}
+
+
+/*!
+    \overload
+
+    Returns a TQSqlRecord populated with the names of all the fields
+    used in the SQL \a query. If the query is a "SELECT *" the order
+    in which fields appear in the record is undefined.
+
+    \sa recordInfo()
+*/
+
+TQSqlRecord TQSqlDatabase::record( const TQSqlQuery& query ) const
+{
+    return d->driver->record( query );
+}
+
+/*!
+    Returns a TQSqlRecordInfo populated with meta data about the table
+    or view \a tablename. If no such table (or view) exists, an empty
+    record is returned.
+
+    \sa TQSqlRecordInfo, TQSqlFieldInfo, record()
+*/
+TQSqlRecordInfo TQSqlDatabase::recordInfo( const TQString& tablename ) const
+{
+    return d->driver->recordInfo( tablename );
+}
+
+/*!
+    \overload
+
+    Returns a TQSqlRecordInfo object with meta data for the TQSqlQuery
+    \a query. Note that this overloaded function may return less
+    information than the recordInfo() function which takes the name of
+    a table as parameter.
+
+    \sa TQSqlRecordInfo, TQSqlFieldInfo, record()
+*/
+TQSqlRecordInfo TQSqlDatabase::recordInfo( const TQSqlQuery& query ) const
+{
+    return d->driver->recordInfo( query );
+}
+
+/*!
+    \property TQSqlDatabase::connectOptions
+    \brief the database connect options
+
+    The format of the options string is a semi-colon separated list of
+    option names or option = value pairs. The options depend on the
+    database client used:
+
+    \table
+    \header \i ODBC \i MySQL \i PostgreSQL
+    \row
+
+    \i
+    \list
+    \i STQL_ATTR_ACCESS_MODE
+    \i STQL_ATTR_LOGIN_TIMEOUT
+    \i STQL_ATTR_CONNECTION_TIMEOUT
+    \i STQL_ATTR_CURRENT_CATALOG
+    \i STQL_ATTR_METADATA_ID
+    \i STQL_ATTR_PACKET_SIZE
+    \i STQL_ATTR_TRACEFILE
+    \i STQL_ATTR_TRACE
+    \endlist
+
+    \i
+    \list
+    \i CLIENT_COMPRESS
+    \i CLIENT_FOUND_ROWS
+    \i CLIENT_IGNORE_SPACE
+    \i CLIENT_SSL
+    \i CLIENT_ODBC
+    \i CLIENT_NO_SCHEMA
+    \i CLIENT_INTERACTIVE
+    \endlist
+
+    \i
+    \list
+    \i connect_timeout
+    \i options
+    \i tty
+    \i requiressl
+    \i service
+    \endlist
+
+    \header \i DB2 \i OCI \i TDS
+    \row
+
+    \i
+    \list
+    \i STQL_ATTR_ACCESS_MODE
+    \i STQL_ATTR_LOGIN_TIMEOUT
+    \endlist
+
+    \i
+    \e none
+
+    \i
+    \e none
+
+    \endtable
+
+    Example of usage:
+    \code
+    ...
+    // MySQL connection
+    db->setConnectOptions( "CLIENT_SSL;CLIENT_IGNORE_SPACE" ); // use an SSL connection to the server
+    if ( !db->open() ) {
+        db->setConnectOptions(); // clears the connect option string
+	...
+    }
+    ...
+    // PostgreSQL connection
+    db->setConnectOptions( "requiressl=1" ); // enable PostgreSQL SSL connections
+    if ( !db->open() ) {
+        db->setConnectOptions(); // clear options
+	...
+    }
+    ...
+    // ODBC connection
+    db->setConnectOptions( "STQL_ATTR_ACCESS_MODE=STQL_MODE_READ_ONLY;STQL_ATTR_TRACE=STQL_OPT_TRACE_ON" ); // set ODBC options
+    if ( !db->open() ) {
+        db->setConnectOptions(); // don't try to set this option
+	...
+    }
+    \endcode
+
+    Please refer to the client library documentation for more
+    information about the different options. The options will be set
+    prior to opening the database connection. Setting new options
+    without re-opening the connection does nothing.
+
+    \sa connectOptions()
+*/
+
+void TQSqlDatabase::setConnectOptions( const TQString& options )
+{
+    d->connOptions = options;
+}
+
+TQString TQSqlDatabase::connectOptions() const
+{
+    return d->connOptions;
+}
+
+/*!
+    Returns TRUE if a driver called \a name is available; otherwise
+    returns FALSE.
+
+    \sa drivers()
+*/
+
+bool TQSqlDatabase::isDriverAvailable( const TQString& name )
+{
+    TQStringList l = drivers();
+    TQStringList::ConstIterator it = l.begin();
+    for ( ;it != l.end(); ++it ) {
+	if ( *it == name )
+	    return TRUE;
+    }
+    return FALSE;
+}
+
+/*! \overload
+
+    This function is useful if you need to set up the database
+    connection and instantiate the driver yourself. If you do this, it
+    is recommended that you include the driver code in your own
+    application. For example, setting up a custom PostgreSQL
+    connection and instantiating the TQPSQL7 driver can be done the
+    following way:
+
+    \code
+    #include "tqtdir/src/sql/drivers/psql/qsql_psql.cpp"
+    \endcode
+    (We assume that \c qtdir is the directory where TQt is installed.)
+    This will pull in the code that is needed to use the PostgreSQL
+    client library and to instantiate a TQPSTQLDriver object, assuming
+    that you have the PostgreSQL headers somewhere in your include
+    search path.
+
+    \code
+    PGconn* con = PQconnectdb( "host=server user=bart password=simpson dbname=springfield" );
+    TQPSTQLDriver* drv =  new TQPSTQLDriver( con );
+    TQSqlDatabase* db = TQSqlDatabase::addDatabase( drv ); // becomes the new default connection
+    TQSqlQuery q;
+    q.exec( "SELECT * FROM people" );
+    ...
+    \endcode
+
+    The above code sets up a PostgreSQL connection and instantiates a
+    TQPSTQLDriver object. Next, addDatabase() is called to add the
+    connection to the known connections so that it can be used by the
+    TQt SQL classes. When a driver is instantiated with a connection
+    handle (or set of handles), TQt assumes that you have already
+    opened the database connection.
+
+    Remember that you must link your application against the database
+    client library as well. The simplest way to do this is to add
+    lines like those below to your \c .pro file:
+
+    \code
+    unix:LIBS += -lpq
+    win32:LIBS += libpqdll.lib
+    \endcode
+
+    You will need to have the client library in your linker's search
+    path.
+
+    The method described above will work for all the drivers, the only
+    difference is the arguments the driver constructors take. Below is
+    an overview of the drivers and their constructor arguments.
+
+    \table
+    \header \i Driver \i Class name \i Constructor arguments \i File to include
+    \row
+    \i TQPSQL7
+    \i TQPSTQLDriver
+    \i PGconn* connection
+    \i \c qsql_psql.cpp
+    \row
+    \i TQMYSQL3
+    \i TQMYSTQLDriver
+    \i MYSQL* connection
+    \i \c qsql_mysql.cpp
+    \row
+    \i TQOCI8
+    \i TQOCIDriver
+    \i OCIEnv* environment, OCIError* error, OCISvcCtx* serviceContext
+    \i \c qsql_oci.cpp
+    \row
+    \i TQODBC3
+    \i TQODBCDriver
+    \i STQLHANDLE environment, STQLHANDLE connection
+    \i \c qsql_odbc.cpp
+    \row
+    \i TQDB2
+    \i TQDB2
+    \i STQLHANDLE environment, STQLHANDLE connection
+    \i \c qsql_db2.cpp
+    \row
+    \i TQTDS7
+    \i TQTDSDriver
+    \i LOGINREC* loginRecord, DBPROCESS* dbProcess, const TQString& hostName
+    \i \c qsql_tds.cpp
+    \row
+    \i TQSQLITE
+    \i TQSTQLiteDriver
+    \i sqlite* connection
+    \i \c qsql_sqlite.cpp
+    \row
+    \i TQIBASE
+    \i TQIBaseDriver
+    \i isc_db_handle connection
+    \i \c qsql_ibase.cpp
+    \endtable
+
+    Note: The host name (or service name) is needed when constructing
+    the TQTDSDriver for creating new connections for internal
+    queries. This is to prevent the simultaneous usage of several
+    TQSqlQuery/\l{TQSqlCursor} objects from blocking each other.
+
+    \warning The SQL framework takes ownership of the \a driver pointer,
+    and it should not be deleted. The returned TQSqlDatabase object is
+    owned by the framework and must not be deleted. If you want to
+    explicitly remove the connection, use removeDatabase()
+
+    \sa drivers()
+*/
+
+TQSqlDatabase* TQSqlDatabase::addDatabase( TQSqlDriver* driver, const TQString& connectionName )
+{
+    return TQSqlDatabaseManager::addDatabase( new TQSqlDatabase( driver ), connectionName );
+}
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/tqsqldatabase.h b/tqtinterface/qt4/src/sql/tqsqldatabase.h
new file mode 100644
index 0000000..730fb44
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqldatabase.h
@@ -0,0 +1,156 @@
+/****************************************************************************
+**
+** Definition of TQSqlDatabase class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLDATABASE_H
+#define TQSQLDATABASE_H
+
+#ifndef TQT_H
+#include "tqobject.h"
+#include "tqstring.h"
+#include "tqsqlquery.h"
+#include "tqstringlist.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQSqlError;
+class TQSqlDriver;
+class TQSqlIndex;
+class TQSqlRecord;
+class TQSqlRecordInfo;
+class TQSqlDatabasePrivate;
+
+class TQM_EXPORT_SQL TQSqlDriverCreatorBase
+{
+public:
+    virtual TQSqlDriver* createObject() = 0;
+};
+
+template <class type>
+class TQM_EXPORT_SQL TQSqlDriverCreator: public TQSqlDriverCreatorBase
+{
+public:
+    TQSqlDriver* createObject() { return new type; }
+};
+
+class TQM_EXPORT_SQL TQSqlDatabase : public TQObject
+{
+    Q_OBJECT
+    TQ_OBJECT
+    Q_PROPERTY( TQString databaseName  READ databaseName WRITE setDatabaseName )
+    Q_PROPERTY( TQString userName  READ userName WRITE setUserName )
+    Q_PROPERTY( TQString password  READ password WRITE setPassword )
+    Q_PROPERTY( TQString hostName  READ hostName WRITE setHostName )
+    Q_PROPERTY( int port READ port WRITE setPort )
+    Q_PROPERTY( TQString connectOptions READ connectOptions WRITE setConnectOptions )
+
+public:
+    ~TQSqlDatabase();
+
+    bool		open();
+    bool		open( const TQString& user, const TQString& password );
+    void		close();
+    bool		isOpen() const;
+    bool		isOpenError() const;
+    TQStringList		tables() const;
+    TQStringList		tables( TQSql::TableType type ) const;
+    TQSqlIndex		primaryIndex( const TQString& tablename ) const;
+    TQSqlRecord		record( const TQString& tablename ) const;
+    TQSqlRecord		record( const TQSqlQuery& query ) const;
+    TQSqlRecordInfo	recordInfo( const TQString& tablename ) const;
+    TQSqlRecordInfo	recordInfo( const TQSqlQuery& query ) const;
+    TQSqlQuery		exec( const TQString& query = TQString::null ) const;
+    TQSqlError		lastError() const;
+
+    bool		transaction();
+    bool		commit();
+    bool		rollback();
+
+    virtual void	setDatabaseName( const TQString& name );
+    virtual void	setUserName( const TQString& name );
+    virtual void	setPassword( const TQString& password );
+    virtual void	setHostName( const TQString& host );
+    virtual void	setPort( int p );
+    void 		setConnectOptions( const TQString& options = TQString::null );
+    TQString		databaseName() const;
+    TQString		userName() const;
+    TQString		password() const;
+    TQString		hostName() const;
+    TQString		driverName() const;
+    int         	port() const;
+    TQString 		connectOptions() const;
+
+    TQSqlDriver*		driver() const;
+
+    // TQMOC_SKIP_BEGIN
+    TQT_STATIC_CONST char * const defaultConnection;
+    // TQMOC_SKIP_END
+
+    static TQSqlDatabase* addDatabase( const TQString& type, const TQString& connectionName = defaultConnection );
+    static TQSqlDatabase* addDatabase( TQSqlDriver* driver, const TQString& connectionName = defaultConnection );
+    static TQSqlDatabase* database( const TQString& connectionName = defaultConnection, bool open = TRUE );
+    static void          removeDatabase( const TQString& connectionName );
+    static void          removeDatabase( TQSqlDatabase* db );
+    static bool          tqcontains( const TQString& connectionName = defaultConnection );
+    static TQStringList   drivers();
+    static void          registerSqlDriver( const TQString& name, const TQSqlDriverCreatorBase* creator ); // ### 4.0: creator should not be const
+    static bool 	 isDriverAvailable( const TQString& name );
+
+protected:
+    TQSqlDatabase( const TQString& type, const TQString& name, TQObject * tqparent=0, const char * objname=0 );
+    TQSqlDatabase( TQSqlDriver* driver, TQObject * tqparent=0, const char * objname=0 );
+private:
+    void 	init( const TQString& type, const TQString& name );
+    TQSqlDatabasePrivate* d;
+#if defined(TQ_DISABLE_COPY) // Disabled copy constructor and operator=
+    TQSqlDatabase( const TQSqlDatabase & );
+    TQSqlDatabase &operator=( const TQSqlDatabase & );
+#endif
+
+};
+
+#endif // TQT_NO_SQL
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqldriver.cpp b/tqtinterface/qt4/src/sql/tqsqldriver.cpp
new file mode 100644
index 0000000..3f8cdca
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqldriver.cpp
@@ -0,0 +1,509 @@
+/****************************************************************************
+**
+** Implementation of TQSqlDriver class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqldriver.h"
+
+#ifndef TQT_NO_SQL
+
+#include "tqdatetime.h"
+#include "tqsqlextension_p.h"
+
+// database states
+#define DBState_Open		0x0001
+#define DBState_OpenError	0x0002
+
+// ### This needs to go in 4.0!
+TQPtrDict<TQSqlDriverExtension> *qSqlDriverExtDict();
+TQPtrDict<TQSqlOpenExtension> *qSqlOpenExtDict();
+
+/*!
+    \class TQSqlDriver tqsqldriver.h
+    \brief The TQSqlDriver class is an abstract base class for accessing
+    SQL databases.
+
+    \ingroup database
+    \module sql
+
+    This class should not be used directly. Use TQSqlDatabase instead.
+*/
+
+/*!
+    Default constructor. Creates a new driver with tqparent \a tqparent,
+    called \a name.
+
+*/
+
+TQSqlDriver::TQSqlDriver( TQObject * tqparent, const char * name )
+: TQObject(tqparent, name),
+  dbState(0),
+  error()
+{
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQSqlDriver::~TQSqlDriver()
+{
+}
+
+/*!
+    \fn bool TQSqlDriver::open( const TQString& db, const TQString& user,
+    const TQString& password, const TQString& host, int port )
+
+    Derived classes must reimplement this abstract virtual function in
+    order to open a database connection on database \a db, using user
+    name \a user, password \a password, host \a host and port \a port.
+
+    The function \e must return TRUE on success and FALSE on failure.
+
+    \sa setOpen()
+
+*/
+
+/*!
+    \fn bool TQSqlDriver::close()
+
+    Derived classes must reimplement this abstract virtual function in
+    order to close the database connection. Return TRUE on success,
+    FALSE on failure.
+
+    \sa setOpen()
+
+*/
+
+/*!
+    \fn TQSqlQuery TQSqlDriver::createQuery() const
+
+    Creates an empty SQL result on the database. Derived classes must
+    reimplement this function and return a TQSqlQuery object
+    appropriate for their database to the caller.
+
+*/
+
+//void TQSqlDriver::destroyResult( TQSqlResult* r ) const
+//{
+//    if ( r )
+//	delete r;
+//}
+
+/*!
+    Returns TRUE if the database connection is open; otherwise returns
+    FALSE.
+*/
+
+bool TQSqlDriver::isOpen() const
+{
+    if ( !qSqlDriverExtDict()->isEmpty() ) {
+	TQSqlDriverExtension *ext = qSqlDriverExtDict()->tqfind( (TQSqlDriver *) this );
+	if ( ext )
+	    return ext->isOpen();
+    }
+
+    return ((dbState & DBState_Open) == DBState_Open);
+}
+
+/*!
+    Returns TRUE if the there was an error opening the database
+    connection; otherwise returns FALSE.
+*/
+
+bool TQSqlDriver::isOpenError() const
+{
+    return ((dbState & DBState_OpenError) == DBState_OpenError);
+}
+
+/*!
+    \enum TQSqlDriver::DriverFeature
+
+    This enum tqcontains a list of features a driver may support. Use
+    hasFeature() to query whether a feature is supported or not.
+
+    \value Transactions  whether the driver supports SQL transactions
+    \value QuerySize  whether the database is capable of reporting the size
+    of a query. Note that some databases do not support returning the size
+    (i.e. number of rows returned) of a query, in which case
+    TQSqlQuery::size() will return -1
+    \value BLOB  whether the driver supports Binary Large Object fields
+    \value Unicode  whether the driver supports Unicode strings if the
+    database server does
+    \value PreparedQueries  whether the driver supports prepared query execution
+    \value NamedPlaceholders  whether the driver supports usage of named placeholders
+    \value PositionalPlaceholders  whether the driver supports usage of positional placeholders
+
+    More information about supported features can be found in the
+    \link sql-driver.html TQt SQL driver\endlink documentation.
+
+    \sa hasFeature()
+*/
+
+/*!
+    \fn bool TQSqlDriver::hasFeature( DriverFeature f ) const
+
+    Returns TRUE if the driver supports feature \a f; otherwise
+    returns FALSE.
+
+    Note that some databases need to be open() before this can be
+    determined.
+
+    \sa DriverFeature
+*/
+
+/*!
+    Protected function which sets the open state of the database to \a
+    o. Derived classes can use this function to report the status of
+    open().
+
+    \sa open(), setOpenError()
+*/
+
+void TQSqlDriver::setOpen( bool o )
+{
+    if ( o )
+	dbState |= DBState_Open;
+    else
+	dbState &= ~DBState_Open;
+}
+
+/*!
+    Protected function which sets the open error state of the database
+    to \a e. Derived classes can use this function to report the
+    status of open(). Note that if \a e is TRUE the open state of the
+    database is set to closed (i.e. isOpen() returns FALSE).
+
+    \sa open(), setOpenError()
+*/
+
+void TQSqlDriver::setOpenError( bool e )
+{
+    if ( e ) {
+	dbState |= DBState_OpenError;
+	dbState &= ~DBState_Open;
+    }
+    else
+	dbState &= ~DBState_OpenError;
+}
+
+/*!
+    Protected function which derived classes can reimplement to begin
+    a transaction. If successful, return TRUE, otherwise return FALSE.
+    The default implementation returns FALSE.
+
+    \sa commitTransaction(), rollbackTransaction()
+*/
+
+bool TQSqlDriver::beginTransaction()
+{
+    return FALSE;
+}
+
+/*!
+    Protected function which derived classes can reimplement to commit
+    a transaction. If successful, return TRUE, otherwise return FALSE.
+    The default implementation returns FALSE.
+
+    \sa beginTransaction(), rollbackTransaction()
+*/
+
+bool TQSqlDriver::commitTransaction()
+{
+    return FALSE;
+}
+
+/*!
+    Protected function which derived classes can reimplement to
+    rollback a transaction. If successful, return TRUE, otherwise
+    return FALSE. The default implementation returns FALSE.
+
+    \sa beginTransaction(), commitTransaction()
+*/
+
+bool TQSqlDriver::rollbackTransaction()
+{
+    return FALSE;
+}
+
+/*!
+    Protected function which allows derived classes to set the value
+    of the last error, \a e, that occurred on the database.
+
+    \sa lastError()
+*/
+
+void TQSqlDriver::setLastError( const TQSqlError& e )
+{
+    error = e;
+}
+
+/*!
+    Returns a TQSqlError object which tqcontains information about the
+    last error that occurred on the database.
+*/
+
+TQSqlError TQSqlDriver::lastError() const
+{
+    return error;
+}
+
+/*!
+    Returns a list of tables in the database. The default
+    implementation returns an empty list.
+
+    The \a tableType argument describes what types of tables
+    should be returned. Due to binary compatibility, the string
+    tqcontains the value of the enum TQSql::TableTypes as text.
+    An empty string should be treated as TQSql::Tables for
+    downward compatibility.
+
+    \sa TQSql::TableType
+*/
+
+TQStringList TQSqlDriver::tables( const TQString&	) const
+{
+    return TQStringList();
+}
+
+/*!
+    Returns the primary index for table \a tableName. Returns an empty
+    TQSqlIndex if the table doesn't have a primary index. The default
+    implementation returns an empty index.
+*/
+
+TQSqlIndex TQSqlDriver::primaryIndex( const TQString& ) const
+{
+    return TQSqlIndex();
+}
+
+
+/*!
+    Returns a TQSqlRecord populated with the names of the fields in
+    table \a tableName. If no such table exists, an empty record is
+    returned. The default implementation returns an empty record.
+*/
+
+TQSqlRecord TQSqlDriver::record( const TQString&  ) const
+{
+    return TQSqlRecord();
+}
+
+/*!
+    \overload
+
+    Returns a TQSqlRecord populated with the names of the fields in the
+    SQL \a query. The default implementation returns an empty record.
+*/
+
+TQSqlRecord TQSqlDriver::record( const TQSqlQuery& ) const
+{
+   return TQSqlRecord();
+}
+
+/*!
+    Returns a TQSqlRecordInfo object with meta data about the table \a
+    tablename.
+*/
+TQSqlRecordInfo TQSqlDriver::recordInfo( const TQString& tablename ) const
+{
+    return TQSqlRecordInfo( record( tablename ) );
+}
+
+/*!
+    \overload
+
+    Returns a TQSqlRecordInfo object with meta data for the TQSqlQuery
+    \a query. Note that this overloaded function may return less
+    information than the recordInfo() function which takes the name of
+    a table as parameter.
+*/
+TQSqlRecordInfo TQSqlDriver::recordInfo( const TQSqlQuery& query ) const
+{
+    return TQSqlRecordInfo( record( query ) );
+}
+
+
+/*!
+    Returns a string representation of the NULL value for the
+    database. This is used, for example, when constructing INSERT and
+    UPDATE statements. The default implementation returns the string
+    "NULL".
+*/
+
+TQString TQSqlDriver::nullText() const
+{
+    return "NULL";
+}
+
+/*!
+    Returns a string representation of the \a field value for the
+    database. This is used, for example, when constructing INSERT and
+    UPDATE statements.
+
+    The default implementation returns the value formatted as a string
+    according to the following rules:
+
+    \list
+
+    \i If \a field is NULL, nullText() is returned.
+
+    \i If \a field is character data, the value is returned enclosed
+    in single quotation marks, which is appropriate for many SQL
+    databases. Any embedded single-quote characters are escaped
+    (tqreplaced with two single-quote characters). If \a trimStrings is
+    TRUE (the default is FALSE), all trailing whitespace is trimmed
+    from the field.
+
+    \i If \a field is date/time data, the value is formatted in ISO
+    format and enclosed in single quotation marks. If the date/time
+    data is invalid, nullText() is returned.
+
+    \i If \a field is bytearray data, and the driver can edit binary
+    fields, the value is formatted as a hexadecimal string.
+
+    \i For any other field type toString() will be called on its value
+    and the result returned.
+
+    \endlist
+
+    \sa TQVariant::toString().
+
+*/
+TQString TQSqlDriver::formatValue( const TQSqlField* field, bool trimStrings ) const
+{
+    TQString r;
+    if ( field->isNull() )
+	r = nullText();
+    else {
+	switch ( field->type() ) {
+	case TQVariant::Int:
+	case TQVariant::UInt:
+	    if ( field->value().type() == TQVariant::Bool )
+		r = field->value().toBool() ? "1" : "0";
+	    else
+		r = field->value().toString();
+	    break;
+	case TQVariant::Date:
+	    if ( field->value().toDate().isValid() )
+		r = "'" + field->value().toDate().toString( Qt::ISODate ) + "'";
+	    else
+		r = nullText();
+	    break;
+	case TQVariant::Time:
+	    if ( field->value().toTime().isValid() )
+		r = "'" + field->value().toTime().toString( Qt::ISODate ) + "'";
+	    else
+		r = nullText();
+	    break;
+	case TQVariant::DateTime:
+	    if ( field->value().toDateTime().isValid() )
+		r = "'" +
+		    field->value().toDateTime().toString( Qt::ISODate ) + "'";
+	    else
+		r = nullText();
+	    break;
+	case TQVariant::String:
+	case TQVariant::CString: {
+	    TQString result = field->value().toString();
+	    if ( trimStrings ) {
+		int end = result.length() - 1;
+		while ( end && result[end].isSpace() ) /* skip white space from end */
+		    end--;
+		result.truncate( end );
+	    }
+	    /* escape the "'" character */
+	    result.tqreplace( TQChar( '\'' ), "''" );
+	    r = "'" + result + "'";
+	    break;
+	}
+	case TQVariant::Bool:
+	    if ( field->value().toBool() )
+		r = "1";
+	    else
+		r = "0";
+	    break;
+	case TQVariant::ByteArray : {
+	    if ( hasFeature( BLOB ) ) {
+		TQByteArray ba = TQT_TQBYTEARRAY_OBJECT(field->value().toByteArray());
+		TQString res;
+		static const char hexchars[] = "0123456789abcdef";
+		for ( uint i = 0; i < ba.size(); ++i ) {
+		    uchar s = (uchar) ba[(int)i];
+		    res += hexchars[s >> 4];
+		    res += hexchars[s & 0x0f];
+		}
+		r = "'" + res + "'";
+		break;
+	    }
+	}
+	default:
+	    r = field->value().toString();
+	    break;
+	}
+    }
+    return r;
+}
+
+/*!
+    \overload
+
+    Open a database connection on database \a db, using user name \a
+    user, password \a password, host \a host, port \a port and
+    connection options \a connOpts.
+
+    Returns TRUE on success and FALSE on failure.
+
+    \sa setOpen()
+*/
+bool TQSqlDriver::open( const TQString& db,
+		       const TQString& user,
+		       const TQString& password,
+		       const TQString& host,
+		       int port,
+		       const TQString& connOpts )
+{
+    if ( !qSqlOpenExtDict()->isEmpty() ) {
+	TQSqlOpenExtension *ext = qSqlOpenExtDict()->tqfind( (TQSqlDriver *) this );
+	if ( ext )
+	    return ext->open( db, user, password, host, port, connOpts );
+    }
+    return open( db, user, password, host, port );
+}
+
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/tqsqldriver.h b/tqtinterface/qt4/src/sql/tqsqldriver.h
new file mode 100644
index 0000000..84e936c
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqldriver.h
@@ -0,0 +1,126 @@
+/****************************************************************************
+**
+** Definition of TQSqlDriver class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLDRIVER_H
+#define TQSQLDRIVER_H
+
+#ifndef TQT_H
+#include "tqobject.h"
+#include "tqptrdict.h"
+#include "tqstring.h"
+#include "tqsqlerror.h"
+#include "tqsqlquery.h"
+#include "tqsqlfield.h"
+#include "tqsqlindex.h"
+#include "tqstringlist.h"
+#include "tqmap.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQSqlDriverExtension;
+
+class TQSqlDatabase;
+
+class TQM_EXPORT_SQL TQSqlDriver : public TQObject
+{
+    friend class TQSqlDatabase;
+    Q_OBJECT
+    TQ_OBJECT
+public:
+    enum DriverFeature { Transactions, QuerySize, BLOB, Unicode, PreparedQueries,
+			 NamedPlaceholders, PositionalPlaceholders };
+
+    TQSqlDriver( TQObject * tqparent=0, const char * name=0 );
+    ~TQSqlDriver();
+    bool			isOpen() const;
+    bool			isOpenError() const;
+
+    virtual bool		beginTransaction();
+    virtual bool		commitTransaction();
+    virtual bool		rollbackTransaction();
+    virtual TQStringList		tables( const TQString& tableType ) const;
+    virtual TQSqlIndex		primaryIndex( const TQString& tableName ) const;
+    virtual TQSqlRecord		record( const TQString& tableName ) const;
+    virtual TQSqlRecord		record( const TQSqlQuery& query ) const;
+    virtual TQSqlRecordInfo	recordInfo( const TQString& tablename ) const;
+    virtual TQSqlRecordInfo	recordInfo( const TQSqlQuery& query ) const;
+    virtual TQString		nullText() const;
+    virtual TQString		formatValue( const TQSqlField* field, bool trimStrings = FALSE ) const;
+    TQSqlError			lastError() const;
+
+    virtual bool		hasFeature( DriverFeature f ) const = 0;
+    virtual bool		open( const TQString & db,
+				      const TQString & user = TQString::null,
+				      const TQString & password = TQString::null,
+				      const TQString & host = TQString::null,
+				      int port = -1 ) = 0;
+    virtual void		close() = 0;
+    virtual TQSqlQuery		createQuery() const = 0;
+
+    // ### remove for 4.0
+    bool			open( const TQString& db,
+				      const TQString& user,
+				      const TQString& password,
+				      const TQString& host,
+				      int port,
+				      const TQString& connOpts );
+protected:
+    virtual void		setOpen( bool o );
+    virtual void		setOpenError( bool e );
+    virtual void		setLastError( const TQSqlError& e );
+private:
+    // ### This class needs a d-pointer in 4.0.
+    int		          dbState;
+    TQSqlError	          error;
+#if defined(TQ_DISABLE_COPY)
+    TQSqlDriver( const TQSqlDriver & );
+    TQSqlDriver &operator=( const TQSqlDriver & );
+#endif
+};
+
+#endif	// TQT_NO_SQL
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqldriverinterface_p.h b/tqtinterface/qt4/src/sql/tqsqldriverinterface_p.h
new file mode 100644
index 0000000..661a9b1
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqldriverinterface_p.h
@@ -0,0 +1,85 @@
+/****************************************************************************
+**
+** Definition of TQSqlDriverInterface class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2000-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLDRIVERINTERFACE_H
+#define TQSQLDRIVERINTERFACE_H
+
+//
+//  W A R N I N G
+//  -------------
+//
+// This file is not part of the TQt API.  This header file may
+// change from version to version without notice, or even be
+// removed.
+//
+// We mean it.
+//
+//
+
+#ifndef TQT_H
+#include <private/tqcom_p.h>
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+#ifndef TQT_NO_COMPONENT
+
+// {EDDD5AD5-DF3C-400c-A711-163B72FE5F61}
+#ifndef IID_TQSqlDriverFactory
+#define IID_TQSqlDriverFactory TQUuid(0xeddd5ad5, 0xdf3c, 0x400c, 0xa7, 0x11, 0x16, 0x3b, 0x72, 0xfe, 0x5f, 0x61)
+#endif
+
+class TQSqlDriver;
+
+struct TQM_EXPORT_SQL TQSqlDriverFactoryInterface : public TQFeatureListInterface
+{
+    virtual TQSqlDriver* create( const TQString& name ) = 0;
+};
+
+#endif //TQT_NO_COMPONENT
+#endif // TQT_NO_SQL
+
+#endif // TQSQLDRIVERINTERFACE_P_H
diff --git a/tqtinterface/qt4/src/sql/tqsqldriverplugin.cpp b/tqtinterface/qt4/src/sql/tqsqldriverplugin.cpp
new file mode 100644
index 0000000..c97dec5
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqldriverplugin.cpp
@@ -0,0 +1,161 @@
+/****************************************************************************
+**
+** Implementation of TQSqlDriverPlugin class
+**
+** Created : 2001-09-20
+**
+** Copyright (C) 2001-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqldriverplugin.h"
+
+#ifndef TQT_NO_SQL
+#ifndef TQT_NO_COMPONENT
+
+#include "tqsqldriverinterface_p.h"
+
+/*!
+    \class TQSqlDriverPlugin tqsqldriverplugin.h
+    \brief The TQSqlDriverPlugin class provides an abstract base for custom TQSqlDriver plugins.
+
+    \ingroup plugins
+    \mainclass
+
+    The SQL driver plugin is a simple plugin interface that makes it
+    easy to create your own SQL driver plugins that can be loaded
+    dynamically by TQt.
+
+    Writing a SQL plugin is achieved by subclassing this base class,
+    reimplementing the pure virtual functions keys() and create(), and
+    exporting the class with the \c TQ_EXPORT_PLUGIN macro. See the SQL
+    plugins that come with TQt for example implementations (in the
+    \c{plugins/src/sqldrivers} subdirectory of the source
+    distribution). Read the \link plugins-howto.html plugins
+    documentation\endlink for more information on plugins.
+*/
+
+/*!
+    \fn TQStringList TQSqlDriverPlugin::keys() const
+
+    Returns the list of drivers (keys) this plugin supports.
+
+    These keys are usually the class names of the custom drivers that
+    are implemented in the plugin.
+
+    \sa create()
+*/
+
+/*!
+    \fn TQSqlDriver* TQSqlDriverPlugin::create( const TQString& key )
+
+    Creates and returns a TQSqlDriver object for the driver key \a key.
+    The driver key is usually the class name of the required driver.
+
+    \sa keys()
+*/
+
+class TQSqlDriverPluginPrivate : public TQSqlDriverFactoryInterface
+{
+public:
+    TQSqlDriverPluginPrivate( TQSqlDriverPlugin *p )
+	: plugin( p )
+    {
+    }
+    virtual ~TQSqlDriverPluginPrivate();
+
+    TQRESULT queryInterface( const TQUuid &iid, TQUnknownInterface **iface );
+    TQ_REFCOUNT;
+
+    TQStringList featureList() const;
+    TQSqlDriver *create( const TQString &key );
+
+private:
+    TQSqlDriverPlugin *plugin;
+};
+
+TQSqlDriverPluginPrivate::~TQSqlDriverPluginPrivate()
+{
+    delete plugin;
+}
+
+TQRESULT TQSqlDriverPluginPrivate::queryInterface( const TQUuid &iid, TQUnknownInterface **iface )
+{
+    *iface = 0;
+
+    if ( iid == IID_TQUnknown )
+	*iface = this;
+    else if ( iid == IID_TQFeatureList )
+	*iface = this;
+    else if ( iid == IID_TQSqlDriverFactory )
+	*iface = this;
+    else
+	return TQE_NOINTERFACE;
+
+    (*iface)->addRef();
+    return TQS_OK;
+}
+
+TQStringList TQSqlDriverPluginPrivate::featureList() const
+{
+    return plugin->keys();
+}
+
+TQSqlDriver *TQSqlDriverPluginPrivate::create( const TQString &key )
+{
+    return plugin->create( key );
+}
+
+/*!
+    Constructs a SQL driver plugin. This is invoked automatically by
+    the \c TQ_EXPORT_PLUGIN macro.
+*/
+
+TQSqlDriverPlugin::TQSqlDriverPlugin()
+    : TQGPlugin( d = new TQSqlDriverPluginPrivate( this ) )
+{
+}
+
+/*!
+    Destroys the SQL driver plugin.
+
+    You never have to call this explicitly. TQt destroys a plugin
+    automatically when it is no longer used.
+*/
+TQSqlDriverPlugin::~TQSqlDriverPlugin()
+{
+    // don't delete d, as this is deleted by d
+}
+
+#endif // TQT_NO_COMPONENT
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/tqsqldriverplugin.h b/tqtinterface/qt4/src/sql/tqsqldriverplugin.h
new file mode 100644
index 0000000..4311083
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqldriverplugin.h
@@ -0,0 +1,73 @@
+/****************************************************************************
+**
+** Definition of TQSqlDriverPlugin class
+**
+** Created : 2001-09-20
+**
+** Copyright (C) 2001-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLDRIVERPLUGIN_H
+#define TQSQLDRIVERPLUGIN_H
+
+#ifndef TQT_H
+#include "tqgplugin.h"
+#include "tqstringlist.h"
+#endif // TQT_H
+
+#ifndef TQT_NO_SQL
+#ifndef TQT_NO_COMPONENT
+
+class TQSqlDriver;
+class TQSqlDriverPluginPrivate;
+
+class TQ_EXPORT TQSqlDriverPlugin : public TQGPlugin
+{
+    Q_OBJECT
+    TQ_OBJECT
+public:
+    TQSqlDriverPlugin();
+    ~TQSqlDriverPlugin();
+
+    virtual TQStringList keys() const = 0;
+    virtual TQSqlDriver *create( const TQString &key ) = 0;
+
+private:
+    TQSqlDriverPluginPrivate *d;
+};
+
+#endif // TQT_NO_COMPONENT
+#endif // TQT_NO_SQL
+
+#endif // TQSQLDRIVERPLUGIN_H
diff --git a/tqtinterface/qt4/src/sql/tqsqleditorfactory.cpp b/tqtinterface/qt4/src/sql/tqsqleditorfactory.cpp
new file mode 100644
index 0000000..0c6b16f
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqleditorfactory.cpp
@@ -0,0 +1,221 @@
+/****************************************************************************
+**
+** Implementation of TQSqlEditorFactory class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqleditorfactory.h"
+
+#ifndef TQT_NO_STQL_EDIT_WIDGETS
+
+#include "tqsqlfield.h"
+#include "tqcleanuphandler.h"
+#include "tqlabel.h"
+#include "tqlineedit.h"
+#include "tqspinbox.h"
+#include "tqcombobox.h"
+#include "tqdatetimeedit.h"
+
+/*!
+    \class TQSqlEditorFactory tqsqleditorfactory.h
+    \brief The TQSqlEditorFactory class is used to create the editors
+    used by TQDataTable and TQSqlForm.
+
+    \ingroup database
+    \module sql
+
+    TQSqlEditorFactory is used by TQDataTable and TQSqlForm to
+    automatically create appropriate editors for a given TQSqlField.
+    For example if the field is a TQVariant::String a TQLineEdit would
+    be the default editor, whereas a TQVariant::Int's default editor
+    would be a TQSpinBox.
+
+    If you want to create different editors for fields with the same
+    data type, subclass TQSqlEditorFactory and reimplement the
+    createEditor() function.
+
+    \sa TQDataTable, TQSqlForm
+*/
+
+
+/*!
+    Constructs a SQL editor factory with tqparent \a tqparent, called \a
+    name.
+*/
+
+TQSqlEditorFactory::TQSqlEditorFactory ( TQObject * tqparent, const char * name )
+    : TQEditorFactory( tqparent, name )
+{
+
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQSqlEditorFactory::~TQSqlEditorFactory()
+{
+
+}
+
+static TQSqlEditorFactory * defaultfactory = 0;
+static TQCleanupHandler< TQSqlEditorFactory > qsql_cleanup_editor_factory;
+
+/*!
+    Returns an instance of a default editor factory.
+*/
+
+TQSqlEditorFactory * TQSqlEditorFactory::defaultFactory()
+{
+    if( defaultfactory == 0 ){
+	defaultfactory = new TQSqlEditorFactory();
+	qsql_cleanup_editor_factory.add( &defaultfactory );
+    }
+
+    return defaultfactory;
+}
+
+/*!
+    Replaces the default editor factory with \a factory. All
+    TQDataTable and TQSqlForm instantiations will use this new factory
+    for creating field editors. \e{TQSqlEditorFactory takes ownership
+    of \a factory, and destroys it when it is no longer needed.}
+*/
+
+void TQSqlEditorFactory::installDefaultFactory( TQSqlEditorFactory * factory )
+{
+    if( factory == 0 ) return;
+
+    if( defaultfactory != 0 ){
+	qsql_cleanup_editor_factory.remove( &defaultfactory );
+	delete defaultfactory;
+    }
+    defaultfactory = factory;
+    qsql_cleanup_editor_factory.add( &defaultfactory );
+}
+
+/*!
+    Creates and returns the appropriate editor widget for the TQVariant
+    \a variant.
+
+    The widget that is returned has the tqparent \a tqparent (which may be
+    zero). If \a variant is invalid, 0 is returned.
+*/
+
+TQWidget * TQSqlEditorFactory::createEditor( TQWidget * tqparent,
+					   const TQVariant & variant )
+{
+    return TQEditorFactory::createEditor( tqparent, variant );
+}
+
+/*!
+    \overload
+
+    Creates and returns the appropriate editor for the TQSqlField \a
+    field.
+*/
+
+TQWidget * TQSqlEditorFactory::createEditor( TQWidget * tqparent,
+					   const TQSqlField * field )
+{    
+    if ( !field ) {
+	return 0;
+    }
+    
+    TQWidget * w = 0;
+    switch( field->type() ){
+	case TQVariant::Invalid:
+	    w = 0;
+	    break;
+	case TQVariant::Bool:
+	    w = new TQComboBox( tqparent, "qt_editor_bool" );
+	    ((TQComboBox *) w)->insertItem( "False" );
+	    ((TQComboBox *) w)->insertItem( "True" );
+	    break;
+	case TQVariant::UInt:
+	    w = new TQSpinBox( 0, 2147483647, 1, tqparent, "qt_editor_spinbox" );
+	    break;
+	case TQVariant::Int:
+	    w = new TQSpinBox( -2147483647, 2147483647, 1, tqparent, "qt_editor_int" );
+	    break;
+	case TQVariant::LongLong:
+	case TQVariant::ULongLong:
+	case TQVariant::String:
+	case TQVariant::CString:
+	case TQVariant::Double:
+	    w = new TQLineEdit( tqparent, "qt_editor_double" );
+	    ((TQLineEdit*)w)->setFrame( FALSE );
+	    break;
+	case TQVariant::Date:
+	    w = new TQDateEdit( tqparent, "qt_editor_date" );
+	    break;
+	case TQVariant::Time:
+	    w = new TQTimeEdit( tqparent, "qt_editor_time" );
+	    break;
+	case TQVariant::DateTime:
+	    w = new TQDateTimeEdit( tqparent, "qt_editor_datetime" );
+	    break;
+#ifndef TQT_NO_LABEL
+	case TQVariant::Pixmap:
+	    w = new TQLabel( tqparent, "qt_editor_pixmap" );
+	    break;
+#endif
+	case TQVariant::Palette:
+	case TQVariant::ColorGroup:
+	case TQVariant::Color:
+	case TQVariant::Font:
+	case TQVariant::Brush:
+	case TQVariant::Bitmap:
+	case TQVariant::Cursor:
+	case TQVariant::Map:
+	case TQVariant::StringList:
+	case TQVariant::Rect:
+	case TQVariant::Size:
+	case TQVariant::IconSet:
+	case TQVariant::Point:
+	case TQVariant::PointArray:
+	case TQVariant::Region:
+	case TQVariant::SizePolicy:
+	case TQVariant::ByteArray:
+	default:
+	    w = new TQWidget( tqparent, "qt_editor_default" );
+	    break;
+    }
+    return w;
+}
+
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/tqsqleditorfactory.h b/tqtinterface/qt4/src/sql/tqsqleditorfactory.h
new file mode 100644
index 0000000..151fb5e
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqleditorfactory.h
@@ -0,0 +1,77 @@
+/****************************************************************************
+**
+** Definition of TQSqlEditorFactory class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSTQLEDITORFACTORY_H
+#define TQSTQLEDITORFACTORY_H
+
+#ifndef TQT_H
+#include "tqeditorfactory.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_STQL_EDIT_WIDGETS
+
+class TQSqlField;
+
+class TQM_EXPORT_SQL TQSqlEditorFactory : public TQEditorFactory
+{
+public:
+    TQSqlEditorFactory ( TQObject * tqparent = 0, const char * name = 0 );
+    ~TQSqlEditorFactory();
+    virtual TQWidget * createEditor( TQWidget * tqparent, const TQVariant & variant );
+    virtual TQWidget * createEditor( TQWidget * tqparent, const TQSqlField * field );
+
+    static TQSqlEditorFactory * defaultFactory();
+    static void installDefaultFactory( TQSqlEditorFactory * factory );
+
+private:
+#if defined(TQ_DISABLE_COPY) // Disabled copy constructor and operator=
+    TQSqlEditorFactory( const TQSqlEditorFactory & );
+    TQSqlEditorFactory &operator=( const TQSqlEditorFactory & );
+#endif
+};
+
+#endif // TQT_NO_SQL
+#endif // TQSTQLEDITORFACTORY_H
diff --git a/tqtinterface/qt4/src/sql/tqsqlerror.cpp b/tqtinterface/qt4/src/sql/tqsqlerror.cpp
new file mode 100644
index 0000000..55d9820
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlerror.cpp
@@ -0,0 +1,228 @@
+/****************************************************************************
+**
+** Implementation of TQSqlError class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlerror.h"
+#include <tqmessagebox.h>
+
+#ifndef TQT_NO_SQL
+
+/*!
+    \class TQSqlError tqsqlerror.h
+    \brief The TQSqlError class provides SQL database error information.
+
+    \ingroup database
+    \module sql
+
+    This class is used to report database-specific errors. An error
+    description and (if appropriate) a database-specific error number
+    can be obtained using this class.
+*/
+
+/*!
+    \enum TQSqlError::Type
+
+    This enum type describes the type of SQL error that occurred.
+
+    \value None  no error occurred
+    \value Connection  connection error
+    \value Statement  SQL statement syntax error
+    \value Transaction  transaction failed error
+    \value Unknown  unknown error
+*/
+
+/*!
+    Constructs an error containing the driver error text \a
+    driverText, the database-specific error text \a databaseText, the
+    type \a type and the optional error number \a number.
+*/
+
+TQSqlError::TQSqlError(  const TQString& driverText,
+    		const TQString& databaseText,
+		int type,
+		int number )
+: driverError(driverText),
+  databaseError(databaseText),
+  errorType(type),
+  errorNumber(number)
+{
+}
+
+/*!
+    Creates a copy of \a other.
+*/
+
+TQSqlError::TQSqlError( const TQSqlError& other )
+: driverError(other.driverError),
+  databaseError(other.databaseError),
+  errorType(other.errorType),
+  errorNumber(other.errorNumber)
+{
+}
+
+/*!
+    Sets the error equal to \a other.
+*/
+
+TQSqlError& TQSqlError::operator=( const TQSqlError& other )
+{
+    driverError = other.driverError;
+    databaseError = other.databaseError;
+    errorType = other.errorType;
+    errorNumber = other.errorNumber;
+    return *this;
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQSqlError::~TQSqlError()
+{
+}
+
+/*!
+    Returns the text of the error as reported by the driver. This may
+    contain database-specific descriptions.
+*/
+TQString TQSqlError::driverText() const
+{
+    return driverError;
+}
+
+/*!
+    Sets the driver error text to the value of \a driverText.
+*/
+
+void TQSqlError::setDriverText( const TQString& driverText )
+{
+    driverError = driverText;
+}
+
+/*!
+    Returns the text of the error as reported by the database. This
+    may contain database-specific descriptions.
+*/
+
+TQString TQSqlError::databaseText() const
+{
+    return databaseError;
+}
+
+/*!
+    Sets the database error text to the value of \a databaseText.
+*/
+
+void TQSqlError::setDatabaseText( const TQString& databaseText )
+{
+    databaseError = databaseText;
+}
+
+/*!
+    Returns the error type, or -1 if the type cannot be determined.
+
+    \sa TQSqlError::Type.
+*/
+
+int TQSqlError::type() const
+{
+    return errorType;
+}
+
+/*!
+    Sets the error type to the value of \a type.
+*/
+
+void TQSqlError::setType( int type )
+{
+    errorType = type;
+}
+
+/*!
+    Returns the database-specific error number, or -1 if it cannot be
+    determined.
+*/
+
+int TQSqlError::number() const
+{
+    return errorNumber;
+}
+
+/*!
+    Sets the database-specific error number to \a number.
+*/
+
+void TQSqlError::setNumber( int number )
+{
+    errorNumber = number;
+}
+
+/*!
+    This is a convenience function that returns databaseText() and
+    driverText() concatenated into a single string.
+
+    \sa showMessage(), driverText(), databaseText()
+*/
+
+TQString TQSqlError::text() const
+{
+    if ( databaseError.endsWith("\n") )
+	return databaseError + driverError;
+    else
+	return databaseError + " " + driverError;
+}
+
+/*!
+    \obsolete
+    
+    This is a convenience function that pops up a TQMessageBox
+    containing the message returned by text(). An additional string
+    can be passed in via the \a msg parameter, which will be
+    concatenated with the text() message.
+
+    \sa text(), driverText(), databaseText()
+*/
+void TQSqlError::showMessage( const TQString& msg ) const
+{
+#ifndef TQT_NO_MESSAGEBOX
+    TQMessageBox::warning( NULL, "SQL Error", msg + text(), 
+			  TQMessageBox::Ok, TQMessageBox::NoButton ); 
+#endif // TQT_NO_MESSAGEBOX
+}
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/tqsqlerror.h b/tqtinterface/qt4/src/sql/tqsqlerror.h
new file mode 100644
index 0000000..3970185
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlerror.h
@@ -0,0 +1,93 @@
+/****************************************************************************
+**
+** Definition of TQSqlError class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLERROR_H
+#define TQSQLERROR_H
+
+#ifndef TQT_H
+#include "tqstring.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQM_EXPORT_SQL TQSqlError
+{
+public:
+    enum Type {
+	None,
+	Connection,
+	Statement,
+	Transaction,
+	Unknown
+    };
+    TQSqlError(  const TQString& driverText = TQString::null,
+		const TQString& databaseText = TQString::null,
+		int type = TQSqlError::None,
+		int number = -1 );
+    TQSqlError( const TQSqlError& other );
+    TQSqlError& operator=( const TQSqlError& other );
+    virtual ~TQSqlError();
+
+    TQString	driverText() const;
+    virtual void setDriverText( const TQString& driverText );
+    TQString	databaseText() const;
+    virtual void setDatabaseText( const TQString& databaseText );
+    int		type() const;
+    virtual void setType( int type );
+    int		number() const;
+    virtual void setNumber( int number );
+    TQString 	text() const;
+    void 	showMessage( const TQString& msg = TQString::null ) const;
+    
+private:
+    TQString	driverError;
+    TQString	databaseError;
+    int		errorType;
+    int	errorNumber;
+};
+
+#endif // TQT_NO_SQL
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlextension_p.cpp b/tqtinterface/qt4/src/sql/tqsqlextension_p.cpp
new file mode 100644
index 0000000..dd4f1fb
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlextension_p.cpp
@@ -0,0 +1,169 @@
+/****************************************************************************
+**
+** Implementation of the TQSqlExtension class
+**
+** Created : 2002-06-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlextension_p.h"
+
+#ifndef TQT_NO_SQL
+TQSqlExtension::TQSqlExtension()
+    : bindm( BindByPosition ), bindCount( 0 )
+{
+}
+
+TQSqlExtension::~TQSqlExtension()
+{
+}
+
+bool TQSqlExtension::prepare( const TQString& /*query*/ )
+{
+    return FALSE;
+}
+
+bool TQSqlExtension::exec()
+{
+    return FALSE;
+}
+
+void TQSqlExtension::bindValue( const TQString& placeholder, const TQVariant& val, TQSql::ParameterType tp )
+{
+    bindm = BindByName;
+    // if the index has already been set when doing emulated named
+    // bindings - don't reset it
+    if ( index.tqcontains( (int)values.count() ) ) {
+	index[ (int)values.count() ] = placeholder;
+    }
+    values[ placeholder ] = Param( val, tp );
+}
+
+void TQSqlExtension::bindValue( int pos, const TQVariant& val, TQSql::ParameterType tp )
+{
+    bindm = BindByPosition;
+    index[ pos ] = TQString::number( pos );
+    TQString nm = TQString::number( pos );
+    values[ nm ] = Param( val, tp );
+}
+
+void TQSqlExtension::addBindValue( const TQVariant& val, TQSql::ParameterType tp )
+{
+    bindm = BindByPosition;
+    bindValue( bindCount++, val, tp );
+}
+
+void TQSqlExtension::clearValues()
+{
+    values.clear();
+    bindCount = 0;
+}
+
+void TQSqlExtension::resetBindCount()
+{
+    bindCount = 0;
+}
+
+void TQSqlExtension::clearIndex()
+{
+    index.clear();
+    holders.clear();
+}
+
+void TQSqlExtension::clear()
+{
+    clearValues();
+    clearIndex();
+}
+
+TQVariant TQSqlExtension::parameterValue( const TQString& holder )
+{
+    return values[ holder ].value;
+}
+
+TQVariant TQSqlExtension::parameterValue( int pos )
+{
+    return values[ index[ pos ] ].value;
+}
+
+TQVariant TQSqlExtension::boundValue( const TQString& holder ) const
+{
+    return values[ holder ].value;
+}
+
+TQVariant TQSqlExtension::boundValue( int pos ) const
+{
+    return values[ index[ pos ] ].value;
+}
+
+TQMap<TQString, TQVariant> TQSqlExtension::boundValues() const
+{
+    TQMap<TQString, Param>::ConstIterator it;
+    TQMap<TQString, TQVariant> m;
+    if ( bindm == BindByName ) {
+	for ( it = values.begin(); it != values.end(); ++it )
+	    m.insert( it.key(), it.data().value );
+    } else {
+	TQString key, tmp, fmt;
+	fmt.sprintf( "%%0%dd", TQString::number( values.count()-1 ).length() );
+	for ( it = values.begin(); it != values.end(); ++it ) {
+	    tmp.sprintf( fmt.ascii(), it.key().toInt() );
+	    m.insert( tmp, it.data().value );
+	}
+    }
+    return m;
+}
+
+TQSqlExtension::BindMethod TQSqlExtension::bindMethod()
+{
+    return bindm;
+}
+
+TQSqlDriverExtension::TQSqlDriverExtension()
+{
+}
+
+TQSqlDriverExtension::~TQSqlDriverExtension()
+{
+}
+
+TQSqlOpenExtension::TQSqlOpenExtension()
+{
+}
+
+TQSqlOpenExtension::~TQSqlOpenExtension()
+{
+}
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlextension_p.h b/tqtinterface/qt4/src/sql/tqsqlextension_p.h
new file mode 100644
index 0000000..419240d
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlextension_p.h
@@ -0,0 +1,148 @@
+/****************************************************************************
+**
+** Definition of the TQSqlExtension class
+**
+** Created : 2002-06-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLEXTENSION_P_H
+#define TQSQLEXTENSION_P_H
+
+//
+//  W A R N I N G
+//  -------------
+//
+// This file is not part of the TQt API.  It exists for the convenience
+// of other TQt classes.  This header file may change from version to
+// version without notice, or even be removed.
+//
+// We mean it.
+//
+//
+
+#ifndef TQT_H
+#include "tqmap.h"
+#include "tqvaluevector.h"
+#include "tqstring.h"
+#include "tqvariant.h"
+#include "tqsql.h"
+#endif // TQT_H
+
+#ifndef TQT_NO_SQL
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#define TQM_TEMPLATE_EXTERN_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#define TQM_TEMPLATE_EXTERN_SQL TQ_TEMPLATE_EXTERN
+#endif
+
+struct Param {
+    Param( const TQVariant& v = TQVariant(), TQSql::ParameterType t = TQSql::In ): value( v ), typ( t ) {}
+    TQVariant value;
+    TQSql::ParameterType typ;
+    TQ_DUMMY_COMPARISON_OPERATOR(Param)
+};
+
+struct Holder {
+    Holder( const TQString& hldr = TQString::null, int pos = -1 ): holderName( hldr ), holderPos( pos ) {}
+    bool operator==( const Holder& h ) const { return h.holderPos == holderPos && h.holderName == holderName; }
+    bool operator!=( const Holder& h ) const { return h.holderPos != holderPos || h.holderName != holderName; }
+    TQString holderName;
+    int	    holderPos;
+};
+
+#define TQ_DEFINED_TQSQLEXTENSION
+#include "tqwinexport.h"
+
+class TQM_EXPORT_SQL TQSqlExtension {
+public:
+    TQSqlExtension();
+    virtual ~TQSqlExtension();
+    virtual bool prepare( const TQString& query );
+    virtual bool exec();
+    virtual void bindValue( const TQString& holder, const TQVariant& value, TQSql::ParameterType = TQSql::In );
+    virtual void bindValue( int pos, const TQVariant& value, TQSql::ParameterType = TQSql::In );
+    virtual void addBindValue( const TQVariant& value, TQSql::ParameterType = TQSql::In );
+    virtual TQVariant parameterValue( const TQString& holder );
+    virtual TQVariant parameterValue( int pos );
+    TQVariant boundValue( const TQString& holder ) const;
+    TQVariant boundValue( int pos ) const;
+    TQMap<TQString, TQVariant> boundValues() const;
+    void clear();
+    void clearValues();
+    void clearIndex();
+    void resetBindCount();
+
+    enum BindMethod { BindByPosition, BindByName };
+    BindMethod bindMethod(); // ### 4.0: make this const
+    BindMethod bindm;
+    int bindCount;
+
+    TQMap<int, TQString> index;
+    typedef TQMap<TQString, Param> ValueMap;
+    ValueMap values;
+
+    // convenience container for TQSqlQuery
+    // to map holders <-> positions
+    typedef TQValueVector<Holder> HolderVector;
+    HolderVector holders;
+};
+
+class TQM_EXPORT_SQL TQSqlDriverExtension
+{
+public:
+    TQSqlDriverExtension();
+    virtual ~TQSqlDriverExtension();
+    virtual bool isOpen() const = 0;
+};
+
+class TQM_EXPORT_SQL TQSqlOpenExtension
+{
+public:
+    TQSqlOpenExtension();
+    virtual ~TQSqlOpenExtension();
+    virtual bool open( const TQString& db,
+		       const TQString& user,
+		       const TQString& password,
+		       const TQString& host,
+		       int port,
+		       const TQString& connOpts ) = 0;
+};
+#endif
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlfield.cpp b/tqtinterface/qt4/src/sql/tqsqlfield.cpp
new file mode 100644
index 0000000..fcbb08d
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlfield.cpp
@@ -0,0 +1,563 @@
+/****************************************************************************
+**
+** Implementation of TQSqlField class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlfield.h"
+
+#ifndef TQT_NO_SQL
+
+
+/*!
+    \class TQSqlField tqsqlfield.h
+    \brief The TQSqlField class manipulates the fields in SQL database tables
+    and views.
+
+    \ingroup database
+    \module sql
+
+    TQSqlField represents the characteristics of a single column in a
+    database table or view, such as the data type and column name. A
+    field also tqcontains the value of the database column, which can be
+    viewed or changed.
+
+    Field data values are stored as TQVariants. Using an incompatible
+    type is not permitted. For example:
+
+    \code
+    TQSqlField f( "myfield", TQVariant::Int );
+    f.setValue( TQPixmap() );  // will not work
+    \endcode
+
+    However, the field will attempt to cast certain data types to the
+    field data type where possible:
+
+    \code
+    TQSqlField f( "myfield", TQVariant::Int );
+    f.setValue( TQString("123") ); // casts TQString to int
+    \endcode
+
+    TQSqlField objects are rarely created explicitly in application
+    code. They are usually accessed indirectly through \l TQSqlRecord
+    or \l TQSqlCursor which already contain a list of fields. For
+    example:
+
+    \code
+    TQSqlCursor cur( "Employee" );        // create cursor using the 'Employee' table
+    TQSqlField* f = cur.field( "name" );  // use the 'name' field
+    f->setValue( "Dave" );               // set field value
+    ...
+    \endcode
+
+    In practice we rarely need to extract a pointer to a field at all.
+    The previous example would normally be written:
+
+    \code
+    TQSqlCursor cur( "Employee" );
+    cur.setValue( "name", "Dave" );
+    ...
+    \endcode
+*/
+
+/*!
+    Constructs an empty field called \a fieldName of type \a type.
+*/
+
+TQSqlField::TQSqlField( const TQString& fieldName, TQVariant::Type type )
+    : nm(fieldName), ro(FALSE), nul(FALSE)
+{
+    d = new TQSqlFieldPrivate();
+    d->type = type;
+    val.cast( type );
+}
+
+/*!
+    Constructs a copy of \a other.
+*/
+
+TQSqlField::TQSqlField( const TQSqlField& other )
+    : nm( other.nm ), val( other.val ), ro( other.ro ), nul( other.nul )
+{
+    d = new TQSqlFieldPrivate();
+    d->type = other.d->type;
+}
+
+/*!
+    Sets the field equal to \a other.
+*/
+
+TQSqlField& TQSqlField::operator=( const TQSqlField& other )
+{
+    nm = other.nm;
+    val = other.val;
+    ro = other.ro;
+    nul = other.nul;
+    d->type = other.d->type;
+    return *this;    
+}
+
+/*!
+    Returns TRUE if the field is equal to \a other; otherwise returns
+    FALSE. Fields are considered equal when the following field
+    properties are the same:
+
+    \list
+    \i \c name()
+    \i \c isNull()
+    \i \c value()
+    \i \c isReadOnly()
+    \endlist
+
+*/
+bool TQSqlField::operator==(const TQSqlField& other) const
+{
+    return ( nm == other.nm &&
+	     val == other.val &&
+	     ro == other.ro &&
+	     nul == other.nul &&
+	     d->type == other.d->type );
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQSqlField::~TQSqlField()
+{
+    delete d;
+}
+
+
+/*!
+    \fn TQVariant TQSqlField::value() const
+
+    Returns the value of the field as a TQVariant.
+*/
+
+/*!
+    Sets the value of the field to \a value. If the field is read-only
+    (isReadOnly() returns TRUE), nothing happens. If the data type of
+    \a value differs from the field's current data type, an attempt is
+    made to cast it to the proper type. This preserves the data type
+    of the field in the case of assignment, e.g. a TQString to an
+    integer data type. For example:
+
+    \code
+    TQSqlCursor cur( "Employee" );                 // 'Employee' table
+    TQSqlField* f = cur.field( "student_count" );  // an integer field
+    ...
+    f->setValue( myLineEdit->text() );		  // cast the line edit text to an integer
+    \endcode
+
+    \sa isReadOnly()
+*/
+
+void TQSqlField::setValue( const TQVariant& value )
+{
+    if ( isReadOnly() )
+	return;
+    if ( value.type() != d->type ) {
+	if ( !val.canCast( d->type ) )
+	     qWarning("TQSqlField::setValue: %s cannot cast from %s to %s",
+		      nm.local8Bit().data(), value.typeName(), TQVariant::typeToName( d->type ) );
+    }
+    val = value;
+
+    if ( value.isNull() )
+	nul = TRUE;
+    else
+	nul = val.type() == TQVariant::Invalid;
+}
+
+/*!
+    Clears the value of the field. If the field is read-only, nothing
+    happens. If \a nullify is TRUE (the default), the field is set to
+    NULL.
+*/
+
+void TQSqlField::clear( bool nullify )
+{
+    if ( isReadOnly() )
+	return;
+    TQVariant v;
+    v.cast( type() );
+    val = v;
+    if ( nullify )
+	nul = TRUE;
+}
+
+/*!
+    \fn void TQSqlField::setName( const TQString& name )
+
+    Sets the name of the field to \a name.
+*/
+
+void TQSqlField::setName( const TQString& name )
+{
+    nm = name;
+}
+
+/*!
+    \fn void TQSqlField::setNull()
+
+    Sets the field to NULL and clears the value using clear(). If the
+    field is read-only, nothing happens.
+
+    \sa isReadOnly() clear()
+*/
+
+void TQSqlField::setNull()
+{
+    clear( TRUE );
+}
+
+/*!
+    \fn void TQSqlField::setReadOnly( bool readOnly )
+
+    Sets the read only flag of the field's value to \a readOnly.
+
+    \sa setValue()
+*/
+void TQSqlField::setReadOnly( bool readOnly )
+{
+    ro = readOnly;
+}
+
+/*!
+    \fn TQString TQSqlField::name() const
+
+    Returns the name of the field.
+*/
+
+/*!
+    \fn TQVariant::Type TQSqlField::type() const
+
+    Returns the field's type as stored in the database.
+    Note that the actual value might have a different type,
+    Numerical values that are too large to store in a long
+    int or double are usually stored as strings to prevent
+    precision loss.
+*/
+
+/*!
+    \fn bool TQSqlField::isReadOnly() const
+
+    Returns TRUE if the field's value is read only; otherwise returns
+    FALSE.
+*/
+
+/*!
+    \fn bool TQSqlField::isNull() const
+
+    Returns TRUE if the field is currently NULL; otherwise returns
+    FALSE.
+*/
+
+
+/******************************************/
+/*******     TQSqlFieldInfo Impl      ******/
+/******************************************/
+
+struct TQSqlFieldInfoPrivate
+{
+    int required, len, prec, typeID;
+    uint generated: 1;
+    uint trim: 1;
+    uint calculated: 1;
+    TQString name;
+    TQString typeName;
+    TQVariant::Type typ;
+    TQVariant defValue;
+};
+
+/*!
+    \class TQSqlFieldInfo tqsqlfield.h
+    \brief The TQSqlFieldInfo class stores meta data associated with a SQL field.
+
+    \ingroup database
+    \module sql
+
+    TQSqlFieldInfo objects only store meta data; field values are
+    stored in TQSqlField objects.
+
+    All values must be set in the constructor, and may be retrieved
+    using isRequired(), type(), length(), precision(), defaultValue(),
+    name(), isGenerated() and typeID().
+*/
+
+/*!
+    Constructs a TQSqlFieldInfo with the following parameters:
+    \table
+    \row \i \a name  \i the name of the field.
+    \row \i \a typ   \i the field's type in a TQVariant.
+    \row \i \a required  \i greater than 0 if the field is required, 0
+    if its value can be NULL and less than 0 if it cannot be
+    determined whether the field is required or not.
+    \row \i \a len  \i the length of the field. Note that for
+    non-character types some databases return either the length in
+    bytes or the number of digits. -1 signifies that the length cannot
+    be determined.
+    \row \i \a prec  \i the precision of the field, or -1 if the field
+    has no precision or it cannot be determined.
+    \row \i \a defValue  \i the default value that is inserted into
+    the table if none is specified by the user. TQVariant() if there is
+    no default value or it cannot be determined.
+    \row \i \a typeID  \i the internal typeID of the database system
+    (only useful for low-level programming). 0 if unknown.
+    \row \i \a generated  \i TRUE indicates that this field should be
+    included in auto-generated SQL statments, e.g. in TQSqlCursor.
+    \row \i \a trim  \i TRUE indicates that widgets should remove
+    trailing whitespace from character fields. This does not affect
+    the field value but only its representation inside widgets.
+    \row \i \a calculated  \i TRUE indicates that the value of this
+    field is calculated. The value of calculated fields can by
+    modified by subclassing TQSqlCursor and overriding
+    TQSqlCursor::calculateField().
+    \endtable
+*/
+TQSqlFieldInfo::TQSqlFieldInfo( const TQString& name,
+		   TQVariant::Type typ,
+		   int required,
+		   int len,
+		   int prec,
+		   const TQVariant& defValue,
+		   int typeID,
+		   bool generated,
+		   bool trim,
+		   bool calculated )
+{
+    d = new TQSqlFieldInfoPrivate();
+    d->name = name;
+    d->typ = typ;
+    d->required = required;
+    d->len = len;
+    d->prec = prec;
+    d->defValue = defValue;
+    d->typeID = typeID;
+    d->generated = generated;
+    d->trim = trim;
+    d->calculated = calculated;
+}
+
+/*!
+    Constructs a copy of \a other.
+*/
+TQSqlFieldInfo::TQSqlFieldInfo( const TQSqlFieldInfo & other )
+{
+    d = new TQSqlFieldInfoPrivate( *(other.d) );
+}
+
+/*!
+    Creates a TQSqlFieldInfo object with the type and the name of the
+    TQSqlField \a other. If \a generated is TRUE this field will be
+    included in auto-generated SQL statments, e.g. in TQSqlCursor.
+*/
+TQSqlFieldInfo::TQSqlFieldInfo( const TQSqlField & other, bool generated )
+{
+    d = new TQSqlFieldInfoPrivate();
+    d->name = other.name();
+    d->typ = other.type();
+    d->required = -1;
+    d->len = -1;
+    d->prec = -1;
+    d->typeID = 0;
+    d->generated = generated;
+    d->trim = FALSE;
+    d->calculated = FALSE;
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+TQSqlFieldInfo::~TQSqlFieldInfo()
+{
+    delete d;
+}
+
+/*!
+    Assigns \a other to this field info and returns a reference to it.
+*/
+TQSqlFieldInfo& TQSqlFieldInfo::operator=( const TQSqlFieldInfo& other )
+{
+    delete d;
+    d = new TQSqlFieldInfoPrivate( *(other.d) );
+    return *this;
+}
+
+/*!
+    Returns TRUE if this fieldinfo is equal to \a f; otherwise returns
+    FALSE.
+
+    Two field infos are considered equal if all their attributes
+    match.
+*/
+bool TQSqlFieldInfo::operator==( const TQSqlFieldInfo& f ) const
+{
+    return ( d->name == f.d->name &&
+		d->typ == f.d->typ &&
+		d->required == f.d->required &&
+		d->len == f.d->len &&
+		d->prec == f.d->prec &&
+		d->defValue == f.d->defValue &&
+		d->typeID == f.d->typeID &&
+		d->generated == f.d->generated &&
+		d->trim == f.d->trim &&
+		d->calculated == f.d->calculated );
+}
+
+/*!
+    Returns an empty TQSqlField based on the information in this
+    TQSqlFieldInfo.
+*/
+TQSqlField TQSqlFieldInfo::toField() const
+{ return TQSqlField( d->name, d->typ ); }
+
+/*!
+    Returns a value greater than 0 if the field is required (NULL
+    values are not allowed), 0 if it isn't required (NULL values are
+    allowed) or less than 0 if it cannot be determined whether the
+    field is required or not.
+*/
+int TQSqlFieldInfo::isRequired() const
+{ return d->required; }
+
+/*!
+    Returns the field's type or TQVariant::Invalid if the type is
+    unknown.
+*/
+TQVariant::Type TQSqlFieldInfo::type() const
+{ return d->typ; }
+
+/*!
+    Returns the field's length. For fields storing text the return
+    value is the maximum number of characters the field can hold. For
+    non-character fields some database systems return the number of
+    bytes needed or the number of digits allowed. If the length cannot
+    be determined -1 is returned.
+*/
+int TQSqlFieldInfo::length() const
+{ return d->len; }
+
+/*!
+    Returns the field's precision or -1 if the field has no precision
+    or it cannot be determined.
+*/
+int TQSqlFieldInfo::precision() const
+{ return d->prec; }
+
+/*!
+    Returns the field's default value or an empty TQVariant if the
+    field has no default value or the value couldn't be determined.
+    The default value is the value inserted in the database when it
+    is not explicitly specified by the user.
+*/
+TQVariant TQSqlFieldInfo::defaultValue() const
+{ return d->defValue; }
+
+/*!
+    Returns the name of the field in the SQL table.
+*/
+TQString TQSqlFieldInfo::name() const
+{ return d->name; }
+
+/*!
+    Returns the internal type identifier as returned from the database
+    system. The return value is 0 if the type is unknown.
+
+    \warning This information is only useful for low-level database
+    programming and is \e not database independent.
+*/
+int TQSqlFieldInfo::typeID() const
+{ return d->typeID; }
+
+/*!
+    Returns TRUE if the field should be included in auto-generated
+    SQL statments, e.g. in TQSqlCursor; otherwise returns FALSE.
+
+    \sa setGenerated()
+*/
+bool TQSqlFieldInfo::isGenerated() const
+{ return d->generated; }
+
+/*!
+    Returns TRUE if trailing whitespace should be removed from
+    character fields; otherwise returns FALSE.
+
+    \sa setTrim()
+*/
+bool TQSqlFieldInfo::isTrim() const
+{ return d->trim; }
+
+/*!
+    Returns TRUE if the field is calculated; otherwise returns FALSE.
+
+    \sa setCalculated()
+*/
+bool TQSqlFieldInfo::isCalculated() const
+{ return d->calculated; }
+
+/*!
+    If \a trim is TRUE widgets should remove trailing whitespace from
+    character fields. This does not affect the field value but only
+    its representation inside widgets.
+
+    \sa isTrim()
+*/
+void TQSqlFieldInfo::setTrim( bool trim )
+{ d->trim = trim; }
+
+/*!
+    \a gen set to FALSE indicates that this field should not appear
+    in auto-generated SQL statements (for example in TQSqlCursor).
+
+    \sa isGenerated()
+*/
+void TQSqlFieldInfo::setGenerated( bool gen )
+{ d->generated = gen; }
+
+/*!
+    \a calc set to TRUE indicates that this field is a calculated
+    field. The value of calculated fields can by modified by subclassing
+    TQSqlCursor and overriding TQSqlCursor::calculateField().
+
+    \sa isCalculated()
+*/
+void TQSqlFieldInfo::setCalculated( bool calc )
+{ d->calculated = calc; }
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlfield.h b/tqtinterface/qt4/src/sql/tqsqlfield.h
new file mode 100644
index 0000000..2983ba7
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlfield.h
@@ -0,0 +1,154 @@
+/****************************************************************************
+**
+** Definition of TQSqlField class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLFIELD_H
+#define TQSQLFIELD_H
+
+#ifndef TQT_H
+#include "tqstring.h"
+#include "tqvariant.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQSqlFieldPrivate
+{
+public:
+    TQVariant::Type type;
+};
+
+class TQM_EXPORT_SQL TQSqlField
+{
+public:
+    TQSqlField( const TQString& fieldName = TQString::null, TQVariant::Type type = TQVariant::Invalid );
+    TQSqlField( const TQSqlField& other );
+    TQSqlField& operator=( const TQSqlField& other );
+    bool operator==(const TQSqlField& other) const;
+    virtual ~TQSqlField();
+
+    virtual void	setValue( const TQVariant& value );
+    virtual TQVariant	value() const;
+    virtual void	setName( const TQString& name );
+    TQString		name() const;
+    virtual void	setNull();
+    bool		isNull() const;
+    virtual void	setReadOnly( bool readOnly );
+    bool		isReadOnly() const;
+    void		clear( bool nullify = TRUE );
+    TQVariant::Type	type() const;
+
+private:
+    TQString       nm;
+    TQVariant      val;
+    uint          ro: 1;
+    uint          nul: 1;
+    TQSqlFieldPrivate* d;
+};
+
+inline TQVariant TQSqlField::value() const
+{ return val; }
+
+inline TQString TQSqlField::name() const
+{ return nm; }
+
+inline bool TQSqlField::isNull() const
+{ return nul; }
+
+inline bool TQSqlField::isReadOnly() const
+{ return ro; }
+
+inline TQVariant::Type TQSqlField::type() const
+{ return d->type; }
+
+
+/******************************************/
+/*******     TQSqlFieldInfo Class     ******/
+/******************************************/
+
+struct TQSqlFieldInfoPrivate;
+
+class TQM_EXPORT_SQL TQSqlFieldInfo
+{
+public:
+    TQSqlFieldInfo( const TQString& name = TQString::null,
+		   TQVariant::Type typ = TQVariant::Invalid,
+		   int required = -1,
+		   int len = -1,
+		   int prec = -1,
+		   const TQVariant& defValue = TQVariant(),
+		   int sqlType = 0,
+		   bool generated = TRUE,
+		   bool trim = FALSE,
+		   bool calculated = FALSE );
+    TQSqlFieldInfo( const TQSqlFieldInfo & other );
+    TQSqlFieldInfo( const TQSqlField & other, bool generated = TRUE );
+    virtual ~TQSqlFieldInfo();
+    TQSqlFieldInfo& operator=( const TQSqlFieldInfo& other );
+    bool operator==( const TQSqlFieldInfo& f ) const;
+
+    TQSqlField		toField() const;
+    int			isRequired() const;
+    TQVariant::Type	type() const;
+    int			length() const;
+    int			precision() const;
+    TQVariant		defaultValue() const;
+    TQString		name() const;
+    int			typeID() const;
+    bool		isGenerated() const;
+    bool		isTrim() const;
+    bool		isCalculated() const;
+
+    virtual void	setTrim( bool trim );
+    virtual void	setGenerated( bool gen );
+    virtual void	setCalculated( bool calc );
+
+private:
+    TQSqlFieldInfoPrivate* d;
+};
+
+
+#endif	// TQT_NO_SQL
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlform.cpp b/tqtinterface/qt4/src/sql/tqsqlform.cpp
new file mode 100644
index 0000000..ed1f935
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlform.cpp
@@ -0,0 +1,403 @@
+/****************************************************************************
+**
+** Implementation of TQSqlForm class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlform.h"
+
+#ifndef TQT_NO_STQL_FORM
+
+#include "tqsqlfield.h"
+#include "tqsqlpropertymap.h"
+#include "tqsqlrecord.h"
+#include "tqstringlist.h"
+#include "tqwidget.h"
+#include "tqdict.h"
+
+class TQSqlFormPrivate
+{
+public:
+    TQSqlFormPrivate() : propertyMap( 0 ), buf( 0 ), dirty( FALSE ) {}
+    ~TQSqlFormPrivate() { if ( propertyMap ) delete propertyMap; }
+    TQStringList fld;
+    TQDict<TQWidget> wgt;
+    TQMap< TQWidget *, TQSqlField * > map;
+    TQSqlPropertyMap * propertyMap;
+    TQSqlRecord* buf;
+    bool dirty;
+};
+
+/*!
+    \class TQSqlForm
+    \brief The TQSqlForm class creates and manages data entry forms
+    tied to SQL databases.
+
+    \ingroup database
+    \mainclass
+    \module sql
+
+    Typical use of a TQSqlForm consists of the following steps:
+    \list
+    \i Create the widgets you want to appear in the form.
+    \i Create a cursor and navigate to the record to be edited.
+    \i Create the TQSqlForm.
+    \i Set the form's record buffer to the cursor's update buffer.
+    \i Insert each widget and the field it is to edit into the form.
+    \i Use readFields() to update the editor widgets with values from
+    the database's fields.
+    \i Display the form and let the user edit values etc.
+    \i Use writeFields() to update the database's field values with
+    the values in the editor widgets.
+    \endlist
+
+    Note that a TQSqlForm does not access the database directly, but
+    most often via TQSqlFields which are part of a TQSqlCursor. A
+    TQSqlCursor::insert(), TQSqlCursor::update() or TQSqlCursor::del()
+    call is needed to actually write values to the database.
+
+    Some sample code to initialize a form successfully:
+
+    \code
+    TQLineEdit  myEditor( this );
+    TQSqlForm   myForm( this );
+    TQSqlCursor myCursor( "mytable" );
+
+    // Execute a query to make the cursor valid
+    myCursor.select();
+    // Move the cursor to a valid record (the first record)
+    myCursor.next();
+    // Set the form's record pointer to the cursor's edit buffer (which
+    // tqcontains the current record's values)
+    myForm.setRecord( myCursor.primeUpdate() );
+
+    // Insert a field into the form that uses myEditor to edit the
+    // field 'somefield' in 'mytable'
+    myForm.insert( &myEditor, "somefield" );
+
+    // Update myEditor with the value from the mapped database field
+    myForm.readFields();
+    ...
+    // Let the user edit the form
+    ...
+    // Update the database
+    myForm.writeFields();  // Update the cursor's edit buffer from the form
+    myCursor.update();	// Update the database from the cursor's buffer
+    \endcode
+
+    If you want to use custom editors for displaying and editing data
+    fields, you must install a custom TQSqlPropertyMap. The form
+    uses this object to get or set the value of a widget.
+
+    Note that \link designer-manual.book TQt Designer\endlink provides
+    a visual means of creating data-aware forms.
+
+    \sa installPropertyMap(), TQSqlPropertyMap
+*/
+
+
+/*!
+    Constructs a TQSqlForm with tqparent \a tqparent and called \a name.
+*/
+TQSqlForm::TQSqlForm( TQObject * tqparent, const char * name )
+    : TQObject( tqparent, name )
+{
+    d = new TQSqlFormPrivate();
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+TQSqlForm::~TQSqlForm()
+{
+    delete d;
+}
+
+/*!
+    Installs a custom TQSqlPropertyMap. This is useful if you plan to
+    create your own custom editor widgets.
+
+    TQSqlForm takes ownership of \a pmap, so \a pmap is deleted when
+    TQSqlForm goes out of scope.
+
+    \sa TQDataTable::installEditorFactory()
+*/
+void TQSqlForm::installPropertyMap( TQSqlPropertyMap * pmap )
+{
+    if( d->propertyMap )
+	delete d->propertyMap;
+    d->propertyMap = pmap;
+}
+
+/*!
+    Sets \a buf as the record buffer for the form. To force the
+    display of the data from \a buf, use readFields().
+
+    \sa readFields() writeFields()
+*/
+
+void TQSqlForm::setRecord( TQSqlRecord* buf )
+{
+    d->dirty = TRUE;
+    d->buf = buf;
+}
+
+/*!
+    Inserts a \a widget, and the name of the \a field it is to be
+    mapped to, into the form. To actually associate inserted widgets
+    with an edit buffer, use setRecord().
+
+    \sa setRecord()
+*/
+
+void TQSqlForm::insert( TQWidget * widget, const TQString& field )
+{
+    d->dirty = TRUE;
+    d->wgt.insert( field, widget );
+    d->fld += field;
+}
+
+/*!
+    \overload
+
+    Removes \a field from the form.
+*/
+
+void TQSqlForm::remove( const TQString& field )
+{
+    d->dirty = TRUE;
+    if ( d->fld.tqfind( field ) != d->fld.end() )
+	d->fld.remove( d->fld.tqfind( field ) );
+    d->wgt.remove( field );
+}
+
+/*!
+    \overload
+
+    Inserts a \a widget, and the \a field it is to be mapped to, into
+    the form.
+*/
+
+void TQSqlForm::insert( TQWidget * widget, TQSqlField * field )
+{
+    d->map[widget] = field;
+}
+
+/*!
+    Removes a \a widget, and hence the field it's mapped to, from the
+    form.
+*/
+
+void TQSqlForm::remove( TQWidget * widget )
+{
+    d->map.remove( widget );
+}
+
+/*!
+    Clears the values in all the widgets, and the fields they are
+    mapped to, in the form. If \a nullify is TRUE (the default is
+    FALSE), each field is also set to NULL.
+*/
+void TQSqlForm::clearValues( bool nullify )
+{
+    TQMap< TQWidget *, TQSqlField * >::Iterator it;
+    for( it = d->map.begin(); it != d->map.end(); ++it ){
+	TQSqlField* f = (*it);
+	if ( f )
+	    f->clear( nullify );
+    }
+    readFields();
+}
+
+/*!
+    Removes every widget, and the fields they're mapped to, from the form.
+*/
+void TQSqlForm::clear()
+{
+    d->dirty = TRUE;
+    d->fld.clear();
+    clearMap();
+}
+
+/*!
+    Returns the number of widgets in the form.
+*/
+uint TQSqlForm::count() const
+{
+    return (uint)d->map.count();
+}
+
+/*!
+    Returns the \a{i}-th widget in the form. Useful for traversing
+    the widgets in the form.
+*/
+TQWidget * TQSqlForm::widget( uint i ) const
+{
+    TQMap< TQWidget *, TQSqlField * >::ConstIterator it;
+    uint cnt = 0;
+
+    if( i > d->map.count() ) return 0;
+    for( it = d->map.begin(); it != d->map.end(); ++it ){
+	if( cnt++ == i )
+	    return it.key();
+    }
+    return 0;
+}
+
+/*!
+    Returns the widget that field \a field is mapped to.
+*/
+TQWidget * TQSqlForm::fieldToWidget( TQSqlField * field ) const
+{
+    TQMap< TQWidget *, TQSqlField * >::ConstIterator it;
+    for( it = d->map.begin(); it != d->map.end(); ++it ){
+	if( *it == field )
+	    return it.key();
+    }
+    return 0;
+}
+
+/*!
+    Returns the SQL field that widget \a widget is mapped to.
+*/
+TQSqlField * TQSqlForm::widgetToField( TQWidget * widget ) const
+{
+    if( d->map.tqcontains( widget ) )
+	return d->map[widget];
+    else
+	return 0;
+}
+
+/*!
+    Updates the widgets in the form with current values from the SQL
+    fields they are mapped to.
+*/
+void TQSqlForm::readFields()
+{
+    sync();
+    TQSqlField * f;
+    TQMap< TQWidget *, TQSqlField * >::Iterator it;
+    TQSqlPropertyMap * pmap = (d->propertyMap == 0) ?
+			     TQSqlPropertyMap::defaultMap() : d->propertyMap;
+    for(it = d->map.begin() ; it != d->map.end(); ++it ){
+	f = widgetToField( it.key() );
+	if( !f )
+	    continue;
+	pmap->setProperty( it.key(), f->value() );
+    }
+}
+
+/*!
+    Updates the SQL fields with values from the widgets they are
+    mapped to. To actually update the database with the contents of
+    the record buffer, use TQSqlCursor::insert(), TQSqlCursor::update()
+    or TQSqlCursor::del() as appropriate.
+*/
+void TQSqlForm::writeFields()
+{
+    sync();
+    TQSqlField * f;
+    TQMap< TQWidget *, TQSqlField * >::Iterator it;
+    TQSqlPropertyMap * pmap = (d->propertyMap == 0) ?
+			     TQSqlPropertyMap::defaultMap() : d->propertyMap;
+
+    for(it = d->map.begin() ; it != d->map.end(); ++it ){
+	f = widgetToField( it.key() );
+	if( !f )
+	    continue;
+	f->setValue( pmap->property( it.key() ) );
+    }
+}
+
+/*!
+    Updates the widget \a widget with the value from the SQL field it
+    is mapped to. Nothing happens if no SQL field is mapped to the \a
+    widget.
+*/
+void TQSqlForm::readField( TQWidget * widget )
+{
+    sync();
+    TQSqlField * field = 0;
+    TQSqlPropertyMap * pmap = (d->propertyMap == 0) ?
+			     TQSqlPropertyMap::defaultMap() : d->propertyMap;
+    field = widgetToField( widget );
+    if( field )
+	pmap->setProperty( widget, field->value() );
+}
+
+/*!
+    Updates the SQL field with the value from the \a widget it is
+    mapped to. Nothing happens if no SQL field is mapped to the \a
+    widget.
+*/
+void TQSqlForm::writeField( TQWidget * widget )
+{
+    sync();
+    TQSqlField * field = 0;
+    TQSqlPropertyMap * pmap = (d->propertyMap == 0) ?
+			     TQSqlPropertyMap::defaultMap() : d->propertyMap;
+    field = widgetToField( widget );
+    if( field )
+	field->setValue( pmap->property( widget ) );
+}
+
+/*! \internal
+*/
+
+void TQSqlForm::sync()
+{
+    if ( d->dirty ) {
+	clearMap();
+	if ( d->buf ) {
+	    for ( uint i = 0; i < d->fld.count(); ++i )
+		insert( d->wgt[ d->fld[ i ] ], d->buf->field( d->fld[ i ] ) );
+	}
+    }
+    d->dirty = FALSE;
+}
+
+/*! \internal
+
+  Clears the internal map of widget/field associations
+*/
+
+void TQSqlForm::clearMap()
+{
+    d->map.clear();
+}
+
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/tqsqlform.h b/tqtinterface/qt4/src/sql/tqsqlform.h
new file mode 100644
index 0000000..14cdca1
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlform.h
@@ -0,0 +1,109 @@
+/****************************************************************************
+**
+** Definition of TQSqlForm class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLFORM_H
+#define TQSQLFORM_H
+
+#ifndef TQT_H
+#include "tqobject.h"
+#include "tqmap.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_STQL_FORM
+
+class TQSqlField;
+class TQSqlRecord;
+class TQSqlEditorFactory;
+class TQSqlPropertyMap;
+class TQWidget;
+class TQSqlFormPrivate;
+
+class TQM_EXPORT_SQL TQSqlForm : public TQObject
+{
+    Q_OBJECT
+    TQ_OBJECT
+public:
+    TQSqlForm( TQObject * tqparent = 0, const char * name = 0 );
+    ~TQSqlForm();
+
+    virtual void insert( TQWidget * widget, const TQString& field );
+    virtual void remove( const TQString& field );
+    uint         count() const;
+
+    TQWidget *   widget( uint i ) const;
+    TQSqlField * widgetToField( TQWidget * widget ) const;
+    TQWidget *   fieldToWidget( TQSqlField * field ) const;
+
+    void        installPropertyMap( TQSqlPropertyMap * map );
+
+    virtual void setRecord( TQSqlRecord* buf );
+
+public Q_SLOTS:
+    virtual void readField( TQWidget * widget );
+    virtual void writeField( TQWidget * widget );
+    virtual void readFields();
+    virtual void writeFields();
+
+    virtual void clear();
+    virtual void clearValues( bool nullify = FALSE );
+
+protected:
+    virtual void insert( TQWidget * widget, TQSqlField * field );
+    virtual void remove( TQWidget * widget );
+    void clearMap();
+
+private:
+    virtual void sync();
+    TQSqlFormPrivate* d;
+
+#if defined(TQ_DISABLE_COPY) // Disabled copy constructor and operator=
+    TQSqlForm( const TQSqlForm & );
+    TQSqlForm &operator=( const TQSqlForm & );
+#endif
+};
+
+#endif // TQT_NO_SQL
+#endif // TQSQLFORM_H
diff --git a/tqtinterface/qt4/src/sql/tqsqlindex.cpp b/tqtinterface/qt4/src/sql/tqsqlindex.cpp
new file mode 100644
index 0000000..525b1cd
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlindex.cpp
@@ -0,0 +1,301 @@
+/****************************************************************************
+**
+** Implementation of TQSqlIndex class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2000-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlindex.h"
+
+#ifndef TQT_NO_SQL
+
+#include "tqsqlcursor.h"
+
+/*!
+    \class TQSqlIndex tqsqlindex.h
+    \brief The TQSqlIndex class provides functions to manipulate and
+    describe TQSqlCursor and TQSqlDatabase indexes.
+
+    \ingroup database
+    \module sql
+
+    This class is used to describe and manipulate TQSqlCursor and
+    TQSqlDatabase indexes. An index refers to a single table or view
+    in a database. Information about the fields that comprise the
+    index can be used to generate SQL statements, or to affect the
+    behavior of a \l TQSqlCursor object.
+
+    Normally, TQSqlIndex objects are created by \l TQSqlDatabase or
+    TQSqlCursor.
+*/
+
+/*!
+    Constructs an empty index using the cursor name \a cursorname and
+    index name \a name.
+*/
+
+TQSqlIndex::TQSqlIndex( const TQString& cursorname, const TQString& name )
+    : TQSqlRecord(), cursor(cursorname), nm(name)
+{
+
+}
+
+/*!
+    Constructs a copy of \a other.
+*/
+
+TQSqlIndex::TQSqlIndex( const TQSqlIndex& other )
+    : TQSqlRecord(other), cursor(other.cursor), nm(other.nm), sorts(other.sorts)
+{
+}
+
+/*!
+    Sets the index equal to \a other.
+*/
+
+TQSqlIndex& TQSqlIndex::operator=( const TQSqlIndex& other )
+{
+    cursor = other.cursor;
+    nm = other.nm;
+    sorts = other.sorts;
+    TQSqlRecord::operator=( other );
+    return *this;
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQSqlIndex::~TQSqlIndex()
+{
+
+}
+
+/*!
+    Sets the name of the index to \a name.
+*/
+
+void TQSqlIndex::setName( const TQString& name )
+{
+    nm = name;
+}
+
+/*!
+    \fn TQString TQSqlIndex::name() const
+
+    Returns the name of the index.
+*/
+
+/*!
+    Appends the field \a field to the list of indexed fields. The
+    field is appended with an ascending sort order.
+*/
+
+void TQSqlIndex::append( const TQSqlField& field )
+{
+    append( field, FALSE );
+}
+
+/*!
+    \overload
+
+    Appends the field \a field to the list of indexed fields. The
+    field is appended with an ascending sort order, unless \a desc is
+    TRUE.
+*/
+
+void TQSqlIndex::append( const TQSqlField& field, bool desc )
+{
+    sorts.append( desc );
+    TQSqlRecord::append( field );
+}
+
+
+/*!
+    Returns TRUE if field \a i in the index is sorted in descending
+    order; otherwise returns FALSE.
+*/
+
+bool TQSqlIndex::isDescending( int i ) const
+{
+    if ( sorts.at( i ) != sorts.end() )
+	return sorts[i];
+    return FALSE;
+}
+
+/*!
+    If \a desc is TRUE, field \a i is sorted in descending order.
+    Otherwise, field \a i is sorted in ascending order (the default).
+    If the field does not exist, nothing happens.
+*/
+
+void TQSqlIndex::setDescending( int i, bool desc )
+{
+    if ( sorts.at( i ) != sorts.end() )
+	sorts[i] = desc;
+}
+
+/*!
+    \reimp
+
+    Returns a comma-separated list of all the index's field names as a
+    string. This string is suitable, for example, for generating a
+    SQL SELECT statement. Only generated fields are included in the
+    list (see \l{isGenerated()}). If a \a prefix is specified, e.g. a
+    table name, it is prepended before all field names in the form:
+
+    "\a{prefix}.<fieldname>"
+
+    If \a sep is specified, each field is separated by \a sep. If \a
+    verbose is TRUE (the default), each field tqcontains a suffix
+    indicating an ASCending or DESCending sort order.
+*/
+
+TQString TQSqlIndex::toString( const TQString& prefix, const TQString& sep, bool verbose ) const
+{
+    TQString s;
+    bool comma = FALSE;
+    for ( uint i = 0; i < count(); ++i ) {
+	if( comma )
+	    s += sep + " ";
+	s += createField( i, prefix, verbose );
+	comma = TRUE;
+    }
+    return s;
+}
+
+/*!
+    \reimp
+
+    Returns a list of all the index's field names. Only generated
+    fields are included in the list (see \l{isGenerated()}). If a \a
+    prefix is specified, e.g. a table name, all fields are prefixed in
+    the form:
+
+    "\a{prefix}.<fieldname>"
+
+    If \a verbose is TRUE (the default), each field tqcontains a suffix
+    indicating an ASCending or DESCending sort order.
+
+    Note that if you want to iterate over the list, you should iterate
+    over a copy, e.g.
+    \code
+    TQStringList list = myIndex.toStringList();
+    TQStringList::Iterator it = list.begin();
+    while( it != list.end() ) {
+	myProcessing( *it );
+	++it;
+    }
+    \endcode
+
+*/
+TQStringList TQSqlIndex::toStringList( const TQString& prefix, bool verbose ) const
+{
+    TQStringList s;
+    for ( uint i = 0; i < count(); ++i )
+	s += createField( i, prefix, verbose );
+    return s;
+}
+
+/*! \internal
+
+  Creates a string representing the field number \a i using prefix \a
+  prefix. If \a verbose is TRUE, ASC or DESC is included in the field
+  description if the field is sorted in ASCending or DESCending order.
+*/
+
+TQString TQSqlIndex::createField( int i, const TQString& prefix, bool verbose ) const
+{
+    TQString f;
+    if ( !prefix.isEmpty() )
+	f += prefix + ".";
+    f += field( i )->name();
+    if ( verbose )
+	f += " " + TQString( ( isDescending( i ) ? "DESC" : "ASC" ) );
+    return f;
+}
+
+/*!
+    Returns an index based on the field descriptions in \a l and the
+    cursor \a cursor. The field descriptions should be in the same
+    format that toStringList() produces, for example, a surname field
+    in the people table might be in one of these forms: "surname",
+    "surname DESC" or "people.surname ASC".
+
+    \sa toStringList()
+*/
+
+TQSqlIndex TQSqlIndex::fromStringList( const TQStringList& l, const TQSqlCursor* cursor )
+{
+    TQSqlIndex newSort;
+    for ( uint i = 0; i < l.count(); ++i ) {
+	TQString f = l[ i ];
+	bool desc = FALSE;
+	if ( f.mid( f.length()-3 ) == "ASC" )
+	    f = f.mid( 0, f.length()-3 );
+	if ( f.mid( f.length()-4 ) == "DESC" ) {
+	    desc = TRUE;
+	    f = f.mid( 0, f.length()-4 );
+	}
+	int dot = f.tqfindRev( '.' );
+	if ( dot != -1 )
+	    f = f.mid( dot+1 );
+	const TQSqlField* field = cursor->field( f.simplifyWhiteSpace() );
+	if ( field )
+	    newSort.append( *field, desc );
+	else
+	    qWarning( "TQSqlIndex::fromStringList: unknown field: '%s'", f.latin1());
+    }
+    return newSort;
+}
+
+/*!
+    \fn TQString TQSqlIndex::cursorName() const
+
+    Returns the name of the cursor which the index is associated with.
+*/
+
+
+/*!
+    Sets the name of the cursor that the index is associated with to
+    \a cursorName.
+*/
+void TQSqlIndex::setCursorName( const TQString& cursorName )
+{
+    cursor = cursorName;
+}
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlindex.h b/tqtinterface/qt4/src/sql/tqsqlindex.h
new file mode 100644
index 0000000..4f22cd4
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlindex.h
@@ -0,0 +1,99 @@
+/****************************************************************************
+**
+** Definition of TQSqlIndex class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLINDEX_H
+#define TQSQLINDEX_H
+
+#ifndef TQT_H
+#include "tqstring.h"
+#include "tqstringlist.h"
+#include "tqsqlfield.h"
+#include "tqsqlrecord.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#define TQM_TEMPLATE_EXTERN_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#define TQM_TEMPLATE_EXTERN_SQL TQ_TEMPLATE_EXTERN
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQSqlCursor;
+
+class TQM_EXPORT_SQL TQSqlIndex : public TQSqlRecord
+{
+public:
+    TQSqlIndex( const TQString& cursorName = TQString::null, const TQString& name = TQString::null );
+    TQSqlIndex( const TQSqlIndex& other );
+    ~TQSqlIndex();
+    TQSqlIndex&       operator=( const TQSqlIndex& other );
+    virtual void     setCursorName( const TQString& cursorName );
+    TQString          cursorName() const { return cursor; }
+    virtual void     setName( const TQString& name );
+    TQString          name() const { return nm; }
+
+    void             append( const TQSqlField& field );
+    virtual void     append( const TQSqlField& field, bool desc );
+
+    bool             isDescending( int i ) const;
+    virtual void     setDescending( int i, bool desc );
+
+    TQString          toString( const TQString& prefix = TQString::null,
+			       const TQString& sep = ",",
+			       bool verbose = TRUE ) const;
+    TQStringList      toStringList( const TQString& prefix = TQString::null,
+				   bool verbose = TRUE ) const;
+
+    static TQSqlIndex fromStringList( const TQStringList& l, const TQSqlCursor* cursor );
+
+private:
+    TQString          createField( int i, const TQString& prefix, bool verbose ) const;
+    TQString          cursor;
+    TQString          nm;
+    TQValueList<bool> sorts;
+};
+
+#define TQ_DEFINED_TQSQLINDEX
+#include "tqwinexport.h"
+#endif	// TQT_NO_SQL
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlmanager_p.cpp b/tqtinterface/qt4/src/sql/tqsqlmanager_p.cpp
new file mode 100644
index 0000000..8412c94
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlmanager_p.cpp
@@ -0,0 +1,941 @@
+/****************************************************************************
+**
+** Implementation of sql manager classes
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlmanager_p.h"
+
+#ifndef TQT_NO_SQL
+
+#include "tqapplication.h"
+#include "tqwidget.h"
+#include "tqsqlcursor.h"
+#include "tqsqlform.h"
+#include "tqsqldriver.h"
+#include "tqstring.h"
+#include "tqmessagebox.h"
+#include "tqbitarray.h"
+
+//#define TQT_DEBUG_DATAMANAGER
+
+class TQSqlCursorManagerPrivate
+{
+public:
+    TQSqlCursorManagerPrivate()
+	: cur( 0 ), autoDelete( FALSE )
+    {}
+
+    TQString ftr;
+    TQStringList srt;
+    TQSqlCursor* cur;
+    bool autoDelete;
+};
+
+/*!
+  \class TQSqlCursorManager qsqlmanager_p.h
+  \brief The TQSqlCursorManager class manages a database cursor.
+
+  \module sql
+
+  \internal
+
+  This class provides common cursor management functionality.  This
+  includes saving and applying sorts and filters, refreshing (i.e.,
+  re-selecting) the cursor and searching for records within the
+  cursor.
+
+*/
+
+/*!  \internal
+
+  Constructs a cursor manager.
+
+*/
+
+TQSqlCursorManager::TQSqlCursorManager()
+{
+    d = new TQSqlCursorManagerPrivate;
+}
+
+
+/*! \internal
+
+  Destroys the object and frees any allocated resources.
+
+*/
+
+TQSqlCursorManager::~TQSqlCursorManager()
+{
+    if ( d->autoDelete )
+	delete d->cur;
+    delete d;
+}
+
+/*! \internal
+
+  Sets the manager's sort to the index \a sort.  To apply the new
+  sort, use refresh().
+
+ */
+
+void TQSqlCursorManager::setSort( const TQSqlIndex& sort )
+{
+    setSort( sort.toStringList() );
+}
+
+/*! \internal
+
+  Sets the manager's sort to the stringlist \a sort.  To apply the
+  new sort, use refresh().
+
+ */
+
+void TQSqlCursorManager::setSort( const TQStringList& sort )
+{
+    d->srt = sort;
+}
+
+/*! \internal
+
+  Returns the current sort, or an empty stringlist if there is none.
+
+*/
+
+TQStringList  TQSqlCursorManager::sort() const
+{
+    return d->srt;
+}
+
+/*! \internal
+
+  Sets the manager's filter to the string \a filter.  To apply the
+  new filter, use refresh().
+
+*/
+
+void TQSqlCursorManager::setFilter( const TQString& filter )
+{
+    d->ftr = filter;
+}
+
+/*! \internal
+
+  Returns the current filter, or an empty string if there is none.
+
+*/
+
+TQString TQSqlCursorManager::filter() const
+{
+    return d->ftr;
+}
+
+/*! \internal
+
+  Sets auto-delete to \a enable.  If TRUE, the default cursor will
+  be deleted when necessary.
+
+  \sa autoDelete()
+*/
+
+void TQSqlCursorManager::setAutoDelete( bool enable )
+{
+    d->autoDelete = enable;
+}
+
+
+/*! \internal
+
+  Returns TRUE if auto-deletion is enabled, otherwise FALSE.
+
+  \sa setAutoDelete()
+
+*/
+
+bool TQSqlCursorManager::autoDelete() const
+{
+    return d->autoDelete;
+}
+
+/*! \internal
+
+  Sets the default cursor used by the manager to \a cursor.  If \a
+  autoDelete is TRUE (the default is FALSE), the manager takes
+  ownership of the \a cursor pointer, which will be deleted when the
+  manager is destroyed, or when setCursor() is called again. To
+  activate the \a cursor use refresh().
+
+  \sa cursor()
+
+*/
+
+void TQSqlCursorManager::setCursor( TQSqlCursor* cursor, bool autoDelete )
+{
+    if ( d->autoDelete )
+	delete d->cur;
+    d->cur = cursor;
+    d->autoDelete = autoDelete;
+}
+
+/*! \internal
+
+  Returns a pointer to the default cursor used for navigation, or 0
+  if there is no default cursor.
+
+  \sa setCursor()
+
+*/
+
+TQSqlCursor* TQSqlCursorManager::cursor() const
+{
+    return d->cur;
+}
+
+
+/*! \internal
+
+  Refreshes the manager using the default cursor.  The manager's
+  filter and sort are applied.  Returns TRUE on success, FALSE if an
+  error occurred or there is no current cursor.
+
+  \sa setFilter() setSort()
+
+*/
+
+bool TQSqlCursorManager::refresh()
+{
+    TQSqlCursor* cur = cursor();
+    if ( !cur )
+	return FALSE;
+    TQString currentFilter = d->ftr;
+    TQStringList currentSort = d->srt;
+    TQSqlIndex newSort = TQSqlIndex::fromStringList( currentSort, cur );
+    return cur->select( currentFilter, newSort );
+}
+
+/* \internal
+
+   Returns TRUE if the \a buf field values that correspond to \a idx
+   match the field values in \a cur that correspond to \a idx.
+*/
+
+static bool index_matches( const TQSqlCursor* cur, const TQSqlRecord* buf,
+			   const TQSqlIndex& idx )
+{
+    bool indexEquals = FALSE;
+    for ( uint i = 0; i < idx.count(); ++i ) {
+	const TQString fn( idx.field(i)->name() );
+	if ( cur->value( fn ) == buf->value( fn ) )
+	    indexEquals = TRUE;
+	else {
+	    indexEquals = FALSE;
+	    break;
+	}
+    }
+    return indexEquals;
+}
+
+/*
+  Return less than, equal to or greater than 0 if buf1 is less than,
+  equal to or greater than buf2 according to fields described in idx.
+  (### Currently only uses first field.)
+*/
+
+static int compare_recs( const TQSqlRecord* buf1, const TQSqlRecord* buf2,
+			 const TQSqlIndex& idx )
+{
+    int cmp = 0;
+
+    int i = 0;
+    const TQString fn( idx.field(i)->name() );
+    const TQSqlField* f1 = buf1->field( fn );
+
+    if ( f1 ) {
+	switch ( f1->type() ) { // ### more types?
+	case TQVariant::String:
+	case TQVariant::CString:
+	    cmp = TQT_TQSTRING(f1->value().toString()).simplifyWhiteSpace().compare(
+		          TQT_TQSTRING(buf2->value(fn).toString()).simplifyWhiteSpace() );
+	    break;
+	default:
+	    if ( f1->value().toDouble() < buf2->value( fn ).toDouble() )
+		cmp = -1;
+	    else if ( f1->value().toDouble() > buf2->value( fn ).toDouble() )
+		cmp = 1;
+	}
+    }
+
+    if ( idx.isDescending(i) )
+	cmp = -cmp;
+    return cmp;
+}
+
+#ifdef TQT_DEBUG_DATAMANAGER
+static void debug_datamanager_buffer( const TQString& msg, TQSqlRecord* cursor )
+{
+    qDebug("+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++");
+    qDebug( "%s", msg.latin1() );
+    for ( uint j = 0; j < cursor->count(); ++j ) {
+	qDebug( "%s", (cursor->field(j)->name() + " type:"
+		       + TQString(cursor->field(j)->value().typeName())
+		       + " value:" + cursor->field(j)->value().toString())
+		       .latin1() );
+    }
+}
+#endif
+
+
+/*! \internal
+
+  Relocates the default cursor to the record matching the cursor's
+edit buffer.  Only the field names specified by \a idx are used to
+determine an exact match of the cursor to the edit buffer. However,
+other fields in the edit buffer are also used during the search,
+therefore all fields in the edit buffer should be primed with desired
+values for the record being sought.  This function is typically used
+to relocate a cursor to the correct position after an insert or
+update.  For example:
+
+\code
+    TQSqlCursor* myCursor = myManager.cursor();
+    ...
+    TQSqlRecord* buf = myCursor->primeUpdate();
+    buf->setValue( "name", "Ola" );
+    buf->setValue( "city", "Oslo" );
+    ...
+    myCursor->update();  // update current record
+    myCursor->select();  // refresh the cursor
+    myManager.tqfindBuffer( myCursor->primaryIndex() ); // go to the updated record
+\endcode
+
+*/
+
+//## possibly add tqsizeHint parameter
+bool TQSqlCursorManager::tqfindBuffer( const TQSqlIndex& idx, int atHint )
+{
+#ifdef TQT_DEBUG_DATAMANAGER
+    qDebug("TQSqlCursorManager::tqfindBuffer:");
+#endif
+    TQSqlCursor* cur = cursor();
+    if ( !cur )
+	return FALSE;
+    if ( !cur->isActive() )
+	return FALSE;
+    if ( !idx.count() ) {
+	if ( cur->at() == TQSql::BeforeFirst )
+	    cur->next();
+	return FALSE;
+    }
+    TQSqlRecord* buf = cur->editBuffer();
+    bool indexEquals = FALSE;
+#ifdef TQT_DEBUG_DATAMANAGER
+    qDebug(" Checking hint...");
+#endif
+    /* check the hint */
+    if ( cur->seek( atHint ) )
+	indexEquals = index_matches( cur, buf, idx );
+
+    if ( !indexEquals ) {
+#ifdef TQT_DEBUG_DATAMANAGER
+	qDebug(" Checking current page...");
+#endif
+	/* check current page */
+	int pageSize = 20;
+	int startIdx = TQMAX( atHint - pageSize, 0 );
+	int endIdx = atHint + pageSize;
+	for ( int j = startIdx; j <= endIdx; ++j ) {
+	    if ( cur->seek( j ) ) {
+		indexEquals = index_matches( cur, buf, idx );
+		if ( indexEquals )
+		    break;
+	    }
+	}
+    }
+
+    if ( !indexEquals && cur->driver()->hasFeature( TQSqlDriver::QuerySize )
+	 && cur->sort().count() ) {
+#ifdef TQT_DEBUG_DATAMANAGER
+	qDebug(" Using binary search...");
+#endif
+	// binary search based on record buffer and current sort fields
+	int lo = 0;
+	int hi = cur->size();
+	int mid;
+	if ( compare_recs( buf, cur, cur->sort() ) >= 0 )
+	    lo = cur->at();
+	while ( lo != hi ) {
+	    mid = lo + (hi - lo) / 2;
+	    if ( !cur->seek( mid ) )
+		break;
+	    if ( index_matches( cur, buf, idx ) ) {
+		indexEquals = TRUE;
+		break;
+	    }
+	    int c = compare_recs( buf, cur, cur->sort() );
+	    if ( c < 0 ) {
+		hi = mid;
+	    } else if ( c == 0 ) {
+		// found it, but there may be duplicates
+		int at = mid;
+		do {
+		    mid--;
+		    if ( !cur->seek( mid ) )
+			break;
+		    if ( index_matches( cur, buf, idx ) ) {
+			indexEquals = TRUE;
+			break;
+		    }
+		} while ( compare_recs( buf, cur, cur->sort() ) == 0 );
+
+		if ( !indexEquals ) {
+		    mid = at;
+		    do {
+			mid++;
+			if ( !cur->seek( mid ) )
+			    break;
+			if ( index_matches( cur, buf, idx ) ) {
+			    indexEquals = TRUE;
+			    break;
+			}
+		    } while ( compare_recs( buf, cur, cur->sort() ) == 0 );
+		}
+		break;
+	    } else if ( c > 0 ) {
+		lo = mid + 1;
+	    }
+	}
+    }
+
+    if ( !indexEquals ) {
+#ifdef TQT_DEBUG_DATAMANAGER
+	qDebug(" Using brute search...");
+#endif
+#ifndef TQT_NO_CURSOR
+	TQApplication::setOverrideCursor( TQt::WaitCursor );
+#endif
+	/* give up, use brute force */
+	int startIdx = 0;
+	if ( cur->at() != startIdx ) {
+	    cur->seek( startIdx );
+	}
+	for ( ;; ) {
+	    indexEquals = FALSE;
+	    indexEquals = index_matches( cur, buf, idx );
+	    if ( indexEquals )
+		break;
+	    if ( !cur->next() )
+		break;
+	}
+#ifndef TQT_NO_CURSOR
+	TQApplication::restoreOverrideCursor();
+#endif
+    }
+#ifdef TQT_DEBUG_DATAMANAGER
+	qDebug(" Done, result:" + TQString::number( indexEquals ) );
+#endif
+    return indexEquals;
+}
+
+#ifndef TQT_NO_STQL_FORM
+
+class TQSqlFormManagerPrivate
+{
+public:
+    TQSqlFormManagerPrivate() : frm(0), rcd(0) {}
+    TQSqlForm* frm;
+    TQSqlRecord* rcd;
+};
+
+
+/*! \internal
+
+  Creates a form manager.
+
+*/
+
+TQSqlFormManager::TQSqlFormManager()
+{
+    d = new TQSqlFormManagerPrivate();
+}
+
+/*! \internal
+
+  Destroys the object and frees any allocated resources.
+
+*/
+
+TQSqlFormManager::~TQSqlFormManager()
+{
+    delete d;
+}
+
+/*!  \internal
+
+  Clears the default form values.  If there is no default form,
+  nothing happens,
+
+*/
+
+void TQSqlFormManager::clearValues()
+{
+    if ( form() )
+	form()->clearValues();
+}
+
+/*! \internal
+
+  Sets the form used by the form manager to \a form.  If a record has
+  already been assigned to the form manager, that record is also used by
+  the \a form to display data.
+
+  \sa form()
+
+*/
+
+void TQSqlFormManager::setForm( TQSqlForm* form )
+{
+    d->frm = form;
+    if ( d->rcd && d->frm )
+	d->frm->setRecord( d->rcd );
+}
+
+
+/*! \internal
+
+  Returns the default form used by the form manager, or 0 if there is
+  none.
+
+  \sa setForm()
+
+*/
+
+TQSqlForm* TQSqlFormManager::form()
+{
+    return d->frm;
+}
+
+
+/*! \internal
+
+  Sets the record used by the form manager to \a record.  If a form has
+  already been assigned to the form manager, \a record is also used by
+  the default form to display data.
+
+  \sa record()
+
+*/
+
+void TQSqlFormManager::setRecord( TQSqlRecord* record )
+{
+    d->rcd = record;
+    if ( d->frm ) {
+	d->frm->setRecord( d->rcd );
+    }
+}
+
+
+/*! \internal
+
+  Returns the default record used by the form manager, or 0 if there is
+  none.
+
+  \sa setRecord()
+*/
+
+TQSqlRecord* TQSqlFormManager::record()
+{
+    return d->rcd;
+}
+
+
+/*! \internal
+
+  Causes the default form to read its fields .  If there is no
+  default form, nothing happens.
+
+  \sa setForm()
+
+*/
+
+void TQSqlFormManager::readFields()
+{
+    if ( d->frm ) {
+	d->frm->readFields();
+    }
+}
+
+/*! \internal
+
+  Causes the default form to write its fields .  If there is no
+  default form, nothing happens.
+
+  \sa setForm()
+
+*/
+
+void TQSqlFormManager::writeFields()
+{
+    if ( d->frm ) {
+	d->frm->writeFields();
+    }
+}
+
+#endif // TQT_NO_STQL_FORM
+
+class TQDataManagerPrivate
+{
+public:
+    TQDataManagerPrivate()
+	: mode( TQSql::None ), autoEd( TRUE ), confEdits( 3 ),
+	  confCancs( FALSE ) {}
+    TQSql::Op mode;
+    bool autoEd;
+    TQBitArray confEdits;
+    bool confCancs;
+
+};
+
+/*!
+  \class TQDataManager qsqlmanager_p.h
+    \ingroup database
+
+  \brief The TQDataManager class is an internal class for implementing
+  the data-aware widgets.
+
+  \internal
+
+  TQDataManager is a strictly internal class that acts as a base class
+  for other data-aware widgets.
+
+*/
+
+
+/*!  \internal
+
+  Constructs an empty data handler.
+
+*/
+
+TQDataManager::TQDataManager()
+{
+    d = new TQDataManagerPrivate();
+}
+
+
+/*! \internal
+
+  Destroys the object and frees any allocated resources.
+
+*/
+
+TQDataManager::~TQDataManager()
+{
+    delete d;
+}
+
+
+/*!  \internal
+
+  Virtual function which is called when an error has occurred The
+  default implementation displays a warning message to the user with
+  information about the error.
+
+*/
+void TQDataManager::handleError( TQWidget* tqparent, const TQSqlError& e )
+{
+#ifndef TQT_NO_MESSAGEBOX
+    if (e.driverText().isEmpty() && e.databaseText().isEmpty()) {
+	TQMessageBox::warning ( tqparent, "Warning", "An error occurred while accessing the database");
+    } else {
+	TQMessageBox::warning ( tqparent, "Warning", e.driverText() + "\n" + e.databaseText(),
+			   0, 0 );
+    }
+#endif // TQT_NO_MESSAGEBOX
+}
+
+
+/*! \internal
+
+  Sets the internal mode to \a m.
+
+*/
+
+void TQDataManager::setMode( TQSql::Op m )
+{
+    d->mode = m;
+}
+
+
+/*! \internal
+
+  Returns the current mode.
+
+*/
+
+TQSql::Op TQDataManager::mode() const
+{
+    return d->mode;
+}
+
+
+/*! \internal
+
+  Sets the auto-edit mode to \a auto.
+
+*/
+
+void TQDataManager::setAutoEdit( bool autoEdit )
+{
+    d->autoEd = autoEdit;
+}
+
+
+
+/*! \internal
+
+  Returns TRUE if auto-edit mode is enabled; otherwise returns FALSE.
+
+*/
+
+bool TQDataManager::autoEdit() const
+{
+    return d->autoEd;
+}
+
+/*! \internal
+
+  If \a confirm is TRUE, all edit operations (inserts, updates and
+  deletes) will be confirmed by the user.  If \a confirm is FALSE (the
+  default), all edits are posted to the database immediately.
+
+*/
+void TQDataManager::setConfirmEdits( bool confirm )
+{
+    d->confEdits.fill( confirm );
+}
+
+/*! \internal
+
+  If \a confirm is TRUE, all inserts will be confirmed by the user.
+  If \a confirm is FALSE (the default), all edits are posted to the
+  database immediately.
+
+*/
+
+void TQDataManager::setConfirmInsert( bool confirm )
+{
+    d->confEdits[ TQSql::Insert ] = confirm;
+}
+
+/*! \internal
+
+  If \a confirm is TRUE, all updates will be confirmed by the user.
+  If \a confirm is FALSE (the default), all edits are posted to the
+  database immediately.
+
+*/
+
+void TQDataManager::setConfirmUpdate( bool confirm )
+{
+    d->confEdits[ TQSql::Update ] = confirm;
+}
+
+/*! \internal
+
+  If \a confirm is TRUE, all deletes will be confirmed by the user.
+  If \a confirm is FALSE (the default), all edits are posted to the
+  database immediately.
+
+*/
+
+void TQDataManager::setConfirmDelete( bool confirm )
+{
+    d->confEdits[ TQSql::Delete ] = confirm;
+}
+
+/*! \internal
+
+  Returns TRUE if the table confirms all edit operations (inserts,
+  updates and deletes), otherwise returns FALSE.
+*/
+
+bool TQDataManager::confirmEdits() const
+{
+    return ( confirmInsert() && confirmUpdate() && confirmDelete() );
+}
+
+/*! \internal
+
+  Returns TRUE if the table confirms inserts, otherwise returns
+  FALSE.
+*/
+
+bool TQDataManager::confirmInsert() const
+{
+    return d->confEdits[ TQSql::Insert ];
+}
+
+/*! \internal
+
+  Returns TRUE if the table confirms updates, otherwise returns
+  FALSE.
+*/
+
+bool TQDataManager::confirmUpdate() const
+{
+    return d->confEdits[ TQSql::Update ];
+}
+
+/*! \internal
+
+  Returns TRUE if the table confirms deletes, otherwise returns
+  FALSE.
+*/
+
+bool TQDataManager::confirmDelete() const
+{
+    return d->confEdits[ TQSql::Delete ];
+}
+
+/*! \internal
+
+  If \a confirm is TRUE, all cancels will be confirmed by the user
+  through a message box.  If \a confirm is FALSE (the default), all
+  cancels occur immediately.
+*/
+
+void TQDataManager::setConfirmCancels( bool confirm )
+{
+    d->confCancs = confirm;
+}
+
+/*! \internal
+
+  Returns TRUE if the table confirms cancels, otherwise returns FALSE.
+*/
+
+bool TQDataManager::confirmCancels() const
+{
+    return d->confCancs;
+}
+
+/*!  \internal
+
+  Virtual function which returns a confirmation for an edit of mode \a
+  m.  Derived classes can reimplement this function and provide their
+  own confirmation dialog.  The default implementation uses a message
+  box which prompts the user to confirm the edit action.  The dialog
+  is centered over \a tqparent.
+
+*/
+
+TQSql::Confirm TQDataManager::confirmEdit( TQWidget* tqparent, TQSql::Op m )
+{
+    int ans = 2;
+    if ( m == TQSql::Delete ) {
+#ifndef TQT_NO_MESSAGEBOX
+	ans = TQMessageBox::information( tqparent,
+					tqApp->translate( "TQSql", "Delete" ),
+					tqApp->translate( "TQSql", "Delete this record?" ),
+					tqApp->translate( "TQSql", "Yes" ),
+					tqApp->translate( "TQSql", "No" ),
+					TQString::null, 0, 1 );
+#else
+	ans = TQSql::No;
+#endif // TQT_NO_MESSAGEBOX
+    } else if ( m != TQSql::None ) {
+	TQString caption;
+	if ( m == TQSql::Insert ) {
+	    caption = tqApp->translate( "TQSql", "Insert" );
+	} else { // TQSql::Update
+	    caption = tqApp->translate( "TQSql", "Update" );
+	}
+#ifndef TQT_NO_MESSAGEBOX
+	ans = TQMessageBox::information( tqparent, caption,
+					tqApp->translate( "TQSql", "Save edits?" ),
+					tqApp->translate( "TQSql", "Yes" ),
+					tqApp->translate( "TQSql", "No" ),
+					tqApp->translate( "TQSql", "Cancel" ),
+					0, 2 );
+#else
+	ans = TQSql::No;
+#endif // TQT_NO_MESSAGEBOX
+    }
+
+    switch ( ans ) {
+    case 0:
+	return TQSql::Yes;
+    case 1:
+	return TQSql::No;
+    default:
+	return TQSql::Cancel;
+    }
+}
+
+/*!  \internal
+
+  Virtual function which returns a confirmation for cancelling an edit
+  mode \a m.  Derived classes can reimplement this function and
+  provide their own confirmation dialog.  The default implementation
+  uses a message box which prompts the user to confirm the edit
+  action. The dialog is centered over \a tqparent.
+
+
+*/
+
+TQSql::Confirm TQDataManager::confirmCancel( TQWidget* tqparent, TQSql::Op )
+{
+#ifndef TQT_NO_MESSAGEBOX
+    switch ( TQMessageBox::information( tqparent,
+				       tqApp->translate( "TQSql", "Confirm" ),
+				       tqApp->translate( "TQSql", "Cancel your edits?" ),
+				       tqApp->translate( "TQSql", "Yes" ),
+				       tqApp->translate( "TQSql", "No" ),
+				       TQString::null, 0, 1 ) ) {
+    case 0:
+	return TQSql::Yes;
+    case 1:
+	return TQSql::No;
+    default:
+	return TQSql::Cancel;
+    }
+#else
+    return TQSql::Yes;
+#endif // TQT_NO_MESSAGEBOX
+}
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlmanager_p.h b/tqtinterface/qt4/src/sql/tqsqlmanager_p.h
new file mode 100644
index 0000000..9f19335
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlmanager_p.h
@@ -0,0 +1,163 @@
+/****************************************************************************
+**
+** Definition of TQSqlManager class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLMANAGER_P_H
+#define TQSQLMANAGER_P_H
+
+//
+//  W A R N I N G
+//  -------------
+//
+// This file is not part of the TQt API.  It exists for the convenience
+// of other TQt classes.  This header file may change from version to
+// version without notice, or even be removed.
+//
+// We mean it.
+//
+//
+
+#ifndef TQT_H
+#include "tqglobal.h"
+#include "tqstring.h"
+#include "tqstringlist.h"
+#include "tqsql.h"
+#include "tqsqlerror.h"
+#include "tqsqlindex.h"
+#include "tqsqlcursor.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQSqlCursor;
+class TQSqlForm;
+class TQSqlCursorManagerPrivate;
+
+class TQM_EXPORT_SQL TQSqlCursorManager
+{
+public:
+    TQSqlCursorManager();
+    virtual ~TQSqlCursorManager();
+
+    virtual void setSort( const TQSqlIndex& sort );
+    virtual void setSort( const TQStringList& sort );
+    TQStringList  sort() const;
+    virtual void setFilter( const TQString& filter );
+    TQString filter() const;
+    virtual void setCursor( TQSqlCursor* cursor, bool autoDelete = FALSE );
+    TQSqlCursor* cursor() const;
+
+    virtual void setAutoDelete( bool enable );
+    bool autoDelete() const;
+
+    virtual bool refresh();
+    virtual bool tqfindBuffer( const TQSqlIndex& idx, int atHint = 0 );
+
+private:
+    TQSqlCursorManagerPrivate* d;
+};
+
+#ifndef TQT_NO_STQL_FORM
+
+class TQSqlFormManagerPrivate;
+
+class TQM_EXPORT_SQL TQSqlFormManager
+{
+public:
+    TQSqlFormManager();
+    virtual ~TQSqlFormManager();
+
+    virtual void setForm( TQSqlForm* form );
+    TQSqlForm* form();
+    virtual void setRecord( TQSqlRecord* record );
+    TQSqlRecord* record();
+
+    virtual void clearValues();
+    virtual void readFields();
+    virtual void writeFields();
+
+private:
+    TQSqlFormManagerPrivate* d;
+};
+
+#endif
+
+class TQWidget;
+class TQDataManagerPrivate;
+
+class TQM_EXPORT_SQL TQDataManager
+{
+public:
+    TQDataManager();
+    virtual ~TQDataManager();
+
+    virtual void setMode( TQSql::Op m );
+    TQSql::Op mode() const;
+    virtual void setAutoEdit( bool autoEdit );
+    bool autoEdit() const;
+
+    virtual void handleError( TQWidget* tqparent, const TQSqlError& error );
+    virtual TQSql::Confirm confirmEdit( TQWidget* tqparent, TQSql::Op m );
+    virtual TQSql::Confirm confirmCancel( TQWidget* tqparent, TQSql::Op m );
+
+    virtual void setConfirmEdits( bool confirm );
+    virtual void setConfirmInsert( bool confirm );
+    virtual void setConfirmUpdate( bool confirm );
+    virtual void setConfirmDelete( bool confirm );
+    virtual void setConfirmCancels( bool confirm );
+
+    bool confirmEdits() const;
+    bool confirmInsert() const;
+    bool confirmUpdate() const;
+    bool confirmDelete() const;
+    bool confirmCancels() const;
+
+private:
+    TQDataManagerPrivate* d;
+};
+
+
+#endif
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlpropertymap.cpp b/tqtinterface/qt4/src/sql/tqsqlpropertymap.cpp
new file mode 100644
index 0000000..63b7e3a
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlpropertymap.cpp
@@ -0,0 +1,304 @@
+/****************************************************************************
+**
+** Definition of TQSqlPropertyMap class
+**
+** Created : 2000-11-20
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlpropertymap.h"
+
+#ifndef TQT_NO_STQL_FORM
+
+#include "tqwidget.h"
+#include "tqcleanuphandler.h"
+#include "tqmetaobject.h"
+#include "tqmap.h"
+
+class TQSqlPropertyMapPrivate
+{
+public:
+    TQSqlPropertyMapPrivate() {}
+    TQMap< TQString, TQString > propertyMap;
+};
+
+/*!
+    \class TQSqlPropertyMap tqsqlpropertymap.h
+    \brief The TQSqlPropertyMap class is used to map widgets to SQL fields.
+
+    \ingroup database
+    \module sql
+
+    The SQL module uses TQt \link properties.html object
+    properties\endlink to insert and extract values from editor
+    widgets.
+
+    This class is used to map editors to SQL fields. This works by
+    associating SQL editor class names to the properties used to
+    insert and extract values to/from the editor.
+
+    For example, a TQLineEdit can be used to edit text strings and
+    other data types in TQDataTables or TQSqlForms. Several properties
+    are defined in TQLineEdit, but only the \e text property is used to
+    insert and extract text from a TQLineEdit. Both TQDataTable and
+    TQSqlForm use the global TQSqlPropertyMap for inserting and
+    extracting values to and from an editor widget. The global
+    property map defines several common widgets and properties that
+    are suitable for many applications. You can add and remove widget
+    properties to suit your specific needs.
+
+    If you want to use custom editors with your TQDataTable or
+    TQSqlForm, you must install your own TQSqlPropertyMap for that table
+    or form. Example:
+
+    \code
+    TQSqlPropertyMap *myMap  = new TQSqlPropertyMap();
+    TQSqlForm        *myForm = new TQSqlForm( this );
+    MyEditor myEditor( this );
+
+    // Set the TQSqlForm's record buffer to the update buffer of
+    // a pre-existing TQSqlCursor called 'cur'.
+    myForm->setRecord( cur->primeUpdate() );
+
+    // Install the customized map
+    myMap->insert( "MyEditor", "content" );
+    myForm->installPropertyMap( myMap ); // myForm now owns myMap
+    ...
+    // Insert a field into the form that uses a myEditor to edit the
+    // field 'somefield'
+    myForm->insert( &myEditor, "somefield" );
+
+    // Update myEditor with the value from the mapped database field
+    myForm->readFields();
+    ...
+    // Let the user edit the form
+    ...
+    // Update the database fields with the values in the form
+    myForm->writeFields();
+    ...
+    \endcode
+
+    You can also tqreplace the global TQSqlPropertyMap that is used by
+    default. (Bear in mind that TQSqlPropertyMap takes ownership of the
+    new default map.)
+
+    \code
+    TQSqlPropertyMap *myMap = new TQSqlPropertyMap;
+
+    myMap->insert( "MyEditor", "content" );
+    TQSqlPropertyMap::installDefaultMap( myMap );
+    ...
+    \endcode
+
+    \sa TQDataTable, TQSqlForm, TQSqlEditorFactory
+*/
+
+/*!
+
+Constructs a TQSqlPropertyMap.
+
+The default property mappings used by TQt widgets are:
+\table
+\header \i Widgets \i Property
+\row \i \l TQCheckBox,
+	\l TQRadioButton
+     \i checked
+\row \i \l TQComboBox,
+	\l TQListBox
+     \i currentItem
+\row \i \l TQDateEdit
+     \i date
+\row \i \l TQDateTimeEdit
+     \i dateTime
+\row \i \l TQTextBrowser
+     \i source
+\row \i \l TQButton,
+	\l TQDial,
+	\l TQLabel,
+	\l TQLineEdit,
+	\l TQMultiLineEdit,
+	\l TQPushButton,
+	\l TQTextEdit,
+     \i text
+\row \i \l TQTimeEdit
+     \i time
+\row \i \l TQLCDNumber,
+	\l TQScrollBar
+	\l TQSlider,
+	\l TQSpinBox
+     \i value
+\endtable
+*/
+
+TQSqlPropertyMap::TQSqlPropertyMap()
+{
+    d = new TQSqlPropertyMapPrivate();
+    const struct MapData {
+	const char *classname;
+	const char *property;
+    } mapData[] = {
+	{ "TQButton", 		"text" },
+	{ "TQCheckBox", 		"checked" },
+	{ "TQRadioButton",	"checked" },
+	{ "TQComboBox", 		"currentItem" },
+	{ "TQDateEdit", 		"date" },
+	{ "TQDateTimeEdit",	"dateTime" },
+	{ "TQDial", 		"value" },
+	{ "TQLabel", 		"text" },
+	{ "TQLCDNumber",		"value" },
+	{ "TQLineEdit",		"text" },
+	{ "TQListBox",		"currentItem" },
+	{ "TQMultiLineEdit",	"text" },
+	{ "TQPushButton",	"text" },
+	{ "TQScrollBar",		"value" },
+	{ "TQSlider",		"value" },
+	{ "TQSpinBox",		"value" },
+	{ "TQTextBrowser",	"source" },
+	{ "TQTextEdit",		"text" },
+	{ "TQTextView",		"text" },
+	{ "TQTimeEdit",		"time" }
+    };
+
+    const MapData *m = mapData;
+    for ( uint i = 0; i < sizeof(mapData)/sizeof(MapData); i++, m++ )
+	d->propertyMap.insert( m->classname, m->property );
+}
+
+/*!
+    Destroys the TQSqlPropertyMap.
+
+    Note that if the TQSqlPropertyMap is installed with
+    installPropertyMap() the object it was installed into, e.g. the
+    TQSqlForm, takes ownership and will delete the TQSqlPropertyMap when
+    necessary.
+*/
+TQSqlPropertyMap::~TQSqlPropertyMap()
+{
+    delete d;
+}
+
+/*!
+    Returns the mapped property of \a widget as a TQVariant.
+*/
+TQVariant TQSqlPropertyMap::property( TQWidget * widget )
+{
+    if( !widget ) return TQVariant();
+    const QMetaObject* mo = widget->metaObject();
+    while ( mo && !d->propertyMap.tqcontains( TQString( mo->className() ) ) )
+	mo = mo->superClass();
+
+    if ( !mo ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlPropertyMap::property: %s does not exist", widget->metaObject()->className() );
+#endif
+	return TQVariant();
+    }
+    return TQT_TQVARIANT_OBJECT(widget->property( d->propertyMap[ mo->className() ] ));
+}
+
+/*!
+    Sets the property of \a widget to \a value.
+*/
+void TQSqlPropertyMap::setProperty( TQWidget * widget, const TQVariant & value )
+{
+    if( !widget ) return;
+
+    QMetaObject* mo = const_cast<QMetaObject*>(widget->metaObject());
+    while ( mo && !d->propertyMap.tqcontains( TQString( mo->className() ) ) )
+	mo = const_cast<QMetaObject*>(mo->superClass());
+    if ( !mo ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlPropertyMap::setProperty: %s not handled by TQSqlPropertyMap", widget->metaObject()->className() );
+#endif
+	return;
+    }
+
+    widget->setProperty( d->propertyMap[ mo->className() ], value );
+}
+
+/*!
+  Insert a new classname/property pair, which is used for custom SQL
+  field editors. There \e must be a \c Q_PROPERTY clause in the \a
+  classname class declaration for the \a property.
+*/
+void TQSqlPropertyMap::insert( const TQString & classname,
+			      const TQString & property )
+{
+    d->propertyMap[ classname ] = property;
+}
+
+/*!
+    Removes \a classname from the map.
+*/
+void TQSqlPropertyMap::remove( const TQString & classname )
+{
+    d->propertyMap.remove( classname );
+}
+
+static TQSqlPropertyMap * defaultmap = 0;
+static TQCleanupHandler< TQSqlPropertyMap > qsql_cleanup_property_map;
+
+/*!
+    Returns the application global TQSqlPropertyMap.
+*/
+TQSqlPropertyMap * TQSqlPropertyMap::defaultMap()
+{
+    if( defaultmap == 0 ){
+	defaultmap = new TQSqlPropertyMap();
+	qsql_cleanup_property_map.add( &defaultmap );
+    }
+    return defaultmap;
+}
+
+/*!
+    Replaces the global default property map with \a map. All
+    TQDataTable and TQSqlForm instantiations will use this new map for
+    inserting and extracting values to and from editors.
+    \e{TQSqlPropertyMap takes ownership of \a map, and destroys it
+    when it is no longer needed.}
+*/
+void TQSqlPropertyMap::installDefaultMap( TQSqlPropertyMap * map )
+{
+    if( map == 0 ) return;
+
+    if( defaultmap != 0 ){
+	qsql_cleanup_property_map.remove( &defaultmap );
+	delete defaultmap;
+    }
+    defaultmap = map;
+    qsql_cleanup_property_map.add( &defaultmap );
+}
+
+#endif // TQT_NO_STQL_FORM
diff --git a/tqtinterface/qt4/src/sql/tqsqlpropertymap.h b/tqtinterface/qt4/src/sql/tqsqlpropertymap.h
new file mode 100644
index 0000000..c356f5e
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlpropertymap.h
@@ -0,0 +1,78 @@
+/****************************************************************************
+**
+** Definition of TQSqlPropertyMap class
+**
+** Created : 2000-11-20
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLPROPERTYMAP_H
+#define TQSQLPROPERTYMAP_H
+
+#ifndef TQT_H
+#include "tqvariant.h"
+#include "tqstring.h"
+#endif // TQT_H
+
+#ifndef TQT_NO_STQL_FORM
+
+class TQWidget;
+class TQSqlPropertyMapPrivate;
+
+class TQ_EXPORT TQSqlPropertyMap {
+public:
+    TQSqlPropertyMap();
+    virtual ~TQSqlPropertyMap();
+
+    TQVariant      property( TQWidget * widget );
+    virtual void  setProperty( TQWidget * widget, const TQVariant & value );
+
+    void insert( const TQString & classname, const TQString & property );
+    void remove( const TQString & classname );
+
+    static TQSqlPropertyMap * defaultMap();
+    static void installDefaultMap( TQSqlPropertyMap * map );
+
+private:	// Disabled copy constructor and operator=
+#if defined(TQ_DISABLE_COPY)
+    TQSqlPropertyMap( const TQSqlPropertyMap & );
+    TQSqlPropertyMap &operator=( const TQSqlPropertyMap & );
+#endif
+    TQSqlPropertyMapPrivate* d;
+
+};
+
+#endif // TQT_NO_STQL_FORM
+#endif // TQSQLPROPERTYMAP_H
diff --git a/tqtinterface/qt4/src/sql/tqsqlquery.cpp b/tqtinterface/qt4/src/sql/tqsqlquery.cpp
new file mode 100644
index 0000000..9a6f649
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlquery.cpp
@@ -0,0 +1,1215 @@
+/****************************************************************************
+**
+** Implementation of TQSqlQuery class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2000-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlquery.h"
+
+#ifndef TQT_NO_SQL
+
+//#define TQT_DEBUG_SQL
+
+#include "tqsqlresult.h"
+#include "tqsqldriver.h"
+#include "tqsqldatabase.h"
+#include "tqsql.h"
+#include "tqregexp.h"
+#include "private/tqsqlextension_p.h"
+
+
+/*!
+\internal
+*/
+TQSqlResultShared::TQSqlResultShared( TQSqlResult* result ): sqlResult(result)
+{
+    if ( result )
+	connect( result->driver(), TQT_SIGNAL(destroyed()), this, TQT_SLOT(slotResultDestroyed()) );
+}
+
+/*!
+\internal
+*/
+TQSqlResultShared::~TQSqlResultShared()
+{
+    delete sqlResult;
+}
+
+/*!
+\internal
+
+In case a plugin gets unloaded the pointer to the sqlResult gets invalid
+*/
+void TQSqlResultShared::slotResultDestroyed()
+{
+    delete sqlResult;
+    sqlResult = 0;
+}
+
+/*!
+    \class TQSqlQuery tqsqlquery.h
+    \brief The TQSqlQuery class provides a means of executing and
+    manipulating SQL statements.
+
+    \ingroup database
+    \mainclass
+    \module sql
+
+    TQSqlQuery encapsulates the functionality involved in creating,
+    navigating and retrieving data from SQL queries which are executed
+    on a \l TQSqlDatabase. It can be used to execute DML (data
+    manipulation language) statements, e.g. \c SELECT, \c INSERT, \c
+    UPDATE and \c DELETE, and also DDL (data definition language)
+    statements, e.g. \c{CREATE TABLE}. It can also be used to
+    execute database-specific commands which are not standard SQL
+    (e.g. \c{SET DATESTYLE=ISO} for PostgreSQL).
+
+    Successfully executed SQL statements set the query's state to
+    active (isActive() returns TRUE); otherwise the query's state is
+    set to inactive. In either case, when executing a new SQL
+    statement, the query is positioned on an invalid record; an active
+    query must be navigated to a valid record (so that isValid()
+    returns TRUE) before values can be retrieved.
+
+    Navigating records is performed with the following functions:
+
+    \list
+    \i \c next()
+    \i \c prev()
+    \i \c first()
+    \i \c last()
+    \i \c \link TQSqlQuery::seek() seek\endlink(int)
+    \endlist
+
+    These functions allow the programmer to move forward, backward or
+    arbitrarily through the records returned by the query. If you only
+    need to move forward through the results, e.g. using next() or
+    using seek() with a positive offset, you can use setForwardOnly()
+    and save a significant amount of memory overhead. Once an active
+    query is positioned on a valid record, data can be retrieved using
+    value(). All data is transferred from the SQL backend using
+    TQVariants.
+
+    For example:
+
+    \code
+    TQSqlQuery query( "SELECT name FROM customer" );
+    while ( query.next() ) {
+	TQString name = query.value(0).toString();
+	doSomething( name );
+    }
+    \endcode
+
+    To access the data returned by a query, use the value() method.
+    Each field in the data returned by a SELECT statement is accessed
+    by passing the field's position in the statement, starting from 0.
+    Information about the fields can be obtained via TQSqlDatabase::record().
+    For the sake of efficiency there are no functions to access a field
+    by name. (The \l TQSqlCursor class provides a higher-level interface
+    with field access by name and automatic SQL generation.)
+
+    TQSqlQuery supports prepared query execution and the binding of
+    parameter values to placeholders. Some databases don't support
+    these features, so for them TQt emulates the required
+    functionality. For example, the Oracle and ODBC drivers have
+    proper prepared query support, and TQt makes use of it; but for
+    databases that don't have this support, TQt implements the feature
+    itself, e.g. by replacing placeholders with actual values when a
+    query is executed. The exception is positional binding using named
+    placeholders, which requires that the database supports prepared
+    queries.
+
+    Oracle databases identify placeholders by using a colon-name
+    syntax, e.g \c{:name}. ODBC simply uses \c ? characters. TQt
+    supports both syntaxes (although you can't mix them in the same
+    query).
+
+    Below we present the same example using each of the four different
+    binding approaches.
+
+    <b>Named binding using named placeholders</b>
+    \code
+    TQSqlQuery query;
+    query.prepare( "INSERT INTO atable (id, forename, surname) "
+	           "VALUES (:id, :forename, :surname)" );
+    query.bindValue( ":id", 1001 );
+    query.bindValue( ":forename", "Bart" );
+    query.bindValue( ":surname", "Simpson" );
+    query.exec();
+    \endcode
+
+    <b>Positional binding using named placeholders</b>
+    \code
+    TQSqlQuery query;
+    query.prepare( "INSERT INTO atable (id, forename, surname) "
+		   "VALUES (:id, :forename, :surname)" );
+    query.bindValue( 0, 1001 );
+    query.bindValue( 1, "Bart" );
+    query.bindValue( 2, "Simpson" );
+    query.exec();
+    \endcode
+    <b>Note:</b> Using positional binding with named placeholders will
+    only work if the database supports prepared queries. This can be
+    checked with TQSqlDriver::hasFeature() using TQSqlDriver::PreparedQueries
+    as argument for driver feature.
+
+    <b>Binding values using positional placeholders #1</b>
+    \code
+    TQSqlQuery query;
+    query.prepare( "INSERT INTO atable (id, forename, surname) "
+		   "VALUES (?, ?, ?)" );
+    query.bindValue( 0, 1001 );
+    query.bindValue( 1, "Bart" );
+    query.bindValue( 2, "Simpson" );
+    query.exec();
+    \endcode
+
+    <b>Binding values using positional placeholders #2</b>
+    \code
+    query.prepare( "INSERT INTO atable (id, forename, surname) "
+		   "VALUES (?, ?, ?)" );
+    query.addBindValue( 1001 );
+    query.addBindValue( "Bart" );
+    query.addBindValue( "Simpson" );
+    query.exec();
+    \endcode
+
+    <b>Binding values to a stored procedure</b>
+    This code calls a stored procedure called \c AsciiToInt(), passing
+    it a character through its in parameter, and taking its result in
+    the out parameter.
+    \code
+    TQSqlQuery query;
+    query.prepare( "call AsciiToInt(?, ?)" );
+    query.bindValue( 0, "A" );
+    query.bindValue( 1, 0, TQSql::Out );
+    query.exec();
+    int i = query.boundValue( 1 ).toInt(); // i is 65.
+    \endcode
+
+    \sa TQSqlDatabase TQSqlCursor TQVariant
+*/
+
+/*!
+    Creates a TQSqlQuery object which uses the TQSqlResult \a r to
+    communicate with a database.
+*/
+
+TQSqlQuery::TQSqlQuery( TQSqlResult * r )
+{
+    d = new TQSqlResultShared( r );
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQSqlQuery::~TQSqlQuery()
+{
+    if (d->deref()) {
+	delete d;
+    }
+}
+
+/*!
+    Constructs a copy of \a other.
+*/
+
+TQSqlQuery::TQSqlQuery( const TQSqlQuery& other )
+    : d(other.d)
+{
+    d->ref();
+}
+
+/*!
+    Creates a TQSqlQuery object using the SQL \a query and the database
+    \a db. If \a db is 0, (the default), the application's default
+    database is used. If \a query is not a null string, it will be
+    executed.
+
+    \sa TQSqlDatabase
+*/
+TQSqlQuery::TQSqlQuery( const TQString& query, TQSqlDatabase* db )
+{
+    init( query, db );
+}
+
+/*!
+    Creates a TQSqlQuery object using the database \a db. If \a db is
+    0, the application's default database is used.
+
+    \sa TQSqlDatabase
+*/
+
+TQSqlQuery::TQSqlQuery( TQSqlDatabase* db )
+{
+    init( TQString::null, db );
+}
+
+/*! \internal
+*/
+
+void TQSqlQuery::init( const TQString& query, TQSqlDatabase* db )
+{
+    d = new TQSqlResultShared( 0 );
+    TQSqlDatabase* database = db;
+    if ( !database )
+	database = TQSqlDatabase::database( TQSqlDatabase::defaultConnection, FALSE );
+    if ( database )
+	*this = database->driver()->createQuery();
+    if ( !query.isNull() )
+	exec( query );
+}
+
+/*!
+    Assigns \a other to the query.
+*/
+
+TQSqlQuery& TQSqlQuery::operator=( const TQSqlQuery& other )
+{
+    other.d->ref();
+    deref();
+    d = other.d;
+    return *this;
+}
+
+/*!
+    Returns TRUE if the query is active and positioned on a valid
+    record and the \a field is NULL; otherwise returns FALSE. Note
+    that for some drivers isNull() will not return accurate
+    information until after an attempt is made to retrieve data.
+
+    \sa isActive() isValid() value()
+*/
+
+bool TQSqlQuery::isNull( int field ) const
+{
+    if ( !d->sqlResult )
+	return FALSE;
+    if ( d->sqlResult->isActive() && d->sqlResult->isValid() )
+	return d->sqlResult->isNull( field );
+    return FALSE;
+}
+
+/*!
+    Executes the SQL in \a query. Returns TRUE and sets the query
+    state to active if the query was successful; otherwise returns
+    FALSE and sets the query state to inactive. The \a query string
+    must use syntax appropriate for the SQL database being queried,
+    for example, standard SQL.
+
+    After the query is executed, the query is positioned on an \e
+    invalid record, and must be navigated to a valid record before
+    data values can be retrieved, e.g. using next().
+
+    Note that the last error for this query is reset when exec() is
+    called.
+
+    \sa isActive() isValid() next() prev() first() last() seek()
+*/
+
+bool TQSqlQuery::exec ( const TQString& query )
+{
+    if ( !d->sqlResult )
+	return FALSE;
+    if ( d->sqlResult->extension() && driver()->hasFeature( TQSqlDriver::PreparedQueries ) )
+	d->sqlResult->extension()->clear();
+    d->sqlResult->setActive( FALSE );
+    d->sqlResult->setLastError( TQSqlError() );
+    d->sqlResult->setAt( TQSql::BeforeFirst );
+    if ( !driver() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlQuery::exec: no driver" );
+#endif
+	return FALSE;
+    }
+    if ( d->count > 1 )
+	*this = driver()->createQuery();
+    d->sqlResult->setQuery( query.stripWhiteSpace() );
+    d->executedQuery = d->sqlResult->lastQuery();
+    if ( !driver()->isOpen() || driver()->isOpenError() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlQuery::exec: database not open" );
+#endif
+	return FALSE;
+    }
+    if ( query.isNull() || query.length() == 0 ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlQuery::exec: empty query" );
+#endif
+	return FALSE;
+    }
+#ifdef TQT_DEBUG_SQL
+    qDebug( "\n TQSqlQuery: " + query );
+#endif
+    return d->sqlResult->reset( query );
+}
+
+/*!
+    Returns the value of the \a{i}-th field in the query (zero based).
+
+    The fields are numbered from left to right using the text of the
+    \c SELECT statement, e.g. in \c{SELECT forename, surname FROM people},
+    field 0 is \c forename and field 1 is \c surname. Using \c{SELECT *}
+    is not recommended because the order of the fields in the query is
+    undefined.
+
+    An invalid TQVariant is returned if field \a i does not exist, if
+    the query is inactive, or if the query is positioned on an invalid
+    record.
+
+    \sa prev() next() first() last() seek() isActive() isValid()
+*/
+
+TQVariant TQSqlQuery::value( int i ) const
+{
+    if ( !d->sqlResult )
+	return TQVariant();
+    if ( isActive() && isValid() && ( i > TQSql::BeforeFirst ) ) {
+	return d->sqlResult->data( i );
+    } else {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQSqlQuery::value: not positioned on a valid record" );
+#endif
+    }
+    return TQVariant();
+}
+
+/*!
+    Returns the current internal position of the query. The first
+    record is at position zero. If the position is invalid, a
+    TQSql::Location will be returned indicating the invalid position.
+
+    \sa prev() next() first() last() seek() isActive() isValid()
+*/
+
+int TQSqlQuery::at() const
+{
+    if ( !d->sqlResult )
+	return TQSql::BeforeFirst;
+    return d->sqlResult->at();
+}
+
+/*!
+    Returns the text of the current query being used, or TQString::null
+    if there is no current query text.
+
+    \sa executedQuery()
+*/
+
+TQString TQSqlQuery::lastQuery() const
+{
+    if ( !d->sqlResult )
+	return TQString::null;
+    return d->sqlResult->lastQuery();
+}
+
+/*!
+    Returns the database driver associated with the query.
+*/
+
+const TQSqlDriver* TQSqlQuery::driver() const
+{
+    if ( !d->sqlResult )
+	return 0;
+    return d->sqlResult->driver();
+}
+
+/*!
+    Returns the result associated with the query.
+*/
+
+const TQSqlResult* TQSqlQuery::result() const
+{
+    return d->sqlResult;
+}
+
+/*!
+    Retrieves the record at position (offset) \a i, if available, and
+    positions the query on the retrieved record. The first record is
+    at position 0. Note that the query must be in an active state and
+    isSelect() must return TRUE before calling this function.
+
+    If \a relative is FALSE (the default), the following rules apply:
+
+    \list
+    \i If \a i is negative, the result is positioned before the
+    first record and FALSE is returned.
+    \i Otherwise, an attempt is made to move to the record at position
+    \a i. If the record at position \a i could not be retrieved, the
+    result is positioned after the last record and FALSE is returned. If
+    the record is successfully retrieved, TRUE is returned.
+    \endlist
+
+    If \a relative is TRUE, the following rules apply:
+
+    \list
+    \i If the result is currently positioned before the first
+    record or on the first record, and \a i is negative, there is no
+    change, and FALSE is returned.
+    \i If the result is currently located after the last record, and
+    \a i is positive, there is no change, and FALSE is returned.
+    \i If the result is currently located somewhere in the middle,
+    and the relative offset \a i moves the result below zero, the
+    result is positioned before the first record and FALSE is
+    returned.
+    \i Otherwise, an attempt is made to move to the record \a i
+    records ahead of the current record (or \a i records behind the
+    current record if \a i is negative). If the record at offset \a i
+    could not be retrieved, the result is positioned after the last
+    record if \a i >= 0, (or before the first record if \a i is
+    negative), and FALSE is returned. If the record is successfully
+    retrieved, TRUE is returned.
+    \endlist
+
+    \sa next() prev() first() last() at() isActive() isValid()
+*/
+bool TQSqlQuery::seek( int i, bool relative )
+{
+    if ( !isSelect() || !isActive() )
+	return FALSE;
+    beforeSeek();
+    checkDetach();
+    int actualIdx;
+    if ( !relative ) { // arbitrary seek
+	if ( i < 0 ) {
+	    d->sqlResult->setAt( TQSql::BeforeFirst );
+	    afterSeek();
+	    return FALSE;
+	}
+	actualIdx = i;
+    } else {
+	switch ( at() ) { // relative seek
+	case TQSql::BeforeFirst:
+	    if ( i > 0 )
+		actualIdx = i;
+	    else {
+		afterSeek();
+		return FALSE;
+	    }
+	    break;
+	case TQSql::AfterLast:
+	    if ( i < 0 ) {
+		d->sqlResult->fetchLast();
+		actualIdx = at() + i;
+	    } else {
+		afterSeek();
+		return FALSE;
+	    }
+	    break;
+	default:
+	    if ( ( at() + i ) < 0  ) {
+		d->sqlResult->setAt( TQSql::BeforeFirst );
+		afterSeek();
+		return FALSE;
+	    }
+	    actualIdx = at() + i;
+	    break;
+	}
+    }
+    // let drivers optimize
+    if ( isForwardOnly() && actualIdx < at() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlQuery::seek: cannot seek backwards in a forward only query" );
+#endif
+	afterSeek();
+	return FALSE;
+    }
+    if ( actualIdx == ( at() + 1 ) && at() != TQSql::BeforeFirst ) {
+	if ( !d->sqlResult->fetchNext() ) {
+	    d->sqlResult->setAt( TQSql::AfterLast );
+	    afterSeek();
+	    return FALSE;
+	}
+	afterSeek();
+	return TRUE;
+    }
+    if ( actualIdx == ( at() - 1 ) ) {
+	if ( !d->sqlResult->fetchPrev() ) {
+	    d->sqlResult->setAt( TQSql::BeforeFirst );
+	    afterSeek();
+	    return FALSE;
+	}
+	afterSeek();
+	return TRUE;
+    }
+    if ( !d->sqlResult->fetch( actualIdx ) ) {
+	d->sqlResult->setAt( TQSql::AfterLast );
+	afterSeek();
+	return FALSE;
+    }
+    afterSeek();
+    return TRUE;
+}
+
+/*!
+    Retrieves the next record in the result, if available, and
+    positions the query on the retrieved record. Note that the result
+    must be in an active state and isSelect() must return TRUE before
+    calling this function or it will do nothing and return FALSE.
+
+    The following rules apply:
+
+    \list
+    \i If the result is currently located before the first
+    record, e.g. immediately after a query is executed, an attempt is
+    made to retrieve the first record.
+
+    \i If the result is currently located after the last record,
+    there is no change and FALSE is returned.
+
+    \i If the result is located somewhere in the middle, an attempt
+    is made to retrieve the next record.
+    \endlist
+
+    If the record could not be retrieved, the result is positioned after
+    the last record and FALSE is returned. If the record is successfully
+    retrieved, TRUE is returned.
+
+    \sa prev() first() last() seek() at() isActive() isValid()
+*/
+
+bool TQSqlQuery::next()
+{
+    if ( !isSelect() || !isActive() )
+	return FALSE;
+    beforeSeek();
+    checkDetach();
+    bool b = FALSE;
+    switch ( at() ) {
+    case TQSql::BeforeFirst:
+	b = d->sqlResult->fetchFirst();
+	afterSeek();
+	return b;
+    case TQSql::AfterLast:
+	afterSeek();
+	return FALSE;
+    default:
+	if ( !d->sqlResult->fetchNext() ) {
+	    d->sqlResult->setAt( TQSql::AfterLast );
+	    afterSeek();
+	    return FALSE;
+	}
+	afterSeek();
+	return TRUE;
+    }
+}
+
+/*!
+    Retrieves the previous record in the result, if available, and
+    positions the query on the retrieved record. Note that the result
+    must be in an active state and isSelect() must return TRUE before
+    calling this function or it will do nothing and return FALSE.
+
+    The following rules apply:
+
+    \list
+    \i If the result is currently located before the first record,
+    there is no change and FALSE is returned.
+
+    \i If the result is currently located after the last record, an
+    attempt is made to retrieve the last record.
+
+    \i If the result is somewhere in the middle, an attempt is made
+    to retrieve the previous record.
+    \endlist
+
+    If the record could not be retrieved, the result is positioned
+    before the first record and FALSE is returned. If the record is
+    successfully retrieved, TRUE is returned.
+
+    \sa next() first() last() seek() at() isActive() isValid()
+*/
+
+bool TQSqlQuery::prev()
+{
+    if ( !isSelect() || !isActive() )
+	return FALSE;
+    if ( isForwardOnly() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlQuery::seek: cannot seek backwards in a forward only query" );
+#endif
+	return FALSE;
+    }
+
+    beforeSeek();
+    checkDetach();
+    bool b = FALSE;
+    switch ( at() ) {
+    case TQSql::BeforeFirst:
+	afterSeek();
+	return FALSE;
+    case TQSql::AfterLast:
+	b = d->sqlResult->fetchLast();
+	afterSeek();
+	return b;
+    default:
+	if ( !d->sqlResult->fetchPrev() ) {
+	    d->sqlResult->setAt( TQSql::BeforeFirst );
+	    afterSeek();
+	    return FALSE;
+	}
+	afterSeek();
+	return TRUE;
+    }
+}
+
+/*!
+    Retrieves the first record in the result, if available, and
+    positions the query on the retrieved record. Note that the result
+    must be in an active state and isSelect() must return TRUE before
+    calling this function or it will do nothing and return FALSE.
+    Returns TRUE if successful. If unsuccessful the query position is
+    set to an invalid position and FALSE is returned.
+
+    \sa next() prev() last() seek() at() isActive() isValid()
+*/
+
+bool TQSqlQuery::first()
+{
+    if ( !isSelect() || !isActive() )
+	return FALSE;
+    if ( isForwardOnly() && at() > TQSql::BeforeFirst ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlQuery::seek: cannot seek backwards in a forward only query" );
+#endif
+	return FALSE;
+    }
+    beforeSeek();
+    checkDetach();
+    bool b = FALSE;
+    b = d->sqlResult->fetchFirst();
+    afterSeek();
+    return b;
+}
+
+/*!
+    Retrieves the last record in the result, if available, and
+    positions the query on the retrieved record. Note that the result
+    must be in an active state and isSelect() must return TRUE before
+    calling this function or it will do nothing and return FALSE.
+    Returns TRUE if successful. If unsuccessful the query position is
+    set to an invalid position and FALSE is returned.
+
+    \sa next() prev() first() seek() at() isActive() isValid()
+*/
+
+bool TQSqlQuery::last()
+{
+    if ( !isSelect() || !isActive() )
+	return FALSE;
+    beforeSeek();
+    checkDetach();
+    bool b = FALSE;
+    b = d->sqlResult->fetchLast();
+    afterSeek();
+    return b;
+}
+
+/*!
+    Returns the size of the result, (number of rows returned), or -1
+    if the size cannot be determined or if the database does not
+    support reporting information about query sizes. Note that for
+    non-\c SELECT statements (isSelect() returns FALSE), size() will
+    return -1. If the query is not active (isActive() returns FALSE),
+    -1 is returned.
+
+    To determine the number of rows affected by a non-SELECT
+    statement, use numRowsAffected().
+
+    \sa isActive() numRowsAffected() TQSqlDriver::hasFeature()
+*/
+int TQSqlQuery::size() const
+{
+    if ( !d->sqlResult )
+	return -1;
+    if ( isActive() && d->sqlResult->driver()->hasFeature( TQSqlDriver::QuerySize ) )
+	return d->sqlResult->size();
+    return -1;
+}
+
+/*!
+    Returns the number of rows affected by the result's SQL statement,
+    or -1 if it cannot be determined. Note that for \c SELECT
+    statements, the value is undefined; see size() instead. If the
+    query is not active (isActive() returns FALSE), -1 is returned.
+
+    \sa size() TQSqlDriver::hasFeature()
+*/
+
+int TQSqlQuery::numRowsAffected() const
+{
+    if ( !d->sqlResult )
+	return -1;
+    if ( isActive() )
+	return d->sqlResult->numRowsAffected();
+    return -1;
+}
+
+/*!
+    Returns error information about the last error (if any) that
+    occurred.
+
+    \sa TQSqlError
+*/
+
+TQSqlError TQSqlQuery::lastError() const
+{
+    if ( !d->sqlResult )
+	return TQSqlError();
+    return d->sqlResult->lastError();
+}
+
+/*!
+    Returns TRUE if the query is currently positioned on a valid
+    record; otherwise returns FALSE.
+*/
+
+bool TQSqlQuery::isValid() const
+{
+    if ( !d->sqlResult )
+	return FALSE;
+    return d->sqlResult->isValid();
+}
+
+/*!
+    Returns TRUE if the query is currently active; otherwise returns
+    FALSE.
+*/
+
+bool TQSqlQuery::isActive() const
+{
+    if ( !d->sqlResult )
+	return FALSE;
+    return d->sqlResult->isActive();
+}
+
+/*!
+    Returns TRUE if the current query is a \c SELECT statement;
+    otherwise returns FALSE.
+*/
+
+bool TQSqlQuery::isSelect() const
+{
+    if ( !d->sqlResult )
+	return FALSE;
+    return d->sqlResult->isSelect();
+}
+
+/*!
+    Returns TRUE if you can only scroll \e forward through a result
+    set; otherwise returns FALSE.
+
+    \sa setForwardOnly()
+*/
+bool TQSqlQuery::isForwardOnly() const
+{
+    if ( !d->sqlResult )
+	return FALSE;
+    return d->sqlResult->isForwardOnly();
+}
+
+/*!
+    Sets forward only mode to \a forward. If forward is TRUE only
+    next(), and seek() with positive values, are allowed for
+    navigating the results. Forward only mode needs far less memory
+    since results do not need to be cached.
+
+    Forward only mode is off by default.
+
+    Forward only mode cannot be used with data aware widgets like
+    TQDataTable, since they must to be able to scroll backward as well
+    as forward.
+
+    \sa isForwardOnly(), next(), seek()
+*/
+void TQSqlQuery::setForwardOnly( bool forward )
+{
+    if ( d->sqlResult )
+	d->sqlResult->setForwardOnly( forward );
+}
+
+/*!
+  \internal
+*/
+
+void TQSqlQuery::deref()
+{
+    if ( d->deref() ) {
+	delete d;
+	d = 0;
+    }
+}
+
+/*!
+  \internal
+*/
+
+bool TQSqlQuery::checkDetach()
+{
+    if ( d->count > 1 && d->sqlResult ) {
+	TQString sql = d->sqlResult->lastQuery();
+	*this = driver()->createQuery();
+	exec( sql );
+	return TRUE;
+    }
+    return FALSE;
+}
+
+
+/*!
+    Protected virtual function called before the internal record
+    pointer is moved to a new record. The default implementation does
+    nothing.
+*/
+
+void TQSqlQuery::beforeSeek()
+{
+
+}
+
+
+/*!
+    Protected virtual function called after the internal record
+    pointer is moved to a new record. The default implementation does
+    nothing.
+*/
+
+void TQSqlQuery::afterSeek()
+{
+
+}
+
+// XXX: Hack to keep BCI - remove in 4.0. TQSqlExtension should be
+// removed, and the prepare(), exec() etc. fu's should be
+// made virtual members of TQSqlQuery/TQSqlResult
+
+/*!
+    Prepares the SQL query \a query for execution. The query may
+    contain placeholders for binding values. Both Oracle style
+    colon-name (e.g. \c{:surname}), and ODBC style (e.g. \c{?})
+    placeholders are supported; but they cannot be mixed in the same
+    query. See the \link #details Description\endlink for examples.
+
+    \sa exec(), bindValue(), addBindValue()
+*/
+bool TQSqlQuery::prepare( const TQString& query )
+{
+    if ( !d->sqlResult || !d->sqlResult->extension() )
+	return FALSE;
+    d->sqlResult->setActive( FALSE );
+    d->sqlResult->setLastError( TQSqlError() );
+    d->sqlResult->setAt( TQSql::BeforeFirst );
+    d->sqlResult->extension()->clear();
+    if ( !driver() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlQuery::prepare: no driver" );
+#endif
+	return FALSE;
+    }
+    if ( d->count > 1 )
+	*this = driver()->createQuery();
+    d->sqlResult->setQuery( query.stripWhiteSpace() );
+    if ( !driver()->isOpen() || driver()->isOpenError() ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlQuery::prepare: database not open" );
+#endif
+	return FALSE;
+    }
+    if ( query.isNull() || query.length() == 0 ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning("TQSqlQuery::prepare: empty query" );
+#endif
+	return FALSE;
+    }
+#ifdef TQT_DEBUG_SQL
+    qDebug( "\n TQSqlQuery: " + query );
+#endif
+    TQString q = query;
+    TQRegExp rx(TQString::tqfromLatin1("'[^']*'|:([a-zA-Z0-9_]+)"));
+    if ( driver()->hasFeature( TQSqlDriver::PreparedQueries ) ) {
+	// below we substitute Oracle placeholders with ODBC ones and
+	// vice versa to make this db independent
+	int i = 0, cnt = 0;
+	if ( driver()->hasFeature( TQSqlDriver::NamedPlaceholders ) ) {
+	    TQRegExp rx(TQString::tqfromLatin1("'[^']*'|\\?"));
+	    while ( (i = rx.search( q, i )) != -1 ) {
+		if ( rx.cap(0) == "?" ) {
+		    q = q.tqreplace( i, 1, ":f" + TQString::number(cnt) );
+		    cnt++;
+		}
+		i += rx.matchedLength();
+	    }
+	} else if ( driver()->hasFeature( TQSqlDriver::PositionalPlaceholders ) ) {
+	    while ( (i = rx.search( q, i )) != -1 ) {
+		if ( rx.cap(1).isEmpty() ) {
+		    i += rx.matchedLength();
+		} else {
+		    // record the index of the placeholder - needed
+		    // for emulating named bindings with ODBC
+		    d->sqlResult->extension()->index[ cnt ]= rx.cap(0);
+		    q = q.tqreplace( i, rx.matchedLength(), "?" );
+		    i++;
+		    cnt++;
+		}
+	    }
+	}
+	d->executedQuery = q;
+	return d->sqlResult->extension()->prepare( q );
+    } else {
+	int i = 0;
+	while ( (i = rx.search( q, i )) != -1 ) {
+	    if ( !rx.cap(1).isEmpty() )
+		d->sqlResult->extension()->holders.append( Holder( rx.cap(0), i ) );
+	    i += rx.matchedLength();
+	}
+	return TRUE; // fake prepares should always succeed
+    }
+}
+
+/*!
+    \overload
+
+    Executes a previously prepared SQL query. Returns TRUE if the
+    query executed successfully; otherwise returns FALSE.
+
+    \sa prepare(), bindValue(), addBindValue()
+*/
+bool TQSqlQuery::exec()
+{
+    bool ret;
+    if ( !d->sqlResult || !d->sqlResult->extension() )
+	return FALSE;
+    if ( driver()->hasFeature( TQSqlDriver::PreparedQueries ) ) {
+	ret = d->sqlResult->extension()->exec();
+    } else {
+	// fake preparation - just tqreplace the placeholders..
+	TQString query = d->sqlResult->lastQuery();
+	if ( d->sqlResult->extension()->bindMethod() == TQSqlExtension::BindByName ) {
+	    int i;
+	    TQVariant val;
+	    TQString holder;
+	    for ( i = (int)d->sqlResult->extension()->holders.count() - 1; i >= 0; --i ) {
+		holder = d->sqlResult->extension()->holders[ (uint)i ].holderName;
+		val = d->sqlResult->extension()->values[ holder ].value;
+		TQSqlField f( "", val.type() );
+		if ( val.isNull() )
+		    f.setNull();
+		else
+		    f.setValue( val );
+		query = query.tqreplace( (uint)d->sqlResult->extension()->holders[ (uint)i ].holderPos,
+			holder.length(), driver()->formatValue( &f ) );
+	    }
+	} else {
+	    TQMap<int, TQString>::ConstIterator it;
+	    TQString val;
+	    int i = 0;
+	    for ( it = d->sqlResult->extension()->index.begin();
+		  it != d->sqlResult->extension()->index.end(); ++it ) {
+		i = query.tqfind( '?', i );
+		if ( i > -1 ) {
+		    TQSqlField f( "", d->sqlResult->extension()->values[ it.data() ].value.type() );
+		    if ( d->sqlResult->extension()->values[ it.data() ].value.isNull() )
+			f.setNull();
+		    else
+			f.setValue( d->sqlResult->extension()->values[ it.data() ].value );
+		    val = driver()->formatValue( &f );
+		    query = query.tqreplace( i, 1, driver()->formatValue( &f ) );
+		    i += val.length();
+		}
+	    }
+	}
+	// have to retain the original query w/placeholders..
+	TQString orig = d->sqlResult->lastQuery();
+	ret = exec( query );
+	d->executedQuery = query;
+	d->sqlResult->setQuery( orig );
+    }
+    d->sqlResult->extension()->resetBindCount();
+    return ret;
+}
+
+/*!
+    Set the placeholder \a placeholder to be bound to value \a val in
+    the prepared statement. Note that the placeholder mark (e.g \c{:})
+    must be included when specifying the placeholder name. If \a type
+    is \c TQSql::Out or \c TQSql::InOut, the placeholder will be
+    overwritten with data from the database after the exec() call.
+
+    \sa addBindValue(), prepare(), exec()
+*/
+void TQSqlQuery::bindValue( const TQString& placeholder, const TQVariant& val, TQSql::ParameterType type )
+{
+    if ( !d->sqlResult || !d->sqlResult->extension() )
+	return;
+    d->sqlResult->extension()->bindValue( placeholder, val, type );
+}
+
+/*!
+    \overload
+
+    Set the placeholder in position \a pos to be bound to value \a val
+    in the prepared statement. Field numbering starts at 0. If \a type
+    is \c TQSql::Out or \c TQSql::InOut, the placeholder will be
+    overwritten with data from the database after the exec() call.
+
+    \sa addBindValue(), prepare(), exec()
+*/
+void TQSqlQuery::bindValue( int pos, const TQVariant& val, TQSql::ParameterType type )
+{
+    if ( !d->sqlResult || !d->sqlResult->extension() )
+	return;
+    d->sqlResult->extension()->bindValue( pos, val, type );
+}
+
+/*!
+    Adds the value \a val to the list of values when using positional
+    value binding. The order of the addBindValue() calls determines
+    which placeholder a value will be bound to in the prepared query.
+    If \a type is \c TQSql::Out or \c TQSql::InOut, the placeholder will
+    be overwritten with data from the database after the exec() call.
+
+    \sa bindValue(), prepare(), exec()
+*/
+void TQSqlQuery::addBindValue( const TQVariant& val, TQSql::ParameterType type )
+{
+    if ( !d->sqlResult || !d->sqlResult->extension() )
+	return;
+    d->sqlResult->extension()->addBindValue( val, type );
+}
+
+
+/*!
+    \overload
+
+    Binds the placeholder with type \c TQSql::In.
+*/
+void TQSqlQuery::bindValue( const TQString& placeholder, const TQVariant& val )
+{
+    bindValue( placeholder, val, TQSql::In );
+}
+
+/*!
+    \overload
+
+    Binds the placeholder at position \a pos with type \c TQSql::In.
+*/
+void TQSqlQuery::bindValue( int pos, const TQVariant& val )
+{
+    bindValue( pos, val, TQSql::In );
+}
+
+/*!
+    \overload
+
+    Binds the placeholder with type \c TQSql::In.
+*/
+void TQSqlQuery::addBindValue( const TQVariant& val )
+{
+    addBindValue( val, TQSql::In );
+}
+
+/*!
+    Returns the value for the \a placeholder.
+*/
+TQVariant TQSqlQuery::boundValue( const TQString& placeholder ) const
+{
+    if ( !d->sqlResult || !d->sqlResult->extension() )
+	return TQVariant();
+    return d->sqlResult->extension()->boundValue( placeholder );
+}
+
+/*!
+    \overload
+
+    Returns the value for the placeholder at position \a pos.
+*/
+TQVariant TQSqlQuery::boundValue( int pos ) const
+{
+    if ( !d->sqlResult || !d->sqlResult->extension() )
+	return TQVariant();
+    return d->sqlResult->extension()->boundValue( pos );
+}
+
+/*!
+    Returns a map of the bound values.
+
+    The bound values can be examined in the following way:
+    \code
+    TQSqlQuery query;
+    ...
+    // Examine the bound values - bound using named binding
+    TQMap<TQString, TQVariant>::ConstIterator it;
+    TQMap<TQString, TQVariant> vals = query.boundValues();
+    for ( it = vals.begin(); it != vals.end(); ++it )
+        qWarning( "Placeholder: " + it.key() + ", Value: " + (*it).toString() );
+    ...
+
+    // Examine the bound values - bound using positional binding
+    TQValueList<TQVariant>::ConstIterator it;
+    TQValueList<TQVariant> list = query.boundValues().values();
+    int i = 0;
+    for ( it = list.begin(); it != list.end(); ++it )
+        qWarning( "Placeholder pos: %d, Value: " + (*it).toString(), i++ );
+    ...
+
+    \endcode
+*/
+TQMap<TQString,TQVariant> TQSqlQuery::boundValues() const
+{
+    if ( !d->sqlResult || !d->sqlResult->extension() )
+	return TQMap<TQString,TQVariant>();
+    return d->sqlResult->extension()->boundValues();
+}
+
+/*!
+    Returns the last query that was executed.
+
+    In most cases this function returns the same as lastQuery(). If a
+    prepared query with placeholders is executed on a DBMS that does
+    not support it, the preparation of this query is emulated. The
+    placeholders in the original query are tqreplaced with their bound
+    values to form a new query. This function returns the modified
+    query. Useful for debugging purposes.
+
+    \sa lastQuery()
+*/
+TQString TQSqlQuery::executedQuery() const
+{
+    return d->executedQuery;
+}
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/tqsqlquery.h b/tqtinterface/qt4/src/sql/tqsqlquery.h
new file mode 100644
index 0000000..4fac1f2
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlquery.h
@@ -0,0 +1,134 @@
+/****************************************************************************
+**
+** Definition of TQSqlQuery class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSQLTQUERY_H
+#define TQSQLTQUERY_H
+
+#ifndef TQT_H
+#include "tqobject.h"
+#include "tqstring.h"
+#include "tqvariant.h"
+#include "tqvaluelist.h"
+#include "tqsqlerror.h"
+#include "tqsqlfield.h"
+#include "tqsql.h"
+#endif // TQT_H
+
+#ifndef TQT_NO_SQL
+
+class TQSqlDriver;
+class TQSqlResult;
+class TQSqlDatabase;
+
+class TQ_EXPORT TQSqlResultShared : public TQObject, public TQShared
+{
+    Q_OBJECT
+    TQ_OBJECT
+public:
+    TQSqlResultShared( TQSqlResult* result );
+    virtual ~TQSqlResultShared();
+    TQSqlResult* sqlResult;
+    TQString executedQuery;
+private Q_SLOTS:
+    void slotResultDestroyed();
+};
+
+class TQ_EXPORT TQSqlQuery
+{
+public:
+    TQSqlQuery( TQSqlResult * r );
+    TQSqlQuery( const TQString& query = TQString::null, TQSqlDatabase* db = 0 );
+    TQ_EXPLICIT TQSqlQuery( TQSqlDatabase* db );
+    TQSqlQuery( const TQSqlQuery& other );
+    TQSqlQuery& operator=( const TQSqlQuery& other );
+    virtual ~TQSqlQuery();
+
+    bool                isValid() const;
+    bool                isActive() const;
+    bool	        isNull( int field ) const;
+    int                 at() const;
+    TQString             lastQuery() const;
+    int                 numRowsAffected() const;
+    TQSqlError	        lastError() const;
+    bool                isSelect() const;
+    int                 size() const;
+    const TQSqlDriver*   driver() const;
+    const TQSqlResult*   result() const;
+    bool		isForwardOnly() const;
+    void		setForwardOnly( bool forward );
+
+    virtual bool	exec ( const TQString& query );
+    virtual TQVariant    value( int i ) const;
+
+    virtual bool	seek( int i, bool relative = FALSE );
+    virtual bool        next();
+    virtual bool        prev();
+    virtual bool        first();
+    virtual bool        last();
+
+    // prepared query support
+    bool		exec();
+    bool		prepare( const TQString& query );
+    void		bindValue( const TQString& placeholder, const TQVariant& val );
+    void		bindValue( int pos, const TQVariant& val );
+    void		addBindValue( const TQVariant& val );
+    // remove these overloads in 4.0
+    void		bindValue( const TQString& placeholder, const TQVariant& val, TQSql::ParameterType type );
+    void		bindValue( int pos, const TQVariant& val, TQSql::ParameterType type );
+    void		addBindValue( const TQVariant& val, TQSql::ParameterType type );
+    TQVariant		boundValue( const TQString& placeholder ) const;
+    TQVariant		boundValue( int pos ) const;
+    TQMap<TQString, TQVariant> boundValues() const;
+    TQString             executedQuery() const;
+
+protected:
+    virtual void        beforeSeek();
+    virtual void        afterSeek();
+
+private:
+    void 		init( const TQString& query, TQSqlDatabase* db );
+    void                deref();
+    bool                checkDetach();
+    TQSqlResultShared*   d;
+};
+
+
+#endif // TQT_NO_SQL
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlrecord.cpp b/tqtinterface/qt4/src/sql/tqsqlrecord.cpp
new file mode 100644
index 0000000..c082d16
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlrecord.cpp
@@ -0,0 +1,774 @@
+/****************************************************************************
+**
+** Implementation of TQSqlRecord class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlrecord.h"
+
+#ifndef TQT_NO_SQL
+
+#include "tqregexp.h"
+#include "tqvaluevector.h"
+#include "tqshared.h"
+#include "tqnamespace.h"
+
+class TQSqlRecordPrivate
+{
+public:
+    class info {
+    public:
+	info() : nogen(FALSE){}
+	~info() {}
+	info( const info& other )
+	    : field( other.field ), nogen( other.nogen )
+	{
+	}
+	info& operator=(const info& other)
+	{
+	    field = other.field;
+	    nogen = other.nogen;
+	    return *this;
+	}
+	bool isValid() const
+	{
+	    return !field.name().isNull();
+	}
+	TQ_DUMMY_COMPARISON_OPERATOR(info)
+	TQSqlField field;
+	bool    nogen;
+    };
+
+    TQSqlRecordPrivate(): cnt(0) 
+    {
+    }
+    TQSqlRecordPrivate( const TQSqlRecordPrivate& other )
+    {
+	*this = other;
+    }
+    ~TQSqlRecordPrivate() {};
+    TQSqlRecordPrivate& operator=( const TQSqlRecordPrivate& other )
+    {
+	fi = other.fi;
+	cnt = other.cnt;
+	return *this;
+    }
+    void append( const TQSqlField& field )
+    {
+	info i;
+	i.field = field;
+	fi.append( i );
+	cnt++;
+    }
+    void insert( int pos, const TQSqlField& field )
+    {
+	info i;
+	i.field = field;
+	if ( pos == (int)fi.size() )
+	    append( field );
+	if ( pos > (int)fi.size() ) {
+	    fi.resize( pos + 1 );
+	    cnt++;
+	}
+	fi[ pos ] = i;
+    }
+    void remove( int i )
+    {
+	info inf;
+	if ( i >= (int)fi.count() )
+	    return;
+	if ( fi[ i ].isValid() )
+	    cnt--;
+	fi[ i ] = inf;
+	// clean up some memory
+	while ( fi.count() && !fi.back().isValid() )
+	    fi.pop_back();
+    }
+    void clear()
+    {
+	fi.clear();
+	cnt = 0;
+    }
+    bool isEmpty()
+    {
+	return cnt == 0;
+    }
+    info* fieldInfo( int i )
+    {
+	if ( i < (int)fi.count() )
+	    return &fi[i];
+	return 0;
+    }
+    uint count() const
+    {
+	return cnt;
+    }
+    bool tqcontains( int i ) const
+    {
+	return i >= 0 && i < (int)fi.count() && fi[ i ].isValid();
+    }
+private:
+    TQValueVector< info > fi;
+    uint		 cnt;
+};
+
+TQSqlRecordShared::~TQSqlRecordShared()
+{
+    if ( d )
+	delete d;
+}
+
+/*!
+    \class TQSqlRecord tqsqlfield.h
+    \brief The TQSqlRecord class encapsulates a database record, i.e. a
+    set of database fields.
+
+    \ingroup database
+    \module sql
+
+    The TQSqlRecord class encapsulates the functionality and
+    characteristics of a database record (usually a table or view within
+    the database). TQSqlRecords support adding and removing fields as
+    well as setting and retrieving field values.
+
+    TQSqlRecord is implicitly shared. This means you can make copies of
+    the record in time O(1). If multiple TQSqlRecord instances share
+    the same data and one is modifying the record's data then this
+    modifying instance makes a copy and modifies its private copy -
+    thus it does not affect other instances.
+
+    \sa TQSqlRecordInfo
+*/
+
+
+/*!
+    Constructs an empty record.
+*/
+
+TQSqlRecord::TQSqlRecord()
+{
+    sh = new TQSqlRecordShared( new TQSqlRecordPrivate() );
+}
+
+/*!
+    Constructs a copy of \a other.
+*/
+
+TQSqlRecord::TQSqlRecord( const TQSqlRecord& other )
+    : sh( other.sh )
+{
+    sh->ref();
+}
+
+/*!
+    Sets the record equal to \a other.
+*/
+
+TQSqlRecord& TQSqlRecord::operator=( const TQSqlRecord& other )
+{
+    other.sh->ref();
+    deref();
+    sh = other.sh;
+    return *this;
+}
+
+/*! \internal
+*/
+
+void TQSqlRecord::deref()
+{
+    if ( sh->deref() ) {
+	delete sh;
+	sh = 0;
+    }
+}
+
+/*! \internal
+*/
+
+bool TQSqlRecord::checkDetach()
+{
+    if ( sh->count > 1 ) {
+	sh->deref();
+	sh = new TQSqlRecordShared( new TQSqlRecordPrivate( *sh->d ) );
+	return TRUE;
+    }
+    return FALSE;
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQSqlRecord::~TQSqlRecord()
+{
+    deref();
+}
+
+/*!
+    Returns the value of the field located at position \a i in the
+    record. If field \a i does not exist the resultant behaviour is
+    undefined.
+
+    This function should be used with \l{TQSqlQuery}s. When working
+    with a TQSqlCursor the \link TQSqlCursor::value() value(const
+    TQString&)\endlink overload which uses field names is more
+    appropriate.
+*/
+
+TQVariant TQSqlRecord::value( int i ) const
+{
+    const TQSqlField * f = field(i);
+
+    if( f )
+	return f->value();
+    return TQVariant();
+}
+
+/*!
+    \overload
+
+    Returns the value of the field called \a name in the record. If
+    field \a name does not exist the resultant behaviour is undefined.
+*/
+
+TQVariant  TQSqlRecord::value( const TQString& name ) const
+{
+    const TQSqlField * f = field( name );
+
+    if( f )
+	return f->value();
+    return TQVariant();
+}
+
+/*!
+    Returns the name of the field at position \a i. If the field does
+    not exist, TQString::null is returned.
+*/
+
+TQString TQSqlRecord::fieldName( int i ) const
+{
+    const TQSqlField* f = field( i );
+    if ( f )
+	return f->name();
+    return TQString::null;
+}
+
+/*!
+    Returns the position of the field called \a name within the
+    record, or -1 if it cannot be found. Field names are not
+    case-sensitive. If more than one field matches, the first one is
+    returned.
+*/
+
+int TQSqlRecord::position( const TQString& name ) const
+{
+    for ( uint i = 0; i < count(); ++i ) {
+	if ( fieldName(i).upper() == name.upper() )
+	    return i;
+    }
+#ifdef TQT_CHECK_RANGE
+    qWarning( "TQSqlRecord::position: unable to tqfind field %s", name.latin1() );
+#endif
+    return -1;
+}
+
+/*!
+    Returns the field at position \a i within the record, or 0 if it
+    cannot be found.
+*/
+
+TQSqlField* TQSqlRecord::field( int i )
+{
+    checkDetach();
+    if ( !sh->d->tqcontains( i ) ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQSqlRecord::field: index out of range: %d", i );
+#endif
+	return 0;
+    }
+    return &sh->d->fieldInfo( i )->field;
+}
+
+/*!
+    \overload
+
+    Returns the field called \a name within the record, or 0 if it
+    cannot be found. Field names are not case-sensitive.
+*/
+
+TQSqlField* TQSqlRecord::field( const TQString& name )
+{
+    checkDetach();
+    if ( !sh->d->tqcontains( position( name ) ) )
+	return 0;
+    return &sh->d->fieldInfo( position( name ) )->field;
+}
+
+
+/*!
+    \overload
+*/
+
+const TQSqlField* TQSqlRecord::field( int i ) const
+{
+    if ( !sh->d->tqcontains( i ) ) {
+#ifdef TQT_CHECK_RANGE
+	qWarning( "TQSqlRecord::field: index out of range: %d", i  );
+#endif // TQT_CHECK_RANGE
+	return 0;
+    }
+    return &sh->d->fieldInfo( i )->field;
+}
+
+/*!
+    \overload
+
+    Returns the field called \a name within the record, or 0 if it
+    cannot be found. Field names are not case-sensitive.
+*/
+
+const TQSqlField* TQSqlRecord::field( const TQString& name ) const
+{
+    if( !sh->d->tqcontains( position( name ) ) )
+	return 0;
+    return &sh->d->fieldInfo( position( name ) )->field;
+}
+
+/*!
+    Append a copy of field \a field to the end of the record.
+*/
+
+void TQSqlRecord::append( const TQSqlField& field )
+{
+    checkDetach();
+    sh->d->append( field );
+}
+
+/*!
+    Insert a copy of \a field at position \a pos. If a field already
+    exists at \a pos, it is removed.
+*/
+
+void TQSqlRecord::insert( int pos, const TQSqlField& field ) // ### 4.0: rename to ::tqreplace
+{
+    checkDetach();
+    sh->d->insert( pos, field );
+}
+
+/*!
+    Removes the field at \a pos. If \a pos does not exist, nothing
+    happens.
+*/
+
+void TQSqlRecord::remove( int pos )
+{
+    checkDetach();
+    sh->d->remove( pos );
+}
+
+/*!
+    Removes all the record's fields.
+
+    \sa clearValues()
+*/
+
+void TQSqlRecord::clear()
+{
+    checkDetach();
+    sh->d->clear();
+}
+
+/*!
+    Returns TRUE if there are no fields in the record; otherwise
+    returns FALSE.
+*/
+
+bool TQSqlRecord::isEmpty() const
+{
+    return sh->d->isEmpty();
+}
+
+
+/*!
+    Returns TRUE if there is a field in the record called \a name;
+    otherwise returns FALSE.
+*/
+
+bool TQSqlRecord::tqcontains( const TQString& name ) const
+{
+    for ( uint i = 0; i < count(); ++i ) {
+	if ( fieldName(i).upper() == name.upper() )
+	    return TRUE;
+    }
+    return FALSE;
+}
+
+/*!
+    Clears the value of all fields in the record. If \a nullify is
+    TRUE, (the default is FALSE), each field is set to NULL.
+*/
+
+void TQSqlRecord::clearValues( bool nullify )
+{
+    checkDetach();
+    int cnt = (int)count();
+    int i;
+    for ( i = 0; i < cnt; ++i ) {
+	field( i )->clear( nullify );
+    }
+}
+
+/*!
+    Sets the generated flag for the field called \a name to \a
+    generated. If the field does not exist, nothing happens. Only
+    fields that have \a generated set to TRUE are included in the SQL
+    that is generated, e.g. by TQSqlCursor.
+
+    \sa isGenerated()
+*/
+
+void TQSqlRecord::setGenerated( const TQString& name, bool generated )
+{
+    setGenerated( position( name ), generated );
+}
+
+/*!
+    \overload
+
+    Sets the generated flag for the field \a i to \a generated.
+
+    \sa isGenerated()
+*/
+
+void TQSqlRecord::setGenerated( int i, bool generated )
+{
+    checkDetach();
+    if ( !field( i ) )
+	return;
+    sh->d->fieldInfo( i )->nogen = !generated;
+}
+
+/*!
+    \internal
+    ### Remove in 4.0
+*/
+bool TQSqlRecord::isNull( int i )
+{
+    checkDetach();
+    TQSqlField* f = field( i );
+    if ( f ) {
+	return f->isNull();
+    }
+    return TRUE;
+}
+
+/*! 
+    \internal
+    ### Remove in 4.0
+*/
+bool TQSqlRecord::isNull( const TQString& name )
+{
+    return isNull( position( name ) );
+}
+
+/*!
+    \overload
+
+    Returns TRUE if the field \a i is NULL or if there is no field at
+    position \a i; otherwise returns FALSE.
+
+    \sa fieldName()
+*/
+bool TQSqlRecord::isNull( int i ) const
+{
+    const TQSqlField* f = field( i );
+    if ( f ) {
+	return f->isNull();
+    }
+    return TRUE;
+}
+
+/*!
+    Returns TRUE if the field called \a name is NULL or if there is no
+    field called \a name; otherwise returns FALSE.
+
+    \sa position()
+*/
+bool TQSqlRecord::isNull( const TQString& name ) const
+{
+    return isNull( position( name ) );
+}
+
+/*!
+    Sets the value of field \a i to NULL. If the field does not exist,
+    nothing happens.
+*/
+void TQSqlRecord::setNull( int i )
+{
+    checkDetach();
+    TQSqlField* f = field( i );
+    if ( f ) {
+	f->setNull();
+    }
+}
+
+/*!
+    \overload
+
+    Sets the value of the field called \a name to NULL. If the field
+    does not exist, nothing happens.
+*/
+void TQSqlRecord::setNull( const TQString& name )
+{
+    setNull( position( name ) );
+}
+
+
+/*!
+    Returns TRUE if the record has a field called \a name and this
+    field is to be generated (the default); otherwise returns FALSE.
+
+    \sa setGenerated()
+*/
+bool TQSqlRecord::isGenerated( const TQString& name ) const
+{
+    return isGenerated( position( name ) );
+}
+
+/*!
+    \overload
+
+    Returns TRUE if the record has a field at position \a i and this
+    field is to be generated (the default); otherwise returns FALSE.
+
+    \sa setGenerated()
+*/
+bool TQSqlRecord::isGenerated( int i ) const
+{
+    if ( !field( i ) )
+	return FALSE;
+    return !sh->d->fieldInfo( i )->nogen;
+}
+
+
+/*!
+    Returns a list of all the record's field names as a string
+    separated by \a sep.
+
+    Note that fields which are not generated are \e not included (see
+    \l{isGenerated()}). The returned string is suitable, for example, for
+    generating SQL SELECT statements. If a \a prefix is specified,
+    e.g. a table name, all fields are prefixed in the form:
+
+    "\a{prefix}.\<fieldname\>"
+*/
+
+TQString TQSqlRecord::toString( const TQString& prefix, const TQString& sep ) const
+{
+    TQString pflist;
+    bool comma = FALSE;
+    for ( uint i = 0; i < count(); ++i ){
+	if ( isGenerated( field(i)->name() ) ) {
+	    if( comma )
+		pflist += sep + " ";
+	    pflist += createField( i, prefix );
+	    comma = TRUE;
+	}
+    }
+    return pflist;
+}
+
+/*!
+    Returns a list of all the record's field names, each having the
+    prefix \a prefix.
+
+    Note that fields which have generated set to FALSE are \e not
+    included. (See \l{isGenerated()}). If \a prefix is supplied, e.g.
+    a table name, all fields are prefixed in the form:
+
+    "\a{prefix}.\<fieldname\>"
+*/
+
+TQStringList TQSqlRecord::toStringList( const TQString& prefix ) const
+{
+    TQStringList s;
+    for ( uint i = 0; i < count(); ++i ) {
+	if ( isGenerated( field(i)->name() ) )
+	    s += createField( i, prefix );
+    }
+    return s;
+}
+
+/*! \internal
+*/
+
+TQString TQSqlRecord::createField( int i, const TQString& prefix ) const
+{
+    TQString f;
+    if ( !prefix.isEmpty() )
+	f = prefix + ".";
+    f += field( i )->name();
+    return f;
+}
+
+/*!
+    Returns the number of fields in the record.
+*/
+
+uint TQSqlRecord::count() const
+{
+    return sh->d->count();
+}
+
+/*!
+    Sets the value of the field at position \a i to \a val. If the
+    field does not exist, nothing happens.
+*/
+
+void TQSqlRecord::setValue( int i, const TQVariant& val )
+{
+    checkDetach();
+    TQSqlField* f = field( i );
+    if ( f ) {
+	f->setValue( val );
+    }
+}
+
+
+/*!
+    \overload
+
+    Sets the value of the field called \a name to \a val. If the field
+    does not exist, nothing happens.
+*/
+
+void TQSqlRecord::setValue( const TQString& name, const TQVariant& val )
+{
+    setValue( position( name ), val );
+}
+
+
+/******************************************/
+/*******     TQSqlRecordInfo Impl     ******/
+/******************************************/
+
+/*!
+    \class TQSqlRecordInfo tqsqlrecord.h
+    \brief The TQSqlRecordInfo class encapsulates a set of database field meta data.
+
+    \ingroup database
+    \module sql
+
+    This class is a TQValueList that holds a set of database field meta
+    data. Use tqcontains() to see if a given field name exists in the
+    record, and use tqfind() to get a TQSqlFieldInfo record for a named
+    field.
+
+    \sa TQValueList, TQSqlFieldInfo
+*/
+
+
+/*!
+    Constructs a TQSqlRecordInfo object based on the fields in the
+    TQSqlRecord \a other.
+*/
+TQSqlRecordInfo::TQSqlRecordInfo( const TQSqlRecord& other )
+{
+    for ( uint i = 0; i < other.count(); ++i ) {
+	push_back( TQSqlFieldInfo( *(other.field( i )), other.isGenerated( i ) ) );
+    }
+}
+
+/*!
+    Returns the number of times a field called \a fieldName occurs in
+    the record. Returns 0 if no field by that name could be found.
+*/
+TQSqlRecordInfo::size_type TQSqlRecordInfo::tqcontains( const TQString& fieldName ) const
+{
+   size_type i = 0;
+   TQString fName = fieldName.upper();
+   for( const_iterator it = begin(); it != end(); ++it ) {
+	if ( (*it).name().upper() == fName ) {
+	    ++i;
+	}
+    }
+    return i;
+}
+
+/*!
+    Returns a TQSqlFieldInfo object for the first field in the record
+    which has the field name \a fieldName. If no matching field is
+    found then an empty TQSqlFieldInfo object is returned.
+*/
+TQSqlFieldInfo TQSqlRecordInfo::tqfind( const TQString& fieldName ) const
+{
+   TQString fName = fieldName.upper();
+   for( const_iterator it = begin(); it != end(); ++it ) {
+	if ( (*it).name().upper() == fName ) {
+	    return *it;
+	}
+    }
+    return TQSqlFieldInfo();
+}
+
+/*!
+    Returns an empty TQSqlRecord based on the field information
+    in this TQSqlRecordInfo.
+*/
+TQSqlRecord TQSqlRecordInfo::toRecord() const
+{
+   TQSqlRecord buf;
+   for( const_iterator it = begin(); it != end(); ++it ) {
+	buf.append( (*it).toField() );
+   }
+   return buf;
+}
+
+/*!
+    \fn TQSqlRecordInfo::TQSqlRecordInfo()
+
+    Constructs an empty record info object
+*/
+
+/*!
+    \fn TQSqlRecordInfo::TQSqlRecordInfo( const TQSqlFieldInfoList& other )
+
+    Constructs a copy of \a other.
+*/
+
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlrecord.h b/tqtinterface/qt4/src/sql/tqsqlrecord.h
new file mode 100644
index 0000000..1dd99a3
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlrecord.h
@@ -0,0 +1,141 @@
+/****************************************************************************
+**
+** Definition of TQSqlRecord class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSTQLRECORD_H
+#define TQSTQLRECORD_H
+
+#ifndef TQT_H
+#include "tqstring.h"
+#include "tqstringlist.h"
+#include "tqvariant.h"
+#include "tqsqlfield.h"
+#endif // TQT_H
+
+#ifndef TQT_NO_SQL
+
+class TQSqlRecordPrivate;
+
+class TQSqlRecordShared : public TQShared
+{
+public:
+    TQSqlRecordShared( TQSqlRecordPrivate* sqlRecordPrivate )
+    : d( sqlRecordPrivate )
+    {}
+    virtual ~TQSqlRecordShared();
+    TQSqlRecordPrivate* d;
+};
+
+class TQ_EXPORT TQSqlRecord
+{
+public:
+    TQSqlRecord();
+    TQSqlRecord( const TQSqlRecord& other );
+    TQSqlRecord& operator=( const TQSqlRecord& other );
+    virtual ~TQSqlRecord();
+    virtual TQVariant     value( int i ) const;
+    virtual TQVariant     value( const TQString& name ) const;
+    virtual void         setValue( int i, const TQVariant& val );
+    virtual void         setValue( const TQString& name, const TQVariant& val );
+    bool                 isGenerated( int i ) const;
+    bool                 isGenerated( const TQString& name ) const;
+    virtual void         setGenerated( const TQString& name, bool generated );
+    virtual void         setGenerated( int i, bool generated );
+    virtual void         setNull( int i );
+    virtual void         setNull( const TQString& name );
+    bool                 isNull( int i ); // remove in 4.0
+    bool                 isNull( const TQString& name ); // remove in 4.0
+    bool                 isNull( int i ) const;
+    bool                 isNull( const TQString& name ) const;
+
+    int                  position( const TQString& name ) const;
+    TQString              fieldName( int i ) const;
+    TQSqlField*           field( int i );
+    TQSqlField*           field( const TQString& name );
+    const TQSqlField*     field( int i ) const;
+    const TQSqlField*     field( const TQString& name ) const;
+
+    virtual void         append( const TQSqlField& field );
+    virtual void         insert( int pos, const TQSqlField& field );
+    virtual void         remove( int pos );
+
+    bool                 isEmpty() const;
+    bool                 tqcontains( const TQString& name ) const;
+    virtual void         clear();
+    virtual void         clearValues( bool nullify = FALSE );
+    uint                 count() const;
+    virtual TQString      toString( const TQString& prefix = TQString::null,
+				   const TQString& sep = "," ) const;
+    virtual TQStringList  toStringList( const TQString& prefix = TQString::null ) const;
+
+private:
+    TQString              createField( int i, const TQString& prefix ) const;
+    void                 deref();
+    bool                 checkDetach();
+    TQSqlRecordShared*    sh;
+};
+
+/******************************************/
+/*******     TQSqlRecordInfo Class    ******/
+/******************************************/
+
+#if defined(TQ_TEMPLATEDLL)
+// TQMOC_SKIP_BEGIN
+TQ_TEMPLATE_EXTERN template class TQ_EXPORT TQValueList<TQSqlFieldInfo>;
+// TQMOC_SKIP_END
+#endif
+
+typedef TQValueList<TQSqlFieldInfo> TQSqlFieldInfoList;
+
+class TQ_EXPORT TQSqlRecordInfo: public TQSqlFieldInfoList
+{
+public:
+    TQSqlRecordInfo(): TQSqlFieldInfoList() {}
+    TQSqlRecordInfo( const TQSqlFieldInfoList& other ): TQSqlFieldInfoList( other ) {}
+    TQSqlRecordInfo( const TQSqlRecord& other );
+
+    size_type tqcontains( const TQString& fieldName ) const;
+    TQSqlFieldInfo tqfind( const TQString& fieldName ) const;
+    TQSqlRecord toRecord() const;
+
+};
+
+
+#endif	// TQT_NO_SQL
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlresult.cpp b/tqtinterface/qt4/src/sql/tqsqlresult.cpp
new file mode 100644
index 0000000..0555929
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlresult.cpp
@@ -0,0 +1,368 @@
+/****************************************************************************
+**
+** Implementation of TQSqlResult class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlresult.h"
+#include "private/tqsqlextension_p.h"
+
+#ifndef TQT_NO_SQL
+
+class TQSqlResultPrivate
+{
+public:
+    const TQSqlDriver*   sqldriver;
+    int             idx;
+    TQString         sql;
+    bool            active;
+    bool            isSel;
+    TQSqlError	    error;
+    TQSqlExtension * ext;
+};
+
+/*!
+    \class TQSqlResult
+    \brief The TQSqlResult class provides an abstract interface for
+    accessing data from SQL databases.
+
+    \ingroup database
+    \module sql
+
+    Normally you would use TQSqlQuery instead of TQSqlResult since TQSqlQuery
+    provides a generic wrapper for database-specific implementations of
+    TQSqlResult.
+
+    \sa TQSql
+*/
+
+
+/*!
+    Protected constructor which creates a TQSqlResult using database \a
+    db. The object is initialized to an inactive state.
+*/
+
+TQSqlResult::TQSqlResult( const TQSqlDriver * db ): forwardOnly( FALSE )
+{
+    d = new TQSqlResultPrivate();
+    d->sqldriver = db;
+    d->idx = TQSql::BeforeFirst;
+    d->isSel = FALSE;
+    d->active = FALSE;
+    d->ext = new TQSqlExtension();
+}
+
+/*!
+    Destroys the object and frees any allocated resources.
+*/
+
+TQSqlResult::~TQSqlResult()
+{
+    if ( d->ext )
+	delete d->ext;
+    delete d;
+}
+
+/*!
+    Sets the current query for the result to \a query. The result must
+    be reset() in order to execute the query on the database.
+*/
+
+void TQSqlResult::setQuery( const TQString& query )
+{
+    d->sql = query;
+}
+
+/*!
+    Returns the current SQL query text, or TQString::null if there is none.
+*/
+
+TQString TQSqlResult::lastQuery() const
+{
+    return d->sql;
+}
+
+/*!
+    Returns the current (zero-based) position of the result.
+*/
+
+int TQSqlResult::at() const
+{
+    return d->idx;
+}
+
+
+/*!
+    Returns TRUE if the result is positioned on a valid record (that
+    is, the result is not positioned before the first or after the
+    last record); otherwise returns FALSE.
+*/
+
+bool TQSqlResult::isValid() const
+{
+    return ( d->idx != TQSql::BeforeFirst && \
+	    d->idx != TQSql::AfterLast ) ? TRUE : FALSE;
+}
+
+/*!
+    \fn bool TQSqlResult::isNull( int i )
+
+    Returns TRUE if the field at position \a i is NULL; otherwise
+    returns FALSE.
+*/
+
+
+/*!
+    Returns TRUE if the result has records to be retrieved; otherwise
+    returns FALSE.
+*/
+
+bool TQSqlResult::isActive() const
+{
+    return d->active;
+}
+
+/*!
+    Protected function provided for derived classes to set the
+    internal (zero-based) result index to \a at.
+
+    \sa at()
+*/
+
+void TQSqlResult::setAt( int at )
+{
+    d->idx = at;
+}
+
+
+/*!
+    Protected function provided for derived classes to indicate
+    whether or not the current statement is a SQL SELECT statement.
+    The \a s parameter should be TRUE if the statement is a SELECT
+    statement, or FALSE otherwise.
+*/
+
+void TQSqlResult::setSelect( bool s )
+{
+    d->isSel = s;
+}
+
+/*!
+    Returns TRUE if the current result is from a SELECT statement;
+    otherwise returns FALSE.
+*/
+
+bool TQSqlResult::isSelect() const
+{
+    return d->isSel;
+}
+
+/*!
+    Returns the driver associated with the result.
+*/
+
+const TQSqlDriver* TQSqlResult::driver() const
+{
+    return d->sqldriver;
+}
+
+
+/*!
+    Protected function provided for derived classes to set the
+    internal active state to the value of \a a.
+
+    \sa isActive()
+*/
+
+void TQSqlResult::setActive( bool a )
+{
+    d->active = a;
+}
+
+/*!
+    Protected function provided for derived classes to set the last
+    error to the value of \a e.
+
+    \sa lastError()
+*/
+
+void TQSqlResult::setLastError( const TQSqlError& e )
+{
+    d->error = e;
+}
+
+
+/*!
+    Returns the last error associated with the result.
+*/
+
+TQSqlError TQSqlResult::lastError() const
+{
+    return d->error;
+}
+
+/*!
+    \fn int TQSqlResult::size()
+
+    Returns the size of the result or -1 if it cannot be determined.
+*/
+
+/*!
+    \fn int TQSqlResult::numRowsAffected()
+
+    Returns the number of rows affected by the last query executed.
+*/
+
+/*!
+    \fn TQVariant TQSqlResult::data( int i )
+
+    Returns the data for field \a i (zero-based) as a TQVariant. This
+    function is only called if the result is in an active state and is
+    positioned on a valid record and \a i is non-negative.
+    Derived classes must reimplement this function and return the value
+    of field \a i, or TQVariant() if it cannot be determined.
+*/
+
+/*!
+    \fn  bool TQSqlResult::reset( const TQString& query )
+
+    Sets the result to use the SQL statement \a query for subsequent
+    data retrieval. Derived classes must reimplement this function and
+    apply the \a query to the database. This function is called only
+    after the result is set to an inactive state and is positioned
+    before the first record of the new result. Derived classes should
+    return TRUE if the query was successful and ready to be used,
+    or FALSE otherwise.
+*/
+
+/*!
+    \fn bool TQSqlResult::fetch( int i )
+
+    Positions the result to an arbitrary (zero-based) index \a i. This
+    function is only called if the result is in an active state. Derived
+    classes must reimplement this function and position the result to the
+    index \a i, and call setAt() with an appropriate value. Return TRUE
+    to indicate success, or FALSE to signify failure.
+*/
+
+/*!
+    \fn bool TQSqlResult::fetchFirst()
+
+    Positions the result to the first record in the result. This
+    function is only called if the result is in an active state.
+    Derived classes must reimplement this function and position the result
+    to the first record, and call setAt() with an appropriate value.
+    Return TRUE to indicate success, or FALSE to signify failure.
+*/
+
+/*!
+    \fn bool TQSqlResult::fetchLast()
+
+    Positions the result to the last record in the result. This
+    function is only called if the result is in an active state.
+    Derived classes must reimplement this function and position the result
+    to the last record, and call setAt() with an appropriate value.
+    Return TRUE to indicate success, or FALSE to signify failure.
+*/
+
+/*!
+    Positions the result to the next available record in the result.
+    This function is only called if the result is in an active state.
+    The default implementation calls fetch() with the next index.
+    Derived classes can reimplement this function and position the result
+    to the next record in some other way, and call setAt() with an
+    appropriate value. Return TRUE to indicate success, or FALSE to
+    signify failure.
+*/
+
+bool TQSqlResult::fetchNext()
+{
+    return fetch( at() + 1 );
+}
+
+/*!
+    Positions the result to the previous available record in the
+    result. This function is only called if the result is in an active
+    state. The default implementation calls fetch() with the previous
+    index. Derived classes can reimplement this function and position the
+    result to the next record in some other way, and call setAt() with
+    an appropriate value. Return TRUE to indicate success, or FALSE to
+    signify failure.
+*/
+
+bool TQSqlResult::fetchPrev()
+{
+    return fetch( at() - 1 );
+}
+
+/*!
+    Returns TRUE if you can only scroll forward through a result set;
+    otherwise returns FALSE.
+*/
+bool TQSqlResult::isForwardOnly() const
+{
+    return forwardOnly;
+}
+
+/*!
+    Sets forward only mode to \a forward. If forward is TRUE only
+    fetchNext() is allowed for navigating the results. Forward only
+    mode needs far less memory since results do not have to be cached.
+    forward only mode is off by default.
+
+    \sa fetchNext()
+*/
+void TQSqlResult::setForwardOnly( bool forward )
+{
+    forwardOnly = forward;
+}
+
+// XXX BCI HACK - remove in 4.0
+/*! \internal */
+void TQSqlResult::setExtension( TQSqlExtension * ext )
+{
+    if ( d->ext )
+	delete d->ext;
+    d->ext = ext;
+}
+
+/*! \internal */
+TQSqlExtension * TQSqlResult::extension()
+{
+    return d->ext;
+}
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/tqsqlresult.h b/tqtinterface/qt4/src/sql/tqsqlresult.h
new file mode 100644
index 0000000..5da9bc6
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlresult.h
@@ -0,0 +1,115 @@
+/****************************************************************************
+**
+** Definition of TQSqlResult class
+**
+** Created : 2000-11-03
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSTQLRESULT_H
+#define TQSTQLRESULT_H
+
+#ifndef TQT_H
+#include "tqstring.h"
+#include "tqvariant.h"
+#include "tqsqlerror.h"
+#include "tqsqlfield.h"
+#include "tqsql.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQSqlDriver;
+class TQSql;
+class TQSqlResultPrivate;
+class TQSqlExtension;
+
+class TQM_EXPORT_SQL TQSqlResult
+{
+friend class TQSqlQuery;
+friend class TQSqlResultShared;
+public:
+    virtual ~TQSqlResult();
+    
+    // BCI HACK - remove in 4.0
+    void 	    setExtension( TQSqlExtension * ext );
+    TQSqlExtension * extension();
+
+protected:
+    TQSqlResult(const TQSqlDriver * db );
+    int		    at() const;
+    TQString         lastQuery() const;
+    TQSqlError       lastError() const;
+    bool            isValid() const;
+    bool            isActive() const;
+    bool            isSelect() const;
+    bool            isForwardOnly() const;
+    const TQSqlDriver* driver() const;
+    virtual void    setAt( int at );
+    virtual void    setActive( bool a );
+    virtual void    setLastError( const TQSqlError& e );
+    virtual void    setQuery( const TQString& query );
+    virtual void    setSelect( bool s );
+    virtual void    setForwardOnly( bool forward );
+
+    virtual TQVariant data( int i ) = 0;
+    virtual bool    isNull( int i ) = 0;
+    virtual bool    reset ( const TQString& sqlquery ) = 0;
+    virtual bool    fetch( int i ) = 0;
+    virtual bool    fetchNext();
+    virtual bool    fetchPrev();
+    virtual bool    fetchFirst() = 0;
+    virtual bool    fetchLast() = 0;
+    virtual int     size() = 0;
+    virtual int     numRowsAffected() = 0;
+private:
+    TQSqlResultPrivate* d;
+    bool forwardOnly;
+
+private:	// Disabled copy constructor and operator=
+#if defined(TQ_DISABLE_COPY)
+    TQSqlResult( const TQSqlResult & );
+    TQSqlResult &operator=( const TQSqlResult & );
+#endif
+};
+
+#endif	// TQT_NO_SQL
+#endif
diff --git a/tqtinterface/qt4/src/sql/tqsqlselectcursor.cpp b/tqtinterface/qt4/src/sql/tqsqlselectcursor.cpp
new file mode 100644
index 0000000..77d0548
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlselectcursor.cpp
@@ -0,0 +1,249 @@
+/****************************************************************************
+**
+** Definition of TQSqlSelectCursor class
+**
+** Created : 2002-11-13
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#include "tqsqlselectcursor.h"
+#include "tqsqldriver.h"
+
+#ifndef TQT_NO_SQL
+
+class TQSqlSelectCursorPrivate
+{
+public:
+    TQSqlSelectCursorPrivate() : populated( FALSE ) {}
+    TQString query;
+    bool populated : 1;
+};
+
+/*!
+    \class TQSqlSelectCursor tqsqlselectcursor.h
+    \brief The TQSqlSelectCursor class provides browsing of general SQL
+    SELECT statements.
+
+    \ingroup database
+    \module sql
+
+    TQSqlSelectCursor is a convenience class that makes it possible to
+    display result sets from general SQL \c SELECT statements in
+    data-aware TQt widgets. TQSqlSelectCursor is read-only and does not
+    support \c INSERT, \c UPDATE or \c DELETE operations.
+
+    Pass the query in at construction time, or use the
+    TQSqlSelectCursor::exec() function.
+
+    Example:
+    \code
+    ...
+    TQSqlSelectCursor* cur = new TQSqlSelectCursor( "SELECT id, firstname, lastname FROM author" );
+    TQDataTable* table = new TQDataTable( this );
+    table->setSqlCursor( cur, TRUE, TRUE );
+    table->refresh();
+    ...
+    cur->exec( "SELECT * FROM books" );
+    table->refresh();
+    ...
+    \endcode
+*/
+
+/*!
+    Constructs a read only cursor on database \a db using the query \a query.
+ */
+TQSqlSelectCursor::TQSqlSelectCursor( const TQString& query, TQSqlDatabase* db )
+    : TQSqlCursor( TQString::null, FALSE, db )
+{
+    d = new TQSqlSelectCursorPrivate;
+    d->query = query;
+    TQSqlCursor::setMode( ReadOnly );
+    if ( !query.isNull() )
+	exec( query );
+}
+
+/*! Constructs a copy of \a other */
+TQSqlSelectCursor::TQSqlSelectCursor( const TQSqlSelectCursor& other )
+    : TQSqlCursor( other )
+{
+    d = new TQSqlSelectCursorPrivate;
+    d->query = other.d->query;
+    d->populated = other.d->populated;
+}
+
+/*! Destroys the object and frees any allocated resources */
+TQSqlSelectCursor::~TQSqlSelectCursor()
+{
+    delete d;
+}
+
+/*! \reimp */
+bool TQSqlSelectCursor::exec( const TQString& query )
+{
+    d->query = query;
+    bool ret = TQSqlCursor::exec( query );
+    if ( ret ) {
+	TQSqlCursor::clear();
+	populateCursor();
+    }
+    return ret;
+}
+
+/*! \fn bool TQSqlSelectCursor::select()
+    \reimp
+*/
+
+/*! \reimp */
+bool TQSqlSelectCursor::select( const TQString&, const TQSqlIndex& )
+{
+    bool ret = TQSqlCursor::exec( d->query );
+    if ( ret && !d->populated )
+	populateCursor();
+    return ret;
+}
+
+/*! \internal */
+void TQSqlSelectCursor::populateCursor()
+{
+    TQSqlRecordInfo inf = driver()->recordInfo( *(TQSqlQuery*)this );
+    for ( TQSqlRecordInfo::const_iterator it = inf.begin(); it != inf.end(); ++it )
+	TQSqlCursor::append( *it );
+    d->populated = TRUE;
+}
+
+/*! \fn TQSqlIndex TQSqlSelectCursor::primaryIndex( bool ) const
+    \reimp
+*/
+
+/*! \fn TQSqlIndex TQSqlSelectCursor::index( const TQStringList& ) const
+    \reimp
+*/
+
+/*! \fn TQSqlIndex TQSqlSelectCursor::index( const TQString& ) const
+    \reimp
+*/
+
+/*! \fn TQSqlIndex TQSqlSelectCursor::index( const char* ) const
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::setPrimaryIndex( const TQSqlIndex& )
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::append( const TQSqlFieldInfo& )
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::insert( int, const TQSqlFieldInfo& )
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::remove( int )
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::clear()
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::setGenerated( const TQString&, bool )
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::setGenerated( int, bool )
+    \reimp
+*/
+
+/*! \fn TQSqlRecord* TQSqlSelectCursor::editBuffer( bool )
+    \reimp
+*/
+
+/*! \fn TQSqlRecord* TQSqlSelectCursor::primeInsert()
+    \reimp
+*/
+
+/*! \fn TQSqlRecord* TQSqlSelectCursor::primeUpdate()
+    \reimp
+*/
+
+/*! \fn TQSqlRecord* TQSqlSelectCursor::primeDelete()
+    \reimp
+*/
+
+/*! \fn int TQSqlSelectCursor::insert( bool )
+    \reimp
+*/
+
+/*! \fn int TQSqlSelectCursor::update( bool )
+    \reimp
+*/
+
+/*! \fn int TQSqlSelectCursor::del( bool )
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::setMode( int )
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::setSort( const TQSqlIndex& )
+    \reimp
+*/
+
+/*! \fn TQSqlIndex TQSqlSelectCursor::sort() const
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::setFilter( const TQString& )
+    \reimp
+*/
+
+/*! \fn TQString TQSqlSelectCursor::filter() const
+    \reimp
+*/
+
+/*! \fn void TQSqlSelectCursor::setName( const TQString&, bool )
+    \reimp
+*/
+
+/*! \fn TQString TQSqlSelectCursor::name() const
+    \reimp
+*/
+
+/*! \fn TQString TQSqlSelectCursor::toString( const TQString&, const TQString& ) const
+    \reimp
+*/
+#endif // TQT_NO_SQL
diff --git a/tqtinterface/qt4/src/sql/tqsqlselectcursor.h b/tqtinterface/qt4/src/sql/tqsqlselectcursor.h
new file mode 100644
index 0000000..db72664
--- /dev/null
+++ b/tqtinterface/qt4/src/sql/tqsqlselectcursor.h
@@ -0,0 +1,104 @@
+/****************************************************************************
+**
+** Definition of TQSqlSelectCursor class
+**
+** Created : 2002-11-13
+**
+** Copyright (C) 2005-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of the sql module of the TQt GUI Toolkit.
+**
+** This file may be used under the terms of the GNU General
+** Public License versions 2.0 or 3.0 as published by the Free
+** Software Foundation and appearing in the files LICENSE.GPL2
+** and LICENSE.GPL3 included in the packaging of this file.
+** Alternatively you may (at your option) use any later version
+** of the GNU General Public License if such license has been
+** publicly approved by Trolltech ASA (or its successors, if any)
+** and the KDE Free TQt Foundation.
+**
+** Please review the following information to ensure GNU General
+** Public Licensing requirements will be met:
+** http://trolltech.com/products/qt/licenses/licensing/opensource/.
+** If you are unsure which license is appropriate for your use, please
+** review the following information:
+** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
+** or contact the sales department at sales@trolltech.com.
+**
+** This file may be used under the terms of the Q Public License as
+** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
+** included in the packaging of this file.  Licensees holding valid TQt
+** Commercial licenses may use this file in accordance with the TQt
+** Commercial License Agreement provided with the Software.
+**
+** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
+** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
+** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
+** herein.
+**
+**********************************************************************/
+
+#ifndef TQSTQLSELECTCURSOR_H
+#define TQSTQLSELECTCURSOR_H
+
+#ifndef TQT_H
+#include "tqsqlcursor.h"
+#endif // TQT_H
+
+#if !defined( TQT_MODULE_SQL ) || defined( TQT_LICENSE_PROFESSIONAL )
+#define TQM_EXPORT_SQL
+#else
+#define TQM_EXPORT_SQL TQ_EXPORT
+#endif
+
+#ifndef TQT_NO_SQL
+
+class TQSqlSelectCursorPrivate;
+
+class TQM_EXPORT_SQL TQSqlSelectCursor : public TQSqlCursor
+{
+public:
+    TQSqlSelectCursor( const TQString& query = TQString::null, TQSqlDatabase* db = 0 );
+    TQSqlSelectCursor( const TQSqlSelectCursor& other );
+    ~TQSqlSelectCursor();
+    bool exec( const TQString& query );
+    bool select() { return TQSqlCursor::select(); }
+    
+protected:
+    TQSqlIndex primaryIndex( bool = TRUE ) const { return TQSqlIndex(); }
+    TQSqlIndex index( const TQStringList& ) const { return TQSqlIndex(); }
+    TQSqlIndex index( const TQString& ) const { return TQSqlIndex(); }
+    TQSqlIndex index( const char* ) const { return TQSqlIndex(); }
+    void setPrimaryIndex( const TQSqlIndex& ) {}
+    void append( const TQSqlFieldInfo& ) {}
+    void insert( int, const TQSqlFieldInfo& ) {}
+    void remove( int ) {}
+    void clear() {}
+    void setGenerated( const TQString&, bool ) {}
+    void setGenerated( int, bool ) {}
+    TQSqlRecord*	editBuffer( bool = FALSE ) { return 0; }
+    TQSqlRecord*	primeInsert() { return 0; }
+    TQSqlRecord*	primeUpdate() { return 0; }
+    TQSqlRecord*	primeDelete() { return 0; }
+    int	insert( bool = TRUE ) { return 0; }
+    int	update( bool = TRUE ) { return 0; }
+    int	del( bool = TRUE ) { return 0; }
+    void setMode( int ) {}
+
+    void setSort( const TQSqlIndex& ) {}
+    TQSqlIndex sort() const { return TQSqlIndex(); }
+    void setFilter( const TQString& ) {}
+    TQString filter() const { return TQString::null; }
+    void setName( const TQString&, bool = TRUE ) {}
+    TQString name() const { return TQString::null; }
+    TQString toString( const TQString& = TQString::null, const TQString& = "," ) const { return TQString::null; }
+    bool select( const TQString &, const TQSqlIndex& = TQSqlIndex() );
+
+private:
+    void populateCursor();
+    
+    TQSqlSelectCursorPrivate * d;
+};
+
+#endif // TQT_NO_SQL
+#endif // TQSTQLSELECTCURSOR_H