500 lines
16 KiB
C++
500 lines
16 KiB
C++
/*************************************************************************
|
|
*
|
|
* $RCSfile: tabwin.cxx,v $
|
|
*
|
|
* $Revision: 1.13 $
|
|
*
|
|
* last change: $Author: oj $ $Date: 2001-08-08 08:59:27 $
|
|
*
|
|
* The Contents of this file are made available subject to the terms of
|
|
* either of the following licenses
|
|
*
|
|
* - GNU Lesser General Public License Version 2.1
|
|
* - Sun Industry Standards Source License Version 1.1
|
|
*
|
|
* Sun Microsystems Inc., October, 2000
|
|
*
|
|
* GNU Lesser General Public License Version 2.1
|
|
* =============================================
|
|
* Copyright 2000 by Sun Microsystems, Inc.
|
|
* 901 San Antonio Road, Palo Alto, CA 94303, USA
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License version 2.1, as published by the Free Software Foundation.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
|
|
* MA 02111-1307 USA
|
|
*
|
|
*
|
|
* Sun Industry Standards Source License Version 1.1
|
|
* =================================================
|
|
* The contents of this file are subject to the Sun Industry Standards
|
|
* Source License Version 1.1 (the "License"); You may not use this file
|
|
* except in compliance with the License. You may obtain a copy of the
|
|
* License at http://www.openoffice.org/license.html.
|
|
*
|
|
* Software provided under this License is provided on an "AS IS" basis,
|
|
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
|
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
|
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
|
* See the License for the specific provisions governing your rights and
|
|
* obligations concerning the Software.
|
|
*
|
|
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
|
*
|
|
* Copyright: 2000 by Sun Microsystems, Inc.
|
|
*
|
|
* All Rights Reserved.
|
|
*
|
|
* Contributor(s): _______________________________________
|
|
*
|
|
*
|
|
************************************************************************/
|
|
#ifndef _SVX_TABWIN_HXX
|
|
#include "tabwin.hxx"
|
|
#endif
|
|
#ifndef _SVX_FMTOOLS_HXX
|
|
#include "fmtools.hxx"
|
|
#endif
|
|
#ifndef _SVX_SVXIDS_HRC
|
|
#include "svxids.hrc"
|
|
#endif
|
|
#ifndef _SVX_FMSERVS_HXX
|
|
#include "fmservs.hxx"
|
|
#endif
|
|
#ifndef _SVX_DBAEXCHANGE_HXX_
|
|
#include "dbaexchange.hxx"
|
|
#endif
|
|
|
|
#ifndef _COM_SUN_STAR_SDB_COMMANDTYPE_HPP_
|
|
#include <com/sun/star/sdb/CommandType.hpp>
|
|
#endif
|
|
#ifndef _COM_SUN_STAR_SDBCX_XTABLESSUPPLIER_HPP_
|
|
#include <com/sun/star/sdbcx/XTablesSupplier.hpp>
|
|
#endif
|
|
#ifndef _COM_SUN_STAR_SDB_XQUERIESSUPPLIER_HPP_
|
|
#include <com/sun/star/sdb/XQueriesSupplier.hpp>
|
|
#endif
|
|
#ifndef _COM_SUN_STAR_SDBC_XPREPAREDSTATEMENT_HPP_
|
|
#include <com/sun/star/sdbc/XPreparedStatement.hpp>
|
|
#endif
|
|
#ifndef _COM_SUN_STAR_AWT_XCONTROLCONTAINER_HPP_
|
|
#include <com/sun/star/awt/XControlContainer.hpp>
|
|
#endif
|
|
#ifndef _COM_SUN_STAR_UTIL_XLOCALIZEDALIASES_HPP_
|
|
#include <com/sun/star/util/XLocalizedAliases.hpp>
|
|
#endif
|
|
|
|
#ifndef _COMPHELPER_PROCESSFACTORY_HXX_
|
|
#include <comphelper/processfactory.hxx>
|
|
#endif
|
|
|
|
#ifndef _COMPHELPER_STLTYPES_HXX_
|
|
#include <comphelper/stl_types.hxx>
|
|
#endif
|
|
#ifndef _CONNECTIVITY_DBTOOLS_HXX_
|
|
#include <connectivity/dbtools.hxx>
|
|
#endif
|
|
|
|
#ifndef _SVX_FMHELP_HRC
|
|
#include "fmhelp.hrc"
|
|
#endif
|
|
|
|
#ifndef _SVX_FMSHELL_HXX
|
|
#include "fmshell.hxx"
|
|
#endif
|
|
|
|
#ifndef SVX_DBTOOLSCLIENT_HXX
|
|
#include "dbtoolsclient.hxx"
|
|
#endif
|
|
|
|
#ifndef _SVX_FMPAGE_HXX
|
|
#include "fmpage.hxx"
|
|
#endif
|
|
|
|
#ifndef _SVX_FMPGEIMP_HXX
|
|
#include "fmpgeimp.hxx"
|
|
#endif
|
|
|
|
#ifndef _SVX_FMPROP_HXX
|
|
#include "fmprop.hxx"
|
|
#endif
|
|
|
|
#ifndef _SVX_FMPROP_HRC
|
|
#include "fmprop.hrc"
|
|
#endif
|
|
|
|
#ifndef _SVX_FMRESIDS_HRC
|
|
#include "fmresids.hrc"
|
|
#endif
|
|
|
|
#ifndef _SVX_DIALMGR_HXX
|
|
#include "dialmgr.hxx"
|
|
#endif
|
|
|
|
#ifndef _SHL_HXX
|
|
#include <tools/shl.hxx>
|
|
#endif
|
|
|
|
#ifndef _SVDPAGV_HXX
|
|
#include <svdpagv.hxx>
|
|
#endif
|
|
|
|
#ifndef _SFX_OBJITEM_HXX //autogen
|
|
#include <sfx2/objitem.hxx>
|
|
#endif
|
|
|
|
#ifndef _SFXDISPATCH_HXX //autogen
|
|
#include <sfx2/dispatch.hxx>
|
|
#endif
|
|
|
|
#ifndef _ISOLANG_HXX
|
|
#include <tools/isolang.hxx>
|
|
#endif
|
|
#ifndef _COMPHELPER_PROPERTY_HXX_
|
|
#include <comphelper/property.hxx>
|
|
#endif
|
|
|
|
const long STD_WIN_POS_X = 50;
|
|
const long STD_WIN_POS_Y = 50;
|
|
|
|
const long STD_WIN_SIZE_X = 120;
|
|
const long STD_WIN_SIZE_Y = 150;
|
|
|
|
const long MIN_WIN_SIZE_X = 50;
|
|
const long MIN_WIN_SIZE_Y = 50;
|
|
|
|
const long LISTBOX_BORDER = 2;
|
|
|
|
using namespace ::com::sun::star::sdbc;
|
|
using namespace ::com::sun::star::uno;
|
|
using namespace ::com::sun::star::datatransfer;
|
|
using namespace ::svxform;
|
|
using namespace ::svx;
|
|
|
|
//==================================================================
|
|
// class FmFieldWinListBox
|
|
//==================================================================
|
|
DBG_NAME(FmFieldWinListBox);
|
|
//------------------------------------------------------------------------------
|
|
FmFieldWinListBox::FmFieldWinListBox( FmFieldWin* pParent )
|
|
:SvTreeListBox( pParent, WB_HASBUTTONS|WB_BORDER )
|
|
,pTabWin( pParent )
|
|
{
|
|
DBG_CTOR(FmFieldWinListBox,NULL);
|
|
SetHelpId( HID_FIELD_SEL );
|
|
}
|
|
|
|
//------------------------------------------------------------------------------
|
|
FmFieldWinListBox::~FmFieldWinListBox()
|
|
{
|
|
DBG_DTOR(FmFieldWinListBox,NULL);
|
|
}
|
|
|
|
//------------------------------------------------------------------------------
|
|
sal_Int8 FmFieldWinListBox::AcceptDrop( const AcceptDropEvent& rEvt )
|
|
{
|
|
return DND_ACTION_NONE;
|
|
}
|
|
|
|
//------------------------------------------------------------------------------
|
|
sal_Int8 FmFieldWinListBox::ExecuteDrop( const ExecuteDropEvent& rEvt )
|
|
{
|
|
return DND_ACTION_NONE;
|
|
}
|
|
|
|
//------------------------------------------------------------------------------
|
|
void FmFieldWinListBox::StartDrag( sal_Int8 _nAction, const Point& _rPosPixel )
|
|
{
|
|
SvLBoxEntry* pSelected = FirstSelected();
|
|
if (!pSelected)
|
|
// no drag without a field
|
|
return;
|
|
|
|
TransferableHelper* pTransferColumn = new OColumnTransferable(
|
|
pTabWin->GetDatabaseName(),
|
|
pTabWin->GetObjectType(),
|
|
pTabWin->GetObjectName(),
|
|
GetEntryText( pSelected),
|
|
CTF_FIELD_DESCRIPTOR | CTF_CONTROL_EXCHANGE
|
|
);
|
|
Reference< XTransferable> xEnsureDelete = pTransferColumn;
|
|
if (pTransferColumn)
|
|
{
|
|
EndSelection();
|
|
pTransferColumn->StartDrag( this, DND_ACTION_COPY );
|
|
}
|
|
}
|
|
|
|
//========================================================================
|
|
// class FmFieldWinData
|
|
//========================================================================
|
|
DBG_NAME(FmFieldWinData);
|
|
//-----------------------------------------------------------------------
|
|
FmFieldWinData::FmFieldWinData()
|
|
{
|
|
DBG_CTOR(FmFieldWinData,NULL);
|
|
}
|
|
|
|
//-----------------------------------------------------------------------
|
|
FmFieldWinData::~FmFieldWinData()
|
|
{
|
|
DBG_DTOR(FmFieldWinData,NULL);
|
|
}
|
|
|
|
//========================================================================
|
|
// class FmFieldWin
|
|
//========================================================================
|
|
DBG_NAME(FmFieldWin);
|
|
//-----------------------------------------------------------------------
|
|
FmFieldWin::FmFieldWin(SfxBindings *pBindings, SfxChildWindow *pMgr, Window* pParent)
|
|
:SfxFloatingWindow(pBindings, pMgr, pParent, WinBits(WB_STDMODELESS|WB_SIZEABLE))
|
|
,SfxControllerItem(SID_FM_FIELDS_CONTROL, *pBindings)
|
|
,::comphelper::OPropertyChangeListener(m_aMutex)
|
|
,pData(new FmFieldWinData)
|
|
,m_nObjectType(0)
|
|
,m_pChangeListener(NULL)
|
|
{
|
|
DBG_CTOR(FmFieldWin,NULL);
|
|
SetHelpId( HID_FIELD_SEL_WIN );
|
|
|
|
SetBackground( Wallpaper( Application::GetSettings().GetStyleSettings().GetFaceColor()) );
|
|
pListBox = new FmFieldWinListBox( this );
|
|
pListBox->Show();
|
|
Update(NULL);
|
|
SetSizePixel(Size(STD_WIN_SIZE_X,STD_WIN_SIZE_Y));
|
|
}
|
|
|
|
//-----------------------------------------------------------------------
|
|
FmFieldWin::~FmFieldWin()
|
|
{
|
|
if (m_pChangeListener)
|
|
{
|
|
m_pChangeListener->dispose();
|
|
m_pChangeListener->release();
|
|
// delete m_pChangeListener;
|
|
}
|
|
delete pListBox;
|
|
delete pData;
|
|
DBG_DTOR(FmFieldWin,NULL);
|
|
}
|
|
|
|
//-----------------------------------------------------------------------
|
|
sal_Bool FmFieldWin::Close()
|
|
{
|
|
return SfxFloatingWindow::Close();
|
|
}
|
|
|
|
//-----------------------------------------------------------------------
|
|
void FmFieldWin::_propertyChanged(const ::com::sun::star::beans::PropertyChangeEvent& evt) throw( ::com::sun::star::uno::RuntimeException )
|
|
{
|
|
::com::sun::star::uno::Reference< ::com::sun::star::form::XForm > xForm(evt.Source, ::com::sun::star::uno::UNO_QUERY);
|
|
Update(xForm);
|
|
}
|
|
|
|
//-----------------------------------------------------------------------
|
|
void FmFieldWin::StateChanged(sal_uInt16 nSID, SfxItemState eState, const SfxPoolItem* pState)
|
|
{
|
|
if (!pState || SID_FM_FIELDS_CONTROL != nSID)
|
|
return;
|
|
|
|
if (eState >= SFX_ITEM_AVAILABLE)
|
|
{
|
|
FmFormShell* pShell = PTR_CAST(FmFormShell,((SfxObjectItem*)pState)->GetShell());
|
|
Update(pShell);
|
|
}
|
|
else
|
|
Update(NULL);
|
|
}
|
|
|
|
//-----------------------------------------------------------------------
|
|
sal_Bool FmFieldWin::Update(FmFormShell* pShell)
|
|
{
|
|
// ::com::sun::star::form::ListBox loeschen
|
|
pListBox->Clear();
|
|
::rtl::OUString aTitle(SVX_RES(RID_STR_FIELDSELECTION));
|
|
SetText(aTitle);
|
|
|
|
if (!pShell || !pShell->GetFormView())
|
|
return sal_False;
|
|
|
|
SdrPageView* pPageView = pShell->GetFormView()->GetPageViewPvNum(0);
|
|
if( !pPageView )
|
|
return sal_False;
|
|
|
|
FmFormPage* pPage = PTR_CAST( FmFormPage, pPageView->GetPage() );
|
|
::com::sun::star::uno::Reference< ::com::sun::star::form::XForm > xForm = pPage->GetImpl()->getCurForm();
|
|
if (!xForm.is())
|
|
return sal_False;
|
|
|
|
return Update(xForm);
|
|
}
|
|
|
|
//-----------------------------------------------------------------------
|
|
sal_Bool FmFieldWin::Update(const ::com::sun::star::uno::Reference< ::com::sun::star::form::XForm > & xForm)
|
|
{
|
|
// ::com::sun::star::form::ListBox loeschen
|
|
pListBox->Clear();
|
|
UniString aTitle(SVX_RES(RID_STR_FIELDSELECTION));
|
|
SetText(aTitle);
|
|
|
|
if (!xForm.is())
|
|
return sal_False;
|
|
|
|
::com::sun::star::uno::Reference< ::com::sun::star::sdbc::XPreparedStatement > xStatement;
|
|
::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet > xSet(xForm, ::com::sun::star::uno::UNO_QUERY);
|
|
|
|
m_aObjectName = ::comphelper::getString(xSet->getPropertyValue(FM_PROP_COMMAND));
|
|
m_aDatabaseName = ::comphelper::getString(xSet->getPropertyValue(FM_PROP_DATASOURCE));
|
|
m_nObjectType = ::comphelper::getINT32(xSet->getPropertyValue(FM_PROP_COMMANDTYPE));
|
|
|
|
// Festellen des Feldes
|
|
::com::sun::star::uno::Reference< ::com::sun::star::container::XNameAccess > xFields;
|
|
::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet > xField;
|
|
try
|
|
{
|
|
// get the connection of the form
|
|
Reference< XConnection > xConnection = OStaticDataAccessTools().calcConnection(Reference< XRowSet >(xForm, UNO_QUERY), ::comphelper::getProcessServiceFactory());
|
|
|
|
if (!xConnection.is())
|
|
return sal_True;
|
|
|
|
switch (m_nObjectType)
|
|
{
|
|
case 0:
|
|
{
|
|
::com::sun::star::uno::Reference< ::com::sun::star::sdbcx::XTablesSupplier > xSupplyTables(xConnection, ::com::sun::star::uno::UNO_QUERY);
|
|
if (xSupplyTables.is() && xSupplyTables->getTables().is() && xSupplyTables->getTables()->hasByName(m_aObjectName))
|
|
{
|
|
::com::sun::star::uno::Reference< ::com::sun::star::sdbcx::XColumnsSupplier > xSupplyColumns;
|
|
xSupplyTables->getTables()->getByName(m_aObjectName) >>= xSupplyColumns;
|
|
xFields = xSupplyColumns->getColumns();
|
|
}
|
|
}
|
|
break;
|
|
case 1:
|
|
{
|
|
::com::sun::star::uno::Reference< ::com::sun::star::sdb::XQueriesSupplier > xSupplyQueries(xConnection, ::com::sun::star::uno::UNO_QUERY);
|
|
if (xSupplyQueries.is() && xSupplyQueries->getQueries().is() && xSupplyQueries->getQueries()->hasByName(m_aObjectName))
|
|
{
|
|
::com::sun::star::uno::Reference< ::com::sun::star::sdbcx::XColumnsSupplier > xSupplyColumns;
|
|
xSupplyQueries->getQueries()->getByName(m_aObjectName) >>= xSupplyColumns;
|
|
xFields = xSupplyColumns->getColumns();
|
|
}
|
|
}
|
|
break;
|
|
default:
|
|
{
|
|
xStatement = xConnection->prepareStatement(m_aObjectName);
|
|
// not interested in any results
|
|
::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet > (xStatement,::com::sun::star::uno::UNO_QUERY)->setPropertyValue(::rtl::OUString::createFromAscii("MaxRows"),::com::sun::star::uno::makeAny(sal_Int32(0)));
|
|
::com::sun::star::uno::Reference< ::com::sun::star::sdbcx::XColumnsSupplier > xSupplyCols(xStatement->executeQuery(), ::com::sun::star::uno::UNO_QUERY);
|
|
if (xSupplyCols.is())
|
|
xFields = xSupplyCols->getColumns();
|
|
}
|
|
}
|
|
}
|
|
catch(Exception&)
|
|
{
|
|
DBG_WARNING("FmFieldWin::Update(::com::sun::star::form::XForm) : could not collect the fields of the current data source !");
|
|
}
|
|
|
|
|
|
if (xFields.is())
|
|
{
|
|
::com::sun::star::uno::Sequence< ::rtl::OUString> aNames(xFields->getElementNames());
|
|
sal_Int32 nFieldsCount = aNames.getLength();
|
|
const ::rtl::OUString* pNames = aNames.getConstArray();
|
|
|
|
for (sal_Int32 i=0; i<nFieldsCount; i++)
|
|
pListBox->InsertEntry(pNames[i]);
|
|
}
|
|
|
|
// Prefix setzen
|
|
UniString aPrefix;
|
|
UniString aPrefixes( SVX_RES(RID_STR_TABWIN_PREFIX) );
|
|
|
|
switch (m_nObjectType)
|
|
{
|
|
case ::com::sun::star::sdb::CommandType::TABLE:
|
|
aPrefix = aPrefixes.GetToken(0);
|
|
break;
|
|
case ::com::sun::star::sdb::CommandType::QUERY:
|
|
aPrefix = aPrefixes.GetToken(1);
|
|
break;
|
|
default:
|
|
aPrefix = aPrefixes.GetToken(2);
|
|
break;
|
|
}
|
|
|
|
// an dem PropertySet nach Aenderungen der ControlSource lauschen
|
|
if (m_pChangeListener)
|
|
{
|
|
m_pChangeListener->dispose();
|
|
m_pChangeListener->release();
|
|
}
|
|
m_pChangeListener = new ::comphelper::OPropertyChangeMultiplexer(this, xSet);
|
|
m_pChangeListener->acquire();
|
|
m_pChangeListener->addProperty(FM_PROP_DATASOURCE);
|
|
m_pChangeListener->addProperty(FM_PROP_COMMAND);
|
|
m_pChangeListener->addProperty(FM_PROP_COMMANDTYPE);
|
|
|
|
// Titel setzen
|
|
aTitle.AppendAscii(" ");
|
|
aTitle += aPrefix;
|
|
aTitle.AppendAscii(" ");
|
|
aTitle += m_aObjectName.getStr();
|
|
SetText( aTitle );
|
|
|
|
return sal_True;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------
|
|
void FmFieldWin::Resize()
|
|
{
|
|
SfxFloatingWindow::Resize();
|
|
|
|
Point aPos(GetPosPixel());
|
|
Size aSize( GetOutputSizePixel() );
|
|
|
|
//////////////////////////////////////////////////////////////////////
|
|
|
|
// Groesse der ::com::sun::star::form::ListBox anpassen
|
|
Point aLBPos( LISTBOX_BORDER, LISTBOX_BORDER );
|
|
Size aLBSize( aSize );
|
|
aLBSize.Width() -= (2*LISTBOX_BORDER);
|
|
aLBSize.Height() -= (2*LISTBOX_BORDER);
|
|
|
|
pListBox->SetPosSizePixel( aLBPos, aLBSize );
|
|
}
|
|
|
|
//-----------------------------------------------------------------------
|
|
void FmFieldWin::FillInfo( SfxChildWinInfo& rInfo ) const
|
|
{
|
|
rInfo.bVisible = sal_False;
|
|
}
|
|
|
|
//-----------------------------------------------------------------------
|
|
SFX_IMPL_FLOATINGWINDOW(FmFieldWinMgr, SID_FM_ADD_FIELD)
|
|
|
|
//-----------------------------------------------------------------------
|
|
FmFieldWinMgr::FmFieldWinMgr(Window *pParent, sal_uInt16 nId,
|
|
SfxBindings *pBindings, SfxChildWinInfo* pInfo)
|
|
:SfxChildWindow(pParent, nId)
|
|
{
|
|
pWindow = new FmFieldWin(pBindings, this, pParent);
|
|
SetHideNotDelete(sal_True);
|
|
eChildAlignment = SFX_ALIGN_NOALIGNMENT;
|
|
((SfxFloatingWindow*)pWindow)->Initialize( pInfo );
|
|
}
|
|
|
|
|