sw/source/ui/fldui/flddb.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: flddb.cxx,v $
  10  * $Revision: 1.23 $
  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_sw.hxx"
  33 #ifdef SW_DLLIMPLEMENTATION
  34 #undef SW_DLLIMPLEMENTATION
  35 #endif
  36
  37
  38 #include <swmodule.hxx>
  39 #ifndef _VIEW_HXX
  40 #include <view.hxx>
  41 #endif
  42 #include <wrtsh.hxx>
  43 #ifndef _GLOBALS_HRC
  44 #include <globals.hrc>
  45 #endif
  46 #include <dbfld.hxx>
  47 #ifndef _FLDTDLG_HXX
  48 #include <fldtdlg.hxx>
  49 #endif
  50 #include <numrule.hxx>
  51
  52 #ifndef _FLDTDLG_HRC
  53 #include <fldtdlg.hrc>
  54 #endif
  55 #ifndef _FLDUI_HRC
  56 #include <fldui.hrc>
  57 #endif
  58 #ifndef _FLDDB_HXX
  59 #include <flddb.hxx>
  60 #endif
  61 #include <dbconfig.hxx>
  62 #ifndef _DBMGR_HXX
  63 #include <dbmgr.hxx>
  64 #endif
  65
  66 #define USER_DATA_VERSION_1     "1"
  67 #define USER_DATA_VERSION USER_DATA_VERSION_1
  68 /*--------------------------------------------------------------------
  69     Beschreibung:
  70  --------------------------------------------------------------------*/
  71
  72 SwFldDBPage::SwFldDBPage(Window* pParent, const SfxItemSet& rCoreSet ) :
  73     SwFldPage( pParent, SW_RES( TP_FLD_DB ), rCoreSet ),
  74     aTypeFT             (this, SW_RES(FT_DBTYPE)),
  75     aTypeLB             (this, SW_RES(LB_DBTYPE)),
  76     aSelectionFT(this, SW_RES(FT_DBSELECTION)),
  77     aDatabaseTLB(this, SW_RES(TLB_DBLIST), 0, aEmptyStr, FALSE),
  78     aAddDBFT(this,      SW_RES(FT_ADDDB)),
  79     aAddDBPB(this,      SW_RES(PB_ADDDB)),
  80     aConditionFT(this, SW_RES(FT_DBCONDITION)),
  81     aConditionED(this, SW_RES(ED_DBCONDITION)),
  82     aValueFT    (this, SW_RES(FT_DBSETNUMBER)),
  83     aValueED    (this, SW_RES(ED_DBSETNUMBER)),
  84     aDBFormatRB (this, SW_RES(RB_DBOWNFORMAT)),
  85     aNewFormatRB(this, SW_RES(RB_DBFORMAT)),
  86     aNumFormatLB(this, SW_RES(LB_DBNUMFORMAT)),
  87     aFormatLB   (this, SW_RES(LB_DBFORMAT)),
  88     aFormatFL   (this, SW_RES(FL_DBFORMAT)),
  89     aFormatVertFL   (this, SW_RES(FL_DBFORMAT_VERT))
  90 {
  91     FreeResource();
  92
  93     aOldNumSelectHdl = aNumFormatLB.GetSelectHdl();
  94
  95     aNumFormatLB.SetSelectHdl(LINK(this, SwFldDBPage, NumSelectHdl));
  96     aDatabaseTLB.SetSelectHdl(LINK(this, SwFldDBPage, TreeSelectHdl));
  97     aDatabaseTLB.SetDoubleClickHdl(LINK(this, SwFldDBPage, InsertHdl));
  98
  99     aValueED.SetModifyHdl(LINK(this, SwFldDBPage, ModifyHdl));
 100     aAddDBPB.SetClickHdl(LINK(this, SwFldDBPage, AddDBHdl));
 101 }
 102
 103 /*--------------------------------------------------------------------
 104     Beschreibung:
 105  --------------------------------------------------------------------*/
 106
 107 __EXPORT SwFldDBPage::~SwFldDBPage()
 108 {
 109 }
 110
 111 /*--------------------------------------------------------------------
 112     Beschreibung: TabPage initialisieren
 113  --------------------------------------------------------------------*/
 114
 115 void __EXPORT SwFldDBPage::Reset(const SfxItemSet&)
 116 {
 117     Init();     // Allgemeine initialisierung
 118
 119     aTypeLB.SetUpdateMode(FALSE);
 120     USHORT nOldPos = aTypeLB.GetSelectEntryPos();
 121     sOldDBName = aDatabaseTLB.GetDBName(sOldTableName, sOldColumnName);
 122
 123     aTypeLB.Clear();
 124
 125     USHORT nPos, nTypeId, i;
 126
 127     if (!IsFldEdit())
 128     {
 129         // TypeListBox initialisieren
 130         const SwFldGroupRgn& rRg = GetFldMgr().GetGroupRange(IsFldDlgHtmlMode(), GetGroup());
 131
 132         for(i = rRg.nStart; i < rRg.nEnd; ++i)
 133         {
 134             nTypeId = GetFldMgr().GetTypeId(i);
 135             nPos = aTypeLB.InsertEntry(GetFldMgr().GetTypeStr(i));
 136             aTypeLB.SetEntryData(nPos, reinterpret_cast<void*>(nTypeId));
 137         }
 138     }
 139     else
 140     {
 141         nTypeId = GetCurField()->GetTypeId();
 142         nPos = aTypeLB.InsertEntry(GetFldMgr().GetTypeStr(GetFldMgr().GetPos(nTypeId)));
 143         aTypeLB.SetEntryData(nPos, reinterpret_cast<void*>(nTypeId));
 144     }
 145
 146     // alte Pos selektieren
 147     if (GetTypeSel() != LISTBOX_ENTRY_NOTFOUND)
 148         aTypeLB.SelectEntryPos(GetTypeSel());
 149
 150     aFormatLB.Clear();
 151
 152     USHORT nSize = GetFldMgr().GetFormatCount(TYP_DBSETNUMBERFLD, FALSE, IsFldDlgHtmlMode());
 153     for( i = 0; i < nSize; ++i )
 154     {
 155         USHORT nEntryPos = aFormatLB.InsertEntry(GetFldMgr().GetFormatStr(TYP_DBSETNUMBERFLD, i));
 156         USHORT nFmtId = GetFldMgr().GetFormatId( TYP_DBSETNUMBERFLD, i );
 157         aFormatLB.SetEntryData( nEntryPos, reinterpret_cast<void*>(nFmtId) );
 158         if( SVX_NUM_ARABIC == nFmtId )
 159             aFormatLB.SelectEntryPos( nEntryPos );
 160     }
 161
 162     if (!IsFldEdit())
 163     {
 164         if (nOldPos != LISTBOX_ENTRY_NOTFOUND)
 165             aTypeLB.SelectEntryPos(nOldPos);
 166
 167         if (sOldDBName.Len())
 168         {
 169             aDatabaseTLB.Select(sOldDBName, sOldTableName, sOldColumnName);
 170         }
 171         else
 172         {
 173             SwWrtShell *pSh = GetWrtShell();
 174             if(!pSh)
 175                 pSh = ::GetActiveWrtShell();
 176             if(pSh)
 177             {
 178                 SwDBData aTmp(pSh->GetDBData());
 179                 aDatabaseTLB.Select(aTmp.sDataSource, aTmp.sCommand, aEmptyStr);
 180             }
 181         }
 182     }
 183
 184     if( !IsRefresh() )
 185     {
 186         String sUserData = GetUserData();
 187         if(sUserData.GetToken(0, ';').EqualsIgnoreCaseAscii(USER_DATA_VERSION_1))
 188         {
 189             String sVal = sUserData.GetToken(1, ';');
 190             USHORT nVal = (USHORT)sVal.ToInt32();
 191             if(nVal != USHRT_MAX)
 192             {
 193                 for(i = 0; i < aTypeLB.GetEntryCount(); i++)
 194                     if(nVal == (USHORT)(ULONG)aTypeLB.GetEntryData(i))
 195                     {
 196                         aTypeLB.SelectEntryPos(i);
 197                         break;
 198                     }
 199             }
 200         }
 201     }
 202     TypeHdl(0);
 203
 204     aTypeLB.SetUpdateMode(TRUE);
 205     aTypeLB.SetSelectHdl(LINK(this, SwFldDBPage, TypeHdl));
 206     aTypeLB.SetDoubleClickHdl(LINK(this, SwFldDBPage, InsertHdl));
 207
 208     if (IsFldEdit())
 209     {
 210         aConditionED.SaveValue();
 211         aValueED.SaveValue();
 212         sOldDBName = aDatabaseTLB.GetDBName(sOldTableName, sOldColumnName);
 213         nOldFormat = GetCurField()->GetFormat();
 214         nOldSubType = GetCurField()->GetSubType();
 215     }
 216 }
 217
 218 /*--------------------------------------------------------------------
 219     Beschreibung:
 220  --------------------------------------------------------------------*/
 221
 222 BOOL __EXPORT SwFldDBPage::FillItemSet(SfxItemSet& )
 223 {
 224     String sTableName, sColumnName;
 225     SwDBData aData;
 226     sal_Bool bIsTable;
 227     aData.sDataSource = aDatabaseTLB.GetDBName(sTableName, sColumnName, &bIsTable);
 228     aData.sCommand = sTableName;
 229     aData.nCommandType = bIsTable ? 0 : 1;
 230     SwWrtShell *pSh = GetWrtShell();
 231     if(!pSh)
 232         pSh = ::GetActiveWrtShell();
 233
 234     if (!aData.sDataSource.getLength())
 235         aData = pSh->GetDBData();
 236
 237     if(aData.sDataSource.getLength())           // Ohne Datenbank kein neuer Feldbefehl
 238     {
 239         USHORT nTypeId = (USHORT)(ULONG)aTypeLB.GetEntryData(GetTypeSel());
 240         String aVal(aValueED.GetText());
 241         String aName(aConditionED.GetText());
 242         ULONG nFormat = 0;
 243         USHORT nSubType = 0;
 244
 245         String sDBName = aData.sDataSource;
 246         sDBName += DB_DELIM;
 247         sDBName += (String)aData.sCommand;
 248         sDBName += DB_DELIM;
 249         sDBName += String::CreateFromInt32(aData.nCommandType);
 250         sDBName += DB_DELIM;
 251         if(sColumnName.Len())
 252         {
 253             sDBName += sColumnName;
 254             sDBName += DB_DELIM;
 255         }
 256         aName.Insert(sDBName, 0);
 257
 258         switch (nTypeId)
 259         {
 260         case TYP_DBFLD:
 261             nFormat = aNumFormatLB.GetFormat();
 262             if (aNewFormatRB.IsEnabled() && aNewFormatRB.IsChecked())
 263                 nSubType = nsSwExtendedSubType::SUB_OWN_FMT;
 264             aName = sDBName;
 265             break;
 266
 267         case TYP_DBSETNUMBERFLD:
 268             nFormat = (USHORT)(ULONG)aFormatLB.GetEntryData(
 269                                 aFormatLB.GetSelectEntryPos() );
 270             break;
 271         }
 272
 273
 274         String sTempDBName, sTempTableName, sTempColumnName;
 275         sTempDBName = aDatabaseTLB.GetDBName(sTempTableName, sTempColumnName);
 276         BOOL bDBListBoxChanged = sOldDBName != sTempDBName ||
 277             sOldTableName != sTempTableName || sOldColumnName != sTempColumnName;
 278         if (!IsFldEdit() ||
 279             aConditionED.GetSavedValue() != aConditionED.GetText() ||
 280              aValueED.GetSavedValue() != aValueED.GetText() ||
 281              bDBListBoxChanged ||
 282              nOldFormat != nFormat || nOldSubType != nSubType)
 283         {
 284             InsertFld( nTypeId, nSubType, aName, aVal, nFormat);
 285         }
 286     }
 287
 288     return FALSE;
 289 }
 290
 291 /*--------------------------------------------------------------------
 292     Beschreibung:
 293  --------------------------------------------------------------------*/
 294
 295 SfxTabPage* __EXPORT SwFldDBPage::Create(       Window* pParent,
 296                         const SfxItemSet& rAttrSet )
 297 {
 298     return ( new SwFldDBPage( pParent, rAttrSet ) );
 299 }
 300
 301 /*--------------------------------------------------------------------
 302     Beschreibung:
 303  --------------------------------------------------------------------*/
 304
 305 USHORT SwFldDBPage::GetGroup()
 306 {
 307     return GRP_DB;
 308 }
 309
 310 /*--------------------------------------------------------------------
 311     Beschreibung:
 312  --------------------------------------------------------------------*/
 313
 314 IMPL_LINK( SwFldDBPage, TypeHdl, ListBox *, pBox )
 315 {
 316     // Alte ListBoxPos sichern
 317     const USHORT nOld = GetTypeSel();
 318
 319     // Aktuelle ListBoxPos
 320     SetTypeSel(aTypeLB.GetSelectEntryPos());
 321
 322     if(GetTypeSel() == LISTBOX_ENTRY_NOTFOUND)
 323     {
 324         SetTypeSel(0);
 325         aTypeLB.SelectEntryPos(0);
 326     }
 327
 328     if (nOld != GetTypeSel())
 329     {
 330         SwWrtShell *pSh = GetWrtShell();
 331         if(!pSh)
 332             pSh = ::GetActiveWrtShell();
 333         BOOL bCond = FALSE, bSetNo = FALSE, bFormat = FALSE, bDBFormat = FALSE;
 334         USHORT nTypeId = (USHORT)(ULONG)aTypeLB.GetEntryData(GetTypeSel());
 335
 336         aDatabaseTLB.ShowColumns(nTypeId == TYP_DBFLD);
 337
 338         if (IsFldEdit())
 339         {
 340             SwDBData aData;
 341             String sColumnName;
 342             if (nTypeId == TYP_DBFLD)
 343             {
 344                 aData = ((SwDBField*)GetCurField())->GetDBData();
 345                 sColumnName = ((SwDBFieldType*)GetCurField()->GetTyp())->GetColumnName();
 346             }
 347             else
 348             {
 349                 aData = ((SwDBNameInfField*)GetCurField())->GetDBData(pSh->GetDoc());
 350             }
 351             aDatabaseTLB.Select(aData.sDataSource, aData.sCommand, sColumnName);
 352         }
 353
 354         switch (nTypeId)
 355         {
 356             case TYP_DBFLD:
 357                 bFormat = TRUE;
 358                 bDBFormat = TRUE;
 359                 aNumFormatLB.Show();
 360                 aFormatLB.Hide();
 361
 362                 if (pBox)       // Typ wurde vom User geaendert
 363                     aDBFormatRB.Check();
 364
 365                 if (IsFldEdit())
 366                 {
 367                     if (GetCurField()->GetFormat() != 0 && GetCurField()->GetFormat() != SAL_MAX_UINT32)
 368                         aNumFormatLB.SetDefFormat(GetCurField()->GetFormat());
 369
 370                     if (GetCurField()->GetSubType() & nsSwExtendedSubType::SUB_OWN_FMT)
 371                         aNewFormatRB.Check();
 372                     else
 373                         aDBFormatRB.Check();
 374                 }
 375                 break;
 376
 377             case TYP_DBNUMSETFLD:
 378                 bSetNo = TRUE;
 379                 // kein break!
 380             case TYP_DBNEXTSETFLD:
 381                 bCond = TRUE;
 382                 if (IsFldEdit())
 383                 {
 384                     aConditionED.SetText(GetCurField()->GetPar1());
 385                     aValueED.SetText(GetCurField()->GetPar2());
 386                 }
 387                 break;
 388
 389             case TYP_DBNAMEFLD:
 390                 break;
 391
 392             case TYP_DBSETNUMBERFLD:
 393                 bFormat = TRUE;
 394                 aNewFormatRB.Check();
 395                 aNumFormatLB.Hide();
 396                 aFormatLB.Show();
 397                 if( IsFldEdit() )
 398                 {
 399                     for( USHORT nI = aFormatLB.GetEntryCount(); nI; )
 400                         if( GetCurField()->GetFormat() == (USHORT)(ULONG)
 401                             aFormatLB.GetEntryData( --nI ))
 402                         {
 403                             aFormatLB.SelectEntryPos( nI );
 404                             break;
 405                         }
 406                 }
 407                 break;
 408         }
 409
 410         aConditionFT.Enable(bCond);
 411         aConditionED.Enable(bCond);
 412         aValueFT.Enable(bSetNo);
 413         aValueED.Enable(bSetNo);
 414         if (nTypeId != TYP_DBFLD)
 415         {
 416             aDBFormatRB.Enable(bDBFormat);
 417             aNewFormatRB.Enable(bDBFormat|bFormat);
 418             aNumFormatLB.Enable(bDBFormat);
 419             aFormatLB.Enable(bFormat);
 420         }
 421         aFormatFL.Enable(bDBFormat|bFormat);
 422
 423         if (!IsFldEdit())
 424         {
 425             aValueED.SetText(aEmptyStr);
 426             if (bCond)
 427                 aConditionED.SetText( String::CreateFromAscii(
 428                         RTL_CONSTASCII_STRINGPARAM( "TRUE" )));
 429             else
 430                 aConditionED.SetText(aEmptyStr);
 431         }
 432
 433         CheckInsert();
 434     }
 435
 436     return 0;
 437 }
 438
 439 /*--------------------------------------------------------------------
 440     Beschreibung:
 441  --------------------------------------------------------------------*/
 442
 443 IMPL_LINK( SwFldDBPage, NumSelectHdl, NumFormatListBox *, pLB )
 444 {
 445     aNewFormatRB.Check();
 446     aOldNumSelectHdl.Call(pLB);
 447
 448     return 0;
 449 }
 450
 451 /*---------------------------------------------------------------------
 452     Beschreibung:
 453 ---------------------------------------------------------------------*/
 454
 455 void SwFldDBPage::CheckInsert()
 456 {
 457     BOOL bInsert = TRUE;
 458     USHORT nTypeId = (USHORT)(ULONG)aTypeLB.GetEntryData(GetTypeSel());
 459
 460     SvLBoxEntry* pEntry = aDatabaseTLB.GetCurEntry();
 461
 462     if (pEntry)
 463     {
 464         pEntry = aDatabaseTLB.GetParent(pEntry);
 465
 466         if (nTypeId == TYP_DBFLD && pEntry)
 467             pEntry = aDatabaseTLB.GetParent(pEntry);
 468
 469         bInsert &= pEntry != 0;
 470     }
 471     else
 472         bInsert = FALSE;
 473
 474     if (nTypeId == TYP_DBNUMSETFLD)
 475     {
 476         BOOL bHasValue = aValueED.GetText().Len() != 0;
 477
 478         bInsert &= bHasValue;
 479     }
 480
 481     EnableInsert(bInsert);
 482 }
 483
 484 /*---------------------------------------------------------------------
 485     Beschreibung:
 486 ---------------------------------------------------------------------*/
 487
 488 IMPL_LINK( SwFldDBPage, TreeSelectHdl, SvTreeListBox *, pBox )
 489 {
 490     SvLBoxEntry* pColEntry;
 491     SvLBoxEntry* pEntry = pColEntry = pBox->GetCurEntry();
 492     if (pEntry)
 493     {
 494         USHORT nTypeId = (USHORT)(ULONG)aTypeLB.GetEntryData(GetTypeSel());
 495
 496         pEntry = aDatabaseTLB.GetParent(pEntry);
 497
 498         if (nTypeId == TYP_DBFLD && pEntry)
 499             pEntry = aDatabaseTLB.GetParent(pEntry);
 500
 501         CheckInsert();
 502
 503         if (nTypeId == TYP_DBFLD)
 504         {
 505             BOOL bNumFormat = FALSE;
 506
 507             if (pEntry != 0)
 508             {
 509                 String sTableName;
 510                 String sColumnName;
 511                 BOOL bIsTable;
 512                 String sDBName = aDatabaseTLB.GetDBName(sTableName, sColumnName, &bIsTable);
 513                 bNumFormat = GetFldMgr().IsDBNumeric(sDBName,
 514                             sTableName,
 515                             bIsTable,
 516                             sColumnName);
 517                 if (!IsFldEdit())
 518                     aDBFormatRB.Check();
 519             }
 520
 521             aDBFormatRB.Enable(bNumFormat);
 522             aNewFormatRB.Enable(bNumFormat);
 523             aNumFormatLB.Enable(bNumFormat);
 524             aFormatFL.Enable(bNumFormat);
 525         }
 526     }
 527     return 0;
 528 }
 529 /*-- 27.05.2004 09:14:01---------------------------------------------------
 530
 531   -----------------------------------------------------------------------*/
 532 IMPL_LINK( SwFldDBPage, AddDBHdl, PushButton *, EMPTYARG )
 533 {
 534     String sNewDB = SwNewDBMgr::LoadAndRegisterDataSource();
 535     if(sNewDB.Len())
 536     {
 537         aDatabaseTLB.AddDataSource(sNewDB);
 538     }
 539     return 0;
 540 }
 541
 542 /*--------------------------------------------------------------------
 543     Beschreibung: Modify
 544  --------------------------------------------------------------------*/
 545
 546 IMPL_LINK( SwFldDBPage, ModifyHdl, Edit *, EMPTYARG )
 547 {
 548     CheckInsert();
 549     return 0;
 550 }
 551
 552 /* -----------------12.01.99 11:21-------------------
 553  *
 554  * --------------------------------------------------*/
 555 void    SwFldDBPage::FillUserData()
 556 {
 557     String sData( String::CreateFromAscii(
 558                         RTL_CONSTASCII_STRINGPARAM( USER_DATA_VERSION )));
 559     sData += ';';
 560     USHORT nTypeSel = aTypeLB.GetSelectEntryPos();
 561
 562     if( LISTBOX_ENTRY_NOTFOUND == nTypeSel )
 563         nTypeSel = USHRT_MAX;
 564     else
 565         nTypeSel = (USHORT)(ULONG)aTypeLB.GetEntryData( nTypeSel );
 566     sData += String::CreateFromInt32( nTypeSel );
 567     SetUserData(sData);
 568 }
 569 /* -----------------12.12.2002 11:33-----------------
 570  *
 571  * --------------------------------------------------*/
 572 void SwFldDBPage::ActivateMailMergeAddress()
 573 {
 574     ULONG nData = TYP_DBFLD;
 575     aTypeLB.SelectEntryPos(aTypeLB.GetEntryPos( (const void*) nData ));
 576     aTypeLB.GetSelectHdl().Call(&aTypeLB);
 577     const SwDBData& rData = SW_MOD()->GetDBConfig()->GetAddressSource();
 578     aDatabaseTLB.Select(rData.sDataSource, rData.sCommand, aEmptyStr);
 579 }
 580 /*-- 07.10.2003 13:59:04---------------------------------------------------
 581
 582   -----------------------------------------------------------------------*/
 583 void SwFldDBPage::SetWrtShell(SwWrtShell& rSh)
 584 {
 585     aDatabaseTLB.SetWrtShell(rSh);
 586 }