diff options
Diffstat (limited to 'extensions/source/dbpilots/commonpagesdbp.cxx')
| -rw-r--r-- | extensions/source/dbpilots/commonpagesdbp.cxx | 506 |
1 files changed, 0 insertions, 506 deletions
diff --git a/extensions/source/dbpilots/commonpagesdbp.cxx b/extensions/source/dbpilots/commonpagesdbp.cxx deleted file mode 100644 index 0ba4d5af9..000000000 --- a/extensions/source/dbpilots/commonpagesdbp.cxx +++ /dev/null @@ -1,506 +0,0 @@ -/* -*- 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 - * <http://www.openoffice.org/license.html> - * 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 <com/sun/star/lang/XMultiServiceFactory.hpp> -#include <com/sun/star/sdb/XCompletedConnection.hpp> -#include <com/sun/star/sdbcx/XTablesSupplier.hpp> -#include <com/sun/star/sdb/XQueriesSupplier.hpp> -#include <com/sun/star/sdbc/XConnection.hpp> -#include <com/sun/star/sdb/SQLContext.hpp> -#include <com/sun/star/sdbc/SQLWarning.hpp> -#include <com/sun/star/sdb/CommandType.hpp> -#include <tools/debug.hxx> -#include <svtools/localresaccess.hxx> -#include <comphelper/interaction.hxx> -#include <connectivity/dbtools.hxx> -#include <vcl/stdtext.hxx> -#include <vcl/waitobj.hxx> -#include <sfx2/docfilt.hxx> -#include <unotools/pathoptions.hxx> -#include <sfx2/filedlghelper.hxx> -#include <svl/filenotation.hxx> -//......................................................................... -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 ( sal_uInt16 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&) - { - OSL_FAIL("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&) - { - OSL_FAIL("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 - { - OSL_FAIL("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&) - { - OSL_FAIL("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&) - { - OSL_FAIL("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&) - { - OSL_FAIL("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: */ |