Test conversion to TQt3 from Qt3 8c6fc1f8e35fd264dd01c582ca5e7549b32ab731

1 files changed, 941 insertions, 0 deletions

diff --git a/src/sql/qsqlmanager_p.cpp b/src/sql/qsqlmanager_p.cpp
new file mode 100644
index 000000000..100512623
--- /dev/null
+++ b/src/sql/qsqlmanager_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 retquirements 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 "qsqlmanager_p.h"
+
+#ifndef QT_NO_SQL
+
+#include "qapplication.h"
+#include "qwidget.h"
+#include "qsqlcursor.h"
+#include "qsqlform.h"
+#include "qsqldriver.h"
+#include "qstring.h"
+#include "qmessagebox.h"
+#include "qbitarray.h"
+
+//#define QT_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 = f1->value().toString().simplifyWhiteSpace().compare(
+		          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 QT_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.findBuffer( myCursor->primaryIndex() ); // go to the updated record
+\endcode
+
+*/
+
+//## possibly add sizeHint parameter
+bool TQSqlCursorManager::findBuffer( const TQSqlIndex& idx, int atHint )
+{
+#ifdef QT_DEBUG_DATAMANAGER
+    qDebug("TQSqlCursorManager::findBuffer:");
+#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 QT_DEBUG_DATAMANAGER
+    qDebug(" Checking hint...");
+#endif
+    /* check the hint */
+    if ( cur->seek( atHint ) )
+	indexEquals = index_matches( cur, buf, idx );
+
+    if ( !indexEquals ) {
+#ifdef QT_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 QT_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 QT_DEBUG_DATAMANAGER
+	qDebug(" Using brute search...");
+#endif
+#ifndef QT_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 QT_NO_CURSOR
+	TQApplication::restoreOverrideCursor();
+#endif
+    }
+#ifdef QT_DEBUG_DATAMANAGER
+	qDebug(" Done, result:" + TQString::number( indexEquals ) );
+#endif
+    return indexEquals;
+}
+
+#ifndef QT_NO_SQL_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 // QT_NO_SQL_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* parent, const TQSqlError& e )
+{
+#ifndef QT_NO_MESSAGEBOX
+    if (e.driverText().isEmpty() && e.databaseText().isEmpty()) {
+	TQMessageBox::warning ( parent, "Warning", "An error occurred while accessing the database");
+    } else {
+	TQMessageBox::warning ( parent, "Warning", e.driverText() + "\n" + e.databaseText(),
+			   0, 0 );
+    }
+#endif // QT_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 parent.
+
+*/
+
+TQSql::Confirm TQDataManager::confirmEdit( TQWidget* parent, TQSql::Op m )
+{
+    int ans = 2;
+    if ( m == TQSql::Delete ) {
+#ifndef QT_NO_MESSAGEBOX
+	ans = TQMessageBox::information( parent,
+					qApp->translate( "TQSql", "Delete" ),
+					qApp->translate( "TQSql", "Delete this record?" ),
+					qApp->translate( "TQSql", "Yes" ),
+					qApp->translate( "TQSql", "No" ),
+					TQString::null, 0, 1 );
+#else
+	ans = TQSql::No;
+#endif // QT_NO_MESSAGEBOX
+    } else if ( m != TQSql::None ) {
+	TQString caption;
+	if ( m == TQSql::Insert ) {
+	    caption = qApp->translate( "TQSql", "Insert" );
+	} else { // TQSql::Update
+	    caption = qApp->translate( "TQSql", "Update" );
+	}
+#ifndef QT_NO_MESSAGEBOX
+	ans = TQMessageBox::information( parent, caption,
+					qApp->translate( "TQSql", "Save edits?" ),
+					qApp->translate( "TQSql", "Yes" ),
+					qApp->translate( "TQSql", "No" ),
+					qApp->translate( "TQSql", "Cancel" ),
+					0, 2 );
+#else
+	ans = TQSql::No;
+#endif // QT_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 parent.
+
+
+*/
+
+TQSql::Confirm TQDataManager::confirmCancel( TQWidget* parent, TQSql::Op )
+{
+#ifndef QT_NO_MESSAGEBOX
+    switch ( TQMessageBox::information( parent,
+				       qApp->translate( "TQSql", "Confirm" ),
+				       qApp->translate( "TQSql", "Cancel your edits?" ),
+				       qApp->translate( "TQSql", "Yes" ),
+				       qApp->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 // QT_NO_MESSAGEBOX
+}
+
+#endif