Line data Source code
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 "listcombowizard.hxx"
21 : #include "commonpagesdbp.hxx"
22 : #include <com/sun/star/sdbc/XConnection.hpp>
23 : #include <com/sun/star/sdbcx/XTablesSupplier.hpp>
24 : #include <com/sun/star/container/XNameAccess.hpp>
25 : #include <com/sun/star/form/ListSourceType.hpp>
26 : #include <com/sun/star/sdbcx/XColumnsSupplier.hpp>
27 : #include <tools/debug.hxx>
28 : #include <vcl/msgbox.hxx>
29 : #include <connectivity/dbtools.hxx>
30 : #include "dbpilots.hrc"
31 : #include <comphelper/extract.hxx>
32 :
33 :
34 : namespace dbp
35 : {
36 :
37 :
38 : using namespace ::com::sun::star::uno;
39 : using namespace ::com::sun::star::lang;
40 : using namespace ::com::sun::star::beans;
41 : using namespace ::com::sun::star::sdbc;
42 : using namespace ::com::sun::star::sdbcx;
43 : using namespace ::com::sun::star::container;
44 : using namespace ::com::sun::star::form;
45 : using namespace ::svt;
46 : using namespace ::dbtools;
47 :
48 :
49 : //= OListComboWizard
50 :
51 :
52 0 : OListComboWizard::OListComboWizard( vcl::Window* _pParent,
53 : const Reference< XPropertySet >& _rxObjectModel, const Reference< XComponentContext >& _rxContext )
54 : :OControlWizard(_pParent, _rxObjectModel, _rxContext)
55 : ,m_bListBox(false)
56 0 : ,m_bHadDataSelection(true)
57 : {
58 0 : initControlSettings(&m_aSettings);
59 :
60 0 : m_pPrevPage->SetHelpId(HID_LISTWIZARD_PREVIOUS);
61 0 : m_pNextPage->SetHelpId(HID_LISTWIZARD_NEXT);
62 0 : m_pCancel->SetHelpId(HID_LISTWIZARD_CANCEL);
63 0 : m_pFinish->SetHelpId(HID_LISTWIZARD_FINISH);
64 :
65 : // if we do not need the data source selection page ...
66 0 : if (!needDatasourceSelection())
67 : { // ... skip it!
68 0 : skip(1);
69 0 : m_bHadDataSelection = false;
70 : }
71 0 : }
72 :
73 :
74 0 : bool OListComboWizard::approveControl(sal_Int16 _nClassId)
75 : {
76 0 : switch (_nClassId)
77 : {
78 : case FormComponentType::LISTBOX:
79 0 : m_bListBox = true;
80 0 : setTitleBase(ModuleRes(RID_STR_LISTWIZARD_TITLE).toString());
81 0 : return true;
82 : case FormComponentType::COMBOBOX:
83 0 : m_bListBox = false;
84 0 : setTitleBase(ModuleRes(RID_STR_COMBOWIZARD_TITLE).toString());
85 0 : return true;
86 : }
87 0 : return false;
88 : }
89 :
90 :
91 0 : OWizardPage* OListComboWizard::createPage(WizardState _nState)
92 : {
93 0 : switch (_nState)
94 : {
95 : case LCW_STATE_DATASOURCE_SELECTION:
96 0 : return new OTableSelectionPage(this);
97 : case LCW_STATE_TABLESELECTION:
98 0 : return new OContentTableSelection(this);
99 : case LCW_STATE_FIELDSELECTION:
100 0 : return new OContentFieldSelection(this);
101 : case LCW_STATE_FIELDLINK:
102 0 : return new OLinkFieldsPage(this);
103 : case LCW_STATE_COMBODBFIELD:
104 0 : return new OComboDBFieldPage(this);
105 : }
106 :
107 0 : return NULL;
108 : }
109 :
110 :
111 0 : WizardTypes::WizardState OListComboWizard::determineNextState( WizardState _nCurrentState ) const
112 : {
113 0 : switch (_nCurrentState)
114 : {
115 : case LCW_STATE_DATASOURCE_SELECTION:
116 0 : return LCW_STATE_TABLESELECTION;
117 : case LCW_STATE_TABLESELECTION:
118 0 : return LCW_STATE_FIELDSELECTION;
119 : case LCW_STATE_FIELDSELECTION:
120 0 : return getFinalState();
121 : }
122 :
123 0 : return WZS_INVALID_STATE;
124 : }
125 :
126 :
127 0 : void OListComboWizard::enterState(WizardState _nState)
128 : {
129 0 : OControlWizard::enterState(_nState);
130 :
131 0 : enableButtons(WZB_PREVIOUS, m_bHadDataSelection ? (LCW_STATE_DATASOURCE_SELECTION < _nState) : LCW_STATE_TABLESELECTION < _nState);
132 0 : enableButtons(WZB_NEXT, getFinalState() != _nState);
133 0 : if (_nState < getFinalState())
134 0 : enableButtons(WZB_FINISH, false);
135 :
136 0 : if (getFinalState() == _nState)
137 0 : defaultButton(WZB_FINISH);
138 0 : }
139 :
140 :
141 0 : bool OListComboWizard::leaveState(WizardState _nState)
142 : {
143 0 : if (!OControlWizard::leaveState(_nState))
144 0 : return false;
145 :
146 0 : if (getFinalState() == _nState)
147 0 : defaultButton(WZB_NEXT);
148 :
149 0 : return true;
150 : }
151 :
152 :
153 0 : void OListComboWizard::implApplySettings()
154 : {
155 : try
156 : {
157 : // for quoting identifiers, we need the connection meta data
158 0 : Reference< XConnection > xConn = getFormConnection();
159 : DBG_ASSERT(xConn.is(), "OListComboWizard::implApplySettings: no connection, unable to quote!");
160 0 : Reference< XDatabaseMetaData > xMetaData;
161 0 : if (xConn.is())
162 0 : xMetaData = xConn->getMetaData();
163 :
164 : // do some quotings
165 0 : if (xMetaData.is())
166 : {
167 0 : OUString sQuoteString = xMetaData->getIdentifierQuoteString();
168 0 : if (isListBox()) // only when we have a listbox this should be not empty
169 0 : getSettings().sLinkedListField = quoteName(sQuoteString, getSettings().sLinkedListField);
170 :
171 0 : OUString sCatalog, sSchema, sName;
172 0 : ::dbtools::qualifiedNameComponents( xMetaData, getSettings().sListContentTable, sCatalog, sSchema, sName, ::dbtools::eInDataManipulation );
173 0 : getSettings().sListContentTable = ::dbtools::composeTableNameForSelect( xConn, sCatalog, sSchema, sName );
174 :
175 0 : getSettings().sListContentField = quoteName(sQuoteString, getSettings().sListContentField);
176 : }
177 :
178 : // ListSourceType: SQL
179 0 : getContext().xObjectModel->setPropertyValue("ListSourceType", makeAny((sal_Int32)ListSourceType_SQL));
180 :
181 0 : if (isListBox())
182 : {
183 : // BoundColumn: 1
184 0 : getContext().xObjectModel->setPropertyValue("BoundColumn", makeAny((sal_Int16)1));
185 :
186 : // build the statement to set as list source
187 0 : OUString sStatement = "SELECT " +
188 0 : OUString( getSettings().sListContentField ) + ", " + OUString( getSettings().sLinkedListField ) +
189 0 : " FROM " + OUString( getSettings().sListContentTable );
190 0 : Sequence< OUString > aListSource(1);
191 0 : aListSource[0] = sStatement;
192 0 : getContext().xObjectModel->setPropertyValue("ListSource", makeAny(aListSource));
193 : }
194 : else
195 : {
196 : // build the statement to set as list source
197 0 : OUString sStatement = "SELECT DISTINCT " +
198 0 : OUString( getSettings().sListContentField ) +
199 0 : " FROM " + OUString( getSettings().sListContentTable );
200 0 : getContext().xObjectModel->setPropertyValue( "ListSource", makeAny(OUString(sStatement)));
201 : }
202 :
203 : // the bound field
204 0 : getContext().xObjectModel->setPropertyValue("DataField", makeAny(OUString(getSettings().sLinkedFormField)));
205 : }
206 0 : catch(const Exception&)
207 : {
208 : OSL_FAIL("OListComboWizard::implApplySettings: could not set the property values for the listbox!");
209 : }
210 0 : }
211 :
212 :
213 0 : bool OListComboWizard::onFinish()
214 : {
215 0 : if ( !OControlWizard::onFinish() )
216 0 : return false;
217 :
218 0 : implApplySettings();
219 0 : return true;
220 : }
221 :
222 :
223 : //= OLCPage
224 :
225 :
226 0 : Reference< XNameAccess > OLCPage::getTables(bool _bNeedIt)
227 : {
228 0 : Reference< XConnection > xConn = getFormConnection();
229 : DBG_ASSERT(!_bNeedIt || xConn.is(), "OLCPage::getTables: should have an active connection when reaching this page!");
230 : (void)_bNeedIt;
231 :
232 0 : Reference< XTablesSupplier > xSuppTables(xConn, UNO_QUERY);
233 0 : Reference< XNameAccess > xTables;
234 0 : if (xSuppTables.is())
235 0 : xTables = xSuppTables->getTables();
236 :
237 : DBG_ASSERT(!_bNeedIt || xTables.is() || !xConn.is(), "OLCPage::getTables: got no tables from the connection!");
238 :
239 0 : return xTables;
240 : }
241 :
242 :
243 0 : Sequence< OUString > OLCPage::getTableFields(bool _bNeedIt)
244 : {
245 0 : Reference< XNameAccess > xTables = getTables(_bNeedIt);
246 0 : Sequence< OUString > aColumnNames;
247 0 : if (xTables.is())
248 : {
249 : try
250 : {
251 : // the list table as XColumnsSupplier
252 0 : Reference< XColumnsSupplier > xSuppCols;
253 0 : xTables->getByName(getSettings().sListContentTable) >>= xSuppCols;
254 : DBG_ASSERT(!_bNeedIt || xSuppCols.is(), "OLCPage::getTableFields: no columns supplier!");
255 :
256 : // the columns
257 0 : Reference< XNameAccess > xColumns;
258 0 : if (xSuppCols.is())
259 0 : xColumns = xSuppCols->getColumns();
260 :
261 : // the column names
262 0 : if (xColumns.is())
263 0 : aColumnNames = xColumns->getElementNames();
264 : }
265 0 : catch(const Exception&)
266 : {
267 : DBG_ASSERT(!_bNeedIt, "OLinkFieldsPage::initializePage: caught an exception while retrieving the columns!");
268 : }
269 : }
270 0 : return aColumnNames;
271 : }
272 :
273 :
274 : //= OContentTableSelection
275 :
276 :
277 0 : OContentTableSelection::OContentTableSelection( OListComboWizard* _pParent )
278 0 : :OLCPage(_pParent, "TableSelectionPage", "modules/sabpilot/ui/contenttablepage.ui")
279 : {
280 0 : get(m_pSelectTable, "table");
281 :
282 0 : enableFormDatasourceDisplay();
283 :
284 0 : m_pSelectTable->SetDoubleClickHdl(LINK(this, OContentTableSelection, OnTableDoubleClicked));
285 0 : m_pSelectTable->SetSelectHdl(LINK(this, OContentTableSelection, OnTableSelected));
286 0 : }
287 :
288 :
289 0 : void OContentTableSelection::ActivatePage()
290 : {
291 0 : OLCPage::ActivatePage();
292 0 : m_pSelectTable->GrabFocus();
293 0 : }
294 :
295 :
296 0 : bool OContentTableSelection::canAdvance() const
297 : {
298 0 : if (!OLCPage::canAdvance())
299 0 : return false;
300 :
301 0 : return 0 != m_pSelectTable->GetSelectEntryCount();
302 : }
303 :
304 :
305 0 : IMPL_LINK( OContentTableSelection, OnTableSelected, ListBox*, /*_pListBox*/ )
306 : {
307 0 : updateDialogTravelUI();
308 0 : return 0L;
309 : }
310 :
311 :
312 0 : IMPL_LINK( OContentTableSelection, OnTableDoubleClicked, ListBox*, _pListBox )
313 : {
314 0 : if (_pListBox->GetSelectEntryCount())
315 0 : getDialog()->travelNext();
316 0 : return 0L;
317 : }
318 :
319 :
320 0 : void OContentTableSelection::initializePage()
321 : {
322 0 : OLCPage::initializePage();
323 :
324 : // fill the list with the table name
325 0 : m_pSelectTable->Clear();
326 : try
327 : {
328 0 : Reference< XNameAccess > xTables = getTables(true);
329 0 : Sequence< OUString > aTableNames;
330 0 : if (xTables.is())
331 0 : aTableNames = xTables->getElementNames();
332 0 : fillListBox(*m_pSelectTable, aTableNames);
333 : }
334 0 : catch(const Exception&)
335 : {
336 : OSL_FAIL("OContentTableSelection::initializePage: could not retrieve the table names!");
337 : }
338 :
339 0 : m_pSelectTable->SelectEntry(getSettings().sListContentTable);
340 0 : }
341 :
342 :
343 0 : bool OContentTableSelection::commitPage( ::svt::WizardTypes::CommitPageReason _eReason )
344 : {
345 0 : if (!OLCPage::commitPage(_eReason))
346 0 : return false;
347 :
348 0 : OListComboSettings& rSettings = getSettings();
349 0 : rSettings.sListContentTable = m_pSelectTable->GetSelectEntry();
350 0 : if (rSettings.sListContentTable.isEmpty() && (::svt::WizardTypes::eTravelBackward != _eReason))
351 : // need to select a table
352 0 : return false;
353 :
354 0 : return true;
355 : }
356 :
357 :
358 : //= OContentFieldSelection
359 :
360 :
361 0 : OContentFieldSelection::OContentFieldSelection( OListComboWizard* _pParent )
362 0 : :OLCPage(_pParent, "FieldSelectionPage", "modules/sabpilot/ui/contentfieldpage.ui")
363 : {
364 0 : get(m_pSelectTableField, "selectfield");
365 0 : get(m_pDisplayedField, "displayfield");
366 0 : get(m_pInfo, "info");
367 0 : m_pInfo->SetText(ModuleRes( isListBox() ? RID_STR_FIELDINFO_LISTBOX : RID_STR_FIELDINFO_COMBOBOX).toString());
368 0 : m_pSelectTableField->SetSelectHdl(LINK(this, OContentFieldSelection, OnFieldSelected));
369 0 : m_pSelectTableField->SetDoubleClickHdl(LINK(this, OContentFieldSelection, OnTableDoubleClicked));
370 0 : }
371 :
372 :
373 0 : void OContentFieldSelection::ActivatePage()
374 : {
375 0 : OLCPage::ActivatePage();
376 0 : }
377 :
378 :
379 0 : void OContentFieldSelection::initializePage()
380 : {
381 0 : OLCPage::initializePage();
382 :
383 : // fill the list of fields
384 0 : fillListBox(*m_pSelectTableField, getTableFields(true));
385 :
386 0 : m_pSelectTableField->SelectEntry(getSettings().sListContentField);
387 0 : m_pDisplayedField->SetText(getSettings().sListContentField);
388 0 : }
389 :
390 :
391 0 : bool OContentFieldSelection::canAdvance() const
392 : {
393 0 : if (!OLCPage::canAdvance())
394 0 : return false;
395 :
396 0 : return 0 != m_pSelectTableField->GetSelectEntryCount();
397 : }
398 :
399 :
400 0 : IMPL_LINK( OContentFieldSelection, OnTableDoubleClicked, ListBox*, /*NOTINTERESTEDIN*/ )
401 : {
402 0 : if (m_pSelectTableField->GetSelectEntryCount())
403 0 : getDialog()->travelNext();
404 0 : return 0L;
405 : }
406 :
407 :
408 0 : IMPL_LINK( OContentFieldSelection, OnFieldSelected, ListBox*, /*NOTINTERESTEDIN*/ )
409 : {
410 0 : updateDialogTravelUI();
411 0 : m_pDisplayedField->SetText(m_pSelectTableField->GetSelectEntry());
412 0 : return 0L;
413 : }
414 :
415 :
416 0 : bool OContentFieldSelection::commitPage( ::svt::WizardTypes::CommitPageReason _eReason )
417 : {
418 0 : if (!OLCPage::commitPage(_eReason))
419 0 : return false;
420 :
421 0 : getSettings().sListContentField = m_pSelectTableField->GetSelectEntry();
422 :
423 0 : return true;
424 : }
425 :
426 :
427 : //= OLinkFieldsPage
428 :
429 :
430 0 : OLinkFieldsPage::OLinkFieldsPage( OListComboWizard* _pParent )
431 0 : :OLCPage(_pParent, "FieldLinkPage", "modules/sabpilot/ui/fieldlinkpage.ui")
432 : {
433 0 : get(m_pValueListField, "valuefield");
434 0 : get(m_pTableField, "listtable");
435 :
436 0 : m_pValueListField->SetModifyHdl(LINK(this, OLinkFieldsPage, OnSelectionModified));
437 0 : m_pTableField->SetModifyHdl(LINK(this, OLinkFieldsPage, OnSelectionModified));
438 0 : m_pValueListField->SetSelectHdl(LINK(this, OLinkFieldsPage, OnSelectionModified));
439 0 : m_pTableField->SetSelectHdl(LINK(this, OLinkFieldsPage, OnSelectionModified));
440 0 : }
441 :
442 :
443 0 : void OLinkFieldsPage::ActivatePage()
444 : {
445 0 : OLCPage::ActivatePage();
446 0 : m_pValueListField->GrabFocus();
447 0 : }
448 :
449 :
450 0 : void OLinkFieldsPage::initializePage()
451 : {
452 0 : OLCPage::initializePage();
453 :
454 : // fill the value list
455 0 : fillListBox(*m_pValueListField, getContext().aFieldNames);
456 : // fill the table field list
457 0 : fillListBox(*m_pTableField, getTableFields(true));
458 :
459 : // the initial selections
460 0 : m_pValueListField->SetText(getSettings().sLinkedFormField);
461 0 : m_pTableField->SetText(getSettings().sLinkedListField);
462 :
463 0 : implCheckFinish();
464 0 : }
465 :
466 :
467 0 : bool OLinkFieldsPage::canAdvance() const
468 : {
469 : // we're on the last page here, no travelNext allowed ...
470 0 : return false;
471 : }
472 :
473 :
474 0 : void OLinkFieldsPage::implCheckFinish()
475 : {
476 0 : bool bInvalidSelection = (COMBOBOX_ENTRY_NOTFOUND == m_pValueListField->GetEntryPos(m_pValueListField->GetText()));
477 0 : bInvalidSelection |= (COMBOBOX_ENTRY_NOTFOUND == m_pTableField->GetEntryPos(m_pTableField->GetText()));
478 0 : getDialog()->enableButtons(WZB_FINISH, !bInvalidSelection);
479 0 : }
480 :
481 :
482 0 : IMPL_LINK_NOARG(OLinkFieldsPage, OnSelectionModified)
483 : {
484 0 : implCheckFinish();
485 0 : return 0L;
486 : }
487 :
488 :
489 0 : bool OLinkFieldsPage::commitPage( ::svt::WizardTypes::CommitPageReason _eReason )
490 : {
491 0 : if (!OLCPage::commitPage(_eReason))
492 0 : return false;
493 :
494 0 : getSettings().sLinkedFormField = m_pValueListField->GetText();
495 0 : getSettings().sLinkedListField = m_pTableField->GetText();
496 :
497 0 : return true;
498 : }
499 :
500 :
501 : //= OComboDBFieldPage
502 :
503 :
504 0 : OComboDBFieldPage::OComboDBFieldPage( OControlWizard* _pParent )
505 0 : :ODBFieldPage(_pParent)
506 : {
507 0 : setDescriptionText(ModuleRes(RID_STR_COMBOWIZ_DBFIELD).toString());
508 0 : }
509 :
510 :
511 0 : OUString& OComboDBFieldPage::getDBFieldSetting()
512 : {
513 0 : return getSettings().sLinkedFormField;
514 : }
515 :
516 :
517 0 : void OComboDBFieldPage::ActivatePage()
518 : {
519 0 : ODBFieldPage::ActivatePage();
520 0 : getDialog()->enableButtons(WZB_FINISH, true);
521 0 : }
522 :
523 :
524 0 : bool OComboDBFieldPage::canAdvance() const
525 : {
526 : // we're on the last page here, no travelNext allowed ...
527 0 : return false;
528 : }
529 :
530 :
531 0 : } // namespace dbp
532 :
533 :
534 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
