extensions/source/dbpilots/commonpagesdbp.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 "commonpagesdbp.hxx"
  21 #include <strings.hrc>
  22 #include <bitmaps.hlst>
  23 #include <componentmodule.hxx>
  24 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  25 #include <com/sun/star/sdb/XCompletedConnection.hpp>
  26 #include <com/sun/star/sdbcx/XTablesSupplier.hpp>
  27 #include <com/sun/star/sdb/XQueriesSupplier.hpp>
  28 #include <com/sun/star/sdbc/XConnection.hpp>
  29 #include <com/sun/star/sdb/SQLContext.hpp>
  30 #include <com/sun/star/sdbc/SQLWarning.hpp>
  31 #include <com/sun/star/sdb/CommandType.hpp>
  32 #include <com/sun/star/ui/dialogs/TemplateDescription.hpp>
  33 #include <tools/debug.hxx>
  34 #include <comphelper/interaction.hxx>
  35 #include <connectivity/dbtools.hxx>
  36 #include <vcl/stdtext.hxx>
  37 #include <vcl/waitobj.hxx>
  38 #include <vcl/layout.hxx>
  39 #include <sfx2/docfilt.hxx>
  40 #include <unotools/pathoptions.hxx>
  41 #include <sfx2/filedlghelper.hxx>
  42 #include <svl/filenotation.hxx>
  43 #include <osl/diagnose.h>
  44
  45 namespace dbp
  46 {
  47
  48
  49     using namespace ::com::sun::star;
  50     using namespace ::com::sun::star::uno;
  51     using namespace ::com::sun::star::lang;
  52     using namespace ::com::sun::star::container;
  53     using namespace ::com::sun::star::sdb;
  54     using namespace ::com::sun::star::sdbc;
  55     using namespace ::com::sun::star::sdbcx;
  56     using namespace ::com::sun::star::task;
  57     using namespace ::comphelper;
  58
  59     OTableSelectionPage::OTableSelectionPage(OControlWizard* _pParent)
  60         :OControlWizardPage(_pParent, "TableSelectionPage", "modules/sabpilot/ui/tableselectionpage.ui")
  61     {
  62         get(m_pTable,"table");
  63         get(m_pDatasource, "datasource");
  64         get(m_pDatasourceLabel, "datasourcelabel");
  65         get(m_pSearchDatabase, "search");
  66
  67         try
  68         {
  69             m_xDSContext = getContext().xDatasourceContext;
  70             if (m_xDSContext.is())
  71                 fillListBox(*m_pDatasource, m_xDSContext->getElementNames());
  72         }
  73         catch (const Exception&)
  74         {
  75             OSL_FAIL("OTableSelectionPage::OTableSelectionPage: could not collect the data source names!");
  76         }
  77
  78         m_pDatasource->SetSelectHdl(LINK(this, OTableSelectionPage, OnListboxSelection));
  79         m_pTable->SetSelectHdl(LINK(this, OTableSelectionPage, OnListboxSelection));
  80         m_pTable->SetDoubleClickHdl(LINK(this, OTableSelectionPage, OnListboxDoubleClicked));
  81         m_pSearchDatabase->SetClickHdl(LINK(this, OTableSelectionPage, OnSearchClicked));
  82
  83         m_pDatasource->SetDropDownLineCount(10);
  84     }
  85
  86     OTableSelectionPage::~OTableSelectionPage()
  87     {
  88         disposeOnce();
  89     }
  90
  91     void OTableSelectionPage::dispose()
  92     {
  93         m_pDatasourceLabel.clear();
  94         m_pDatasource.clear();
  95         m_pSearchDatabase.clear();
  96         m_pTable.clear();
  97         OControlWizardPage::dispose();
  98     }
  99
 100     void OTableSelectionPage::ActivatePage()
 101     {
 102         OControlWizardPage::ActivatePage();
 103         m_pDatasource->GrabFocus();
 104     }
 105
 106
 107     bool OTableSelectionPage::canAdvance() const
 108     {
 109         if (!OControlWizardPage::canAdvance())
 110             return false;
 111
 112         if (0 == m_pDatasource->GetSelectedEntryCount())
 113             return false;
 114
 115         if (0 == m_pTable->GetSelectedEntryCount())
 116             return false;
 117
 118         return true;
 119     }
 120
 121
 122     void OTableSelectionPage::initializePage()
 123     {
 124         OControlWizardPage::initializePage();
 125
 126         const OControlWizardContext& rContext = getContext();
 127         try
 128         {
 129             OUString sDataSourceName;
 130             rContext.xForm->getPropertyValue("DataSourceName") >>= sDataSourceName;
 131
 132             Reference< XConnection > xConnection;
 133             bool bEmbedded = ::dbtools::isEmbeddedInDatabase( rContext.xForm, xConnection );
 134             if ( bEmbedded )
 135             {
 136                 VclVBox *_pSourceBox = get<VclVBox>("sourcebox");
 137                 _pSourceBox->Hide();
 138                 m_pDatasource->InsertEntry(sDataSourceName);
 139             }
 140             m_pDatasource->SelectEntry(sDataSourceName);
 141
 142             implFillTables(xConnection);
 143
 144             OUString sCommand;
 145             OSL_VERIFY( rContext.xForm->getPropertyValue("Command") >>= sCommand );
 146             sal_Int32 nCommandType = CommandType::TABLE;
 147             OSL_VERIFY( rContext.xForm->getPropertyValue("CommandType") >>= nCommandType );
 148
 149             // search the entry of the given type with the given name
 150             for ( sal_Int32 nLookup = 0; nLookup < m_pTable->GetEntryCount(); ++nLookup )
 151             {
 152                 if (sCommand == m_pTable->GetEntry(nLookup))
 153                 {
 154                     if ( reinterpret_cast< sal_IntPtr >( m_pTable->GetEntryData( nLookup ) ) == nCommandType )
 155                     {
 156                         m_pTable->SelectEntryPos( nLookup );
 157                         break;
 158                     }
 159                 }
 160             }
 161         }
 162         catch(const Exception&)
 163         {
 164             OSL_FAIL("OTableSelectionPage::initializePage: caught an exception!");
 165         }
 166     }
 167
 168
 169     bool OTableSelectionPage::commitPage( ::svt::WizardTypes::CommitPageReason _eReason )
 170     {
 171         if (!OControlWizardPage::commitPage(_eReason))
 172             return false;
 173
 174         const OControlWizardContext& rContext = getContext();
 175         try
 176         {
 177             Reference< XConnection > xOldConn;
 178             if ( !rContext.bEmbedded )
 179             {
 180                 xOldConn = getFormConnection();
 181
 182                 OUString sDataSource = m_pDatasource->GetSelectedEntry();
 183                 rContext.xForm->setPropertyValue("DataSourceName", makeAny( sDataSource ) );
 184             }
 185             OUString sCommand = m_pTable->GetSelectedEntry();
 186             sal_Int32 nCommandType = reinterpret_cast< sal_IntPtr >( m_pTable->GetSelectedEntryData() );
 187
 188             rContext.xForm->setPropertyValue("Command", makeAny( sCommand ) );
 189             rContext.xForm->setPropertyValue("CommandType", makeAny( nCommandType ) );
 190
 191             if ( !rContext.bEmbedded )
 192                 setFormConnection( xOldConn, false );
 193
 194             if (!updateContext())
 195                 return false;
 196         }
 197         catch(const Exception&)
 198         {
 199             OSL_FAIL("OTableSelectionPage::commitPage: caught an exception!");
 200         }
 201
 202         return true;
 203     }
 204
 205
 206     IMPL_LINK_NOARG( OTableSelectionPage, OnSearchClicked, Button*, void )
 207     {
 208         ::sfx2::FileDialogHelper aFileDlg(
 209                 ui::dialogs::TemplateDescription::FILEOPEN_READONLY_VERSION,
 210                 FileDialogFlags::NONE, GetFrameWeld());
 211         aFileDlg.SetDisplayDirectory( SvtPathOptions().GetWorkPath() );
 212
 213         std::shared_ptr<const SfxFilter> pFilter = SfxFilter::GetFilterByName("StarOffice XML (Base)");
 214         OSL_ENSURE(pFilter,"Filter: StarOffice XML (Base) could not be found!");
 215         if ( pFilter )
 216         {
 217             aFileDlg.AddFilter(pFilter->GetUIName(),pFilter->GetDefaultExtension());
 218         }
 219
 220         if (ERRCODE_NONE == aFileDlg.Execute())
 221         {
 222             OUString sDataSourceName = aFileDlg.GetPath();
 223             ::svt::OFileNotation aFileNotation(sDataSourceName);
 224             sDataSourceName = aFileNotation.get(::svt::OFileNotation::N_SYSTEM);
 225             m_pDatasource->InsertEntry(sDataSourceName);
 226             m_pDatasource->SelectEntry(sDataSourceName);
 227             LINK(this, OTableSelectionPage, OnListboxSelection).Call(*m_pDatasource);
 228         }
 229     }
 230
 231     IMPL_LINK( OTableSelectionPage, OnListboxDoubleClicked, ListBox&, _rBox, void )
 232     {
 233         if (_rBox.GetSelectedEntryCount())
 234             getDialog()->travelNext();
 235     }
 236
 237
 238     IMPL_LINK( OTableSelectionPage, OnListboxSelection, ListBox&, _rBox, void )
 239     {
 240         if (m_pDatasource == &_rBox)
 241         {   // new data source selected
 242             implFillTables();
 243         }
 244
 245         updateDialogTravelUI();
 246     }
 247
 248
 249     namespace
 250     {
 251         void lcl_fillEntries( ListBox& _rListBox, const Sequence< OUString >& _rNames, const Image& _rImage, sal_Int32 _nCommandType )
 252         {
 253             for ( auto const & name : _rNames )
 254             {
 255                 const sal_Int32 nPos = _rListBox.InsertEntry( name, _rImage );
 256                 _rListBox.SetEntryData( nPos, reinterpret_cast< void* >( _nCommandType ) );
 257             }
 258         }
 259     }
 260
 261
 262     void OTableSelectionPage::implFillTables(const Reference< XConnection >& _rxConn)
 263     {
 264         m_pTable->Clear();
 265
 266         WaitObject aWaitCursor(this);
 267
 268         // will be the table tables of the selected data source
 269         Sequence< OUString > aTableNames;
 270         Sequence< OUString > aQueryNames;
 271
 272         // connect to the data source
 273         Any aSQLException;
 274         Reference< XConnection > xConn = _rxConn;
 275         if ( !xConn.is() )
 276         {
 277             if (!m_xDSContext.is())
 278                 return;
 279             // connect to the data source
 280             try
 281             {
 282                 OUString sCurrentDatasource = m_pDatasource->GetSelectedEntry();
 283                 if (!sCurrentDatasource.isEmpty())
 284                 {
 285                     // obtain the DS object
 286                     Reference< XCompletedConnection > xDatasource;
 287                     // check if I know this one otherwise transform it into a file URL
 288                     if ( !m_xDSContext->hasByName(sCurrentDatasource) )
 289                     {
 290                         ::svt::OFileNotation aFileNotation(sCurrentDatasource);
 291                         sCurrentDatasource = aFileNotation.get(::svt::OFileNotation::N_URL);
 292                     }
 293
 294                     if (m_xDSContext->getByName(sCurrentDatasource) >>= xDatasource)
 295                     {   // connect
 296                         // get the default SDB interaction handler
 297                         Reference< XInteractionHandler > xHandler = getDialog()->getInteractionHandler(GetFrameWeld());
 298                         if (!xHandler.is() )
 299                             return;
 300                         xConn = xDatasource->connectWithCompletion(xHandler);
 301                         setFormConnection( xConn );
 302                     }
 303                     else
 304                     {
 305                         OSL_FAIL("OTableSelectionPage::implFillTables: invalid data source object returned by the context");
 306                     }
 307                 }
 308             }
 309             catch(const SQLContext& e) { aSQLException <<= e; }
 310             catch(const SQLWarning& e) { aSQLException <<= e; }
 311             catch(const SQLException& e) { aSQLException <<= e; }
 312             catch (const Exception&)
 313             {
 314                 OSL_FAIL("OTableSelectionPage::implFillTables: could not fill the table list!");
 315             }
 316         }
 317
 318         // will be the table tables of the selected data source
 319         if ( xConn.is() )
 320         {
 321             try
 322             {
 323                 // get the tables
 324                 Reference< XTablesSupplier > xSupplTables(xConn, UNO_QUERY);
 325                 if ( xSupplTables.is() )
 326                 {
 327                     Reference< XNameAccess > xTables(xSupplTables->getTables(), UNO_QUERY);
 328                     if (xTables.is())
 329                         aTableNames = xTables->getElementNames();
 330                 }
 331
 332                 // and the queries
 333                 Reference< XQueriesSupplier > xSuppQueries( xConn, UNO_QUERY );
 334                 if ( xSuppQueries.is() )
 335                 {
 336                     Reference< XNameAccess > xQueries( xSuppQueries->getQueries(), UNO_QUERY );
 337                     if ( xQueries.is() )
 338                         aQueryNames = xQueries->getElementNames();
 339                 }
 340             }
 341             catch(const SQLContext& e) { aSQLException <<= e; }
 342             catch(const SQLWarning& e) { aSQLException <<= e; }
 343             catch(const SQLException& e) { aSQLException <<= e; }
 344             catch (const Exception&)
 345             {
 346                 OSL_FAIL("OTableSelectionPage::implFillTables: could not fill the table list!");
 347             }
 348         }
 349
 350
 351         if ( aSQLException.hasValue() )
 352         {   // an SQLException (or derivee) was thrown ...
 353             Reference< XInteractionRequest > xRequest = new OInteractionRequest(aSQLException);
 354             try
 355             {
 356                 // get the default SDB interaction handler
 357                 Reference< XInteractionHandler > xHandler = getDialog()->getInteractionHandler(GetFrameWeld());
 358                 if ( xHandler.is() )
 359                     xHandler->handle(xRequest);
 360             }
 361             catch(const Exception&) { }
 362             return;
 363         }
 364
 365         Image aTableImage(StockImage::Yes, BMP_TABLE);
 366         Image aQueryImage(StockImage::Yes, BMP_QUERY);
 367
 368         lcl_fillEntries( *m_pTable, aTableNames, aTableImage, CommandType::TABLE );
 369         lcl_fillEntries( *m_pTable, aQueryNames, aQueryImage, CommandType::QUERY );
 370     }
 371
 372
 373     OMaybeListSelectionPage::OMaybeListSelectionPage( OControlWizard* _pParent, const OString& _rID, const OUString& _rUIXMLDescription )
 374         :OControlWizardPage(_pParent, _rID, _rUIXMLDescription)
 375         ,m_pYes(nullptr)
 376         ,m_pNo(nullptr)
 377         ,m_pList(nullptr)
 378     {
 379     }
 380
 381     OMaybeListSelectionPage::~OMaybeListSelectionPage()
 382     {
 383         disposeOnce();
 384     }
 385
 386     void OMaybeListSelectionPage::dispose()
 387     {
 388         m_pYes.clear();
 389         m_pNo.clear();
 390         m_pList.clear();
 391         OControlWizardPage::dispose();
 392     }
 393
 394     void OMaybeListSelectionPage::announceControls(RadioButton& _rYesButton, RadioButton& _rNoButton, ListBox& _rSelection)
 395     {
 396         m_pYes = &_rYesButton;
 397         m_pNo = &_rNoButton;
 398         m_pList = &_rSelection;
 399
 400         m_pYes->SetClickHdl(LINK(this, OMaybeListSelectionPage, OnRadioSelected));
 401         m_pNo->SetClickHdl(LINK(this, OMaybeListSelectionPage, OnRadioSelected));
 402         implEnableWindows();
 403     }
 404
 405     IMPL_LINK_NOARG( OMaybeListSelectionPage, OnRadioSelected, Button*, void )
 406     {
 407         implEnableWindows();
 408     }
 409
 410
 411     void OMaybeListSelectionPage::implInitialize(const OUString& _rSelection)
 412     {
 413         DBG_ASSERT(m_pYes, "OMaybeListSelectionPage::implInitialize: no controls announced!");
 414         bool bIsSelection = ! _rSelection.isEmpty();
 415         m_pYes->Check(bIsSelection);
 416         m_pNo->Check(!bIsSelection);
 417         m_pList->Enable(bIsSelection);
 418
 419         m_pList->SelectEntry(bIsSelection ? _rSelection : OUString());
 420     }
 421
 422
 423     void OMaybeListSelectionPage::implCommit(OUString& _rSelection)
 424     {
 425         _rSelection = m_pYes->IsChecked() ? m_pList->GetSelectedEntry() : OUString();
 426     }
 427
 428
 429     void OMaybeListSelectionPage::implEnableWindows()
 430     {
 431         m_pList->Enable(m_pYes->IsChecked());
 432     }
 433
 434
 435     void OMaybeListSelectionPage::ActivatePage()
 436     {
 437         OControlWizardPage::ActivatePage();
 438
 439         DBG_ASSERT(m_pYes, "OMaybeListSelectionPage::ActivatePage: no controls announced!");
 440         if (m_pYes->IsChecked())
 441             m_pList->GrabFocus();
 442         else
 443             m_pNo->GrabFocus();
 444     }
 445
 446     ODBFieldPage::ODBFieldPage( OControlWizard* _pParent )
 447         :OMaybeListSelectionPage(_pParent, "OptionDBField", "modules/sabpilot/ui/optiondbfieldpage.ui")
 448     {
 449         get(m_pDescription, "explLabel");
 450         get(m_pStoreYes, "yesRadiobutton");
 451         get(m_pStoreNo, "noRadiobutton");
 452         get(m_pStoreWhere, "storeInFieldCombobox");
 453         SetText(compmodule::ModuleRes(RID_STR_OPTION_DB_FIELD_TITLE));
 454
 455         announceControls(*m_pStoreYes, *m_pStoreNo, *m_pStoreWhere);
 456         m_pStoreWhere->SetDropDownLineCount(10);
 457     }
 458
 459     ODBFieldPage::~ODBFieldPage()
 460     {
 461         disposeOnce();
 462     }
 463
 464     void ODBFieldPage::dispose()
 465     {
 466         m_pDescription.clear();
 467         m_pStoreYes.clear();
 468         m_pStoreNo.clear();
 469         m_pStoreWhere.clear();
 470         OMaybeListSelectionPage::dispose();
 471     }
 472
 473     void ODBFieldPage::initializePage()
 474     {
 475         OMaybeListSelectionPage::initializePage();
 476
 477         // fill the fields page
 478         fillListBox(*m_pStoreWhere, getContext().aFieldNames);
 479
 480         implInitialize(getDBFieldSetting());
 481     }
 482
 483
 484     bool ODBFieldPage::commitPage( ::svt::WizardTypes::CommitPageReason _eReason )
 485     {
 486         if (!OMaybeListSelectionPage::commitPage(_eReason))
 487             return false;
 488
 489         implCommit(getDBFieldSetting());
 490
 491         return true;
 492     }
 493
 494
 495 }   // namespace dbp
 496
 497
 498 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */