summaryrefslogtreecommitdiff
path: root/extensions
diff options
context:
space:
mode:
authorOliver Bolte <obo@openoffice.org>2004-03-19 11:01:34 +0000
committerOliver Bolte <obo@openoffice.org>2004-03-19 11:01:34 +0000
commit5221f444493b24d10be48e032755bc6e98c163e8 (patch)
tree3c2b2588671b4138bfbc2545942ba3a7ab925bd9 /extensions
parent58e1eda5dc4cd4a5787dbecd1fbe6d9fab7f9825 (diff)
INTEGRATION: CWS formdesign01 (1.1.2); FILE ADDED
2004/03/01 09:23:39 fs 1.1.2.5: incorporated changes from strign review (#i24606#) 2004/01/16 09:26:30 fs 1.1.2.4: never hide the 'Suggest' button, but only disable 2004/01/06 14:55:12 fs 1.1.2.3: corrected spelling issue, as suggested by UFI 2003/12/16 08:42:40 fs 1.1.2.2: #i23418# 2003/12/15 07:52:55 fs 1.1.2.1: #i23418# dialog for linking a sub form and a master form
Diffstat (limited to 'extensions')
-rw-r--r--extensions/source/propctrlr/formlinkdialog.cxx719
1 files changed, 719 insertions, 0 deletions
diff --git a/extensions/source/propctrlr/formlinkdialog.cxx b/extensions/source/propctrlr/formlinkdialog.cxx
new file mode 100644
index 000000000000..b67eb8157b02
--- /dev/null
+++ b/extensions/source/propctrlr/formlinkdialog.cxx
@@ -0,0 +1,719 @@
+/*************************************************************************
+ *
+ * $RCSfile: formlinkdialog.cxx,v $
+ *
+ * $Revision: 1.2 $
+ *
+ * last change: $Author: obo $ $Date: 2004-03-19 12:01:34 $
+ *
+ * The Contents of this file are made available subject to the terms of
+ * either of the following licenses
+ *
+ * - GNU Lesser General Public License Version 2.1
+ * - Sun Industry Standards Source License Version 1.1
+ *
+ * Sun Microsystems Inc., October, 2000
+ *
+ * GNU Lesser General Public License Version 2.1
+ * =============================================
+ * Copyright 2000 by Sun Microsystems, Inc.
+ * 901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License version 2.1, as published by the Free Software Foundation.
+ *
+ * This library 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 for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ * MA 02111-1307 USA
+ *
+ *
+ * Sun Industry Standards Source License Version 1.1
+ * =================================================
+ * The contents of this file are subject to the Sun Industry Standards
+ * Source License Version 1.1 (the "License"); You may not use this file
+ * except in compliance with the License. You may obtain a copy of the
+ * License at http://www.openoffice.org/license.html.
+ *
+ * Software provided under this License is provided on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING,
+ * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ * See the License for the specific provisions governing your rights and
+ * obligations concerning the Software.
+ *
+ * The Initial Developer of the Original Code is: Sun Microsystems, Inc..
+ *
+ * Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ * All Rights Reserved.
+ *
+ * Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#ifndef EXTENSIONS_SOURCE_PROPCTRLR_FORMLINKDIALOG_HXX
+#include "formlinkdialog.hxx"
+#endif
+#ifndef EXTENSIONS_SOURCE_PROPCTRLR_FORMLINKDIALOG_HRC
+#include "formlinkdialog.hrc"
+#endif
+
+#ifndef _EXTENSIONS_PROPCTRLR_MODULEPRC_HXX_
+#include "modulepcr.hxx"
+#endif
+#ifndef _EXTENSIONS_FORMCTRLR_PROPRESID_HRC_
+#include "formresid.hrc"
+#endif
+#ifndef _EXTENSIONS_FORMSCTRLR_FORMSTRINGS_HXX_
+#include "formstrings.hxx"
+#endif
+
+#ifndef _SV_COMBOBOX_HXX
+#include <vcl/combobox.hxx>
+#endif
+#ifndef _SV_MSGBOX_HXX
+#include <vcl/msgbox.hxx>
+#endif
+#ifndef _SV_WAITOBJ_HXX
+#include <vcl/waitobj.hxx>
+#endif
+#ifndef _SVTOOLS_LOCALRESACCESS_HXX_
+#include <svtools/localresaccess.hxx>
+#endif
+#ifndef _CONNECTIVITY_DBTOOLS_HXX_
+#include <connectivity/dbtools.hxx>
+#endif
+#ifndef _DBHELPER_DBEXCEPTION_HXX_
+#include <connectivity/dbexception.hxx>
+#endif
+#ifndef _TOOLKIT_HELPER_VCLUNOHELPER_HXX_
+#include <toolkit/helper/vclunohelper.hxx>
+#endif
+
+/** === begin UNO includes === **/
+#ifndef _COM_SUN_STAR_SDBCX_XCOLUMNSSUPPLIER_HPP_
+#include <com/sun/star/sdbcx/XColumnsSupplier.hpp>
+#endif
+#ifndef _COM_SUN_STAR_SDBCX_XKEYSSUPPLIER_HPP_
+#include <com/sun/star/sdbcx/XKeysSupplier.hpp>
+#endif
+#include <com/sun/star/sdbcx/KeyType.hpp>
+#ifndef _COM_SUN_STAR_CONTAINER_XNAMEACCESS_HPP_
+#include <com/sun/star/container/XNameAccess.hpp>
+#endif
+#ifndef _COM_SUN_STAR_SDBCX_XTABLESSUPPLIER_HPP_
+#include <com/sun/star/sdbcx/XTablesSupplier.hpp>
+#endif
+#ifndef _COM_SUN_STAR_SDBC_XROWSET_HPP_
+#include <com/sun/star/sdbc/XRowSet.hpp>
+#endif
+#ifndef _COM_SUN_STAR_SDB_COMMANDTYPE_HPP_
+#include <com/sun/star/sdb/CommandType.hpp>
+#endif
+#ifndef _COM_SUN_STAR_SDB_SQLCONTEXT_HPP_
+#include <com/sun/star/sdb/SQLContext.hpp>
+#endif
+/** === end UNO includes === **/
+
+
+//............................................................................
+namespace pcr
+{
+//............................................................................
+
+ using namespace ::com::sun::star::uno;
+ using namespace ::com::sun::star::lang;
+ using namespace ::com::sun::star::form;
+ using namespace ::com::sun::star::sdb;
+ using namespace ::com::sun::star::sdbc;
+ using namespace ::com::sun::star::sdbcx;
+ using namespace ::com::sun::star::beans;
+ using namespace ::com::sun::star::container;
+
+ //========================================================================
+ //= FieldLinkRow
+ //========================================================================
+ class FieldLinkRow : public Window
+ {
+ private:
+ ComboBox m_aDetailColumn;
+ FixedText m_aEqualSign;
+ ComboBox m_aMasterColumn;
+
+ Link m_aLinkChangeHandler;
+
+ public:
+ FieldLinkRow( Window* _pParent, const ResId& _rId );
+
+ inline void SetLinkChangeHandler( const Link& _rHdl ) { m_aLinkChangeHandler = _rHdl; }
+ inline const Link& GetLinkChangeHandler( ) const { return m_aLinkChangeHandler; }
+
+ enum LinkParticipant
+ {
+ eDetailField,
+ eMasterField
+ };
+ /** retrieves the selected field name for either the master or the detail field
+ @return <TRUE/> if and only a valid field is selected
+ */
+ bool GetFieldName( LinkParticipant _eWhich, String& /* [out] */ _rName ) const;
+ void SetFieldName( LinkParticipant _eWhich, const String& _rName );
+
+ void fillList( LinkParticipant _eWhich, const Sequence< ::rtl::OUString >& _rFieldNames );
+
+ private:
+ DECL_LINK( OnFieldNameChanged, ComboBox* );
+ };
+
+ //------------------------------------------------------------------------
+ FieldLinkRow::FieldLinkRow( Window* _pParent, const ResId& _rId )
+ :Window( _pParent, _rId )
+ ,m_aDetailColumn( this, ResId( 1 ) )
+ ,m_aEqualSign ( this, ResId( 1 ) )
+ ,m_aMasterColumn( this, ResId( 2 ) )
+ {
+ FreeResource();
+
+ m_aDetailColumn.SetDropDownLineCount( 10 );
+ m_aMasterColumn.SetDropDownLineCount( 10 );
+
+ m_aDetailColumn.SetModifyHdl( LINK( this, FieldLinkRow, OnFieldNameChanged ) );
+ m_aMasterColumn.SetModifyHdl( LINK( this, FieldLinkRow, OnFieldNameChanged ) );
+ }
+
+ //------------------------------------------------------------------------
+ void FieldLinkRow::fillList( LinkParticipant _eWhich, const Sequence< ::rtl::OUString >& _rFieldNames )
+ {
+ ComboBox* pBox = ( _eWhich == eDetailField ) ? &m_aDetailColumn : &m_aMasterColumn;
+
+ const ::rtl::OUString* pFieldName = _rFieldNames.getConstArray();
+ const ::rtl::OUString* pFieldNameEnd = pFieldName + _rFieldNames.getLength();
+ for ( ; pFieldName != pFieldNameEnd; ++pFieldName )
+ pBox->InsertEntry( *pFieldName );
+ }
+
+ //------------------------------------------------------------------------
+ bool FieldLinkRow::GetFieldName( LinkParticipant _eWhich, String& /* [out] */ _rName ) const
+ {
+ const ComboBox* pBox = ( _eWhich == eDetailField ) ? &m_aDetailColumn : &m_aMasterColumn;
+ _rName = pBox->GetText();
+ return _rName.Len() != 0;
+ }
+
+ //------------------------------------------------------------------------
+ void FieldLinkRow::SetFieldName( LinkParticipant _eWhich, const String& _rName )
+ {
+ ComboBox* pBox = ( _eWhich == eDetailField ) ? &m_aDetailColumn : &m_aMasterColumn;
+ pBox->SetText( _rName );
+ }
+
+ //------------------------------------------------------------------------
+ IMPL_LINK( FieldLinkRow, OnFieldNameChanged, ComboBox*, _pBox )
+ {
+ if ( m_aLinkChangeHandler.IsSet() )
+ return m_aLinkChangeHandler.Call( this );
+
+ return 0L;
+ }
+
+ //========================================================================
+ //= FormLinkDialog
+ //========================================================================
+ //------------------------------------------------------------------------
+ FormLinkDialog::FormLinkDialog( Window* _pParent, const Reference< XForm >& _rxDetailForm,
+ const Reference< XForm >& _rxMasterForm, const Reference< XMultiServiceFactory >& _rxORB )
+ :ModalDialog( _pParent, ModuleRes( RID_DLG_FORMLINKS ) )
+ ,m_aExplanation( this, ResId( FT_EXPLANATION ) )
+ ,m_aDetailLabel( this, ResId( FT_DETAIL_LABEL ) )
+ ,m_aMasterLabel( this, ResId( FT_MASTER_LABEL ) )
+ ,m_aRow1 ( new FieldLinkRow( this, ResId( 1 ) ) )
+ ,m_aRow2 ( new FieldLinkRow( this, ResId( 2 ) ) )
+ ,m_aRow3 ( new FieldLinkRow( this, ResId( 3 ) ) )
+ ,m_aRow4 ( new FieldLinkRow( this, ResId( 4 ) ) )
+ ,m_aOK ( this, ResId( PB_OK ) )
+ ,m_aCancel ( this, ResId( PB_CANCEL ) )
+ ,m_aHelp ( this, ResId( PB_HELP ) )
+ ,m_aSuggest ( this, ResId( PB_SUGGEST ) )
+ ,m_xORB ( _rxORB )
+ ,m_xDetailForm( _rxDetailForm )
+ ,m_xMasterForm( _rxMasterForm )
+ {
+ FreeResource();
+
+ m_aSuggest.SetClickHdl ( LINK( this, FormLinkDialog, OnSuggest ) );
+ m_aRow1->SetLinkChangeHandler( LINK( this, FormLinkDialog, OnFieldChanged ) );
+ m_aRow2->SetLinkChangeHandler( LINK( this, FormLinkDialog, OnFieldChanged ) );
+ m_aRow3->SetLinkChangeHandler( LINK( this, FormLinkDialog, OnFieldChanged ) );
+ m_aRow4->SetLinkChangeHandler( LINK( this, FormLinkDialog, OnFieldChanged ) );
+
+ PostUserEvent( LINK( this, FormLinkDialog, OnInitialize ) );
+
+ updateOkButton();
+ }
+
+ //------------------------------------------------------------------------
+ FormLinkDialog::~FormLinkDialog( )
+ {
+ }
+
+ //------------------------------------------------------------------------
+ void FormLinkDialog::commitLinkPairs()
+ {
+ // collect the field lists from the rows
+ ::std::vector< ::rtl::OUString > aDetailFields; aDetailFields.reserve( 4 );
+ ::std::vector< ::rtl::OUString > aMasterFields; aMasterFields.reserve( 4 );
+
+ const FieldLinkRow* aRows[] = {
+ m_aRow1.get(), m_aRow2.get(), m_aRow3.get(), m_aRow4.get()
+ };
+
+ for ( sal_Int32 i = 0; i < 4; ++i )
+ {
+ String sDetailField, sMasterField;
+ aRows[ i ]->GetFieldName( FieldLinkRow::eDetailField, sDetailField );
+ aRows[ i ]->GetFieldName( FieldLinkRow::eMasterField, sMasterField );
+ if ( !sDetailField.Len() && !sMasterField.Len() )
+ continue;
+
+ aDetailFields.push_back( sDetailField );
+ aMasterFields.push_back( sMasterField );
+ }
+
+ // and set as property values
+ try
+ {
+ Reference< XPropertySet > xDetailFormProps( m_xDetailForm, UNO_QUERY );
+ if ( xDetailFormProps.is() )
+ {
+ xDetailFormProps->setPropertyValue( PROPERTY_DETAILFIELDS, makeAny( Sequence< ::rtl::OUString >( aDetailFields.begin(), aDetailFields.size() ) ) );
+ xDetailFormProps->setPropertyValue( PROPERTY_MASTERFIELDS, makeAny( Sequence< ::rtl::OUString >( aMasterFields.begin(), aMasterFields.size() ) ) );
+ }
+ }
+ catch( const Exception& )
+ {
+ OSL_ENSURE( sal_False, "FormLinkDialog::commitLinkPairs: caught an exception while setting the properties!" );
+ }
+ }
+
+ //------------------------------------------------------------------------
+ short FormLinkDialog::Execute()
+ {
+ short nResult = ModalDialog::Execute();
+
+ if ( RET_OK == nResult )
+ commitLinkPairs();
+
+ return nResult;
+ }
+
+ //------------------------------------------------------------------------
+ void FormLinkDialog::initializeFieldLists()
+ {
+ Sequence< ::rtl::OUString > sDetailFields;
+ getFormFields( m_xDetailForm, sDetailFields );
+
+ Sequence< ::rtl::OUString > sMasterFields;
+ getFormFields( m_xMasterForm, sMasterFields );
+
+ FieldLinkRow* aRows[] = {
+ m_aRow1.get(), m_aRow2.get(), m_aRow3.get(), m_aRow4.get()
+ };
+ for ( sal_Int32 i = 0; i < 4 ; ++i )
+ {
+ aRows[i]->fillList( FieldLinkRow::eDetailField, sDetailFields );
+ aRows[i]->fillList( FieldLinkRow::eMasterField, sMasterFields );
+ }
+
+ }
+
+ //------------------------------------------------------------------------
+ void FormLinkDialog::initializeColumnLabels()
+ {
+ // label for the detail form
+ String sDetailType = getFormDataSourceType( m_xDetailForm );
+ if ( !sDetailType.Len() )
+ {
+ ::svt::OLocalResourceAccess aStringAccess( ModuleRes( RID_DLG_FORMLINKS ), RSC_MODALDIALOG );
+ sDetailType = String( ResId( STR_DETAIL_FORM ) );
+ }
+ m_aDetailLabel.SetText( sDetailType );
+
+ // label for the master form
+ String sMasterType = getFormDataSourceType( m_xMasterForm );
+ if ( !sMasterType.Len() )
+ {
+ ::svt::OLocalResourceAccess aStringAccess( ModuleRes( RID_DLG_FORMLINKS ), RSC_DIALOG );
+ sMasterType = String( ResId( STR_MASTER_FORM ) );
+ }
+ m_aMasterLabel.SetText( sMasterType );
+ }
+
+ //------------------------------------------------------------------------
+ void FormLinkDialog::initializeFieldRowsFrom( Sequence< ::rtl::OUString >& _rDetailFields, Sequence< ::rtl::OUString >& _rMasterFields )
+ {
+ // our UI does allow 4 fields max
+ _rDetailFields.realloc( 4 );
+ _rMasterFields.realloc( 4 );
+
+ const ::rtl::OUString* pDetailFields = _rDetailFields.getConstArray();
+ const ::rtl::OUString* pMasterFields = _rMasterFields.getConstArray();
+
+ FieldLinkRow* aRows[] = {
+ m_aRow1.get(), m_aRow2.get(), m_aRow3.get(), m_aRow4.get()
+ };
+ for ( sal_Int32 i = 0; i < 4; ++i, ++pDetailFields, ++pMasterFields )
+ {
+ aRows[ i ]->SetFieldName( FieldLinkRow::eDetailField, *pDetailFields );
+ aRows[ i ]->SetFieldName( FieldLinkRow::eMasterField, *pMasterFields );
+ }
+ }
+
+ //------------------------------------------------------------------------
+ void FormLinkDialog::initializeLinks()
+ {
+ try
+ {
+ Sequence< ::rtl::OUString > aDetailFields;
+ Sequence< ::rtl::OUString > aMasterFields;
+
+ Reference< XPropertySet > xDetailFormProps( m_xDetailForm, UNO_QUERY );
+ if ( xDetailFormProps.is() )
+ {
+ xDetailFormProps->getPropertyValue( PROPERTY_DETAILFIELDS ) >>= aDetailFields;
+ xDetailFormProps->getPropertyValue( PROPERTY_MASTERFIELDS ) >>= aMasterFields;
+ }
+
+ initializeFieldRowsFrom( aDetailFields, aMasterFields );
+ }
+ catch( const Exception& )
+ {
+ OSL_ENSURE( sal_False, "FormLinkDialog::initializeLinks: caught an exception!" );
+ }
+ }
+
+ //------------------------------------------------------------------------
+ void FormLinkDialog::updateOkButton()
+ {
+ // in all rows, there must be either two valid selections, or none at all
+ // If there is at least one row with exactly one valid selection, then the
+ // OKButton needs to be disabled
+ BOOL bEnable = TRUE;
+
+ const FieldLinkRow* aRows[] = {
+ m_aRow1.get(), m_aRow2.get(), m_aRow3.get(), m_aRow4.get()
+ };
+
+ for ( sal_Int32 i = 0; ( i < 4 ) && bEnable; ++i )
+ {
+ String sNotInterestedInRightNow;
+ if ( aRows[ i ]->GetFieldName( FieldLinkRow::eDetailField, sNotInterestedInRightNow )
+ != aRows[ i ]->GetFieldName( FieldLinkRow::eMasterField, sNotInterestedInRightNow )
+ )
+ bEnable = FALSE;
+ }
+
+ m_aOK.Enable( bEnable );
+ }
+
+ //------------------------------------------------------------------------
+ String FormLinkDialog::getFormDataSourceType( const Reference< XForm >& _rxForm ) const SAL_THROW(())
+ {
+ String sReturn;
+ Reference< XPropertySet > xFormProps( _rxForm, UNO_QUERY );
+ if ( !xFormProps.is() )
+ return sReturn;
+
+ try
+ {
+ sal_Int32 nCommandType = CommandType::COMMAND;
+ ::rtl::OUString sCommand;
+
+ xFormProps->getPropertyValue( PROPERTY_COMMANDTYPE ) >>= nCommandType;
+ xFormProps->getPropertyValue( PROPERTY_COMMAND ) >>= sCommand;
+
+ if ( ( nCommandType == CommandType::TABLE )
+ || ( nCommandType == CommandType::QUERY )
+ )
+ sReturn = sCommand;
+ }
+ catch( const Exception& )
+ {
+ OSL_ENSURE( sal_False, "FormLinkDialog::getFormDataSourceType: caught an exception!" );
+ }
+ return sReturn;
+ }
+
+ //------------------------------------------------------------------------
+ void FormLinkDialog::getFormFields( const Reference< XForm >& _rxForm, Sequence< ::rtl::OUString >& /* [out] */ _rNames ) const SAL_THROW(( ))
+ {
+ _rNames.realloc( 0 );
+
+ ::dbtools::SQLExceptionInfo aErrorInfo;
+ try
+ {
+ WaitObject aWaitCursor( const_cast< FormLinkDialog* >( this ) );
+
+ Reference< XPropertySet > xFormProps( _rxForm, UNO_QUERY );
+ OSL_ENSURE( xFormProps.is(), "FormLinkDialog::getFormFields: invalid form!" );
+
+ sal_Int32 nCommandType = CommandType::COMMAND;
+ ::rtl::OUString sCommand;
+
+ xFormProps->getPropertyValue( PROPERTY_COMMANDTYPE ) >>= nCommandType;
+ xFormProps->getPropertyValue( PROPERTY_COMMAND ) >>= sCommand;
+
+ Reference< XConnection > xConnection;
+ ensureFormConnection( xFormProps, xConnection );
+
+ _rNames = ::dbtools::getFieldNamesByCommandDescriptor(
+ xConnection,
+ nCommandType,
+ sCommand,
+ &aErrorInfo
+ );
+ }
+ catch (const SQLContext& e) { aErrorInfo = e; }
+ catch (const SQLWarning& e) { aErrorInfo = e; }
+ catch (const SQLException& e ) { aErrorInfo = e; }
+ catch( const Exception& )
+ {
+ OSL_ENSURE( sal_False, "FormLinkDialog::getFormFields: caught a non-SQL exception!" );
+ }
+
+ if ( aErrorInfo.isValid() )
+ {
+ String sErrorMessage;
+ {
+ ::svt::OLocalResourceAccess aStringAccess( ModuleRes( RID_DLG_FORMLINKS ), RSC_MODALDIALOG );
+ sErrorMessage = String( ResId( ( _rxForm == m_xDetailForm ) ? STR_ERROR_RETRIEVING_MASTER_COLUMNS : STR_ERROR_RETRIEVING_DETAIL_COLUMNS ) );
+ }
+
+ SQLContext aContext;
+ aContext.Message = sErrorMessage;
+ aContext.NextException = aErrorInfo.get();
+ ::dbtools::showError( aContext, VCLUnoHelper::GetInterface( const_cast< FormLinkDialog* >( this ) ), m_xORB );
+ }
+ }
+
+ //------------------------------------------------------------------------
+ void FormLinkDialog::ensureFormConnection( const Reference< XPropertySet >& _rxFormProps, Reference< XConnection >& /* [out] */ _rxConnection ) const SAL_THROW(( Exception ))
+ {
+ OSL_PRECOND( _rxFormProps.is(), "FormLinkDialog::ensureFormConnection: invalid form!" );
+ if ( !_rxFormProps.is() )
+ return;
+
+ _rxConnection.clear();
+ _rxFormProps->getPropertyValue( PROPERTY_ACTIVE_CONNECTION ) >>= _rxConnection;
+ if ( !_rxConnection.is() )
+ {
+ _rxConnection = ::dbtools::connectRowset( Reference< XRowSet >( _rxFormProps, UNO_QUERY ), m_xORB, sal_True );
+ // TODO: this now is a resource leak: we just created this connection ourself,
+ // and nobody will ever dispose it
+ }
+ }
+
+ //------------------------------------------------------------------------
+ void FormLinkDialog::getConnectionMetaData( const Reference< XPropertySet >& _rxFormProps, Reference< XDatabaseMetaData >& /* [out] */ _rxMeta ) const SAL_THROW(( Exception ))
+ {
+ if ( _rxFormProps.is() )
+ {
+ Reference< XConnection > xConnection;
+ _rxFormProps->getPropertyValue( PROPERTY_ACTIVE_CONNECTION ) >>= xConnection;
+ if ( xConnection.is() )
+ _rxMeta = xConnection->getMetaData();
+ }
+ }
+
+ //------------------------------------------------------------------------
+ Reference< XPropertySet > FormLinkDialog::getCanonicUnderlyingTable( const Reference< XPropertySet >& _rxFormProps ) const
+ {
+ Reference< XPropertySet > xTable;
+ try
+ {
+ Reference< XTablesSupplier > xTablesInForm( ::dbtools::getCurrentSettingsComposer( _rxFormProps, m_xORB ), UNO_QUERY );
+ Reference< XNameAccess > xTables;
+ if ( xTablesInForm.is() )
+ xTables = xTablesInForm->getTables();
+ Sequence< ::rtl::OUString > aTableNames;
+ if ( xTables.is() )
+ aTableNames = xTables->getElementNames();
+
+ if ( aTableNames.getLength() == 1 )
+ {
+ xTables->getByName( aTableNames[ 0 ] ) >>= xTable;
+ OSL_ENSURE( xTable.is(), "FormLinkDialog::getCanonicUnderlyingTable: invalid table!" );
+ }
+ }
+ catch( const Exception& )
+ {
+ OSL_ENSURE( sal_False, "FormLinkDialog::getCanonicUnderlyingTable: caught an exception!" );
+ }
+ return xTable;
+ }
+
+ //------------------------------------------------------------------------
+ sal_Bool FormLinkDialog::getExistingRelation( const Reference< XPropertySet >& _rxLHS, const Reference< XPropertySet >& _rxRHS,
+ Sequence< ::rtl::OUString >& _rLeftFields, Sequence< ::rtl::OUString >& _rRightFields ) const
+ {
+ try
+ {
+ Reference< XKeysSupplier > xSuppKeys( _rxLHS, UNO_QUERY );
+ Reference< XIndexAccess > xKeys;
+ if ( xSuppKeys.is() )
+ xKeys = xSuppKeys->getKeys();
+
+ if ( xKeys.is() )
+ {
+ Reference< XPropertySet > xKey;
+ Reference< XColumnsSupplier > xKeyColSupp( xKey, UNO_QUERY );
+ Reference< XIndexAccess > xKeyColumns;
+ Reference< XPropertySet > xKeyColumn;
+ ::rtl::OUString sColumnName, sRelatedColumnName;
+
+ const sal_Int32 keyCount = xKeys->getCount();
+ for ( sal_Int32 key = 0; key < keyCount; ++key )
+ {
+ xKeys->getByIndex( key ) >>= xKey;
+ sal_Int32 nKeyType = 0;
+ xKey->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Type" ) ) ) >>= nKeyType;
+ if ( nKeyType == KeyType::FOREIGN )
+ {
+ xKeyColumns.clear();
+ xKeyColSupp = xKeyColSupp.query( xKey );
+ if ( xKeyColSupp.is() )
+ xKeyColumns = xKeyColumns.query( xKeyColSupp->getColumns() );
+ OSL_ENSURE( xKeyColumns.is(), "FormLinkDialog::getExistingRelation: could not obtain the columns for the key!" );
+ if ( xKeyColumns.is() )
+ {
+ const sal_Int32 columnCount = xKeyColumns->getCount();
+ _rLeftFields.realloc( columnCount );
+ _rRightFields.realloc( columnCount );
+ for ( sal_Int32 column = 0; column < columnCount; ++column )
+ {
+ xKeyColumn.clear();
+ xKeyColumns->getByIndex( column ) >>= xKeyColumn;
+ OSL_ENSURE( xKeyColumn.is(), "FormLinkDialog::getExistingRelation: invalid key column!" );
+ if ( xKeyColumn.is() )
+ {
+ xKeyColumn->getPropertyValue( PROPERTY_NAME ) >>= sColumnName;
+ xKeyColumn->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "RelatedColumn" ) ) ) >>= sRelatedColumnName;
+
+ _rLeftFields[ column ] = sColumnName;
+ _rRightFields[ column ] = sRelatedColumnName;
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ catch( const Exception& )
+ {
+ OSL_ENSURE( sal_False, "FormLinkDialog::getExistingRelation: caught an exception!" );
+ }
+
+ return ( _rLeftFields.getLength() > 0 ) && ( _rLeftFields[ 0 ].getLength() > 0 );
+ }
+
+ //------------------------------------------------------------------------
+ void FormLinkDialog::initializeSuggest()
+ {
+ Reference< XPropertySet > xDetailFormProps( m_xDetailForm, UNO_QUERY );
+ Reference< XPropertySet > xMasterFormProps( m_xMasterForm, UNO_QUERY );
+ if ( !xDetailFormProps.is() || !xMasterFormProps.is() )
+ return;
+
+ try
+ {
+ sal_Bool bEnable = sal_True;
+
+ // only show the button when both forms are based on the same data source
+ if ( bEnable )
+ {
+ ::rtl::OUString sMasterDS, sDetailDS;
+ xMasterFormProps->getPropertyValue( PROPERTY_DATASOURCE ) >>= sMasterDS;
+ xDetailFormProps->getPropertyValue( PROPERTY_DATASOURCE ) >>= sDetailDS;
+ bEnable = ( sMasterDS == sDetailDS );
+ }
+
+ // only show the button when the connection supports relations
+ if ( bEnable )
+ {
+ Reference< XDatabaseMetaData > xMeta;
+ getConnectionMetaData( xDetailFormProps, xMeta );
+ OSL_ENSURE( xMeta.is(), "FormLinkDialog::initializeSuggest: unable to retrieve the meta data for the connection!" );
+ bEnable = xMeta.is() && xMeta->supportsIntegrityEnhancementFacility();
+ }
+
+ // only enable the button if there is a "canonic" table underlying both forms
+ Reference< XPropertySet > xDetailTable, xMasterTable;
+ if ( bEnable )
+ {
+ xDetailTable = getCanonicUnderlyingTable( xDetailFormProps );
+ xMasterTable = getCanonicUnderlyingTable( xMasterFormProps );
+ bEnable = xDetailTable.is() && xMasterTable.is();
+ }
+
+ // only enable the button if there is a relation between both tables
+ m_aRelationDetailColumns.realloc( 0 );
+ m_aRelationMasterColumns.realloc( 0 );
+ if ( bEnable )
+ {
+ bEnable = getExistingRelation( xDetailTable, xMasterTable, m_aRelationDetailColumns, m_aRelationMasterColumns );
+ OSL_POSTCOND( m_aRelationMasterColumns.getLength() == m_aRelationDetailColumns.getLength(), "FormLinkDialog::initializeSuggest: nonsense!" );
+ if ( m_aRelationMasterColumns.getLength() == 0 )
+ { // okay, there is no relation "pointing" (via a foreign key) from the detail table to the master table
+ // but perhaps the other way round (would make less sense, but who knows ...)
+ bEnable = getExistingRelation( xMasterTable, xDetailTable, m_aRelationMasterColumns, m_aRelationDetailColumns );
+ }
+ }
+
+ // only enable the button if the relation contains at most 4 field pairs
+ if ( bEnable )
+ {
+ bEnable = ( m_aRelationMasterColumns.getLength() <= 4 );
+ }
+
+ m_aSuggest.Enable( bEnable );
+ }
+ catch( const Exception& )
+ {
+ OSL_ENSURE( sal_False, "FormLinkDialog::initializeSuggest: caught an exception!" );
+ }
+ }
+
+ //------------------------------------------------------------------------
+ IMPL_LINK( FormLinkDialog, OnSuggest, void*, _pNotInterestedIn )
+ {
+ initializeFieldRowsFrom( m_aRelationDetailColumns, m_aRelationMasterColumns );
+ return 0L;
+ }
+
+ //------------------------------------------------------------------------
+ IMPL_LINK( FormLinkDialog, OnFieldChanged, FieldLinkRow*, _pRow )
+ {
+ updateOkButton();
+ return 0L;
+ }
+
+ //------------------------------------------------------------------------
+ IMPL_LINK( FormLinkDialog, OnInitialize, void*, _pNotInterestedIn )
+ {
+ initializeColumnLabels();
+ initializeFieldLists();
+ initializeLinks();
+ initializeSuggest();
+ return 0L;
+ }
+
+//............................................................................
+} // namespace pcr
+//............................................................................
generated by cgit (git 2.34.1) at 2025-03-02 10:28:52 +0000