Files
libreoffice/dbaccess/source/ui/dlg/UserAdminDlg.cxx

266 lines
9.4 KiB
C++
Raw Normal View History

/*************************************************************************
*
* $RCSfile: UserAdminDlg.cxx,v $
*
* $Revision: 1.2 $
*
* last change: $Author: hr $ $Date: 2004-08-02 15:42:22 $
*
* 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 EXPRESS 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): Ocke Janssen
*
*
************************************************************************/
#ifndef DBAUI_USERADMINDLG_HXX
#include "UserAdminDlg.hxx"
#endif
#ifndef DBAUI_USERADMINDLG_HRC
#include "UserAdminDlg.hrc"
#endif
#ifndef _DBU_DLG_HRC_
#include "dbu_dlg.hrc"
#endif
#ifndef _DBAUI_MODULE_DBU_HXX_
#include "moduledbu.hxx"
#endif
#ifndef _DBAUI_DATASOURCEITEMS_HXX_
#include "dsitems.hxx"
#endif
#ifndef _SFXSTRITEM_HXX
#include <svtools/stritem.hxx>
#endif
#ifndef _SFXENUMITEM_HXX
#include <svtools/eitem.hxx>
#endif
#ifndef _SFXINTITEM_HXX
#include <svtools/intitem.hxx>
#endif
#ifndef _VCL_STDTEXT_HXX
#include <vcl/stdtext.hxx>
#endif
#ifndef _SV_MSGBOX_HXX
#include <vcl/msgbox.hxx>
#endif
#ifndef _DBAUI_DATASOURCEITEMS_HXX_
#include "dsitems.hxx"
#endif
#ifndef DBAUI_DRIVERSETTINGS_HXX
#include "DriverSettings.hxx"
#endif
#ifndef _DBAUI_DBADMINIMPL_HXX_
#include "DbAdminImpl.hxx"
#endif
#ifndef _DBAUI_PROPERTYSETITEM_HXX_
#include "propertysetitem.hxx"
#endif
#ifndef _DBAUI_ADMINPAGES_HXX_
#include "adminpages.hxx"
#endif
#ifndef DBAUI_USERADMIN_HXX
#include "UserAdmin.hxx"
#endif
#ifndef DBAUI_TOOLS_HXX
#include "UITools.hxx"
#endif
#ifndef _COM_SUN_STAR_SDBCX_XDATADEFINITIONSUPPLIER_HPP_
#include <com/sun/star/sdbcx/XDataDefinitionSupplier.hpp>
#endif
#ifndef _COM_SUN_STAR_SDBCX_XUSERSSUPPLIER_HPP_
#include <com/sun/star/sdbcx/XUsersSupplier.hpp>
#endif
//.........................................................................
namespace dbaui
{
//.........................................................................
using namespace ::com::sun::star::uno;
using namespace ::com::sun::star::beans;
using namespace ::com::sun::star::lang;
using namespace ::com::sun::star::sdbc;
using namespace ::com::sun::star::sdbcx;
//========================================================================
//= OUserAdminDlg
//========================================================================
OUserAdminDlg::OUserAdminDlg(Window* _pParent
, SfxItemSet* _pItems
,const Reference< XMultiServiceFactory >& _rxORB
,const ::com::sun::star::uno::Any& _aDataSourceName)
:SfxTabDialog(_pParent, ModuleRes(DLG_DATABASE_USERADMIN), _pItems)
,m_pItemSet(_pItems)
{
m_pImpl = ::std::auto_ptr<ODbDataSourceAdministrationHelper>(new ODbDataSourceAdministrationHelper(_rxORB,_pParent,this));
m_pImpl->setCurrentDataSourceName(_aDataSourceName);
Reference< XPropertySet > xDatasource = m_pImpl->getCurrentDataSource();
m_pImpl->translateProperties(xDatasource, *_pItems);
SetInputSet(_pItems);
// propagate this set as our new input set and reset the example set
delete pExampleSet;
pExampleSet = new SfxItemSet(*GetInputSetImpl());
AddTabPage(TAB_PAGE_USERADMIN, String(ResId(STR_PAGETITLE_USERADMIN)), OUserAdmin::Create,0, sal_False, 1);
// remove the reset button - it's meaning is much too ambiguous in this dialog
RemoveResetButton();
FreeResource();
}
// -----------------------------------------------------------------------
OUserAdminDlg::~OUserAdminDlg()
{
try
{
::comphelper::disposeComponent(m_xConnection);
}
catch(Exception){}
SetInputSet(NULL);
DELETEZ(pExampleSet);
}
// -----------------------------------------------------------------------
short OUserAdminDlg::Execute()
{
try
{
Reference< XDataDefinitionSupplier > xDriver(getDriver(),UNO_QUERY);
sal_Bool bError = !xDriver.is();
if ( !bError )
{
m_xConnection = createConnection();
if ( m_xConnection.is() )
{
// now set the tables supplier at the table control
Reference< XTablesSupplier > xTablesSup = xDriver->getDataDefinitionByConnection(m_xConnection);
Reference<XUsersSupplier> xUsersSup(xTablesSup,UNO_QUERY);
bError = !xUsersSup.is();
}
}
if ( bError )
{
String sError(ModuleRes(STR_USERADMIN_NOT_AVAILABLE));
throw SQLException(sError,NULL,::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("S1000")) ,0,Any());
}
}
catch(SQLException& e)
{
::dbaui::showError(::dbtools::SQLExceptionInfo(e),GetParent(),getORB());
return RET_CANCEL;
}
short nRet = SfxTabDialog::Execute();
if ( nRet == RET_OK )
m_pImpl->saveChanges(*GetOutputItemSet());
return nRet;
}
//-------------------------------------------------------------------------
void OUserAdminDlg::PageCreated(USHORT _nId, SfxTabPage& _rPage)
{
// register ourself as modified listener
static_cast<OGenericAdministrationPage&>(_rPage).SetServiceFactory(m_pImpl->getORB());
static_cast<OGenericAdministrationPage&>(_rPage).SetAdminDialog(this,this);
AdjustLayout();
Window *pWin = GetViewWindow();
if(pWin)
pWin->Invalidate();
SfxTabDialog::PageCreated(_nId, _rPage);
}
// -----------------------------------------------------------------------------
const SfxItemSet* OUserAdminDlg::getOutputSet() const
{
return m_pItemSet;
}
// -----------------------------------------------------------------------------
SfxItemSet* OUserAdminDlg::getWriteOutputSet()
{
return m_pItemSet;
}
// -----------------------------------------------------------------------------
Reference< XConnection > OUserAdminDlg::createConnection()
{
if ( !m_xConnection.is() )
m_xConnection = m_pImpl->createConnection();
return m_xConnection;
}
// -----------------------------------------------------------------------------
Reference< XMultiServiceFactory > OUserAdminDlg::getORB()
{
return m_pImpl->getORB();
}
// -----------------------------------------------------------------------------
Reference< XDriver > OUserAdminDlg::getDriver()
{
return m_pImpl->getDriver();
}
// -----------------------------------------------------------------------------
DATASOURCE_TYPE OUserAdminDlg::getDatasourceType(const SfxItemSet& _rSet) const
{
return m_pImpl->getDatasourceType(_rSet);
}
// -----------------------------------------------------------------------------
void OUserAdminDlg::clearPassword()
{
m_pImpl->clearPassword();
}
// -----------------------------------------------------------------------------
void OUserAdminDlg::setTitle(const ::rtl::OUString& _sTitle)
{
SetText(_sTitle);
}
//-------------------------------------------------------------------------
sal_Bool OUserAdminDlg::saveDatasource()
{
return PrepareLeaveCurrentPage();
}
//.........................................................................
} // namespace dbaui
//.........................................................................