You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
koffice/kword/mailmerge/sql/KWQtSqlMailMergeOpen.cpp

124 lines
4.3 KiB

/* This file is part of the KDE project
Copyright (C) 2001 Joseph Wenninger <jowenn@kde.org>
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public License
along with this library; see the file COPYING.LIB. If not, write to
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
*/
#include "KWQtSqlMailMergeOpen.h"
#include "KWQtSqlMailMergeOpen.moc"
#include <kcombobox.h>
#include <klineedit.h>
#include <kdebug.h>
#include <tqlayout.h>
#include <kconfig.h>
#include <kpushbutton.h>
#include <klineeditdlg.h>
#include <kiconloader.h>
#include <tqsqldatabase.h>
#include <tqguardedptr.h>
#include <klocale.h>
/******************************************************************
*
* Class: KWQtSqlMailMergeOpen
*
******************************************************************/
KWQtSqlMailMergeOpen::KWQtSqlMailMergeOpen( TQWidget *parent, KWQtSqlSerialDataSourceBase *db_ )
:KDialogBase( Plain, i18n( "Mail Merge - Setup Database Connection" ), Ok | Cancel, Ok, parent, "", true ), db( db_ ){
(new TQVBoxLayout(plainPage()))->setAutoAdd(true);
setMainWidget(widget=new KWQtSqlOpenWidget(plainPage()));
widget->drivers->insertStringList(TQSqlDatabase::drivers());
widget->hostname->setText(db->hostname);
widget->username->setText(db->username);
widget->port->setText(db->port);
widget->databasename->setText(db->databasename);
fillSavedProperties();
connect(this,TQT_SIGNAL(okClicked()),this,TQT_SLOT(handleOk()));
connect(widget->savedProperties,TQT_SIGNAL(activated(const TQString&)),
this, TQT_SLOT(savedPropertiesChanged(const TQString&)));
connect(widget->rememberButton,TQT_SIGNAL(clicked()),
this, TQT_SLOT(slotSave()));
}
KWQtSqlMailMergeOpen::~KWQtSqlMailMergeOpen(){;}
void KWQtSqlMailMergeOpen::savedPropertiesChanged(const TQString& name)
{
if (name!=i18n("<not saved>"))
{
KConfig conf("kwmailmergerc");
conf.setGroup("KWSLTQTDB:"+name);
widget->hostname->setText(conf.readEntry("hostname",""));
widget->username->setText(conf.readEntry("username",""));
widget->port->setText(conf.readEntry("port",""));
widget->databasename->setText(conf.readEntry("databasename",""));
}
else
{
widget->hostname->setText("");
widget->username->setText("");
widget->port->setText(i18n("default"));
widget->databasename->setText("");
}
}
void KWQtSqlMailMergeOpen::fillSavedProperties()
{
widget->savedProperties->clear();
widget->savedProperties->insertItem(i18n("<not saved>"));
//Read data from configuration file and add entries
KConfig conf("kwmailmergerc");
TQStringList list=conf.groupList();
for (TQStringList::Iterator it=list.begin();it!=list.end();++it)
{
if ((*it).startsWith("KWSLTQTDB:"))
widget->savedProperties->insertItem((*it).right((*it).length()-9));
}
}
void KWQtSqlMailMergeOpen::slotSave()
{
TQString value;
bool ok;
value=KLineEditDlg::getText(i18n("Store Settings"),i18n("Name:"),
TQString(), &ok,this);
if (!ok) kdDebug()<<"Cancel was pressed"<<endl;
if (value.isEmpty()) kdDebug()<<"Name value was empty"<<endl;
if ((ok) && (!value.isEmpty()))
{
KConfig conf("kwmailmergerc");
conf.setGroup("KWSLTQTDB:"+value);
conf.writeEntry("hostname",widget->hostname->text());
conf.writeEntry("username",widget->username->text());
conf.writeEntry("port",widget->port->text());
conf.writeEntry("databasename",widget->databasename->text());
conf.sync();
fillSavedProperties();
widget->savedProperties->setCurrentText(value);
}
}
void KWQtSqlMailMergeOpen::handleOk()
{
db->hostname=widget->hostname->text();
db->username=widget->username->text();
db->port=widget->port->text();
db->databasename=widget->databasename->text();
db->driver=widget->drivers->currentText();
}