1 /************************************************************************* 2 * 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4 * 5 * Copyright 2000, 2010 Oracle and/or its affiliates. 6 * 7 * OpenOffice.org - a multi-platform office productivity suite 8 * 9 * This file is part of OpenOffice.org. 10 * 11 * OpenOffice.org is free software: you can redistribute it and/or modify 12 * it under the terms of the GNU Lesser General Public License version 3 13 * only, as published by the Free Software Foundation. 14 * 15 * OpenOffice.org is distributed in the hope that it will be useful, 16 * but WITHOUT ANY WARRANTY; without even the implied warranty of 17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 * GNU Lesser General Public License version 3 for more details 19 * (a copy is included in the LICENSE file that accompanied this code). 20 * 21 * You should have received a copy of the GNU Lesser General Public License 22 * version 3 along with OpenOffice.org. If not, see 23 * <http://www.openoffice.org/license.html> 24 * for a copy of the LGPLv3 License. 25 * 26 ************************************************************************/ 27 28 // MARKER(update_precomp.py): autogen include statement, do not remove 29 #include "precompiled_extensions.hxx" 30 #include "commonpagesdbp.hxx" 31 #ifndef _EXTENSIONS_DBP_DBPRESID_HRC_ 32 #include "dbpresid.hrc" 33 #endif 34 #include "componentmodule.hxx" 35 #include <com/sun/star/lang/XMultiServiceFactory.hpp> 36 #include <com/sun/star/sdb/XCompletedConnection.hpp> 37 #include <com/sun/star/sdbcx/XTablesSupplier.hpp> 38 #include <com/sun/star/sdb/XQueriesSupplier.hpp> 39 #include <com/sun/star/sdbc/XConnection.hpp> 40 #include <com/sun/star/sdb/SQLContext.hpp> 41 #include <com/sun/star/sdbc/SQLWarning.hpp> 42 #include <com/sun/star/sdb/CommandType.hpp> 43 #include <tools/debug.hxx> 44 #include <svtools/localresaccess.hxx> 45 #include <comphelper/interaction.hxx> 46 #include <connectivity/dbtools.hxx> 47 #include <vcl/stdtext.hxx> 48 #include <vcl/waitobj.hxx> 49 #include <sfx2/docfilt.hxx> 50 #include <unotools/pathoptions.hxx> 51 #include <sfx2/filedlghelper.hxx> 52 #ifndef SVTOOLS_FILENOTATION_HXX_ 53 #include <svl/filenotation.hxx> 54 #endif 55 //......................................................................... 56 namespace dbp 57 { 58 //......................................................................... 59 60 using namespace ::com::sun::star::uno; 61 using namespace ::com::sun::star::lang; 62 using namespace ::com::sun::star::container; 63 using namespace ::com::sun::star::sdb; 64 using namespace ::com::sun::star::sdbc; 65 using namespace ::com::sun::star::sdbcx; 66 using namespace ::com::sun::star::task; 67 using namespace ::comphelper; 68 69 //===================================================================== 70 //= OTableSelectionPage 71 //===================================================================== 72 //--------------------------------------------------------------------- 73 OTableSelectionPage::OTableSelectionPage(OControlWizard* _pParent) 74 :OControlWizardPage(_pParent, ModuleRes(RID_PAGE_TABLESELECTION)) 75 ,m_aData (this, ModuleRes(FL_DATA)) 76 ,m_aExplanation (this, ModuleRes(FT_EXPLANATION)) 77 ,m_aDatasourceLabel (this, ModuleRes(FT_DATASOURCE)) 78 ,m_aDatasource (this, ModuleRes(LB_DATASOURCE)) 79 ,m_aSearchDatabase (this, ModuleRes(PB_FORMDATASOURCE)) 80 ,m_aTableLabel (this, ModuleRes(FT_TABLE)) 81 ,m_aTable (this, ModuleRes(LB_TABLE)) 82 { 83 FreeResource(); 84 85 implCollectDatasource(); 86 87 m_aDatasource.SetSelectHdl(LINK(this, OTableSelectionPage, OnListboxSelection)); 88 m_aTable.SetSelectHdl(LINK(this, OTableSelectionPage, OnListboxSelection)); 89 m_aTable.SetDoubleClickHdl(LINK(this, OTableSelectionPage, OnListboxDoubleClicked)); 90 m_aSearchDatabase.SetClickHdl(LINK(this, OTableSelectionPage, OnSearchClicked)); 91 92 m_aDatasource.SetDropDownLineCount(10); 93 } 94 95 //--------------------------------------------------------------------- 96 void OTableSelectionPage::ActivatePage() 97 { 98 OControlWizardPage::ActivatePage(); 99 m_aDatasource.GrabFocus(); 100 } 101 102 //--------------------------------------------------------------------- 103 bool OTableSelectionPage::canAdvance() const 104 { 105 if (!OControlWizardPage::canAdvance()) 106 return false; 107 108 if (0 == m_aDatasource.GetSelectEntryCount()) 109 return false; 110 111 if (0 == m_aTable.GetSelectEntryCount()) 112 return false; 113 114 return sal_True; 115 } 116 117 //--------------------------------------------------------------------- 118 void OTableSelectionPage::initializePage() 119 { 120 OControlWizardPage::initializePage(); 121 122 const OControlWizardContext& rContext = getContext(); 123 try 124 { 125 ::rtl::OUString sDataSourceName; 126 rContext.xForm->getPropertyValue(::rtl::OUString::createFromAscii("DataSourceName")) >>= sDataSourceName; 127 128 Reference< XConnection > xConnection; 129 bool bEmbedded = ::dbtools::isEmbeddedInDatabase( rContext.xForm, xConnection ); 130 if ( bEmbedded ) 131 { 132 m_aDatasource.Hide(); 133 m_aDatasourceLabel.Hide(); 134 m_aSearchDatabase.Hide(); 135 m_aTableLabel.SetPosPixel(m_aDatasourceLabel.GetPosPixel()); 136 m_aTable.SetPosPixel(m_aDatasource.GetPosPixel()); 137 m_aDatasource.InsertEntry(sDataSourceName); 138 } 139 m_aDatasource.SelectEntry(sDataSourceName); 140 141 implFillTables(xConnection); 142 143 ::rtl::OUString sCommand; 144 OSL_VERIFY( rContext.xForm->getPropertyValue( ::rtl::OUString::createFromAscii("Command") ) >>= sCommand ); 145 sal_Int32 nCommandType = CommandType::TABLE; 146 OSL_VERIFY( rContext.xForm->getPropertyValue( ::rtl::OUString::createFromAscii("CommandType") ) >>= nCommandType ); 147 148 // search the entry of the given type with the given name 149 XubString sLookup( sCommand ); 150 for ( sal_uInt16 nLookup = 0; nLookup < m_aTable.GetEntryCount(); ++nLookup ) 151 { 152 if ( m_aTable.GetEntry( nLookup ) == sLookup ) 153 if ( reinterpret_cast< sal_IntPtr >( m_aTable.GetEntryData( nLookup ) ) == nCommandType ) 154 { 155 m_aTable.SelectEntryPos( nLookup ); 156 break; 157 } 158 } 159 } 160 catch(Exception&) 161 { 162 DBG_ERROR("OTableSelectionPage::initializePage: caught an exception!"); 163 } 164 } 165 166 //--------------------------------------------------------------------- 167 sal_Bool OTableSelectionPage::commitPage( ::svt::WizardTypes::CommitPageReason _eReason ) 168 { 169 if (!OControlWizardPage::commitPage(_eReason)) 170 return sal_False; 171 172 const OControlWizardContext& rContext = getContext(); 173 try 174 { 175 Reference< XConnection > xOldConn; 176 if ( !rContext.bEmbedded ) 177 { 178 xOldConn = getFormConnection(); 179 180 ::rtl::OUString sDataSource = m_aDatasource.GetSelectEntry(); 181 rContext.xForm->setPropertyValue( ::rtl::OUString::createFromAscii("DataSourceName"), makeAny( sDataSource ) ); 182 } 183 ::rtl::OUString sCommand = m_aTable.GetSelectEntry(); 184 sal_Int32 nCommandType = reinterpret_cast< sal_IntPtr >( m_aTable.GetEntryData( m_aTable.GetSelectEntryPos() ) ); 185 186 rContext.xForm->setPropertyValue( ::rtl::OUString::createFromAscii("Command"), makeAny( sCommand ) ); 187 rContext.xForm->setPropertyValue( ::rtl::OUString::createFromAscii("CommandType"), makeAny( nCommandType ) ); 188 189 if ( !rContext.bEmbedded ) 190 setFormConnection( xOldConn, sal_False ); 191 192 if (!updateContext()) 193 return sal_False; 194 } 195 catch(Exception&) 196 { 197 DBG_ERROR("OTableSelectionPage::commitPage: caught an exception!"); 198 } 199 200 return sal_True; 201 } 202 203 //--------------------------------------------------------------------- 204 IMPL_LINK( OTableSelectionPage, OnSearchClicked, PushButton*, /*_pButton*/ ) 205 { 206 ::sfx2::FileDialogHelper aFileDlg(WB_3DLOOK); 207 aFileDlg.SetDisplayDirectory( SvtPathOptions().GetWorkPath() ); 208 209 static const String s_sDatabaseType = String::CreateFromAscii("StarOffice XML (Base)"); 210 const SfxFilter* pFilter = SfxFilter::GetFilterByName( s_sDatabaseType); 211 OSL_ENSURE(pFilter,"Filter: StarOffice XML (Base) could not be found!"); 212 if ( pFilter ) 213 { 214 aFileDlg.AddFilter(pFilter->GetUIName(),pFilter->GetDefaultExtension()); 215 } 216 217 if (0 == aFileDlg.Execute()) 218 { 219 String sDataSourceName = aFileDlg.GetPath(); 220 ::svt::OFileNotation aFileNotation(sDataSourceName); 221 sDataSourceName = aFileNotation.get(::svt::OFileNotation::N_SYSTEM); 222 m_aDatasource.InsertEntry(sDataSourceName); 223 m_aDatasource.SelectEntry(sDataSourceName); 224 LINK(this, OTableSelectionPage, OnListboxSelection).Call(&m_aDatasource); 225 } 226 return 0L; 227 } 228 //--------------------------------------------------------------------- 229 IMPL_LINK( OTableSelectionPage, OnListboxDoubleClicked, ListBox*, _pBox ) 230 { 231 if (_pBox->GetSelectEntryCount()) 232 getDialog()->travelNext(); 233 return 0L; 234 } 235 236 //--------------------------------------------------------------------- 237 IMPL_LINK( OTableSelectionPage, OnListboxSelection, ListBox*, _pBox ) 238 { 239 if (&m_aDatasource == _pBox) 240 { // new data source selected 241 implFillTables(); 242 } 243 else 244 { 245 } 246 247 updateDialogTravelUI(); 248 249 return 0L; 250 } 251 252 //--------------------------------------------------------------------- 253 namespace 254 { 255 void lcl_fillEntries( ListBox& _rListBox, const Sequence< ::rtl::OUString >& _rNames, const Image& _rImage, sal_Int32 _nCommandType ) 256 { 257 const ::rtl::OUString* pNames = _rNames.getConstArray(); 258 const ::rtl::OUString* pNamesEnd = _rNames.getConstArray() + _rNames.getLength(); 259 sal_uInt16 nPos = 0; 260 while ( pNames != pNamesEnd ) 261 { 262 nPos = _rListBox.InsertEntry( *pNames++, _rImage ); 263 _rListBox.SetEntryData( nPos, reinterpret_cast< void* >( _nCommandType ) ); 264 } 265 } 266 } 267 268 //--------------------------------------------------------------------- 269 void OTableSelectionPage::implFillTables(const Reference< XConnection >& _rxConn) 270 { 271 m_aTable.Clear(); 272 273 WaitObject aWaitCursor(this); 274 275 // will be the table tables of the selected data source 276 Sequence< ::rtl::OUString > aTableNames; 277 Sequence< ::rtl::OUString > aQueryNames; 278 279 // connect to the data source 280 Any aSQLException; 281 Reference< XConnection > xConn = _rxConn; 282 if ( !xConn.is() ) 283 { 284 if (!m_xDSContext.is()) 285 return; 286 // connect to the data source 287 try 288 { 289 ::rtl::OUString sCurrentDatasource = m_aDatasource.GetSelectEntry(); 290 if (sCurrentDatasource.getLength()) 291 { 292 // obtain the DS object 293 Reference< XCompletedConnection > xDatasource; 294 // check if I know this one otherwise transform it into a file URL 295 if ( !m_xDSContext->hasByName(sCurrentDatasource) ) 296 { 297 ::svt::OFileNotation aFileNotation(sCurrentDatasource); 298 sCurrentDatasource = aFileNotation.get(::svt::OFileNotation::N_URL); 299 } 300 301 if (m_xDSContext->getByName(sCurrentDatasource) >>= xDatasource) 302 { // connect 303 // get the default SDB interaction handler 304 Reference< XInteractionHandler > xHandler = getDialog()->getInteractionHandler(this); 305 if (!xHandler.is() ) 306 return; 307 xConn = xDatasource->connectWithCompletion(xHandler); 308 setFormConnection( xConn ); 309 } 310 else 311 { 312 DBG_ERROR("OTableSelectionPage::implFillTables: invalid data source object returned by the context"); 313 } 314 } 315 } 316 catch(SQLContext& e) { aSQLException <<= e; } 317 catch(SQLWarning& e) { aSQLException <<= e; } 318 catch(SQLException& e) { aSQLException <<= e; } 319 catch (Exception&) 320 { 321 DBG_ERROR("OTableSelectionPage::implFillTables: could not fill the table list!"); 322 } 323 } 324 325 // will be the table tables of the selected data source 326 if ( xConn.is() ) 327 { 328 try 329 { 330 // get the tables 331 Reference< XTablesSupplier > xSupplTables(xConn, UNO_QUERY); 332 if ( xSupplTables.is() ) 333 { 334 Reference< XNameAccess > xTables(xSupplTables->getTables(), UNO_QUERY); 335 if (xTables.is()) 336 aTableNames = xTables->getElementNames(); 337 } 338 339 // and the queries 340 Reference< XQueriesSupplier > xSuppQueries( xConn, UNO_QUERY ); 341 if ( xSuppQueries.is() ) 342 { 343 Reference< XNameAccess > xQueries( xSuppQueries->getQueries(), UNO_QUERY ); 344 if ( xQueries.is() ) 345 aQueryNames = xQueries->getElementNames(); 346 } 347 } 348 catch(SQLContext& e) { aSQLException <<= e; } 349 catch(SQLWarning& e) { aSQLException <<= e; } 350 catch(SQLException& e) { aSQLException <<= e; } 351 catch (Exception&) 352 { 353 DBG_ERROR("OTableSelectionPage::implFillTables: could not fill the table list!"); 354 } 355 } 356 357 358 if ( aSQLException.hasValue() ) 359 { // an SQLException (or derivee) was thrown ... 360 Reference< XInteractionRequest > xRequest = new OInteractionRequest(aSQLException); 361 try 362 { 363 // get the default SDB interaction handler 364 Reference< XInteractionHandler > xHandler = getDialog()->getInteractionHandler(this); 365 if ( xHandler.is() ) 366 xHandler->handle(xRequest); 367 } 368 catch(Exception&) { } 369 return; 370 } 371 372 Image aTableImage, aQueryImage; 373 { 374 ::svt::OLocalResourceAccess aLocalResAccess( ModuleRes( RID_PAGE_TABLESELECTION ), RSC_TABPAGE ); 375 376 bool bIsHiContrast = m_aTable.GetSettings().GetStyleSettings().GetHighContrastMode(); 377 aTableImage = Image( ModuleRes( bIsHiContrast ? IMG_TABLE_HC : IMG_TABLE ) ); 378 aQueryImage = Image( ModuleRes( bIsHiContrast ? IMG_QUERY_HC : IMG_QUERY ) ); 379 } 380 lcl_fillEntries( m_aTable, aTableNames, aTableImage, CommandType::TABLE ); 381 lcl_fillEntries( m_aTable, aQueryNames, aQueryImage, CommandType::QUERY ); 382 } 383 384 //--------------------------------------------------------------------- 385 void OTableSelectionPage::implCollectDatasource() 386 { 387 try 388 { 389 m_xDSContext = getContext().xDatasourceContext; 390 if (m_xDSContext.is()) 391 fillListBox(m_aDatasource, m_xDSContext->getElementNames()); 392 } 393 catch (Exception&) 394 { 395 DBG_ERROR("OTableSelectionPage::implCollectDatasource: could not collect the data source names!"); 396 } 397 } 398 399 //===================================================================== 400 //= OMaybeListSelectionPage 401 //===================================================================== 402 //--------------------------------------------------------------------- 403 OMaybeListSelectionPage::OMaybeListSelectionPage( OControlWizard* _pParent, const ResId& _rId ) 404 :OControlWizardPage(_pParent, _rId) 405 ,m_pYes(NULL) 406 ,m_pNo(NULL) 407 ,m_pList(NULL) 408 { 409 } 410 411 //--------------------------------------------------------------------- 412 void OMaybeListSelectionPage::announceControls(RadioButton& _rYesButton, RadioButton& _rNoButton, ListBox& _rSelection) 413 { 414 m_pYes = &_rYesButton; 415 m_pNo = &_rNoButton; 416 m_pList = &_rSelection; 417 418 m_pYes->SetClickHdl(LINK(this, OMaybeListSelectionPage, OnRadioSelected)); 419 m_pNo->SetClickHdl(LINK(this, OMaybeListSelectionPage, OnRadioSelected)); 420 implEnableWindows(); 421 } 422 423 //--------------------------------------------------------------------- 424 IMPL_LINK( OMaybeListSelectionPage, OnRadioSelected, RadioButton*, /*NOTINTERESTEDIN*/ ) 425 { 426 implEnableWindows(); 427 return 0L; 428 } 429 430 //--------------------------------------------------------------------- 431 void OMaybeListSelectionPage::implInitialize(const String& _rSelection) 432 { 433 DBG_ASSERT(m_pYes, "OMaybeListSelectionPage::implInitialize: no controls announced!"); 434 sal_Bool bIsSelection = (0 != _rSelection.Len()); 435 m_pYes->Check(bIsSelection); 436 m_pNo->Check(!bIsSelection); 437 m_pList->Enable(bIsSelection); 438 439 m_pList->SelectEntry(bIsSelection ? _rSelection : String()); 440 } 441 442 //--------------------------------------------------------------------- 443 void OMaybeListSelectionPage::implCommit(String& _rSelection) 444 { 445 _rSelection = m_pYes->IsChecked() ? m_pList->GetSelectEntry() : String(); 446 } 447 448 //--------------------------------------------------------------------- 449 void OMaybeListSelectionPage::implEnableWindows() 450 { 451 m_pList->Enable(m_pYes->IsChecked()); 452 } 453 454 //--------------------------------------------------------------------- 455 void OMaybeListSelectionPage::ActivatePage() 456 { 457 OControlWizardPage::ActivatePage(); 458 459 DBG_ASSERT(m_pYes, "OMaybeListSelectionPage::ActivatePage: no controls announced!"); 460 if (m_pYes->IsChecked()) 461 m_pList->GrabFocus(); 462 else 463 m_pNo->GrabFocus(); 464 } 465 466 //===================================================================== 467 //= ODBFieldPage 468 //===================================================================== 469 //--------------------------------------------------------------------- 470 ODBFieldPage::ODBFieldPage( OControlWizard* _pParent ) 471 :OMaybeListSelectionPage(_pParent, ModuleRes(RID_PAGE_OPTION_DBFIELD)) 472 ,m_aFrame (this, ModuleRes(FL_DATABASEFIELD_EXPL)) 473 ,m_aDescription (this, ModuleRes(FT_DATABASEFIELD_EXPL)) 474 ,m_aQuestion (this, ModuleRes(FT_DATABASEFIELD_QUEST)) 475 ,m_aStoreYes (this, ModuleRes(RB_STOREINFIELD_YES)) 476 ,m_aStoreNo (this, ModuleRes(LB_STOREINFIELD)) 477 ,m_aStoreWhere (this, ModuleRes(RB_STOREINFIELD_NO)) 478 { 479 FreeResource(); 480 announceControls(m_aStoreYes, m_aStoreNo, m_aStoreWhere); 481 m_aStoreWhere.SetDropDownLineCount(10); 482 } 483 484 //--------------------------------------------------------------------- 485 void ODBFieldPage::initializePage() 486 { 487 OMaybeListSelectionPage::initializePage(); 488 489 // fill the fields page 490 fillListBox(m_aStoreWhere, getContext().aFieldNames); 491 492 implInitialize(getDBFieldSetting()); 493 } 494 495 //--------------------------------------------------------------------- 496 sal_Bool ODBFieldPage::commitPage( ::svt::WizardTypes::CommitPageReason _eReason ) 497 { 498 if (!OMaybeListSelectionPage::commitPage(_eReason)) 499 return sal_False; 500 501 implCommit(getDBFieldSetting()); 502 503 return sal_True; 504 } 505 506 //......................................................................... 507 } // namespace dbp 508 //......................................................................... 509 510