dbaccess/source/ui/misc/WTypeSelect.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include "WTypeSelect.hxx"
  21 #include "dbustrings.hrc"
  22 #include <tools/diagnose_ex.h>
  23 #include <osl/diagnose.h>
  24 #include "FieldDescriptions.hxx"
  25 #include "WCopyTable.hxx"
  26 #include "dbaccess_helpid.hrc"
  27 #include "dbu_misc.hrc"
  28 #include <tools/stream.hxx>
  29 #include <svtools/svparser.hxx>
  30 #include "UITools.hxx"
  31 #include "sqlmessage.hxx"
  32 #include "FieldControls.hxx"
  33 #include <vcl/layout.hxx>
  34 #include <vcl/builderfactory.hxx>
  35
  36 #include "dbaccess_slotid.hrc"
  37
  38 using namespace ::dbaui;
  39 using namespace ::com::sun::star::uno;
  40 using namespace ::com::sun::star::beans;
  41 using namespace ::com::sun::star::container;
  42 using namespace ::com::sun::star::util;
  43 using namespace ::com::sun::star::sdbc;
  44
  45 // OWizTypeSelectControl
  46 OWizTypeSelectControl::OWizTypeSelectControl(vcl::Window* pParent, vcl::Window* pParentTabPage, OTableDesignHelpBar* pHelpBar)
  47     : OFieldDescControl(pParent, pHelpBar)
  48 {
  49     m_pParentTabPage = pParentTabPage;
  50 }
  51
  52 OWizTypeSelectControl::~OWizTypeSelectControl()
  53 {
  54     disposeOnce();
  55 }
  56
  57 void OWizTypeSelectControl::dispose()
  58 {
  59     m_pParentTabPage.clear();
  60     OFieldDescControl::dispose();
  61 }
  62
  63 void OWizTypeSelectControl::ActivateAggregate( EControlType eType )
  64 {
  65     switch(eType )
  66     {
  67         case tpFormat:
  68         case tpDefault:
  69         case tpAutoIncrement:
  70         case tpAutoIncrementValue:
  71             break;
  72         default:
  73             OFieldDescControl::ActivateAggregate( eType );
  74     }
  75 }
  76
  77 void OWizTypeSelectControl::DeactivateAggregate( EControlType eType )
  78 {
  79     switch(eType )
  80     {
  81         case tpFormat:
  82         case tpDefault:
  83         case tpAutoIncrement:
  84         case tpAutoIncrementValue:
  85             break;
  86         default:
  87             OFieldDescControl::DeactivateAggregate( eType );
  88     }
  89 }
  90
  91 void OWizTypeSelectControl::CellModified(long nRow, sal_uInt16 nColId )
  92 {
  93     OSL_ENSURE(nRow == -1,"nRow muss -1 sein!");
  94     (void)nRow;
  95
  96     MultiListBox *pListBox = static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->m_pColumnNames;
  97
  98     OFieldDescription* pCurFieldDescr = getCurrentFieldDescData();
  99
 100     const sal_Int32 nPos = pListBox->GetEntryPos( OUString( pCurFieldDescr->GetName() ) );
 101     pCurFieldDescr = static_cast< OFieldDescription* >( pListBox->GetEntryData( nPos ) );
 102     OSL_ENSURE( pCurFieldDescr, "OWizTypeSelectControl::CellModified: Columnname/type not found in the listbox!" );
 103     if ( !pCurFieldDescr )
 104         return;
 105     setCurrentFieldDescData( pCurFieldDescr );
 106
 107     OUString sName = pCurFieldDescr->GetName();
 108     OUString sNewName;
 109     const OPropColumnEditCtrl* pColumnName = getColumnCtrl();
 110     if ( pColumnName )
 111         sNewName = pColumnName->GetText();
 112
 113     switch(nColId)
 114     {
 115         case FIELD_PROPERTY_COLUMNNAME:
 116             {
 117                 OCopyTableWizard* pWiz = static_cast<OCopyTableWizard*>(GetParentDialog());
 118                 // first we have to check if this name already exists
 119                 bool bDoubleName = false;
 120                 bool bCase = true;
 121                 if ( getMetaData().is() && !getMetaData()->supportsMixedCaseQuotedIdentifiers() )
 122                 {
 123                     bCase = false;
 124                     const sal_Int32 nCount = pListBox->GetEntryCount();
 125                     for (sal_Int32 i=0 ; !bDoubleName && i < nCount ; ++i)
 126                     {
 127                         OUString sEntry(pListBox->GetEntry(i));
 128                         bDoubleName = sNewName.equalsIgnoreAsciiCase(sEntry);
 129                     }
 130                     if ( !bDoubleName && pWiz->shouldCreatePrimaryKey() )
 131                         bDoubleName = sNewName.equalsIgnoreAsciiCase(pWiz->getPrimaryKeyName());
 132
 133                 }
 134                 else
 135                     bDoubleName =  ((pListBox->GetEntryPos(OUString(sNewName)) != LISTBOX_ENTRY_NOTFOUND)
 136                                     || ( pWiz->shouldCreatePrimaryKey()
 137                                         &&  pWiz->getPrimaryKeyName() == sNewName) );
 138
 139                 if ( bDoubleName )
 140                 {
 141                     OUString strMessage = ModuleRes(STR_TABLEDESIGN_DUPLICATE_NAME);
 142                     strMessage = strMessage.replaceFirst("$column$", sNewName);
 143                     pWiz->showError(strMessage);
 144                     pCurFieldDescr->SetName(sName);
 145                     DisplayData(pCurFieldDescr);
 146                     static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->setDuplicateName(true);
 147                     return;
 148                 }
 149
 150                 OUString sOldName = pCurFieldDescr->GetName();
 151                 pCurFieldDescr->SetName(sNewName);
 152                 static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->setDuplicateName(false);
 153
 154                 // now we change the name
 155                 OCopyTableWizard::TNameMapping::iterator aIter = pWiz->m_mNameMapping.begin();
 156                 OCopyTableWizard::TNameMapping::const_iterator aEnd  = pWiz->m_mNameMapping.end();
 157
 158                 ::comphelper::UStringMixEqual aCase(bCase);
 159                 for(;aIter != aEnd;++aIter)
 160                 {
 161                     if ( aCase(aIter->second,sName) )
 162                     {
 163                         aIter->second = sNewName;
 164                         break;
 165                     }
 166                 }
 167
 168                 pListBox->RemoveEntry(nPos);
 169                 pListBox->InsertEntry(pCurFieldDescr->GetName(),nPos);
 170                 pListBox->SetEntryData(nPos,pCurFieldDescr);
 171
 172                 pWiz->replaceColumn(nPos,pCurFieldDescr,sOldName);
 173             }
 174             break;
 175     }
 176     saveCurrentFieldDescData();
 177 }
 178
 179 css::lang::Locale  OWizTypeSelectControl::GetLocale() const
 180 {
 181     return static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->m_pParent->GetLocale();
 182 }
 183
 184 Reference< XNumberFormatter > OWizTypeSelectControl::GetFormatter() const
 185 {
 186     return static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->m_pParent->GetFormatter();
 187 }
 188
 189 TOTypeInfoSP    OWizTypeSelectControl::getTypeInfo(sal_Int32 _nPos)
 190 {
 191     return static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->m_pParent->getDestTypeInfo(_nPos);
 192 }
 193
 194 const OTypeInfoMap* OWizTypeSelectControl::getTypeInfo() const
 195 {
 196     return &static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->m_pParent->getDestTypeInfo();
 197 }
 198
 199 css::uno::Reference< css::sdbc::XDatabaseMetaData> OWizTypeSelectControl::getMetaData()
 200 {
 201     return static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->m_pParent->m_xDestConnection->getMetaData();
 202 }
 203
 204 css::uno::Reference< css::sdbc::XConnection> OWizTypeSelectControl::getConnection()
 205 {
 206     return static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->m_pParent->m_xDestConnection;
 207 }
 208
 209 bool OWizTypeSelectControl::isAutoIncrementValueEnabled() const
 210 {
 211     return static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->m_bAutoIncrementEnabled;
 212 }
 213
 214 OUString OWizTypeSelectControl::getAutoIncrementValue() const
 215 {
 216     return static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->m_sAutoIncrementValue;
 217 }
 218
 219 #define IMG_PRIMARY_KEY 1
 220 OWizTypeSelect::OWizTypeSelect( vcl::Window* pParent, SvStream* _pStream )
 221                :OWizardPage( pParent, "TypeSelect", "dbaccess/ui/typeselectpage.ui")
 222                ,m_pTypeControl(VclPtr<OWizTypeSelectControl>::Create(get<VclVBox>("control_container"), this) )
 223                ,m_pParserStream( _pStream )
 224                ,m_nDisplayRow(0)
 225                ,m_bAutoIncrementEnabled(false)
 226                ,m_bDuplicateName(false)
 227 {
 228     get(m_pColumnNames, "columnnames");
 229     m_pColumnNames->SetParentTabPage(this);
 230     get(m_pColumns, "columns");
 231     get(m_pAutoType, "autotype");
 232     get(m_pAutoFt, "autolabel");
 233     get(m_pAutoEt, "auto");
 234     get(m_pAutoPb, "autobutton");
 235
 236     m_pColumnNames->SetSelectHdl(LINK(this,OWizTypeSelect,ColumnSelectHdl));
 237
 238     ModuleRes aModuleRes(IMG_JOINS);
 239     ImageList aImageList(aModuleRes);
 240     m_imgPKey = aImageList.GetImage(IMG_PRIMARY_KEY);
 241
 242
 243     m_pTypeControl->Show();
 244     m_pTypeControl->Init();
 245
 246     m_pAutoEt->SetText("10");
 247     m_pAutoEt->SetDecimalDigits(0);
 248     m_pAutoPb->SetClickHdl(LINK(this,OWizTypeSelect,ButtonClickHdl));
 249     m_pColumnNames->EnableMultiSelection(true);
 250
 251     try
 252     {
 253         m_pColumnNames->SetPKey( m_pParent->supportsPrimaryKey() );
 254         ::dbaui::fillAutoIncrementValue( m_pParent->m_xDestConnection, m_bAutoIncrementEnabled, m_sAutoIncrementValue );
 255     }
 256     catch(const Exception&)
 257     {
 258         DBG_UNHANDLED_EXCEPTION();
 259     }
 260 }
 261
 262 OWizTypeSelect::~OWizTypeSelect()
 263 {
 264     disposeOnce();
 265 }
 266
 267 void OWizTypeSelect::dispose()
 268 {
 269     m_pTypeControl.disposeAndClear();
 270     m_pColumnNames.clear();
 271     m_pColumns.clear();
 272     m_pAutoType.clear();
 273     m_pAutoFt.clear();
 274     m_pAutoEt.clear();
 275     m_pAutoPb.clear();
 276     OWizardPage::dispose();
 277 }
 278
 279 OUString OWizTypeSelect::GetTitle() const
 280 {
 281     return ModuleRes(STR_WIZ_TYPE_SELECT_TITEL);
 282 }
 283
 284 IMPL_LINK_NOARG_TYPED( OWizTypeSelect, ColumnSelectHdl, ListBox&, void )
 285 {
 286     OUString aColumnName( m_pColumnNames->GetSelectEntry() );
 287
 288     OFieldDescription* pField = static_cast<OFieldDescription*>(m_pColumnNames->GetEntryData(m_pColumnNames->GetEntryPos(aColumnName)));
 289     if(pField)
 290         m_pTypeControl->DisplayData(pField);
 291
 292     m_pTypeControl->Enable(m_pColumnNames->GetSelectEntryCount() == 1 );
 293 }
 294
 295 void OWizTypeSelect::Reset()
 296 {
 297     // restore original state
 298
 299     while(m_pColumnNames->GetEntryCount())
 300         m_pColumnNames->RemoveEntry(0);
 301     m_pColumnNames->Clear();
 302     sal_Int32 nBreakPos;
 303     m_pParent->CheckColumns(nBreakPos);
 304
 305     const ODatabaseExport::TColumnVector& rDestColumns = m_pParent->getDestVector();
 306     ODatabaseExport::TColumnVector::const_iterator aIter = rDestColumns.begin();
 307     ODatabaseExport::TColumnVector::const_iterator aEnd = rDestColumns.end();
 308     for(;aIter != aEnd;++aIter)
 309     {
 310         const sal_Int32 nPos = (*aIter)->second->IsPrimaryKey()
 311             ? m_pColumnNames->InsertEntry((*aIter)->first, m_imgPKey )
 312             : m_pColumnNames->InsertEntry((*aIter)->first);
 313         m_pColumnNames->SetEntryData(nPos,(*aIter)->second);
 314     }
 315     m_bFirstTime = false;
 316 }
 317
 318 void OWizTypeSelect::ActivatePage( )
 319 {
 320     bool bOldFirstTime = m_bFirstTime;
 321     Reset();
 322     m_bFirstTime = bOldFirstTime;
 323
 324     m_pColumnNames->SelectEntryPos(static_cast<sal_uInt16>(m_nDisplayRow));
 325     m_nDisplayRow = 0;
 326     m_pColumnNames->GetSelectHdl().Call(*m_pColumnNames);
 327 }
 328
 329 bool OWizTypeSelect::LeavePage()
 330 {
 331     OUString aColumnName( m_pColumnNames->GetSelectEntry() );
 332
 333     bool bDuplicateName = false;
 334     OFieldDescription* pField = static_cast<OFieldDescription*>(m_pColumnNames->GetEntryData(m_pColumnNames->GetEntryPos(aColumnName)));
 335     if ( pField )
 336     {
 337         m_pTypeControl->SaveData(pField);
 338         bDuplicateName = m_bDuplicateName;
 339     }
 340     return !bDuplicateName;
 341 }
 342
 343 void OWizTypeSelect::EnableAuto(bool bEnable)
 344 {
 345     m_pAutoFt->Show(bEnable);
 346     m_pAutoEt->Show(bEnable);
 347     m_pAutoPb->Show(bEnable);
 348     m_pAutoType->Show(bEnable);
 349 }
 350
 351 IMPL_LINK_NOARG_TYPED( OWizTypeSelect, ButtonClickHdl, Button *, void )
 352 {
 353     sal_Int32 nBreakPos;
 354     m_pParent->CheckColumns(nBreakPos);
 355     fillColumnList(m_pAutoEt->GetText().toInt32());
 356
 357     ActivatePage();
 358 }
 359
 360 OWizTypeSelectList::~OWizTypeSelectList()
 361 {
 362     disposeOnce();
 363 }
 364
 365 void OWizTypeSelectList::dispose()
 366 {
 367     m_pParentTabPage.clear();
 368     MultiListBox::dispose();
 369 }
 370
 371 bool OWizTypeSelectList::IsPrimaryKeyAllowed() const
 372 {
 373     const sal_Int32 nCount = GetSelectEntryCount();
 374
 375     for( sal_Int32 j = 0; m_bPKey && j < nCount; ++j )
 376     {
 377         OFieldDescription* pField = static_cast<OFieldDescription*>(GetEntryData(GetSelectEntryPos(j)));
 378         if(!pField || pField->getTypeInfo()->nSearchType == ColumnSearch::NONE)
 379             return false;
 380     }
 381     return true;
 382 }
 383
 384 void OWizTypeSelectList::setPrimaryKey(OFieldDescription* _pFieldDescr, sal_uInt16 _nPos, bool _bSet)
 385 {
 386     OUString sColumnName = GetEntry(_nPos);
 387     RemoveEntry(_nPos);
 388     _pFieldDescr->SetPrimaryKey(_bSet);
 389     if( _bSet )
 390         InsertEntry(sColumnName, static_cast<OWizTypeSelect*>(m_pParentTabPage.get())->m_imgPKey,_nPos);
 391     else if( _pFieldDescr->getTypeInfo()->bNullable )
 392     {
 393         _pFieldDescr->SetControlDefault(Any());
 394         InsertEntry(sColumnName,_nPos);
 395     }
 396     SetEntryData(_nPos,_pFieldDescr);
 397 }
 398
 399 VCL_BUILDER_FACTORY(OWizTypeSelectList)
 400
 401 bool OWizTypeSelectList::PreNotify( NotifyEvent& rEvt )
 402 {
 403     bool bDone = false;
 404     switch( rEvt.GetType() )
 405     {
 406         case MouseNotifyEvent::MOUSEBUTTONDOWN:
 407         {
 408             const MouseEvent* pMEvt = rEvt.GetMouseEvent();
 409             if(pMEvt->IsRight() && !pMEvt->GetModifier())
 410                 bDone = true;
 411         }
 412             break;
 413         case MouseNotifyEvent::COMMAND:
 414         {
 415             if(!IsPrimaryKeyAllowed())
 416                 break;
 417
 418             const CommandEvent* pComEvt = rEvt.GetCommandEvent();
 419             if(pComEvt->GetCommand() != CommandEventId::ContextMenu)
 420                 break;
 421             // the place, at which was clicked
 422             Point ptWhere(0,0);
 423             if (pComEvt->IsMouseEvent())
 424                 ptWhere = pComEvt->GetMousePosPixel();
 425
 426             PopupMenu aContextMenu(ModuleRes(RID_SBA_RTF_PKEYPOPUP));
 427             // Should primary key checkbox be checked?
 428             const sal_Int32 nCount = GetEntryCount();
 429             bool bCheckOk = false;
 430             for(sal_Int32 j = 0 ; j < nCount ; ++j)
 431             {
 432                 OFieldDescription* pFieldDescr = static_cast<OFieldDescription*>(GetEntryData(j));
 433                 // if at least one of the fields is selected but not in the primary key,
 434                 // or is in the primary key but not selected, then don't check the
 435                 // primary key checkbox.
 436                 if( pFieldDescr && pFieldDescr->IsPrimaryKey() != IsEntryPosSelected(j) )
 437                 {
 438                     bCheckOk = false;
 439                     break;
 440                 }
 441                 if (!bCheckOk && IsEntryPosSelected(j))
 442                     bCheckOk = true;
 443             }
 444
 445             if (bCheckOk)
 446                 aContextMenu.CheckItem( SID_TABLEDESIGN_TABED_PRIMARYKEY );
 447
 448             switch( aContextMenu.Execute( this, ptWhere ) )
 449             {
 450                 case SID_TABLEDESIGN_TABED_PRIMARYKEY:
 451                 {
 452                     for(sal_Int32 j = 0 ; j < nCount ; ++j)
 453                     {
 454                         OFieldDescription* pFieldDescr = static_cast<OFieldDescription*>(GetEntryData(j));
 455                         if( pFieldDescr )
 456                         {
 457                             if(!bCheckOk && IsEntryPosSelected(j))
 458                             {
 459                                 setPrimaryKey(pFieldDescr,j,true);
 460                                 SelectEntryPos(j);
 461                             }
 462                             else
 463                             {
 464                                 setPrimaryKey(pFieldDescr,j);
 465                             }
 466                         }
 467                     }
 468                     GetSelectHdl().Call(*this);
 469                 }
 470                 break;
 471             }
 472             bDone = true;
 473         }
 474         break;
 475         default:
 476         break;
 477     }
 478     return bDone || MultiListBox::PreNotify(rEvt);
 479 }
 480
 481 void OWizTypeSelect::fillColumnList(sal_uInt32 nRows)
 482 {
 483     if(m_pParserStream)
 484     {
 485         sal_Size nTell = m_pParserStream->Tell(); // might change seek position of stream
 486
 487         SvParser *pReader = createReader(nRows);
 488         if(pReader)
 489         {
 490             pReader->AddFirstRef();
 491             pReader->CallParser();
 492             pReader->ReleaseRef();
 493         }
 494         m_pParserStream->Seek(nTell);
 495     }
 496 }
 497
 498 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */