/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ /************************************************************************* * * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * Copyright 2000, 2010 Oracle and/or its affiliates. * * OpenOffice.org - a multi-platform office productivity suite * * This file is part of OpenOffice.org. * * OpenOffice.org is free software: you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 3 * only, as published by the Free Software Foundation. * * OpenOffice.org 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 Lesser General Public License version 3 for more details * (a copy is included in the LICENSE file that accompanied this code). * * You should have received a copy of the GNU Lesser General Public License * version 3 along with OpenOffice.org. If not, see * * for a copy of the LGPLv3 License. * ************************************************************************/ // MARKER(update_precomp.py): autogen include statement, do not remove #include "precompiled_extensions.hxx" #include "commonpagesdbp.hxx" #include "dbpresid.hrc" #include "componentmodule.hxx" #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include //......................................................................... namespace dbp { //......................................................................... using namespace ::com::sun::star::uno; using namespace ::com::sun::star::lang; using namespace ::com::sun::star::container; using namespace ::com::sun::star::sdb; using namespace ::com::sun::star::sdbc; using namespace ::com::sun::star::sdbcx; using namespace ::com::sun::star::task; using namespace ::comphelper; //===================================================================== //= OTableSelectionPage //===================================================================== //--------------------------------------------------------------------- OTableSelectionPage::OTableSelectionPage(OControlWizard* _pParent) :OControlWizardPage(_pParent, ModuleRes(RID_PAGE_TABLESELECTION)) ,m_aData (this, ModuleRes(FL_DATA)) ,m_aExplanation (this, ModuleRes(FT_EXPLANATION)) ,m_aDatasourceLabel (this, ModuleRes(FT_DATASOURCE)) ,m_aDatasource (this, ModuleRes(LB_DATASOURCE)) ,m_aSearchDatabase (this, ModuleRes(PB_FORMDATASOURCE)) ,m_aTableLabel (this, ModuleRes(FT_TABLE)) ,m_aTable (this, ModuleRes(LB_TABLE)) { FreeResource(); implCollectDatasource(); m_aDatasource.SetSelectHdl(LINK(this, OTableSelectionPage, OnListboxSelection)); m_aTable.SetSelectHdl(LINK(this, OTableSelectionPage, OnListboxSelection)); m_aTable.SetDoubleClickHdl(LINK(this, OTableSelectionPage, OnListboxDoubleClicked)); m_aSearchDatabase.SetClickHdl(LINK(this, OTableSelectionPage, OnSearchClicked)); m_aDatasource.SetDropDownLineCount(10); } //--------------------------------------------------------------------- void OTableSelectionPage::ActivatePage() { OControlWizardPage::ActivatePage(); m_aDatasource.GrabFocus(); } //--------------------------------------------------------------------- bool OTableSelectionPage::canAdvance() const { if (!OControlWizardPage::canAdvance()) return false; if (0 == m_aDatasource.GetSelectEntryCount()) return false; if (0 == m_aTable.GetSelectEntryCount()) return false; return sal_True; } //--------------------------------------------------------------------- void OTableSelectionPage::initializePage() { OControlWizardPage::initializePage(); const OControlWizardContext& rContext = getContext(); try { ::rtl::OUString sDataSourceName; rContext.xForm->getPropertyValue(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DataSourceName"))) >>= sDataSourceName; Reference< XConnection > xConnection; bool bEmbedded = ::dbtools::isEmbeddedInDatabase( rContext.xForm, xConnection ); if ( bEmbedded ) { m_aDatasource.Hide(); m_aDatasourceLabel.Hide(); m_aSearchDatabase.Hide(); m_aTableLabel.SetPosPixel(m_aDatasourceLabel.GetPosPixel()); m_aTable.SetPosPixel(m_aDatasource.GetPosPixel()); m_aDatasource.InsertEntry(sDataSourceName); } m_aDatasource.SelectEntry(sDataSourceName); implFillTables(xConnection); ::rtl::OUString sCommand; OSL_VERIFY( rContext.xForm->getPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Command")) ) >>= sCommand ); sal_Int32 nCommandType = CommandType::TABLE; OSL_VERIFY( rContext.xForm->getPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("CommandType")) ) >>= nCommandType ); // search the entry of the given type with the given name XubString sLookup( sCommand ); for ( USHORT nLookup = 0; nLookup < m_aTable.GetEntryCount(); ++nLookup ) { if ( m_aTable.GetEntry( nLookup ) == sLookup ) if ( reinterpret_cast< sal_IntPtr >( m_aTable.GetEntryData( nLookup ) ) == nCommandType ) { m_aTable.SelectEntryPos( nLookup ); break; } } } catch(Exception&) { DBG_ERROR("OTableSelectionPage::initializePage: caught an exception!"); } } //--------------------------------------------------------------------- sal_Bool OTableSelectionPage::commitPage( ::svt::WizardTypes::CommitPageReason _eReason ) { if (!OControlWizardPage::commitPage(_eReason)) return sal_False; const OControlWizardContext& rContext = getContext(); try { Reference< XConnection > xOldConn; if ( !rContext.bEmbedded ) { xOldConn = getFormConnection(); ::rtl::OUString sDataSource = m_aDatasource.GetSelectEntry(); rContext.xForm->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DataSourceName")), makeAny( sDataSource ) ); } ::rtl::OUString sCommand = m_aTable.GetSelectEntry(); sal_Int32 nCommandType = reinterpret_cast< sal_IntPtr >( m_aTable.GetEntryData( m_aTable.GetSelectEntryPos() ) ); rContext.xForm->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Command")), makeAny( sCommand ) ); rContext.xForm->setPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("CommandType")), makeAny( nCommandType ) ); if ( !rContext.bEmbedded ) setFormConnection( xOldConn, sal_False ); if (!updateContext()) return sal_False; } catch(Exception&) { DBG_ERROR("OTableSelectionPage::commitPage: caught an exception!"); } return sal_True; } //--------------------------------------------------------------------- IMPL_LINK( OTableSelectionPage, OnSearchClicked, PushButton*, /*_pButton*/ ) { ::sfx2::FileDialogHelper aFileDlg(WB_3DLOOK); aFileDlg.SetDisplayDirectory( SvtPathOptions().GetWorkPath() ); static const String s_sDatabaseType = String::CreateFromAscii("StarOffice XML (Base)"); const SfxFilter* pFilter = SfxFilter::GetFilterByName( s_sDatabaseType); OSL_ENSURE(pFilter,"Filter: StarOffice XML (Base) could not be found!"); if ( pFilter ) { aFileDlg.AddFilter(pFilter->GetUIName(),pFilter->GetDefaultExtension()); } if (0 == aFileDlg.Execute()) { String sDataSourceName = aFileDlg.GetPath(); ::svt::OFileNotation aFileNotation(sDataSourceName); sDataSourceName = aFileNotation.get(::svt::OFileNotation::N_SYSTEM); m_aDatasource.InsertEntry(sDataSourceName); m_aDatasource.SelectEntry(sDataSourceName); LINK(this, OTableSelectionPage, OnListboxSelection).Call(&m_aDatasource); } return 0L; } //--------------------------------------------------------------------- IMPL_LINK( OTableSelectionPage, OnListboxDoubleClicked, ListBox*, _pBox ) { if (_pBox->GetSelectEntryCount()) getDialog()->travelNext(); return 0L; } //--------------------------------------------------------------------- IMPL_LINK( OTableSelectionPage, OnListboxSelection, ListBox*, _pBox ) { if (&m_aDatasource == _pBox) { // new data source selected implFillTables(); } else { } updateDialogTravelUI(); return 0L; } //--------------------------------------------------------------------- namespace { void lcl_fillEntries( ListBox& _rListBox, const Sequence< ::rtl::OUString >& _rNames, const Image& _rImage, sal_Int32 _nCommandType ) { const ::rtl::OUString* pNames = _rNames.getConstArray(); const ::rtl::OUString* pNamesEnd = _rNames.getConstArray() + _rNames.getLength(); sal_uInt16 nPos = 0; while ( pNames != pNamesEnd ) { nPos = _rListBox.InsertEntry( *pNames++, _rImage ); _rListBox.SetEntryData( nPos, reinterpret_cast< void* >( _nCommandType ) ); } } } //--------------------------------------------------------------------- void OTableSelectionPage::implFillTables(const Reference< XConnection >& _rxConn) { m_aTable.Clear(); WaitObject aWaitCursor(this); // will be the table tables of the selected data source Sequence< ::rtl::OUString > aTableNames; Sequence< ::rtl::OUString > aQueryNames; // connect to the data source Any aSQLException; Reference< XConnection > xConn = _rxConn; if ( !xConn.is() ) { if (!m_xDSContext.is()) return; // connect to the data source try { ::rtl::OUString sCurrentDatasource = m_aDatasource.GetSelectEntry(); if (sCurrentDatasource.getLength()) { // obtain the DS object Reference< XCompletedConnection > xDatasource; // check if I know this one otherwise transform it into a file URL if ( !m_xDSContext->hasByName(sCurrentDatasource) ) { ::svt::OFileNotation aFileNotation(sCurrentDatasource); sCurrentDatasource = aFileNotation.get(::svt::OFileNotation::N_URL); } if (m_xDSContext->getByName(sCurrentDatasource) >>= xDatasource) { // connect // get the default SDB interaction handler Reference< XInteractionHandler > xHandler = getDialog()->getInteractionHandler(this); if (!xHandler.is() ) return; xConn = xDatasource->connectWithCompletion(xHandler); setFormConnection( xConn ); } else { DBG_ERROR("OTableSelectionPage::implFillTables: invalid data source object returned by the context"); } } } catch(SQLContext& e) { aSQLException <<= e; } catch(SQLWarning& e) { aSQLException <<= e; } catch(SQLException& e) { aSQLException <<= e; } catch (Exception&) { DBG_ERROR("OTableSelectionPage::implFillTables: could not fill the table list!"); } } // will be the table tables of the selected data source if ( xConn.is() ) { try { // get the tables Reference< XTablesSupplier > xSupplTables(xConn, UNO_QUERY); if ( xSupplTables.is() ) { Reference< XNameAccess > xTables(xSupplTables->getTables(), UNO_QUERY); if (xTables.is()) aTableNames = xTables->getElementNames(); } // and the queries Reference< XQueriesSupplier > xSuppQueries( xConn, UNO_QUERY ); if ( xSuppQueries.is() ) { Reference< XNameAccess > xQueries( xSuppQueries->getQueries(), UNO_QUERY ); if ( xQueries.is() ) aQueryNames = xQueries->getElementNames(); } } catch(SQLContext& e) { aSQLException <<= e; } catch(SQLWarning& e) { aSQLException <<= e; } catch(SQLException& e) { aSQLException <<= e; } catch (Exception&) { DBG_ERROR("OTableSelectionPage::implFillTables: could not fill the table list!"); } } if ( aSQLException.hasValue() ) { // an SQLException (or derivee) was thrown ... Reference< XInteractionRequest > xRequest = new OInteractionRequest(aSQLException); try { // get the default SDB interaction handler Reference< XInteractionHandler > xHandler = getDialog()->getInteractionHandler(this); if ( xHandler.is() ) xHandler->handle(xRequest); } catch(Exception&) { } return; } Image aTableImage, aQueryImage; { ::svt::OLocalResourceAccess aLocalResAccess( ModuleRes( RID_PAGE_TABLESELECTION ), RSC_TABPAGE ); aTableImage = Image( ModuleRes( IMG_TABLE ) ); aQueryImage = Image( ModuleRes( IMG_QUERY ) ); } lcl_fillEntries( m_aTable, aTableNames, aTableImage, CommandType::TABLE ); lcl_fillEntries( m_aTable, aQueryNames, aQueryImage, CommandType::QUERY ); } //--------------------------------------------------------------------- void OTableSelectionPage::implCollectDatasource() { try { m_xDSContext = getContext().xDatasourceContext; if (m_xDSContext.is()) fillListBox(m_aDatasource, m_xDSContext->getElementNames()); } catch (Exception&) { DBG_ERROR("OTableSelectionPage::implCollectDatasource: could not collect the data source names!"); } } //===================================================================== //= OMaybeListSelectionPage //===================================================================== //--------------------------------------------------------------------- OMaybeListSelectionPage::OMaybeListSelectionPage( OControlWizard* _pParent, const ResId& _rId ) :OControlWizardPage(_pParent, _rId) ,m_pYes(NULL) ,m_pNo(NULL) ,m_pList(NULL) { } //--------------------------------------------------------------------- void OMaybeListSelectionPage::announceControls(RadioButton& _rYesButton, RadioButton& _rNoButton, ListBox& _rSelection) { m_pYes = &_rYesButton; m_pNo = &_rNoButton; m_pList = &_rSelection; m_pYes->SetClickHdl(LINK(this, OMaybeListSelectionPage, OnRadioSelected)); m_pNo->SetClickHdl(LINK(this, OMaybeListSelectionPage, OnRadioSelected)); implEnableWindows(); } //--------------------------------------------------------------------- IMPL_LINK( OMaybeListSelectionPage, OnRadioSelected, RadioButton*, /*NOTINTERESTEDIN*/ ) { implEnableWindows(); return 0L; } //--------------------------------------------------------------------- void OMaybeListSelectionPage::implInitialize(const String& _rSelection) { DBG_ASSERT(m_pYes, "OMaybeListSelectionPage::implInitialize: no controls announced!"); sal_Bool bIsSelection = (0 != _rSelection.Len()); m_pYes->Check(bIsSelection); m_pNo->Check(!bIsSelection); m_pList->Enable(bIsSelection); m_pList->SelectEntry(bIsSelection ? _rSelection : String()); } //--------------------------------------------------------------------- void OMaybeListSelectionPage::implCommit(String& _rSelection) { _rSelection = m_pYes->IsChecked() ? m_pList->GetSelectEntry() : String(); } //--------------------------------------------------------------------- void OMaybeListSelectionPage::implEnableWindows() { m_pList->Enable(m_pYes->IsChecked()); } //--------------------------------------------------------------------- void OMaybeListSelectionPage::ActivatePage() { OControlWizardPage::ActivatePage(); DBG_ASSERT(m_pYes, "OMaybeListSelectionPage::ActivatePage: no controls announced!"); if (m_pYes->IsChecked()) m_pList->GrabFocus(); else m_pNo->GrabFocus(); } //===================================================================== //= ODBFieldPage //===================================================================== //--------------------------------------------------------------------- ODBFieldPage::ODBFieldPage( OControlWizard* _pParent ) :OMaybeListSelectionPage(_pParent, ModuleRes(RID_PAGE_OPTION_DBFIELD)) ,m_aFrame (this, ModuleRes(FL_DATABASEFIELD_EXPL)) ,m_aDescription (this, ModuleRes(FT_DATABASEFIELD_EXPL)) ,m_aQuestion (this, ModuleRes(FT_DATABASEFIELD_QUEST)) ,m_aStoreYes (this, ModuleRes(RB_STOREINFIELD_YES)) ,m_aStoreNo (this, ModuleRes(LB_STOREINFIELD)) ,m_aStoreWhere (this, ModuleRes(RB_STOREINFIELD_NO)) { FreeResource(); announceControls(m_aStoreYes, m_aStoreNo, m_aStoreWhere); m_aStoreWhere.SetDropDownLineCount(10); } //--------------------------------------------------------------------- void ODBFieldPage::initializePage() { OMaybeListSelectionPage::initializePage(); // fill the fields page fillListBox(m_aStoreWhere, getContext().aFieldNames); implInitialize(getDBFieldSetting()); } //--------------------------------------------------------------------- sal_Bool ODBFieldPage::commitPage( ::svt::WizardTypes::CommitPageReason _eReason ) { if (!OMaybeListSelectionPage::commitPage(_eReason)) return sal_False; implCommit(getDBFieldSetting()); return sal_True; } //......................................................................... } // namespace dbp //......................................................................... /* vim:set shiftwidth=4 softtabstop=4 expandtab: */