extensions/source/propctrlr/formlinkdialog.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*************************************************************************
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * Copyright 2000, 2010 Oracle and/or its affiliates.
   7  *
   8  * OpenOffice.org - a multi-platform office productivity suite
   9  *
  10  * This file is part of OpenOffice.org.
  11  *
  12  * OpenOffice.org is free software: you can redistribute it and/or modify
  13  * it under the terms of the GNU Lesser General Public License version 3
  14  * only, as published by the Free Software Foundation.
  15  *
  16  * OpenOffice.org is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU Lesser General Public License version 3 for more details
  20  * (a copy is included in the LICENSE file that accompanied this code).
  21  *
  22  * You should have received a copy of the GNU Lesser General Public License
  23  * version 3 along with OpenOffice.org.  If not, see
  24  * <http://www.openoffice.org/license.html>
  25  * for a copy of the LGPLv3 License.
  26  *
  27  ************************************************************************/
  28
  29
  30 #include "formlinkdialog.hxx"
  31 #include "formlinkdialog.hrc"
  32
  33 #include "modulepcr.hxx"
  34 #include "formresid.hrc"
  35 #include "formstrings.hxx"
  36 #include <vcl/combobox.hxx>
  37 #include <vcl/msgbox.hxx>
  38 #include <vcl/waitobj.hxx>
  39 #include <svtools/localresaccess.hxx>
  40 #include <connectivity/dbtools.hxx>
  41 #include <connectivity/dbexception.hxx>
  42 #include <toolkit/helper/vclunohelper.hxx>
  43
  44 /** === begin UNO includes === **/
  45 #include <com/sun/star/sdbcx/XColumnsSupplier.hpp>
  46 #include <com/sun/star/sdbcx/XKeysSupplier.hpp>
  47 #include <com/sun/star/sdbcx/KeyType.hpp>
  48 #include <com/sun/star/container/XNameAccess.hpp>
  49 #include <com/sun/star/sdbcx/XTablesSupplier.hpp>
  50 #include <com/sun/star/sdbc/XRowSet.hpp>
  51 #include <com/sun/star/sdb/CommandType.hpp>
  52 #include <com/sun/star/sdb/SQLContext.hpp>
  53 /** === end UNO includes === **/
  54
  55
  56 //............................................................................
  57 namespace pcr
  58 {
  59 //............................................................................
  60
  61     using namespace ::com::sun::star::uno;
  62     using namespace ::com::sun::star::lang;
  63     using namespace ::com::sun::star::form;
  64     using namespace ::com::sun::star::sdb;
  65     using namespace ::com::sun::star::sdbc;
  66     using namespace ::com::sun::star::sdbcx;
  67     using namespace ::com::sun::star::beans;
  68     using namespace ::com::sun::star::container;
  69
  70     //========================================================================
  71     //= FieldLinkRow
  72     //========================================================================
  73     class FieldLinkRow : public Window
  74     {
  75     private:
  76         ComboBox    m_aDetailColumn;
  77         FixedText   m_aEqualSign;
  78         ComboBox    m_aMasterColumn;
  79
  80         Link        m_aLinkChangeHandler;
  81
  82     public:
  83         FieldLinkRow( Window* _pParent, const ResId& _rId );
  84
  85         inline void         SetLinkChangeHandler( const Link& _rHdl ) { m_aLinkChangeHandler = _rHdl; }
  86         inline const Link&  GetLinkChangeHandler( ) const             { return m_aLinkChangeHandler;  }
  87
  88         enum LinkParticipant
  89         {
  90             eDetailField,
  91             eMasterField
  92         };
  93         /** retrieves the selected field name for either the master or the detail field
  94             @return <TRUE/> if and only a valid field is selected
  95         */
  96         bool    GetFieldName( LinkParticipant _eWhich, String& /* [out] */ _rName ) const;
  97         void    SetFieldName( LinkParticipant _eWhich, const String& _rName );
  98
  99         void    fillList( LinkParticipant _eWhich, const Sequence< ::rtl::OUString >& _rFieldNames );
 100
 101     private:
 102         DECL_LINK( OnFieldNameChanged, ComboBox* );
 103     };
 104
 105     //------------------------------------------------------------------------
 106     FieldLinkRow::FieldLinkRow( Window* _pParent, const ResId& _rId )
 107         :Window( _pParent, _rId )
 108         ,m_aDetailColumn( this, ResId( 1, *_rId.GetResMgr() ) )
 109         ,m_aEqualSign   ( this, ResId( 1, *_rId.GetResMgr() ) )
 110         ,m_aMasterColumn( this, ResId( 2, *_rId.GetResMgr() ) )
 111     {
 112         FreeResource();
 113
 114         m_aDetailColumn.SetDropDownLineCount( 10 );
 115         m_aMasterColumn.SetDropDownLineCount( 10 );
 116
 117         m_aDetailColumn.SetModifyHdl( LINK( this, FieldLinkRow, OnFieldNameChanged ) );
 118         m_aMasterColumn.SetModifyHdl( LINK( this, FieldLinkRow, OnFieldNameChanged ) );
 119     }
 120
 121     //------------------------------------------------------------------------
 122     void FieldLinkRow::fillList( LinkParticipant _eWhich, const Sequence< ::rtl::OUString >& _rFieldNames )
 123     {
 124         ComboBox* pBox = ( _eWhich == eDetailField ) ? &m_aDetailColumn : &m_aMasterColumn;
 125
 126         const ::rtl::OUString* pFieldName    = _rFieldNames.getConstArray();
 127         const ::rtl::OUString* pFieldNameEnd = pFieldName + _rFieldNames.getLength();
 128         for ( ; pFieldName != pFieldNameEnd; ++pFieldName )
 129             pBox->InsertEntry( *pFieldName );
 130     }
 131
 132     //------------------------------------------------------------------------
 133     bool FieldLinkRow::GetFieldName( LinkParticipant _eWhich, String& /* [out] */ _rName ) const
 134     {
 135         const ComboBox* pBox = ( _eWhich == eDetailField ) ? &m_aDetailColumn : &m_aMasterColumn;
 136         _rName = pBox->GetText();
 137         return _rName.Len() != 0;
 138     }
 139
 140     //------------------------------------------------------------------------
 141     void FieldLinkRow::SetFieldName( LinkParticipant _eWhich, const String& _rName )
 142     {
 143         ComboBox* pBox = ( _eWhich == eDetailField ) ? &m_aDetailColumn : &m_aMasterColumn;
 144         pBox->SetText( _rName );
 145     }
 146
 147     //------------------------------------------------------------------------
 148     IMPL_LINK( FieldLinkRow, OnFieldNameChanged, ComboBox*, /*_pBox*/ )
 149     {
 150         if ( m_aLinkChangeHandler.IsSet() )
 151             return m_aLinkChangeHandler.Call( this );
 152
 153         return 0L;
 154     }
 155
 156     //========================================================================
 157     //= FormLinkDialog
 158     //========================================================================
 159     //------------------------------------------------------------------------
 160     FormLinkDialog::FormLinkDialog( Window* _pParent, const Reference< XPropertySet >& _rxDetailForm,
 161             const Reference< XPropertySet >& _rxMasterForm, const Reference< XMultiServiceFactory >& _rxORB,
 162             const ::rtl::OUString& _sExplanation,
 163             const ::rtl::OUString& _sDetailLabel,
 164             const ::rtl::OUString& _sMasterLabel)
 165         :ModalDialog( _pParent, PcrRes( RID_DLG_FORMLINKS ) )
 166         ,m_aExplanation( this, PcrRes( FT_EXPLANATION  ) )
 167         ,m_aDetailLabel( this, PcrRes( FT_DETAIL_LABEL ) )
 168         ,m_aMasterLabel( this, PcrRes( FT_MASTER_LABEL ) )
 169         ,m_aRow1       ( new FieldLinkRow( this, PcrRes( 1 ) ) )
 170         ,m_aRow2       ( new FieldLinkRow( this, PcrRes( 2 ) ) )
 171         ,m_aRow3       ( new FieldLinkRow( this, PcrRes( 3 ) ) )
 172         ,m_aRow4       ( new FieldLinkRow( this, PcrRes( 4 ) ) )
 173         ,m_aOK         ( this, PcrRes( PB_OK           ) )
 174         ,m_aCancel     ( this, PcrRes( PB_CANCEL       ) )
 175         ,m_aHelp       ( this, PcrRes( PB_HELP         ) )
 176         ,m_aSuggest    ( this, PcrRes( PB_SUGGEST      ) )
 177         ,m_xORB       ( _rxORB        )
 178         ,m_xDetailForm( _rxDetailForm )
 179         ,m_xMasterForm( _rxMasterForm )
 180         ,m_sDetailLabel(_sDetailLabel)
 181         ,m_sMasterLabel(_sMasterLabel)
 182     {
 183         FreeResource();
 184         if ( !_sExplanation.isEmpty() )
 185             m_aExplanation.SetText(_sExplanation);
 186
 187         m_aSuggest.SetClickHdl       ( LINK( this, FormLinkDialog, OnSuggest      ) );
 188         m_aRow1->SetLinkChangeHandler( LINK( this, FormLinkDialog, OnFieldChanged ) );
 189         m_aRow2->SetLinkChangeHandler( LINK( this, FormLinkDialog, OnFieldChanged ) );
 190         m_aRow3->SetLinkChangeHandler( LINK( this, FormLinkDialog, OnFieldChanged ) );
 191         m_aRow4->SetLinkChangeHandler( LINK( this, FormLinkDialog, OnFieldChanged ) );
 192
 193         PostUserEvent( LINK( this, FormLinkDialog, OnInitialize ) );
 194
 195         updateOkButton();
 196     }
 197
 198     //------------------------------------------------------------------------
 199     FormLinkDialog::~FormLinkDialog( )
 200     {
 201     }
 202
 203     //------------------------------------------------------------------------
 204     void FormLinkDialog::commitLinkPairs()
 205     {
 206         // collect the field lists from the rows
 207         ::std::vector< ::rtl::OUString > aDetailFields; aDetailFields.reserve( 4 );
 208         ::std::vector< ::rtl::OUString > aMasterFields; aMasterFields.reserve( 4 );
 209
 210         const FieldLinkRow* aRows[] = {
 211             m_aRow1.get(), m_aRow2.get(), m_aRow3.get(), m_aRow4.get()
 212         };
 213
 214         for ( sal_Int32 i = 0; i < 4; ++i )
 215         {
 216             String sDetailField, sMasterField;
 217             aRows[ i ]->GetFieldName( FieldLinkRow::eDetailField, sDetailField );
 218             aRows[ i ]->GetFieldName( FieldLinkRow::eMasterField, sMasterField );
 219             if ( !sDetailField.Len() && !sMasterField.Len() )
 220                 continue;
 221
 222             aDetailFields.push_back( sDetailField );
 223             aMasterFields.push_back( sMasterField );
 224         }
 225
 226         // and set as property values
 227         try
 228         {
 229             Reference< XPropertySet > xDetailFormProps( m_xDetailForm, UNO_QUERY );
 230             if ( xDetailFormProps.is() )
 231             {
 232                 ::rtl::OUString *pFields = aDetailFields.empty() ? 0 : &aDetailFields[0];
 233                 xDetailFormProps->setPropertyValue( PROPERTY_DETAILFIELDS, makeAny( Sequence< ::rtl::OUString >( pFields, aDetailFields.size() ) ) );
 234                 pFields = aMasterFields.empty() ? 0 : &aMasterFields[0];
 235                 xDetailFormProps->setPropertyValue( PROPERTY_MASTERFIELDS, makeAny( Sequence< ::rtl::OUString >( pFields, aMasterFields.size() ) ) );
 236             }
 237         }
 238         catch( const Exception& )
 239         {
 240             OSL_FAIL( "FormLinkDialog::commitLinkPairs: caught an exception while setting the properties!" );
 241         }
 242     }
 243
 244     //------------------------------------------------------------------------
 245     short FormLinkDialog::Execute()
 246     {
 247         short nResult = ModalDialog::Execute();
 248
 249         if ( RET_OK == nResult )
 250             commitLinkPairs();
 251
 252         return nResult;
 253     }
 254
 255     //------------------------------------------------------------------------
 256     void FormLinkDialog::initializeFieldLists()
 257     {
 258         Sequence< ::rtl::OUString > sDetailFields;
 259         getFormFields( m_xDetailForm, sDetailFields );
 260
 261         Sequence< ::rtl::OUString > sMasterFields;
 262         getFormFields( m_xMasterForm, sMasterFields );
 263
 264         FieldLinkRow* aRows[] = {
 265             m_aRow1.get(), m_aRow2.get(), m_aRow3.get(), m_aRow4.get()
 266         };
 267         for ( sal_Int32 i = 0; i < 4 ; ++i )
 268         {
 269             aRows[i]->fillList( FieldLinkRow::eDetailField, sDetailFields );
 270             aRows[i]->fillList( FieldLinkRow::eMasterField, sMasterFields );
 271         }
 272
 273     }
 274
 275     //------------------------------------------------------------------------
 276     void FormLinkDialog::initializeColumnLabels()
 277     {
 278         // label for the detail form
 279         String sDetailType = getFormDataSourceType( m_xDetailForm );
 280         if ( !sDetailType.Len() )
 281         {
 282             if ( m_sDetailLabel.isEmpty() )
 283             {
 284                 ::svt::OLocalResourceAccess aStringAccess( PcrRes( RID_DLG_FORMLINKS ), RSC_MODALDIALOG );
 285                 m_sDetailLabel = String( PcrRes( STR_DETAIL_FORM ) );
 286             }
 287             sDetailType = m_sDetailLabel;
 288         }
 289         m_aDetailLabel.SetText( sDetailType );
 290
 291         // label for the master form
 292         String sMasterType = getFormDataSourceType( m_xMasterForm );
 293         if ( !sMasterType.Len() )
 294         {
 295             if ( m_sMasterLabel.isEmpty() )
 296             {
 297                 ::svt::OLocalResourceAccess aStringAccess( PcrRes( RID_DLG_FORMLINKS ), RSC_MODALDIALOG );
 298                 m_sMasterLabel = String( PcrRes( STR_MASTER_FORM ) );
 299             }
 300             sMasterType = m_sMasterLabel;
 301         }
 302         m_aMasterLabel.SetText( sMasterType );
 303     }
 304
 305     //------------------------------------------------------------------------
 306     void FormLinkDialog::initializeFieldRowsFrom( Sequence< ::rtl::OUString >& _rDetailFields, Sequence< ::rtl::OUString >& _rMasterFields )
 307     {
 308         // our UI does allow 4 fields max
 309         _rDetailFields.realloc( 4 );
 310         _rMasterFields.realloc( 4 );
 311
 312         const ::rtl::OUString* pDetailFields = _rDetailFields.getConstArray();
 313         const ::rtl::OUString* pMasterFields = _rMasterFields.getConstArray();
 314
 315         FieldLinkRow* aRows[] = {
 316             m_aRow1.get(), m_aRow2.get(), m_aRow3.get(), m_aRow4.get()
 317         };
 318         for ( sal_Int32 i = 0; i < 4; ++i, ++pDetailFields, ++pMasterFields )
 319         {
 320             aRows[ i ]->SetFieldName( FieldLinkRow::eDetailField, *pDetailFields );
 321             aRows[ i ]->SetFieldName( FieldLinkRow::eMasterField, *pMasterFields );
 322         }
 323     }
 324
 325     //------------------------------------------------------------------------
 326     void FormLinkDialog::initializeLinks()
 327     {
 328         try
 329         {
 330             Sequence< ::rtl::OUString > aDetailFields;
 331             Sequence< ::rtl::OUString > aMasterFields;
 332
 333             Reference< XPropertySet > xDetailFormProps( m_xDetailForm, UNO_QUERY );
 334             if ( xDetailFormProps.is() )
 335             {
 336                 xDetailFormProps->getPropertyValue( PROPERTY_DETAILFIELDS ) >>= aDetailFields;
 337                 xDetailFormProps->getPropertyValue( PROPERTY_MASTERFIELDS ) >>= aMasterFields;
 338             }
 339
 340             initializeFieldRowsFrom( aDetailFields, aMasterFields );
 341         }
 342         catch( const Exception& )
 343         {
 344             OSL_FAIL( "FormLinkDialog::initializeLinks: caught an exception!" );
 345         }
 346     }
 347
 348     //------------------------------------------------------------------------
 349     void FormLinkDialog::updateOkButton()
 350     {
 351         // in all rows, there must be either two valid selections, or none at all
 352         // If there is at least one row with exactly one valid selection, then the
 353         // OKButton needs to be disabled
 354         sal_Bool bEnable = sal_True;
 355
 356         const FieldLinkRow* aRows[] = {
 357             m_aRow1.get(), m_aRow2.get(), m_aRow3.get(), m_aRow4.get()
 358         };
 359
 360         for ( sal_Int32 i = 0; ( i < 4 ) && bEnable; ++i )
 361         {
 362             String sNotInterestedInRightNow;
 363             if  (  aRows[ i ]->GetFieldName( FieldLinkRow::eDetailField, sNotInterestedInRightNow )
 364                 != aRows[ i ]->GetFieldName( FieldLinkRow::eMasterField, sNotInterestedInRightNow )
 365                 )
 366                 bEnable = sal_False;
 367         }
 368
 369         m_aOK.Enable( bEnable );
 370     }
 371
 372     //------------------------------------------------------------------------
 373     String FormLinkDialog::getFormDataSourceType( const Reference< XPropertySet >& _rxForm ) const SAL_THROW(())
 374     {
 375         String sReturn;
 376         Reference< XPropertySet > xFormProps( _rxForm, UNO_QUERY );
 377         if ( !xFormProps.is() )
 378             return sReturn;
 379
 380         try
 381         {
 382             sal_Int32       nCommandType = CommandType::COMMAND;
 383             ::rtl::OUString sCommand;
 384
 385             xFormProps->getPropertyValue( PROPERTY_COMMANDTYPE ) >>= nCommandType;
 386             xFormProps->getPropertyValue( PROPERTY_COMMAND     ) >>= sCommand;
 387
 388             if  (  ( nCommandType == CommandType::TABLE )
 389                 || ( nCommandType == CommandType::QUERY )
 390                 )
 391                 sReturn = sCommand;
 392         }
 393         catch( const Exception& )
 394         {
 395             OSL_FAIL( "FormLinkDialog::getFormDataSourceType: caught an exception!" );
 396         }
 397         return sReturn;
 398     }
 399
 400     //------------------------------------------------------------------------
 401     void FormLinkDialog::getFormFields( const Reference< XPropertySet >& _rxForm, Sequence< ::rtl::OUString >& /* [out] */ _rNames ) const SAL_THROW(( ))
 402     {
 403         _rNames.realloc( 0 );
 404
 405         ::dbtools::SQLExceptionInfo aErrorInfo;
 406         ::rtl::OUString sCommand;
 407         try
 408         {
 409             WaitObject aWaitCursor( const_cast< FormLinkDialog* >( this ) );
 410
 411             Reference< XPropertySet > xFormProps( _rxForm, UNO_QUERY );
 412             OSL_ENSURE( xFormProps.is(), "FormLinkDialog::getFormFields: invalid form!" );
 413
 414             sal_Int32       nCommandType = CommandType::COMMAND;
 415
 416             xFormProps->getPropertyValue( PROPERTY_COMMANDTYPE ) >>= nCommandType;
 417             xFormProps->getPropertyValue( PROPERTY_COMMAND     ) >>= sCommand;
 418
 419             Reference< XConnection > xConnection;
 420             ensureFormConnection( xFormProps, xConnection );
 421
 422             _rNames = ::dbtools::getFieldNamesByCommandDescriptor(
 423                 xConnection,
 424                 nCommandType,
 425                 sCommand,
 426                 &aErrorInfo
 427             );
 428         }
 429         catch (const SQLContext& e)    { aErrorInfo = e; }
 430         catch (const SQLWarning& e)    { aErrorInfo = e; }
 431         catch (const SQLException& e ) { aErrorInfo = e; }
 432         catch( const Exception& )
 433         {
 434             OSL_FAIL( "FormLinkDialog::getFormFields: caught a non-SQL exception!" );
 435         }
 436
 437         if ( aErrorInfo.isValid() )
 438         {
 439             String sErrorMessage;
 440             {
 441                 ::svt::OLocalResourceAccess aStringAccess( PcrRes( RID_DLG_FORMLINKS ), RSC_MODALDIALOG );
 442                 sErrorMessage = String( PcrRes( STR_ERROR_RETRIEVING_COLUMNS) );
 443                 sErrorMessage.SearchAndReplace('#',sCommand);
 444             }
 445
 446             SQLContext aContext;
 447             aContext.Message = sErrorMessage;
 448             aContext.NextException = aErrorInfo.get();
 449             ::dbtools::showError( aContext, VCLUnoHelper::GetInterface( const_cast< FormLinkDialog* >( this ) ), m_xORB );
 450         }
 451     }
 452
 453     //------------------------------------------------------------------------
 454     void FormLinkDialog::ensureFormConnection( const Reference< XPropertySet >& _rxFormProps, Reference< XConnection >& /* [out] */ _rxConnection ) const SAL_THROW(( Exception ))
 455     {
 456         OSL_PRECOND( _rxFormProps.is(), "FormLinkDialog::ensureFormConnection: invalid form!" );
 457         if ( !_rxFormProps.is() )
 458             return;
 459         if ( _rxFormProps->getPropertySetInfo()->hasPropertyByName(PROPERTY_ACTIVE_CONNECTION) )
 460             _rxConnection.set(_rxFormProps->getPropertyValue(PROPERTY_ACTIVE_CONNECTION),UNO_QUERY);
 461
 462         if ( !_rxConnection.is() )
 463             _rxConnection = ::dbtools::connectRowset( Reference< XRowSet >( _rxFormProps, UNO_QUERY ), m_xORB, sal_True );
 464     }
 465
 466     //------------------------------------------------------------------------
 467     void FormLinkDialog::getConnectionMetaData( const Reference< XPropertySet >& _rxFormProps, Reference< XDatabaseMetaData >& /* [out] */ _rxMeta ) const SAL_THROW(( Exception ))
 468     {
 469         if ( _rxFormProps.is() )
 470         {
 471             Reference< XConnection > xConnection;
 472             if ( !::dbtools::isEmbeddedInDatabase( _rxFormProps, xConnection ) )
 473                 _rxFormProps->getPropertyValue( PROPERTY_ACTIVE_CONNECTION ) >>= xConnection;
 474             if ( xConnection.is() )
 475                 _rxMeta = xConnection->getMetaData();
 476         }
 477     }
 478
 479     //------------------------------------------------------------------------
 480     Reference< XPropertySet > FormLinkDialog::getCanonicUnderlyingTable( const Reference< XPropertySet >& _rxFormProps ) const
 481     {
 482         Reference< XPropertySet > xTable;
 483         try
 484         {
 485             Reference< XTablesSupplier > xTablesInForm( ::dbtools::getCurrentSettingsComposer( _rxFormProps, m_xORB ), UNO_QUERY );
 486             Reference< XNameAccess > xTables;
 487             if ( xTablesInForm.is() )
 488                 xTables = xTablesInForm->getTables();
 489             Sequence< ::rtl::OUString > aTableNames;
 490             if ( xTables.is() )
 491                 aTableNames = xTables->getElementNames();
 492
 493             if ( aTableNames.getLength() == 1 )
 494             {
 495                 xTables->getByName( aTableNames[ 0 ] ) >>= xTable;
 496                 OSL_ENSURE( xTable.is(), "FormLinkDialog::getCanonicUnderlyingTable: invalid table!" );
 497             }
 498         }
 499         catch( const Exception& )
 500         {
 501             OSL_FAIL( "FormLinkDialog::getCanonicUnderlyingTable: caught an exception!" );
 502         }
 503         return xTable;
 504     }
 505
 506     //------------------------------------------------------------------------
 507     sal_Bool FormLinkDialog::getExistingRelation( const Reference< XPropertySet >& _rxLHS, const Reference< XPropertySet >& /*_rxRHS*/,
 508             // TODO: fix the usage of _rxRHS. This is issue #i81956#.
 509         Sequence< ::rtl::OUString >& _rLeftFields, Sequence< ::rtl::OUString >& _rRightFields ) const
 510     {
 511         try
 512         {
 513             Reference< XKeysSupplier > xSuppKeys( _rxLHS, UNO_QUERY );
 514             Reference< XIndexAccess >  xKeys;
 515             if ( xSuppKeys.is() )
 516                 xKeys = xSuppKeys->getKeys();
 517
 518             if ( xKeys.is() )
 519             {
 520                 Reference< XPropertySet >     xKey;
 521                 Reference< XColumnsSupplier > xKeyColSupp( xKey, UNO_QUERY );
 522                 Reference< XIndexAccess >     xKeyColumns;
 523                 Reference< XPropertySet >     xKeyColumn;
 524                 ::rtl::OUString sColumnName, sRelatedColumnName;
 525
 526                 const sal_Int32 keyCount = xKeys->getCount();
 527                 for ( sal_Int32 key = 0; key < keyCount; ++key )
 528                 {
 529                     xKeys->getByIndex( key ) >>= xKey;
 530                     sal_Int32 nKeyType = 0;
 531                     xKey->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Type" ) ) ) >>= nKeyType;
 532                     if ( nKeyType != KeyType::FOREIGN )
 533                         continue;
 534
 535                     xKeyColumns.clear();
 536                     xKeyColSupp = xKeyColSupp.query( xKey );
 537                     if ( xKeyColSupp.is() )
 538                         xKeyColumns = xKeyColumns.query( xKeyColSupp->getColumns() );
 539                     OSL_ENSURE( xKeyColumns.is(), "FormLinkDialog::getExistingRelation: could not obtain the columns for the key!" );
 540
 541                     if ( !xKeyColumns.is() )
 542                         continue;
 543
 544                     const sal_Int32 columnCount = xKeyColumns->getCount();
 545                     _rLeftFields.realloc( columnCount );
 546                     _rRightFields.realloc( columnCount );
 547                     for ( sal_Int32 column = 0; column < columnCount; ++column )
 548                     {
 549                         xKeyColumn.clear();
 550                         xKeyColumns->getByIndex( column ) >>= xKeyColumn;
 551                         OSL_ENSURE( xKeyColumn.is(), "FormLinkDialog::getExistingRelation: invalid key column!" );
 552                         if ( xKeyColumn.is() )
 553                         {
 554                             xKeyColumn->getPropertyValue( PROPERTY_NAME ) >>= sColumnName;
 555                             xKeyColumn->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "RelatedColumn" ) ) ) >>= sRelatedColumnName;
 556
 557                             _rLeftFields[ column ]  = sColumnName;
 558                             _rRightFields[ column ] = sRelatedColumnName;
 559                         }
 560                     }
 561                 }
 562             }
 563         }
 564         catch( const Exception& )
 565         {
 566             OSL_FAIL( "FormLinkDialog::getExistingRelation: caught an exception!" );
 567         }
 568
 569         return ( _rLeftFields.getLength() > 0 ) && ( !_rLeftFields[ 0 ].isEmpty() );
 570     }
 571
 572     //------------------------------------------------------------------------
 573     void FormLinkDialog::initializeSuggest()
 574     {
 575         Reference< XPropertySet > xDetailFormProps( m_xDetailForm, UNO_QUERY );
 576         Reference< XPropertySet > xMasterFormProps( m_xMasterForm, UNO_QUERY );
 577         if ( !xDetailFormProps.is() || !xMasterFormProps.is() )
 578             return;
 579
 580         try
 581         {
 582             sal_Bool bEnable = sal_True;
 583
 584             // only show the button when both forms are based on the same data source
 585             if ( bEnable )
 586             {
 587                 ::rtl::OUString sMasterDS, sDetailDS;
 588                 xMasterFormProps->getPropertyValue( PROPERTY_DATASOURCE ) >>= sMasterDS;
 589                 xDetailFormProps->getPropertyValue( PROPERTY_DATASOURCE ) >>= sDetailDS;
 590                 bEnable = ( sMasterDS == sDetailDS );
 591             }
 592
 593             // only show the button when the connection supports relations
 594             if ( bEnable )
 595             {
 596                 Reference< XDatabaseMetaData > xMeta;
 597                 getConnectionMetaData( xDetailFormProps, xMeta );
 598                 OSL_ENSURE( xMeta.is(), "FormLinkDialog::initializeSuggest: unable to retrieve the meta data for the connection!" );
 599                 try
 600                 {
 601                     bEnable = xMeta.is() && xMeta->supportsIntegrityEnhancementFacility();
 602                 }
 603                 catch(const Exception&)
 604                 {
 605                     bEnable = sal_False;
 606                 }
 607             }
 608
 609             // only enable the button if there is a "canonic" table underlying both forms
 610             Reference< XPropertySet > xDetailTable, xMasterTable;
 611             if ( bEnable )
 612             {
 613                 xDetailTable = getCanonicUnderlyingTable( xDetailFormProps );
 614                 xMasterTable = getCanonicUnderlyingTable( xMasterFormProps );
 615                 bEnable = xDetailTable.is() && xMasterTable.is();
 616             }
 617
 618             // only enable the button if there is a relation between both tables
 619             m_aRelationDetailColumns.realloc( 0 );
 620             m_aRelationMasterColumns.realloc( 0 );
 621             if ( bEnable )
 622             {
 623                 bEnable = getExistingRelation( xDetailTable, xMasterTable, m_aRelationDetailColumns, m_aRelationMasterColumns );
 624                 OSL_POSTCOND( m_aRelationMasterColumns.getLength() == m_aRelationDetailColumns.getLength(), "FormLinkDialog::initializeSuggest: nonsense!" );
 625                 if ( m_aRelationMasterColumns.getLength() == 0 )
 626                 {   // okay, there is no relation "pointing" (via a foreign key) from the detail table to the master table
 627                     // but perhaps the other way round (would make less sense, but who knows ...)
 628                     bEnable = getExistingRelation( xMasterTable, xDetailTable, m_aRelationMasterColumns, m_aRelationDetailColumns );
 629                 }
 630             }
 631
 632             // only enable the button if the relation contains at most 4 field pairs
 633             if ( bEnable )
 634             {
 635                 bEnable = ( m_aRelationMasterColumns.getLength() <= 4 );
 636             }
 637
 638             m_aSuggest.Enable( bEnable );
 639         }
 640         catch( const Exception& )
 641         {
 642             OSL_FAIL( "FormLinkDialog::initializeSuggest: caught an exception!" );
 643         }
 644     }
 645
 646     //------------------------------------------------------------------------
 647     IMPL_LINK( FormLinkDialog, OnSuggest, void*, /*_pNotInterestedIn*/ )
 648     {
 649         initializeFieldRowsFrom( m_aRelationDetailColumns, m_aRelationMasterColumns );
 650         return 0L;
 651     }
 652
 653     //------------------------------------------------------------------------
 654     IMPL_LINK( FormLinkDialog, OnFieldChanged, FieldLinkRow*, /*_pRow*/ )
 655     {
 656         updateOkButton();
 657         return 0L;
 658     }
 659
 660     //------------------------------------------------------------------------
 661     IMPL_LINK( FormLinkDialog, OnInitialize, void*, /*_pNotInterestedIn*/ )
 662     {
 663         initializeColumnLabels();
 664         initializeFieldLists();
 665         initializeLinks();
 666         initializeSuggest();
 667         return 0L;
 668     }
 669 //............................................................................
 670 }   // namespace pcr
 671 //............................................................................
 672
 673 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */