extensions/source/dbpilots/controlwizard.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include "controlwizard.hxx"
  21 #include <tools/debug.hxx>
  22 #include <com/sun/star/container/XNameAccess.hpp>
  23 #include <com/sun/star/sdbcx/XTablesSupplier.hpp>
  24 #include <com/sun/star/sdb/DatabaseContext.hpp>
  25 #include <com/sun/star/sdb/XQueriesSupplier.hpp>
  26 #include <com/sun/star/sdbc/XPreparedStatement.hpp>
  27 #include <com/sun/star/container/XChild.hpp>
  28 #include <com/sun/star/sdbcx/XColumnsSupplier.hpp>
  29 #include <com/sun/star/frame/XModel.hpp>
  30 #include <com/sun/star/sheet/XSpreadsheetView.hpp>
  31 #include <com/sun/star/drawing/XDrawView.hpp>
  32 #include <com/sun/star/drawing/XDrawPageSupplier.hpp>
  33 #include <com/sun/star/sdb/CommandType.hpp>
  34 #include <com/sun/star/sdbc/SQLWarning.hpp>
  35 #include <com/sun/star/sdb/SQLContext.hpp>
  36 #include <com/sun/star/task/InteractionHandler.hpp>
  37 #include <comphelper/types.hxx>
  38 #include <connectivity/dbtools.hxx>
  39 #include <comphelper/interaction.hxx>
  40 #include <vcl/stdtext.hxx>
  41 #include <connectivity/conncleanup.hxx>
  42 #include <com/sun/star/sdbc/DataType.hpp>
  43 #include <tools/urlobj.hxx>
  44 #include <vcl/layout.hxx>
  45
  46 #define WINDOW_SIZE_X   240
  47 #define WINDOW_SIZE_Y   185
  48
  49 namespace dbp
  50 {
  51     using namespace ::com::sun::star::uno;
  52     using namespace ::com::sun::star::awt;
  53     using namespace ::com::sun::star::lang;
  54     using namespace ::com::sun::star::sdb;
  55     using namespace ::com::sun::star::sdbc;
  56     using namespace ::com::sun::star::sdbcx;
  57     using namespace ::com::sun::star::beans;
  58     using namespace ::com::sun::star::container;
  59     using namespace ::com::sun::star::drawing;
  60     using namespace ::com::sun::star::frame;
  61     using namespace ::com::sun::star::sheet;
  62     using namespace ::com::sun::star::form;
  63     using namespace ::com::sun::star::task;
  64     using namespace ::svt;
  65     using namespace ::comphelper;
  66     using namespace ::dbtools;
  67
  68     struct OAccessRegulator
  69     {
  70         friend class OControlWizardPage;
  71
  72     protected:
  73         OAccessRegulator() { }
  74     };
  75
  76     OControlWizardPage::OControlWizardPage( OControlWizard* _pParent, const OString& rID, const OUString& rUIXMLDescription )
  77         :OControlWizardPage_Base( _pParent, rID, rUIXMLDescription )
  78         ,m_pFormDatasourceLabel(nullptr)
  79         ,m_pFormDatasource(nullptr)
  80         ,m_pFormContentTypeLabel(nullptr)
  81         ,m_pFormContentType(nullptr)
  82         ,m_pFormTableLabel(nullptr)
  83         ,m_pFormTable(nullptr)
  84     {
  85     }
  86
  87     OControlWizardPage::~OControlWizardPage()
  88     {
  89         disposeOnce();
  90     }
  91
  92     void OControlWizardPage::dispose()
  93     {
  94         m_pFormDatasourceLabel.clear();
  95         m_pFormDatasource.clear();
  96         m_pFormContentTypeLabel.clear();
  97         m_pFormContentType.clear();
  98         m_pFormTableLabel.clear();
  99         m_pFormTable.clear();
 100         OControlWizardPage_Base::dispose();
 101     }
 102
 103     OControlWizard* OControlWizardPage::getDialog()
 104     {
 105         return static_cast< OControlWizard* >(GetParent());
 106     }
 107
 108     const OControlWizard* OControlWizardPage::getDialog() const
 109     {
 110         return static_cast< OControlWizard* >(GetParent());
 111     }
 112
 113
 114     bool OControlWizardPage::updateContext()
 115     {
 116         return getDialog()->updateContext(OAccessRegulator());
 117     }
 118
 119
 120     Reference< XConnection > OControlWizardPage::getFormConnection() const
 121     {
 122         return getDialog()->getFormConnection(OAccessRegulator());
 123     }
 124
 125
 126     void OControlWizardPage::setFormConnection( const Reference< XConnection >& _rxConn, bool _bAutoDispose )
 127     {
 128         getDialog()->setFormConnection( OAccessRegulator(), _rxConn, _bAutoDispose );
 129     }
 130
 131
 132     const OControlWizardContext& OControlWizardPage::getContext()
 133     {
 134         return getDialog()->getContext();
 135     }
 136
 137
 138     void OControlWizardPage::fillListBox(ListBox& _rList, const Sequence< OUString >& _rItems)
 139     {
 140         _rList.Clear();
 141         const OUString* pItems = _rItems.getConstArray();
 142         const OUString* pEnd = pItems + _rItems.getLength();
 143         ::svt::WizardTypes::WizardState nPos;
 144         sal_Int32 nIndex = 0;
 145         for (;pItems < pEnd; ++pItems, ++nIndex)
 146         {
 147             nPos = _rList.InsertEntry(*pItems);
 148             _rList.SetEntryData(nPos, reinterpret_cast<void*>(nIndex));
 149         }
 150     }
 151
 152
 153     void OControlWizardPage::fillListBox(ComboBox& _rList, const Sequence< OUString >& _rItems)
 154     {
 155         _rList.Clear();
 156         const OUString* pItems = _rItems.getConstArray();
 157         const OUString* pEnd = pItems + _rItems.getLength();
 158         ::svt::WizardTypes::WizardState nPos;
 159         for (;pItems < pEnd; ++pItems)
 160         {
 161             nPos = _rList.InsertEntry(*pItems);
 162             _rList.SetEntryData(nPos, reinterpret_cast<void*>(0));
 163         }
 164     }
 165
 166
 167     void OControlWizardPage::enableFormDatasourceDisplay()
 168     {
 169         if (m_pFormContentType)
 170             // nothing to do
 171             return;
 172
 173         VclFrame *_pFrame = get<VclFrame>("sourceframe");
 174         _pFrame->Show();
 175         get(m_pFormContentType,"contenttype");
 176         get(m_pFormContentTypeLabel,"contenttypelabel");
 177         get(m_pFormDatasource, "datasource");
 178         get(m_pFormDatasourceLabel, "datasourcelabel");
 179         get(m_pFormTable,"formtable");
 180         get(m_pFormTableLabel,"formtablelabel");
 181
 182         const OControlWizardContext& rContext = getContext();
 183         if ( rContext.bEmbedded )
 184         {
 185             m_pFormDatasourceLabel->Hide();
 186             m_pFormDatasource->Hide();
 187             m_pFormContentTypeLabel->SetPosPixel(m_pFormDatasourceLabel->GetPosPixel());
 188             m_pFormContentType->SetPosPixel(m_pFormDatasource->GetPosPixel());
 189             m_pFormTableLabel->SetPosPixel(::Point(m_pFormDatasourceLabel->GetPosPixel().X(),m_pFormTableLabel->GetPosPixel().Y()));
 190             m_pFormTable->SetPosPixel(::Point(m_pFormDatasource->GetPosPixel().X(),m_pFormTable->GetPosPixel().Y()));
 191         }
 192     }
 193
 194     void OControlWizardPage::initializePage()
 195     {
 196         if (m_pFormDatasource && m_pFormContentTypeLabel && m_pFormTable)
 197         {
 198             const OControlWizardContext& rContext = getContext();
 199             OUString sDataSource;
 200             OUString sCommand;
 201             sal_Int32 nCommandType = CommandType::COMMAND;
 202             try
 203             {
 204                 rContext.xForm->getPropertyValue("DataSourceName") >>= sDataSource;
 205                 rContext.xForm->getPropertyValue("Command") >>= sCommand;
 206                 rContext.xForm->getPropertyValue("CommandType") >>= nCommandType;
 207             }
 208             catch(const Exception&)
 209             {
 210                 OSL_FAIL("OControlWizardPage::initializePage: caught an exception!");
 211             }
 212
 213             INetURLObject aURL( sDataSource );
 214             if( aURL.GetProtocol() != INetProtocol::NotValid )
 215                 sDataSource = aURL.GetName(INetURLObject::DecodeMechanism::WithCharset);
 216             m_pFormDatasource->SetText(sDataSource);
 217             m_pFormTable->SetText(sCommand);
 218
 219             const char* pCommandTypeResourceId = nullptr;
 220             switch (nCommandType)
 221             {
 222                 case CommandType::TABLE:
 223                     pCommandTypeResourceId = RID_STR_TYPE_TABLE;
 224                     break;
 225
 226                 case CommandType::QUERY:
 227                     pCommandTypeResourceId = RID_STR_TYPE_QUERY;
 228                     break;
 229
 230                 default:
 231                     pCommandTypeResourceId = RID_STR_TYPE_COMMAND;
 232                     break;
 233             }
 234             m_pFormContentType->SetText(compmodule::ModuleRes(pCommandTypeResourceId));
 235         }
 236
 237         OControlWizardPage_Base::initializePage();
 238     }
 239
 240     OControlWizard::OControlWizard( vcl::Window* _pParent,
 241             const Reference< XPropertySet >& _rxObjectModel, const Reference< XComponentContext >& _rxContext )
 242         :OWizardMachine(_pParent, WizardButtonFlags::CANCEL | WizardButtonFlags::PREVIOUS | WizardButtonFlags::NEXT | WizardButtonFlags::FINISH)
 243         ,m_xContext(_rxContext)
 244     {
 245         m_aContext.xObjectModel = _rxObjectModel;
 246         initContext();
 247
 248         SetPageSizePixel(LogicToPixel(::Size(WINDOW_SIZE_X, WINDOW_SIZE_Y), MapMode(MapUnit::MapAppFont)));
 249         defaultButton(WizardButtonFlags::NEXT);
 250         enableButtons(WizardButtonFlags::FINISH, false);
 251     }
 252
 253     OControlWizard::~OControlWizard()
 254     {
 255     }
 256
 257     short OControlWizard::Execute()
 258     {
 259         // get the class id of the control we're dealing with
 260         sal_Int16 nClassId = FormComponentType::CONTROL;
 261         try
 262         {
 263             getContext().xObjectModel->getPropertyValue("ClassId") >>= nClassId;
 264         }
 265         catch(const Exception&)
 266         {
 267             OSL_FAIL("OControlWizard::activate: could not obtain the class id!");
 268         }
 269         if (!approveControl(nClassId))
 270         {
 271             // TODO: MessageBox or exception
 272             return RET_CANCEL;
 273         }
 274
 275         ActivatePage();
 276
 277         return OControlWizard_Base::Execute();
 278     }
 279
 280
 281     void OControlWizard::implDetermineShape()
 282     {
 283         Reference< XIndexAccess > xPageObjects(m_aContext.xDrawPage, UNO_QUERY);
 284         DBG_ASSERT(xPageObjects.is(), "OControlWizard::implDetermineShape: invalid page!");
 285
 286         // for comparing the model
 287         Reference< XControlModel > xModelCompare(m_aContext.xObjectModel, UNO_QUERY);
 288
 289         if (xPageObjects.is())
 290         {
 291             // loop through all objects of the page
 292             sal_Int32 nObjects = xPageObjects->getCount();
 293             Reference< XControlShape > xControlShape;
 294             Reference< XControlModel > xControlModel;
 295             for (sal_Int32 i=0; i<nObjects; ++i)
 296             {
 297                 if (xPageObjects->getByIndex(i) >>= xControlShape)
 298                 {   // it _is_ a control shape
 299                     xControlModel = xControlShape->getControl();
 300                     DBG_ASSERT(xControlModel.is(), "OControlWizard::implDetermineShape: control shape without model!");
 301                     if (xModelCompare.get() == xControlModel.get())
 302                     {
 303                         m_aContext.xObjectShape = xControlShape;
 304                         break;
 305                     }
 306                 }
 307             }
 308         }
 309     }
 310
 311
 312     void OControlWizard::implDetermineForm()
 313     {
 314         Reference< XChild > xModelAsChild(m_aContext.xObjectModel, UNO_QUERY);
 315         Reference< XInterface > xControlParent;
 316         if (xModelAsChild.is())
 317             xControlParent = xModelAsChild->getParent();
 318
 319         m_aContext.xForm.set(xControlParent, UNO_QUERY);
 320         m_aContext.xRowSet.set(xControlParent, UNO_QUERY);
 321         DBG_ASSERT(m_aContext.xForm.is() && m_aContext.xRowSet.is(),
 322             "OControlWizard::implDetermineForm: missing some interfaces of the control parent!");
 323
 324     }
 325
 326
 327     void OControlWizard::implDeterminePage()
 328     {
 329         try
 330         {
 331             // get the document model
 332             Reference< XChild > xControlAsChild(m_aContext.xObjectModel, UNO_QUERY);
 333             Reference< XChild > xModelSearch(xControlAsChild->getParent(), UNO_QUERY);
 334
 335             Reference< XModel > xModel(xModelSearch, UNO_QUERY);
 336             while (xModelSearch.is() && !xModel.is())
 337             {
 338                 xModelSearch.set(xModelSearch->getParent(), UNO_QUERY);
 339                 xModel.set(xModelSearch, UNO_QUERY);
 340             }
 341
 342             Reference< XDrawPage > xPage;
 343             if (xModel.is())
 344             {
 345                 m_aContext.xDocumentModel = xModel;
 346
 347                 Reference< XDrawPageSupplier > xPageSupp(xModel, UNO_QUERY);
 348                 if (xPageSupp.is())
 349                 {   // it's a document with only one page -> Writer
 350                     xPage = xPageSupp->getDrawPage();
 351                 }
 352                 else
 353                 {
 354                     // get the controller currently working on this model
 355                     Reference< XController > xController = xModel->getCurrentController();
 356                     DBG_ASSERT(xController.is(), "OControlWizard::implDeterminePage: no current controller!");
 357
 358                     // maybe it's a spreadsheet
 359                     Reference< XSpreadsheetView > xView(xController, UNO_QUERY);
 360                     if (xView.is())
 361                     {   // okay, it is one
 362                         Reference< XSpreadsheet > xSheet = xView->getActiveSheet();
 363                         xPageSupp.set(xSheet, UNO_QUERY);
 364                         DBG_ASSERT(xPageSupp.is(), "OControlWizard::implDeterminePage: a spreadsheet which is no page supplier!");
 365                         if (xPageSupp.is())
 366                             xPage = xPageSupp->getDrawPage();
 367                     }
 368                     else
 369                     {   // can be a draw/impress doc only
 370                         Reference< XDrawView > xDrawView(xController, UNO_QUERY);
 371                         DBG_ASSERT(xDrawView.is(), "OControlWizard::implDeterminePage: no alternatives left ... can't determine the page!");
 372                         if (xDrawView.is())
 373                             xPage = xDrawView->getCurrentPage();
 374                     }
 375                 }
 376             }
 377             else
 378             {
 379                 DBG_ASSERT(xPage.is(), "OControlWizard::implDeterminePage: can't determine the page (no model)!");
 380             }
 381             m_aContext.xDrawPage = xPage;
 382         }
 383         catch(const Exception&)
 384         {
 385             OSL_FAIL("OControlWizard::implDeterminePage: caught an exception!");
 386         }
 387     }
 388
 389
 390     void OControlWizard::implGetDSContext()
 391     {
 392         try
 393         {
 394             DBG_ASSERT(m_xContext.is(), "OControlWizard::implGetDSContext: invalid service factory!");
 395
 396             m_aContext.xDatasourceContext = DatabaseContext::create(m_xContext);
 397         }
 398         catch(const Exception&)
 399         {
 400             OSL_FAIL("OControlWizard::implGetDSContext: invalid database context!");
 401         }
 402     }
 403
 404
 405     Reference< XConnection > OControlWizard::getFormConnection(const OAccessRegulator&) const
 406     {
 407         return getFormConnection();
 408     }
 409
 410     Reference< XConnection > OControlWizard::getFormConnection() const
 411     {
 412         Reference< XConnection > xConn;
 413         try
 414         {
 415             if ( !::dbtools::isEmbeddedInDatabase(m_aContext.xForm,xConn) )
 416                 m_aContext.xForm->getPropertyValue("ActiveConnection") >>= xConn;
 417         }
 418         catch(const Exception&)
 419         {
 420             OSL_FAIL("OControlWizard::getFormConnection: caught an exception!");
 421         }
 422         return xConn;
 423     }
 424
 425
 426     void OControlWizard::setFormConnection( const OAccessRegulator& _rAccess, const Reference< XConnection >& _rxConn, bool _bAutoDispose )
 427     {
 428         try
 429         {
 430             Reference< XConnection > xOldConn = getFormConnection(_rAccess);
 431             if (xOldConn.get() == _rxConn.get())
 432                 return;
 433
 434             disposeComponent(xOldConn);
 435
 436             // set the new connection
 437             if ( _bAutoDispose )
 438             {
 439                 // for this, use a AutoDisposer (so the conn is cleaned up when the form dies or gets another connection)
 440                 Reference< XRowSet > xFormRowSet( m_aContext.xForm, UNO_QUERY );
 441                 rtl::Reference<OAutoConnectionDisposer> pAutoDispose = new OAutoConnectionDisposer( xFormRowSet, _rxConn );
 442             }
 443             else
 444             {
 445                 m_aContext.xForm->setPropertyValue("ActiveConnection", makeAny( _rxConn ) );
 446             }
 447         }
 448         catch(const Exception&)
 449         {
 450             OSL_FAIL("OControlWizard::setFormConnection: caught an exception!");
 451         }
 452     }
 453
 454
 455     bool OControlWizard::updateContext(const OAccessRegulator&)
 456     {
 457         return initContext();
 458     }
 459
 460     Reference< XInteractionHandler > OControlWizard::getInteractionHandler(weld::Window* _pWindow) const
 461     {
 462         Reference< XInteractionHandler > xHandler;
 463         try
 464         {
 465             xHandler.set( InteractionHandler::createWithParent(m_xContext, nullptr), UNO_QUERY_THROW );
 466         }
 467         catch(const Exception&) { }
 468         if (!xHandler.is())
 469         {
 470             const OUString sInteractionHandlerServiceName("com.sun.star.task.InteractionHandler");
 471             ShowServiceNotAvailableError(_pWindow, sInteractionHandlerServiceName, true);
 472         }
 473         return xHandler;
 474     }
 475
 476     bool OControlWizard::initContext()
 477     {
 478         DBG_ASSERT(m_aContext.xObjectModel.is(), "OGroupBoxWizard::initContext: have no control model to work with!");
 479         if (!m_aContext.xObjectModel.is())
 480             return false;
 481
 482         // reset the context
 483         m_aContext.xForm.clear();
 484         m_aContext.xRowSet.clear();
 485         m_aContext.xDocumentModel.clear();
 486         m_aContext.xDrawPage.clear();
 487         m_aContext.xObjectShape.clear();
 488         m_aContext.aFieldNames.realloc(0);
 489
 490         m_aContext.xObjectContainer.clear();
 491         m_aContext.aTypes.clear();
 492         m_aContext.bEmbedded = false;
 493
 494         Any aSQLException;
 495         Reference< XPreparedStatement >  xStatement;
 496         try
 497         {
 498             // get the datasource context
 499             implGetDSContext();
 500
 501             // first, determine the form the control belongs to
 502             implDetermineForm();
 503
 504             // need the page, too
 505             implDeterminePage();
 506
 507             // the shape of the control
 508             implDetermineShape();
 509
 510             // get the columns of the object the settings refer to
 511             Reference< XNameAccess >  xColumns;
 512
 513             if (m_aContext.xForm.is())
 514             {
 515                 // collect some properties of the form
 516                 OUString sObjectName = ::comphelper::getString(m_aContext.xForm->getPropertyValue("Command"));
 517                 sal_Int32 nObjectType = ::comphelper::getINT32(m_aContext.xForm->getPropertyValue("CommandType"));
 518
 519                 // calculate the connection the rowset is working with
 520                 Reference< XConnection > xConnection;
 521                 m_aContext.bEmbedded = ::dbtools::isEmbeddedInDatabase( m_aContext.xForm, xConnection );
 522                 if ( !m_aContext.bEmbedded )
 523                     xConnection = ::dbtools::connectRowset( m_aContext.xRowSet, m_xContext );
 524
 525                 // get the fields
 526                 if (xConnection.is())
 527                 {
 528                     switch (nObjectType)
 529                     {
 530                         case 0:
 531                         {
 532                             Reference< XTablesSupplier >  xSupplyTables(xConnection, UNO_QUERY);
 533                             if (xSupplyTables.is() && xSupplyTables->getTables().is() && xSupplyTables->getTables()->hasByName(sObjectName))
 534                             {
 535                                 Reference< XColumnsSupplier >  xSupplyColumns;
 536                                 m_aContext.xObjectContainer = xSupplyTables->getTables();
 537                                 m_aContext.xObjectContainer->getByName(sObjectName) >>= xSupplyColumns;
 538                                 DBG_ASSERT(xSupplyColumns.is(), "OControlWizard::initContext: invalid table columns!");
 539                                 xColumns = xSupplyColumns->getColumns();
 540                             }
 541                         }
 542                         break;
 543                         case 1:
 544                         {
 545                             Reference< XQueriesSupplier >  xSupplyQueries(xConnection, UNO_QUERY);
 546                             if (xSupplyQueries.is() && xSupplyQueries->getQueries().is() && xSupplyQueries->getQueries()->hasByName(sObjectName))
 547                             {
 548                                 Reference< XColumnsSupplier >  xSupplyColumns;
 549                                 m_aContext.xObjectContainer = xSupplyQueries->getQueries();
 550                                 m_aContext.xObjectContainer->getByName(sObjectName) >>= xSupplyColumns;
 551                                 DBG_ASSERT(xSupplyColumns.is(), "OControlWizard::initContext: invalid query columns!");
 552                                 xColumns  = xSupplyColumns->getColumns();
 553                             }
 554                         }
 555                         break;
 556                         default:
 557                         {
 558                             xStatement = xConnection->prepareStatement(sObjectName);
 559
 560                             // not interested in any results, only in the fields
 561                             Reference< XPropertySet > xStatementProps(xStatement, UNO_QUERY);
 562                             xStatementProps->setPropertyValue("MaxRows", makeAny(sal_Int32(0)));
 563
 564                             // TODO: think about handling local SQLExceptions here ...
 565                             Reference< XColumnsSupplier >  xSupplyCols(xStatement->executeQuery(), UNO_QUERY);
 566                             if (xSupplyCols.is())
 567                                 xColumns = xSupplyCols->getColumns();
 568                         }
 569                     }
 570                 }
 571             }
 572
 573             if (xColumns.is())
 574             {
 575                 m_aContext.aFieldNames = xColumns->getElementNames();
 576                 const OUString* pBegin = m_aContext.aFieldNames.getConstArray();
 577                 const OUString* pEnd   = pBegin + m_aContext.aFieldNames.getLength();
 578                 for(;pBegin != pEnd;++pBegin)
 579                 {
 580                     sal_Int32 nFieldType = DataType::OTHER;
 581                     try
 582                     {
 583                         Reference< XPropertySet > xColumn;
 584                         xColumns->getByName(*pBegin) >>= xColumn;
 585                         xColumn->getPropertyValue("Type") >>= nFieldType;
 586                     }
 587                     catch(const Exception&)
 588                     {
 589                         OSL_FAIL("OControlWizard::initContext: unexpected exception while gathering column information!");
 590                     }
 591                     m_aContext.aTypes.emplace(*pBegin,nFieldType);
 592                 }
 593             }
 594         }
 595         catch(const SQLContext& e) { aSQLException <<= e; }
 596         catch(const SQLWarning& e) { aSQLException <<= e; }
 597         catch(const SQLException& e) { aSQLException <<= e; }
 598         catch(const Exception&)
 599         {
 600             OSL_FAIL("OControlWizard::initContext: could not retrieve the control context (caught an exception)!");
 601         }
 602
 603         ::comphelper::disposeComponent(xStatement);
 604
 605         if (aSQLException.hasValue())
 606         {   // an SQLException (or derivee) was thrown ...
 607
 608             // prepend an extra SQLContext explaining what we were doing
 609             SQLContext aContext;
 610             aContext.Message = compmodule::ModuleRes(RID_STR_COULDNOTOPENTABLE);
 611             aContext.NextException = aSQLException;
 612
 613             // create an interaction handler to display this exception
 614             Reference< XInteractionHandler > xHandler = getInteractionHandler(GetFrameWeld());
 615             if ( !xHandler.is() )
 616                 return false;
 617
 618             Reference< XInteractionRequest > xRequest = new OInteractionRequest(makeAny(aContext));
 619             try
 620             {
 621                 xHandler->handle(xRequest);
 622             }
 623             catch(const Exception&) { }
 624             return false;
 625         }
 626
 627         return 0 != m_aContext.aFieldNames.getLength();
 628     }
 629
 630
 631     void OControlWizard::commitControlSettings(OControlWizardSettings const * _pSettings)
 632     {
 633         DBG_ASSERT(m_aContext.xObjectModel.is(), "OControlWizard::commitControlSettings: have no control model to work with!");
 634         if (!m_aContext.xObjectModel.is())
 635             return;
 636
 637         // the only thing we have at the moment is the label
 638         try
 639         {
 640             Reference< XPropertySetInfo > xInfo = m_aContext.xObjectModel->getPropertySetInfo();
 641             if (xInfo.is() && xInfo->hasPropertyByName("Label"))
 642             {
 643                 OUString sControlLabel(_pSettings->sControlLabel);
 644                 m_aContext.xObjectModel->setPropertyValue(
 645                     "Label",
 646                     makeAny(sControlLabel)
 647                 );
 648             }
 649         }
 650         catch(const Exception&)
 651         {
 652             OSL_FAIL("OControlWizard::commitControlSettings: could not commit the basic control settings!");
 653         }
 654     }
 655
 656
 657     void OControlWizard::initControlSettings(OControlWizardSettings* _pSettings)
 658     {
 659         DBG_ASSERT(m_aContext.xObjectModel.is(), "OControlWizard::initControlSettings: have no control model to work with!");
 660         if (!m_aContext.xObjectModel.is())
 661             return;
 662
 663         // initialize some settings from the control model give
 664         try
 665         {
 666             OUString sLabelPropertyName("Label");
 667             Reference< XPropertySetInfo > xInfo = m_aContext.xObjectModel->getPropertySetInfo();
 668             if (xInfo.is() && xInfo->hasPropertyByName(sLabelPropertyName))
 669             {
 670                 OUString sControlLabel;
 671                 m_aContext.xObjectModel->getPropertyValue(sLabelPropertyName) >>= sControlLabel;
 672                 _pSettings->sControlLabel = sControlLabel;
 673             }
 674         }
 675         catch(const Exception&)
 676         {
 677             OSL_FAIL("OControlWizard::initControlSettings: could not retrieve the basic control settings!");
 678         }
 679     }
 680
 681
 682     bool OControlWizard::needDatasourceSelection()
 683     {
 684         // lemme see ...
 685         return (0 == getContext().aFieldNames.getLength());
 686             // if we got fields, the data source is valid ...
 687     }
 688
 689
 690 }   // namespace dbp
 691
 692
 693 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */