forked from amazingfate/loongoffice
415ae83522
I converted RID_DLG_LISTCOMBOWIZARD, RID_DLG_GROUPBOXWIZARD and RID_DLG_GRIDWIZARD to .ui Change-Id: I221f22edbe4c638bfa80065d7775f78af24590cc Reviewed-on: https://gerrit.libreoffice.org/10277 Reviewed-by: Caolán McNamara <caolanm@redhat.com> Tested-by: Caolán McNamara <caolanm@redhat.com>
535 lines
17 KiB
C++
535 lines
17 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
/*
|
|
* This file is part of the LibreOffice project.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
*
|
|
* This file incorporates work covered by the following license notice:
|
|
*
|
|
* Licensed to the Apache Software Foundation (ASF) under one or more
|
|
* contributor license agreements. See the NOTICE file distributed
|
|
* with this work for additional information regarding copyright
|
|
* ownership. The ASF licenses this file to you under the Apache
|
|
* License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 .
|
|
*/
|
|
|
|
#include "listcombowizard.hxx"
|
|
#include "commonpagesdbp.hxx"
|
|
#include <com/sun/star/sdbc/XConnection.hpp>
|
|
#include <com/sun/star/sdbcx/XTablesSupplier.hpp>
|
|
#include <com/sun/star/container/XNameAccess.hpp>
|
|
#include <com/sun/star/form/ListSourceType.hpp>
|
|
#include <com/sun/star/sdbcx/XColumnsSupplier.hpp>
|
|
#include <tools/debug.hxx>
|
|
#include <vcl/msgbox.hxx>
|
|
#include <connectivity/dbtools.hxx>
|
|
#include "dbpilots.hrc"
|
|
#include <comphelper/extract.hxx>
|
|
|
|
|
|
namespace dbp
|
|
{
|
|
|
|
|
|
using namespace ::com::sun::star::uno;
|
|
using namespace ::com::sun::star::lang;
|
|
using namespace ::com::sun::star::beans;
|
|
using namespace ::com::sun::star::sdbc;
|
|
using namespace ::com::sun::star::sdbcx;
|
|
using namespace ::com::sun::star::container;
|
|
using namespace ::com::sun::star::form;
|
|
using namespace ::svt;
|
|
using namespace ::dbtools;
|
|
|
|
|
|
//= OListComboWizard
|
|
|
|
|
|
OListComboWizard::OListComboWizard( Window* _pParent,
|
|
const Reference< XPropertySet >& _rxObjectModel, const Reference< XComponentContext >& _rxContext )
|
|
:OControlWizard(_pParent, _rxObjectModel, _rxContext)
|
|
,m_bListBox(false)
|
|
,m_bHadDataSelection(true)
|
|
{
|
|
initControlSettings(&m_aSettings);
|
|
|
|
m_pPrevPage->SetHelpId(HID_LISTWIZARD_PREVIOUS);
|
|
m_pNextPage->SetHelpId(HID_LISTWIZARD_NEXT);
|
|
m_pCancel->SetHelpId(HID_LISTWIZARD_CANCEL);
|
|
m_pFinish->SetHelpId(HID_LISTWIZARD_FINISH);
|
|
|
|
// if we do not need the data source selection page ...
|
|
if (!needDatasourceSelection())
|
|
{ // ... skip it!
|
|
skip(1);
|
|
m_bHadDataSelection = false;
|
|
}
|
|
}
|
|
|
|
|
|
bool OListComboWizard::approveControl(sal_Int16 _nClassId)
|
|
{
|
|
switch (_nClassId)
|
|
{
|
|
case FormComponentType::LISTBOX:
|
|
m_bListBox = true;
|
|
setTitleBase(ModuleRes(RID_STR_LISTWIZARD_TITLE).toString());
|
|
return true;
|
|
case FormComponentType::COMBOBOX:
|
|
m_bListBox = false;
|
|
setTitleBase(ModuleRes(RID_STR_COMBOWIZARD_TITLE).toString());
|
|
return true;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
|
|
OWizardPage* OListComboWizard::createPage(WizardState _nState)
|
|
{
|
|
switch (_nState)
|
|
{
|
|
case LCW_STATE_DATASOURCE_SELECTION:
|
|
return new OTableSelectionPage(this);
|
|
case LCW_STATE_TABLESELECTION:
|
|
return new OContentTableSelection(this);
|
|
case LCW_STATE_FIELDSELECTION:
|
|
return new OContentFieldSelection(this);
|
|
case LCW_STATE_FIELDLINK:
|
|
return new OLinkFieldsPage(this);
|
|
case LCW_STATE_COMBODBFIELD:
|
|
return new OComboDBFieldPage(this);
|
|
}
|
|
|
|
return NULL;
|
|
}
|
|
|
|
|
|
WizardTypes::WizardState OListComboWizard::determineNextState( WizardState _nCurrentState ) const
|
|
{
|
|
switch (_nCurrentState)
|
|
{
|
|
case LCW_STATE_DATASOURCE_SELECTION:
|
|
return LCW_STATE_TABLESELECTION;
|
|
case LCW_STATE_TABLESELECTION:
|
|
return LCW_STATE_FIELDSELECTION;
|
|
case LCW_STATE_FIELDSELECTION:
|
|
return getFinalState();
|
|
}
|
|
|
|
return WZS_INVALID_STATE;
|
|
}
|
|
|
|
|
|
void OListComboWizard::enterState(WizardState _nState)
|
|
{
|
|
OControlWizard::enterState(_nState);
|
|
|
|
enableButtons(WZB_PREVIOUS, m_bHadDataSelection ? (LCW_STATE_DATASOURCE_SELECTION < _nState) : LCW_STATE_TABLESELECTION < _nState);
|
|
enableButtons(WZB_NEXT, getFinalState() != _nState);
|
|
if (_nState < getFinalState())
|
|
enableButtons(WZB_FINISH, false);
|
|
|
|
if (getFinalState() == _nState)
|
|
defaultButton(WZB_FINISH);
|
|
}
|
|
|
|
|
|
bool OListComboWizard::leaveState(WizardState _nState)
|
|
{
|
|
if (!OControlWizard::leaveState(_nState))
|
|
return false;
|
|
|
|
if (getFinalState() == _nState)
|
|
defaultButton(WZB_NEXT);
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
void OListComboWizard::implApplySettings()
|
|
{
|
|
try
|
|
{
|
|
// for quoting identifiers, we need the connection meta data
|
|
Reference< XConnection > xConn = getFormConnection();
|
|
DBG_ASSERT(xConn.is(), "OListComboWizard::implApplySettings: no connection, unable to quote!");
|
|
Reference< XDatabaseMetaData > xMetaData;
|
|
if (xConn.is())
|
|
xMetaData = xConn->getMetaData();
|
|
|
|
// do some quotings
|
|
if (xMetaData.is())
|
|
{
|
|
OUString sQuoteString = xMetaData->getIdentifierQuoteString();
|
|
if (isListBox()) // only when we have a listbox this should be not empty
|
|
getSettings().sLinkedListField = quoteName(sQuoteString, getSettings().sLinkedListField);
|
|
|
|
OUString sCatalog, sSchema, sName;
|
|
::dbtools::qualifiedNameComponents( xMetaData, getSettings().sListContentTable, sCatalog, sSchema, sName, ::dbtools::eInDataManipulation );
|
|
getSettings().sListContentTable = ::dbtools::composeTableNameForSelect( xConn, sCatalog, sSchema, sName );
|
|
|
|
getSettings().sListContentField = quoteName(sQuoteString, getSettings().sListContentField);
|
|
}
|
|
|
|
// ListSourceType: SQL
|
|
getContext().xObjectModel->setPropertyValue("ListSourceType", makeAny((sal_Int32)ListSourceType_SQL));
|
|
|
|
if (isListBox())
|
|
{
|
|
// BoundColumn: 1
|
|
getContext().xObjectModel->setPropertyValue("BoundColumn", makeAny((sal_Int16)1));
|
|
|
|
// build the statement to set as list source
|
|
OUString sStatement = "SELECT " +
|
|
OUString( getSettings().sListContentField ) + ", " + OUString( getSettings().sLinkedListField ) +
|
|
" FROM " + OUString( getSettings().sListContentTable );
|
|
Sequence< OUString > aListSource(1);
|
|
aListSource[0] = sStatement;
|
|
getContext().xObjectModel->setPropertyValue("ListSource", makeAny(aListSource));
|
|
}
|
|
else
|
|
{
|
|
// build the statement to set as list source
|
|
OUString sStatement = "SELECT DISTINCT " +
|
|
OUString( getSettings().sListContentField ) +
|
|
" FROM " + OUString( getSettings().sListContentTable );
|
|
getContext().xObjectModel->setPropertyValue( "ListSource", makeAny(OUString(sStatement)));
|
|
}
|
|
|
|
// the bound field
|
|
getContext().xObjectModel->setPropertyValue("DataField", makeAny(OUString(getSettings().sLinkedFormField)));
|
|
}
|
|
catch(const Exception&)
|
|
{
|
|
OSL_FAIL("OListComboWizard::implApplySettings: could not set the property values for the listbox!");
|
|
}
|
|
}
|
|
|
|
|
|
bool OListComboWizard::onFinish()
|
|
{
|
|
if ( !OControlWizard::onFinish() )
|
|
return false;
|
|
|
|
implApplySettings();
|
|
return true;
|
|
}
|
|
|
|
|
|
//= OLCPage
|
|
|
|
|
|
Reference< XNameAccess > OLCPage::getTables(bool _bNeedIt)
|
|
{
|
|
Reference< XConnection > xConn = getFormConnection();
|
|
DBG_ASSERT(!_bNeedIt || xConn.is(), "OLCPage::getTables: should have an active connection when reaching this page!");
|
|
(void)_bNeedIt;
|
|
|
|
Reference< XTablesSupplier > xSuppTables(xConn, UNO_QUERY);
|
|
Reference< XNameAccess > xTables;
|
|
if (xSuppTables.is())
|
|
xTables = xSuppTables->getTables();
|
|
|
|
DBG_ASSERT(!_bNeedIt || xTables.is() || !xConn.is(), "OLCPage::getTables: got no tables from the connection!");
|
|
|
|
return xTables;
|
|
}
|
|
|
|
|
|
Sequence< OUString > OLCPage::getTableFields(bool _bNeedIt)
|
|
{
|
|
Reference< XNameAccess > xTables = getTables(_bNeedIt);
|
|
Sequence< OUString > aColumnNames;
|
|
if (xTables.is())
|
|
{
|
|
try
|
|
{
|
|
// the list table as XColumnsSupplier
|
|
Reference< XColumnsSupplier > xSuppCols;
|
|
xTables->getByName(getSettings().sListContentTable) >>= xSuppCols;
|
|
DBG_ASSERT(!_bNeedIt || xSuppCols.is(), "OLCPage::getTableFields: no columns supplier!");
|
|
|
|
// the columns
|
|
Reference< XNameAccess > xColumns;
|
|
if (xSuppCols.is())
|
|
xColumns = xSuppCols->getColumns();
|
|
|
|
// the column names
|
|
if (xColumns.is())
|
|
aColumnNames = xColumns->getElementNames();
|
|
}
|
|
catch(const Exception&)
|
|
{
|
|
DBG_ASSERT(!_bNeedIt, "OLinkFieldsPage::initializePage: caught an exception while retrieving the columns!");
|
|
}
|
|
}
|
|
return aColumnNames;
|
|
}
|
|
|
|
|
|
//= OContentTableSelection
|
|
|
|
|
|
OContentTableSelection::OContentTableSelection( OListComboWizard* _pParent )
|
|
:OLCPage(_pParent, "TableSelectionPage", "modules/sabpilot/ui/contenttablepage.ui")
|
|
{
|
|
get(m_pSelectTable, "table");
|
|
|
|
enableFormDatasourceDisplay();
|
|
|
|
m_pSelectTable->SetDoubleClickHdl(LINK(this, OContentTableSelection, OnTableDoubleClicked));
|
|
m_pSelectTable->SetSelectHdl(LINK(this, OContentTableSelection, OnTableSelected));
|
|
}
|
|
|
|
|
|
void OContentTableSelection::ActivatePage()
|
|
{
|
|
OLCPage::ActivatePage();
|
|
m_pSelectTable->GrabFocus();
|
|
}
|
|
|
|
|
|
bool OContentTableSelection::canAdvance() const
|
|
{
|
|
if (!OLCPage::canAdvance())
|
|
return false;
|
|
|
|
return 0 != m_pSelectTable->GetSelectEntryCount();
|
|
}
|
|
|
|
|
|
IMPL_LINK( OContentTableSelection, OnTableSelected, ListBox*, /*_pListBox*/ )
|
|
{
|
|
updateDialogTravelUI();
|
|
return 0L;
|
|
}
|
|
|
|
|
|
IMPL_LINK( OContentTableSelection, OnTableDoubleClicked, ListBox*, _pListBox )
|
|
{
|
|
if (_pListBox->GetSelectEntryCount())
|
|
getDialog()->travelNext();
|
|
return 0L;
|
|
}
|
|
|
|
|
|
void OContentTableSelection::initializePage()
|
|
{
|
|
OLCPage::initializePage();
|
|
|
|
// fill the list with the table name
|
|
m_pSelectTable->Clear();
|
|
try
|
|
{
|
|
Reference< XNameAccess > xTables = getTables(true);
|
|
Sequence< OUString > aTableNames;
|
|
if (xTables.is())
|
|
aTableNames = xTables->getElementNames();
|
|
fillListBox(*m_pSelectTable, aTableNames);
|
|
}
|
|
catch(const Exception&)
|
|
{
|
|
OSL_FAIL("OContentTableSelection::initializePage: could not retrieve the table names!");
|
|
}
|
|
|
|
m_pSelectTable->SelectEntry(getSettings().sListContentTable);
|
|
}
|
|
|
|
|
|
bool OContentTableSelection::commitPage( ::svt::WizardTypes::CommitPageReason _eReason )
|
|
{
|
|
if (!OLCPage::commitPage(_eReason))
|
|
return false;
|
|
|
|
OListComboSettings& rSettings = getSettings();
|
|
rSettings.sListContentTable = m_pSelectTable->GetSelectEntry();
|
|
if (rSettings.sListContentTable.isEmpty() && (::svt::WizardTypes::eTravelBackward != _eReason))
|
|
// need to select a table
|
|
return false;
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
//= OContentFieldSelection
|
|
|
|
|
|
OContentFieldSelection::OContentFieldSelection( OListComboWizard* _pParent )
|
|
:OLCPage(_pParent, "FieldSelectionPage", "modules/sabpilot/ui/contentfieldpage.ui")
|
|
{
|
|
get(m_pSelectTableField, "selectfield");
|
|
get(m_pDisplayedField, "displayfield");
|
|
get(m_pInfo, "info");
|
|
m_pInfo->SetText(ModuleRes( isListBox() ? RID_STR_FIELDINFO_LISTBOX : RID_STR_FIELDINFO_COMBOBOX).toString());
|
|
m_pSelectTableField->SetSelectHdl(LINK(this, OContentFieldSelection, OnFieldSelected));
|
|
m_pSelectTableField->SetDoubleClickHdl(LINK(this, OContentFieldSelection, OnTableDoubleClicked));
|
|
}
|
|
|
|
|
|
void OContentFieldSelection::ActivatePage()
|
|
{
|
|
OLCPage::ActivatePage();
|
|
}
|
|
|
|
|
|
void OContentFieldSelection::initializePage()
|
|
{
|
|
OLCPage::initializePage();
|
|
|
|
// fill the list of fields
|
|
fillListBox(*m_pSelectTableField, getTableFields(true));
|
|
|
|
m_pSelectTableField->SelectEntry(getSettings().sListContentField);
|
|
m_pDisplayedField->SetText(getSettings().sListContentField);
|
|
}
|
|
|
|
|
|
bool OContentFieldSelection::canAdvance() const
|
|
{
|
|
if (!OLCPage::canAdvance())
|
|
return false;
|
|
|
|
return 0 != m_pSelectTableField->GetSelectEntryCount();
|
|
}
|
|
|
|
|
|
IMPL_LINK( OContentFieldSelection, OnTableDoubleClicked, ListBox*, /*NOTINTERESTEDIN*/ )
|
|
{
|
|
if (m_pSelectTableField->GetSelectEntryCount())
|
|
getDialog()->travelNext();
|
|
return 0L;
|
|
}
|
|
|
|
|
|
IMPL_LINK( OContentFieldSelection, OnFieldSelected, ListBox*, /*NOTINTERESTEDIN*/ )
|
|
{
|
|
updateDialogTravelUI();
|
|
m_pDisplayedField->SetText(m_pSelectTableField->GetSelectEntry());
|
|
return 0L;
|
|
}
|
|
|
|
|
|
bool OContentFieldSelection::commitPage( ::svt::WizardTypes::CommitPageReason _eReason )
|
|
{
|
|
if (!OLCPage::commitPage(_eReason))
|
|
return false;
|
|
|
|
getSettings().sListContentField = m_pSelectTableField->GetSelectEntry();
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
//= OLinkFieldsPage
|
|
|
|
|
|
OLinkFieldsPage::OLinkFieldsPage( OListComboWizard* _pParent )
|
|
:OLCPage(_pParent, "FieldLinkPage", "modules/sabpilot/ui/fieldlinkpage.ui")
|
|
{
|
|
get(m_pValueListField, "valuefield");
|
|
get(m_pTableField, "listtable");
|
|
|
|
m_pValueListField->SetModifyHdl(LINK(this, OLinkFieldsPage, OnSelectionModified));
|
|
m_pTableField->SetModifyHdl(LINK(this, OLinkFieldsPage, OnSelectionModified));
|
|
m_pValueListField->SetSelectHdl(LINK(this, OLinkFieldsPage, OnSelectionModified));
|
|
m_pTableField->SetSelectHdl(LINK(this, OLinkFieldsPage, OnSelectionModified));
|
|
}
|
|
|
|
|
|
void OLinkFieldsPage::ActivatePage()
|
|
{
|
|
OLCPage::ActivatePage();
|
|
m_pValueListField->GrabFocus();
|
|
}
|
|
|
|
|
|
void OLinkFieldsPage::initializePage()
|
|
{
|
|
OLCPage::initializePage();
|
|
|
|
// fill the value list
|
|
fillListBox(*m_pValueListField, getContext().aFieldNames);
|
|
// fill the table field list
|
|
fillListBox(*m_pTableField, getTableFields(true));
|
|
|
|
// the initial selections
|
|
m_pValueListField->SetText(getSettings().sLinkedFormField);
|
|
m_pTableField->SetText(getSettings().sLinkedListField);
|
|
|
|
implCheckFinish();
|
|
}
|
|
|
|
|
|
bool OLinkFieldsPage::canAdvance() const
|
|
{
|
|
// we're on the last page here, no travelNext allowed ...
|
|
return false;
|
|
}
|
|
|
|
|
|
void OLinkFieldsPage::implCheckFinish()
|
|
{
|
|
bool bInvalidSelection = (COMBOBOX_ENTRY_NOTFOUND == m_pValueListField->GetEntryPos(m_pValueListField->GetText()));
|
|
bInvalidSelection |= (COMBOBOX_ENTRY_NOTFOUND == m_pTableField->GetEntryPos(m_pTableField->GetText()));
|
|
getDialog()->enableButtons(WZB_FINISH, !bInvalidSelection);
|
|
}
|
|
|
|
|
|
IMPL_LINK_NOARG(OLinkFieldsPage, OnSelectionModified)
|
|
{
|
|
implCheckFinish();
|
|
return 0L;
|
|
}
|
|
|
|
|
|
bool OLinkFieldsPage::commitPage( ::svt::WizardTypes::CommitPageReason _eReason )
|
|
{
|
|
if (!OLCPage::commitPage(_eReason))
|
|
return false;
|
|
|
|
getSettings().sLinkedFormField = m_pValueListField->GetText();
|
|
getSettings().sLinkedListField = m_pTableField->GetText();
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
//= OComboDBFieldPage
|
|
|
|
|
|
OComboDBFieldPage::OComboDBFieldPage( OControlWizard* _pParent )
|
|
:ODBFieldPage(_pParent)
|
|
{
|
|
setDescriptionText(ModuleRes(RID_STR_COMBOWIZ_DBFIELD).toString());
|
|
}
|
|
|
|
|
|
OUString& OComboDBFieldPage::getDBFieldSetting()
|
|
{
|
|
return getSettings().sLinkedFormField;
|
|
}
|
|
|
|
|
|
void OComboDBFieldPage::ActivatePage()
|
|
{
|
|
ODBFieldPage::ActivatePage();
|
|
getDialog()->enableButtons(WZB_FINISH, true);
|
|
}
|
|
|
|
|
|
bool OComboDBFieldPage::canAdvance() const
|
|
{
|
|
// we're on the last page here, no travelNext allowed ...
|
|
return false;
|
|
}
|
|
|
|
|
|
} // namespace dbp
|
|
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|