dbaccess/source/ui/dlg/adtabdlg.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: adtabdlg.cxx,v $
  10  * $Revision: 1.30.68.2 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_dbaccess.hxx"
  33
  34 #include "adtabdlg.hxx"
  35 #include "adtabdlg.hrc"
  36 #include "sqlmessage.hxx"
  37 #include <tools/debug.hxx>
  38 #include <tools/diagnose_ex.h>
  39 #include <svtools/localresaccess.hxx>
  40 #include "dbaccess_helpid.hrc"
  41 #include "dbu_resource.hrc"
  42 #include "dbu_dlg.hrc"
  43 #include <sfx2/sfxsids.hrc>
  44 #include "QueryTableView.hxx"
  45 #include "QueryDesignView.hxx"
  46 #include "querycontroller.hxx"
  47 #include <connectivity/dbtools.hxx>
  48 #include "browserids.hxx"
  49 #include <com/sun/star/sdb/XQueriesSupplier.hpp>
  50 #include <com/sun/star/sdbcx/XViewsSupplier.hpp>
  51 #include <com/sun/star/sdbcx/XTablesSupplier.hpp>
  52 #include <com/sun/star/container/XNameAccess.hpp>
  53 #include "UITools.hxx"
  54 #include "imageprovider.hxx"
  55
  56 #include <comphelper/containermultiplexer.hxx>
  57 #include "cppuhelper/basemutex.hxx"
  58 #include <algorithm>
  59
  60 // slot ids
  61 using namespace dbaui;
  62 using namespace ::com::sun::star;
  63 using namespace ::com::sun::star::uno;
  64 using namespace ::com::sun::star::container;
  65 using namespace ::com::sun::star::sdb;
  66 using namespace ::com::sun::star::sdbc;
  67 using namespace ::com::sun::star::sdbcx;
  68 using namespace dbtools;
  69
  70 //==============================================================================
  71 //= TableObjectListFacade
  72 //==============================================================================
  73 TableObjectListFacade::~TableObjectListFacade()
  74 {
  75 }
  76
  77 //==============================================================================
  78 //= TableListFacade
  79 //==============================================================================
  80 class TableListFacade : public ::cppu::BaseMutex
  81                     ,   public TableObjectListFacade
  82                     ,   public ::comphelper::OContainerListener
  83 {
  84     OTableTreeListBox&          m_rTableList;
  85     Reference< XConnection >    m_xConnection;
  86     ::rtl::Reference< comphelper::OContainerListenerAdapter>
  87                                 m_pContainerListener;
  88     bool                        m_bAllowViews;
  89
  90 public:
  91     TableListFacade( OTableTreeListBox& _rTableList, const Reference< XConnection >& _rxConnection )
  92         : ::comphelper::OContainerListener(m_aMutex)
  93         ,m_rTableList( _rTableList )
  94         ,m_xConnection( _rxConnection )
  95         ,m_bAllowViews(true)
  96     {
  97     }
  98     virtual ~TableListFacade();
  99
 100
 101 private:
 102     virtual void    updateTableObjectList( bool _bAllowViews );
 103     virtual String  getSelectedName( String& _out_rAliasName ) const;
 104     virtual bool    isLeafSelected() const;
 105     // OContainerListener
 106     virtual void _elementInserted( const ::com::sun::star::container::ContainerEvent& _rEvent ) throw(::com::sun::star::uno::RuntimeException);
 107     virtual void _elementRemoved( const  ::com::sun::star::container::ContainerEvent& _rEvent ) throw(::com::sun::star::uno::RuntimeException);
 108     virtual void _elementReplaced( const ::com::sun::star::container::ContainerEvent& _rEvent ) throw(::com::sun::star::uno::RuntimeException);
 109 };
 110
 111 TableListFacade::~TableListFacade()
 112 {
 113     if ( m_pContainerListener.is() )
 114         m_pContainerListener->dispose();
 115 }
 116 //------------------------------------------------------------------------------
 117 String TableListFacade::getSelectedName( String& _out_rAliasName ) const
 118 {
 119     SvLBoxEntry* pEntry = m_rTableList.FirstSelected();
 120     if ( !pEntry )
 121         return String();
 122
 123     ::rtl::OUString aCatalog, aSchema, aTableName;
 124     SvLBoxEntry* pSchema = m_rTableList.GetParent(pEntry);
 125     if(pSchema && pSchema != m_rTableList.getAllObjectsEntry())
 126     {
 127         SvLBoxEntry* pCatalog = m_rTableList.GetParent(pSchema);
 128         if(pCatalog && pCatalog != m_rTableList.getAllObjectsEntry())
 129             aCatalog = m_rTableList.GetEntryText(pCatalog);
 130         aSchema = m_rTableList.GetEntryText(pSchema);
 131     }
 132     aTableName = m_rTableList.GetEntryText(pEntry);
 133
 134     ::rtl::OUString aComposedName;
 135     try
 136     {
 137         Reference< XDatabaseMetaData > xMeta( m_xConnection->getMetaData(), UNO_QUERY_THROW );
 138         if (  !aCatalog.getLength()
 139             && aSchema.getLength()
 140             && xMeta->supportsCatalogsInDataManipulation()
 141             && !xMeta->supportsSchemasInDataManipulation() )
 142         {
 143             aCatalog = aSchema;
 144             aSchema = ::rtl::OUString();
 145         }
 146
 147         aComposedName = ::dbtools::composeTableName(
 148             xMeta, aCatalog, aSchema, aTableName, sal_False, ::dbtools::eInDataManipulation );
 149     }
 150     catch ( const Exception& )
 151     {
 152         DBG_UNHANDLED_EXCEPTION();
 153     }
 154
 155     _out_rAliasName = aTableName;
 156     return aComposedName;
 157 }
 158 // -----------------------------------------------------------------------------
 159 void TableListFacade::_elementInserted( const container::ContainerEvent& /*_rEvent*/ )  throw(::com::sun::star::uno::RuntimeException)
 160 {
 161     updateTableObjectList(m_bAllowViews);
 162 }
 163 // -----------------------------------------------------------------------------
 164 void TableListFacade::_elementRemoved( const container::ContainerEvent& /*_rEvent*/ ) throw(::com::sun::star::uno::RuntimeException)
 165 {
 166     updateTableObjectList(m_bAllowViews);
 167 }
 168 // -----------------------------------------------------------------------------
 169 void TableListFacade::_elementReplaced( const container::ContainerEvent& /*_rEvent*/ ) throw(::com::sun::star::uno::RuntimeException)
 170 {
 171 }
 172 //------------------------------------------------------------------------------
 173 void TableListFacade::updateTableObjectList( bool _bAllowViews )
 174 {
 175     m_bAllowViews = _bAllowViews;
 176     m_rTableList.Clear();
 177     try
 178     {
 179         Reference< XTablesSupplier > xTableSupp( m_xConnection, UNO_QUERY_THROW );
 180
 181         Reference< XViewsSupplier > xViewSupp;
 182         Reference< XNameAccess > xTables, xViews;
 183         Sequence< ::rtl::OUString > sTables, sViews;
 184
 185         xTables = xTableSupp->getTables();
 186         if ( xTables.is() )
 187         {
 188             if ( !m_pContainerListener.is() )
 189             {
 190                 Reference< XContainer> xContainer(xTables,uno::UNO_QUERY);
 191                 if ( xContainer.is() )
 192                     m_pContainerListener = new ::comphelper::OContainerListenerAdapter(this,xContainer);
 193             }
 194             sTables = xTables->getElementNames();
 195         } // if ( xTables.is() )
 196
 197         xViewSupp.set( xTableSupp, UNO_QUERY );
 198         if ( xViewSupp.is() )
 199         {
 200             xViews = xViewSupp->getViews();
 201             if ( xViews.is() )
 202                 sViews = xViews->getElementNames();
 203         }
 204
 205         // if no views are allowed remove the views also out the table name filter
 206         if ( !_bAllowViews )
 207         {
 208             const ::rtl::OUString* pTableBegin  = sTables.getConstArray();
 209             const ::rtl::OUString* pTableEnd    = pTableBegin + sTables.getLength();
 210             ::std::vector< ::rtl::OUString > aTables(pTableBegin,pTableEnd);
 211
 212             const ::rtl::OUString* pViewBegin = sViews.getConstArray();
 213             const ::rtl::OUString* pViewEnd       = pViewBegin + sViews.getLength();
 214             ::comphelper::TStringMixEqualFunctor aEqualFunctor;
 215             for(;pViewBegin != pViewEnd;++pViewBegin)
 216                 aTables.erase(::std::remove_if(aTables.begin(),aTables.end(),::std::bind2nd(aEqualFunctor,*pViewBegin)),aTables.end());
 217             ::rtl::OUString* pTables = aTables.empty() ? 0 : &aTables[0];
 218             sTables = Sequence< ::rtl::OUString>(pTables, aTables.size());
 219             sViews = Sequence< ::rtl::OUString>();
 220         }
 221
 222         m_rTableList.UpdateTableList( m_xConnection, sTables, sViews );
 223         SvLBoxEntry* pEntry = m_rTableList.First();
 224         while( pEntry && m_rTableList.GetModel()->HasChilds( pEntry ) )
 225         {
 226             m_rTableList.Expand( pEntry );
 227             pEntry = m_rTableList.Next( pEntry );
 228         }
 229         if ( pEntry )
 230             m_rTableList.Select(pEntry);
 231     }
 232     catch( const Exception& )
 233     {
 234         DBG_UNHANDLED_EXCEPTION();
 235     }
 236 }
 237
 238 //------------------------------------------------------------------------------
 239 bool TableListFacade::isLeafSelected() const
 240 {
 241     SvLBoxEntry* pEntry = m_rTableList.FirstSelected();
 242     return pEntry && !m_rTableList.GetModel()->HasChilds( pEntry );
 243 }
 244
 245 //==============================================================================
 246 //= QueryListFacade
 247 //==============================================================================
 248 class QueryListFacade : public ::cppu::BaseMutex
 249                     ,   public TableObjectListFacade
 250                     ,   public ::comphelper::OContainerListener
 251 {
 252     SvTreeListBox&              m_rQueryList;
 253     Reference< XConnection >    m_xConnection;
 254     ::rtl::Reference< comphelper::OContainerListenerAdapter>
 255                                 m_pContainerListener;
 256
 257 public:
 258     QueryListFacade( SvTreeListBox& _rQueryList, const Reference< XConnection >& _rxConnection )
 259         : ::comphelper::OContainerListener(m_aMutex)
 260         ,m_rQueryList( _rQueryList )
 261         ,m_xConnection( _rxConnection )
 262     {
 263     }
 264     virtual ~QueryListFacade();
 265 private:
 266     virtual void    updateTableObjectList( bool _bAllowViews );
 267     virtual String  getSelectedName( String& _out_rAliasName ) const;
 268     virtual bool    isLeafSelected() const;
 269     // OContainerListener
 270     virtual void _elementInserted( const ::com::sun::star::container::ContainerEvent& _rEvent ) throw(::com::sun::star::uno::RuntimeException);
 271     virtual void _elementRemoved( const  ::com::sun::star::container::ContainerEvent& _rEvent ) throw(::com::sun::star::uno::RuntimeException);
 272     virtual void _elementReplaced( const ::com::sun::star::container::ContainerEvent& _rEvent ) throw(::com::sun::star::uno::RuntimeException);
 273 };
 274 QueryListFacade::~QueryListFacade()
 275 {
 276     if ( m_pContainerListener.is() )
 277         m_pContainerListener->dispose();
 278 }
 279 // -----------------------------------------------------------------------------
 280 void QueryListFacade::_elementInserted( const container::ContainerEvent& _rEvent )  throw(::com::sun::star::uno::RuntimeException)
 281 {
 282     ::rtl::OUString sName;
 283     if ( _rEvent.Accessor >>= sName )
 284         m_rQueryList.InsertEntry( sName );
 285 }
 286 // -----------------------------------------------------------------------------
 287 void QueryListFacade::_elementRemoved( const container::ContainerEvent& /*_rEvent*/ ) throw(::com::sun::star::uno::RuntimeException)
 288 {
 289     updateTableObjectList(true);
 290 }
 291 // -----------------------------------------------------------------------------
 292 void QueryListFacade::_elementReplaced( const container::ContainerEvent& /*_rEvent*/ ) throw(::com::sun::star::uno::RuntimeException)
 293 {
 294 }
 295
 296 //------------------------------------------------------------------------------
 297 void QueryListFacade::updateTableObjectList( bool /*_bAllowViews*/ )
 298 {
 299     m_rQueryList.Clear();
 300     try
 301     {
 302         ImageProvider aImageProvider( m_xConnection );
 303         Image aQueryImage( aImageProvider.getDefaultImage( DatabaseObject::QUERY, false ) );
 304         Image aQueryImageHC( aImageProvider.getDefaultImage( DatabaseObject::QUERY, true ) );
 305
 306         m_rQueryList.SetDefaultExpandedEntryBmp( aQueryImage, BMP_COLOR_NORMAL );
 307         m_rQueryList.SetDefaultCollapsedEntryBmp( aQueryImage, BMP_COLOR_NORMAL );
 308         m_rQueryList.SetDefaultExpandedEntryBmp( aQueryImageHC, BMP_COLOR_HIGHCONTRAST );
 309         m_rQueryList.SetDefaultCollapsedEntryBmp( aQueryImageHC, BMP_COLOR_HIGHCONTRAST );
 310
 311         Reference< XQueriesSupplier > xSuppQueries( m_xConnection, UNO_QUERY_THROW );
 312         Reference< XNameAccess > xQueries( xSuppQueries->getQueries(), UNO_QUERY_THROW );
 313         if ( !m_pContainerListener.is() )
 314         {
 315             Reference< XContainer> xContainer(xQueries,UNO_QUERY_THROW);
 316             m_pContainerListener = new ::comphelper::OContainerListenerAdapter(this,xContainer);
 317         }
 318         Sequence< ::rtl::OUString > aQueryNames = xQueries->getElementNames();
 319
 320         const ::rtl::OUString* pQuery = aQueryNames.getConstArray();
 321         const ::rtl::OUString* pQueryEnd = aQueryNames.getConstArray() + aQueryNames.getLength();
 322         while ( pQuery != pQueryEnd )
 323             m_rQueryList.InsertEntry( *pQuery++ );
 324     }
 325     catch( const Exception& )
 326     {
 327         DBG_UNHANDLED_EXCEPTION();
 328     }
 329 }
 330
 331 //------------------------------------------------------------------------------
 332 String QueryListFacade::getSelectedName( String& _out_rAliasName ) const
 333 {
 334     String sSelected;
 335     SvLBoxEntry* pEntry = m_rQueryList.FirstSelected();
 336     if ( pEntry )
 337         sSelected = _out_rAliasName = m_rQueryList.GetEntryText( pEntry );
 338     return sSelected;
 339 }
 340
 341 //------------------------------------------------------------------------------
 342 bool QueryListFacade::isLeafSelected() const
 343 {
 344     SvLBoxEntry* pEntry = m_rQueryList.FirstSelected();
 345     return pEntry && !m_rQueryList.GetModel()->HasChilds( pEntry );
 346 }
 347
 348 //==============================================================================
 349 //= OAddTableDlg
 350 //==============================================================================
 351 //------------------------------------------------------------------------------
 352 OAddTableDlg::OAddTableDlg( Window* pParent, IAddTableDialogContext& _rContext )
 353              :ModelessDialog( pParent, ModuleRes(DLG_JOIN_TABADD) )
 354              ,m_aCaseTables( this, ModuleRes( RB_CASE_TABLES ) )
 355              ,m_aCaseQueries( this, ModuleRes( RB_CASE_QUERIES ) )
 356              ,m_aTableList( this, NULL, ModuleRes( LB_TABLE_OR_QUERY ), sal_False )
 357              ,m_aQueryList( this, ModuleRes( LB_TABLE_OR_QUERY ) )
 358              ,aAddButton( this, ModuleRes( PB_ADDTABLE ) )
 359              ,aCloseButton( this, ModuleRes( PB_CLOSE ) )
 360              ,aHelpButton( this, ModuleRes( PB_HELP ) )
 361              ,m_rContext( _rContext )
 362 {
 363     // der Close-Button hat schon einen Standard-Help-Text, den ich aber hier nicht haben moechte, also den Text ruecksetzen
 364     // und eine neue ID verteilen
 365     aCloseButton.SetHelpText(String());
 366     aCloseButton.SetHelpId(HID_JOINSH_ADDTAB_CLOSE);
 367
 368     m_aTableList.SetHelpId( HID_JOINSH_ADDTAB_TABLELIST );
 369     m_aQueryList.SetHelpId( HID_JOINSH_ADDTAB_QUERYLIST );
 370
 371     //////////////////////////////////////////////////////////////////////
 372     m_aCaseTables.SetClickHdl( LINK( this, OAddTableDlg, OnTypeSelected ) );
 373     m_aCaseQueries.SetClickHdl( LINK( this, OAddTableDlg, OnTypeSelected ) );
 374     aAddButton.SetClickHdl( LINK( this, OAddTableDlg, AddClickHdl ) );
 375     aCloseButton.SetClickHdl( LINK( this, OAddTableDlg, CloseClickHdl ) );
 376     m_aTableList.SetDoubleClickHdl( LINK( this, OAddTableDlg, TableListDoubleClickHdl ) );
 377     m_aTableList.SetSelectHdl( LINK( this, OAddTableDlg, TableListSelectHdl ) );
 378     m_aQueryList.SetDoubleClickHdl( LINK( this, OAddTableDlg, TableListDoubleClickHdl ) );
 379     m_aQueryList.SetSelectHdl( LINK( this, OAddTableDlg, TableListSelectHdl ) );
 380
 381     //////////////////////////////////////////////////////////////////////
 382     m_aTableList.EnableInplaceEditing( FALSE );
 383     m_aTableList.SetWindowBits(WB_BORDER | WB_HASLINES |WB_HASBUTTONS | WB_HASBUTTONSATROOT | WB_HASLINESATROOT | WB_SORT | WB_HSCROLL );
 384     m_aTableList.EnableCheckButton( NULL ); // do not show any buttons
 385     m_aTableList.SetSelectionMode( SINGLE_SELECTION );
 386     m_aTableList.notifyHiContrastChanged();
 387     m_aTableList.suppressEmptyFolders();
 388
 389     //////////////////////////////////////////////////////////////////////
 390     m_aQueryList.EnableInplaceEditing( FALSE );
 391     m_aQueryList.SetSelectionMode( SINGLE_SELECTION );
 392
 393     //////////////////////////////////////////////////////////////////////
 394     if ( !m_rContext.allowQueries() )
 395     {
 396         m_aCaseTables.Hide();
 397         m_aCaseQueries.Hide();
 398
 399         long nPixelDiff = m_aTableList.GetPosPixel().Y() - m_aCaseTables.GetPosPixel().Y();
 400
 401         Point aListPos( m_aTableList.GetPosPixel() );
 402         aListPos.Y() -= nPixelDiff;
 403
 404         Size aListSize( m_aTableList.GetSizePixel() );
 405         aListSize.Height() += nPixelDiff;
 406
 407         m_aTableList.SetPosSizePixel( aListPos, aListSize );
 408     }
 409
 410     FreeResource();
 411
 412     SetText( getDialogTitleForContext( m_rContext ) );
 413 }
 414
 415 //------------------------------------------------------------------------------
 416 OAddTableDlg::~OAddTableDlg()
 417 {
 418     m_rContext.onWindowClosing( this );
 419 }
 420
 421 //------------------------------------------------------------------------------
 422 void OAddTableDlg::impl_switchTo( ObjectList _eList )
 423 {
 424     switch ( _eList )
 425     {
 426     case Tables:
 427         m_aTableList.Show( TRUE );  m_aCaseTables.Check( TRUE );
 428         m_aQueryList.Show( FALSE ); m_aCaseQueries.Check( FALSE );
 429         m_pCurrentList.reset( new TableListFacade( m_aTableList, m_rContext.getConnection() ) );
 430         m_aTableList.GrabFocus();
 431         break;
 432
 433     case Queries:
 434         m_aTableList.Show( FALSE ); m_aCaseTables.Check( FALSE );
 435         m_aQueryList.Show( TRUE );  m_aCaseQueries.Check( TRUE );
 436         m_pCurrentList.reset( new QueryListFacade( m_aQueryList, m_rContext.getConnection() ) );
 437         m_aQueryList.GrabFocus();
 438         break;
 439     }
 440     m_pCurrentList->updateTableObjectList( m_rContext.allowViews() );
 441 }
 442
 443 //------------------------------------------------------------------------------
 444 void OAddTableDlg::Update()
 445 {
 446     if ( !m_pCurrentList.get() )
 447         impl_switchTo( Tables );
 448     else
 449         m_pCurrentList->updateTableObjectList( m_rContext.allowViews() );
 450 }
 451
 452 //------------------------------------------------------------------------------
 453 void OAddTableDlg::impl_addTable()
 454 {
 455     if ( m_pCurrentList->isLeafSelected() )
 456     {
 457         String sSelectedName, sAliasName;
 458         sSelectedName = m_pCurrentList->getSelectedName( sAliasName );
 459
 460         m_rContext.addTableWindow( sSelectedName, sAliasName );
 461     }
 462 }
 463
 464 //------------------------------------------------------------------------------
 465 IMPL_LINK( OAddTableDlg, AddClickHdl, Button*, /*pButton*/ )
 466 {
 467     TableListDoubleClickHdl(NULL);
 468     return 0;
 469 }
 470
 471 //------------------------------------------------------------------------------
 472 IMPL_LINK( OAddTableDlg, TableListDoubleClickHdl, void*, /*EMPTY_ARG*/ )
 473 {
 474     if ( impl_isAddAllowed() )
 475     {
 476         impl_addTable();
 477         if ( !impl_isAddAllowed() )
 478             Close();
 479         return 1L;  // handled
 480     }
 481
 482     return 0L;  // not handled
 483 }
 484
 485 //------------------------------------------------------------------------------
 486 IMPL_LINK( OAddTableDlg, TableListSelectHdl, void*, /*EMPTY_ARG*/ )
 487 {
 488     aAddButton.Enable( m_pCurrentList->isLeafSelected() );
 489     return 0;
 490 }
 491
 492 //------------------------------------------------------------------------------
 493 IMPL_LINK( OAddTableDlg, CloseClickHdl, Button*, /*pButton*/ )
 494 {
 495     return Close();
 496 }
 497
 498 //------------------------------------------------------------------------------
 499 IMPL_LINK( OAddTableDlg, OnTypeSelected, void*, /*EMPTY_ARG*/ )
 500 {
 501     if ( m_aCaseTables.IsChecked() )
 502         impl_switchTo( Tables );
 503     else
 504         impl_switchTo( Queries );
 505     return 0;
 506 }
 507
 508 //------------------------------------------------------------------------------
 509 BOOL OAddTableDlg::Close()
 510 {
 511     m_rContext.onWindowClosing( this );
 512     return ModelessDialog::Close();
 513 }
 514
 515 //------------------------------------------------------------------------------
 516 bool OAddTableDlg::impl_isAddAllowed()
 517 {
 518     return      m_rContext.allowAddition();
 519 }
 520
 521 //------------------------------------------------------------------------------
 522 String OAddTableDlg::getDialogTitleForContext( IAddTableDialogContext& _rContext )
 523 {
 524     String sTitle;
 525
 526     ::svt::OLocalResourceAccess aLocalRes( ModuleRes( DLG_JOIN_TABADD ), RSC_MODELESSDIALOG );
 527     if ( _rContext.allowQueries() )
 528         sTitle = String( ModuleRes( STR_ADD_TABLE_OR_QUERY ) );
 529     else
 530         sTitle = String( ModuleRes( STR_ADD_TABLES ) );
 531
 532     return sTitle;
 533 }
 534
 535 // -----------------------------------------------------------------------------
 536