1 /**************************************************************
2 *
3 * Licensed to the Apache Software Foundation (ASF) under one
4 * or more contributor license agreements. See the NOTICE file
5 * distributed with this work for additional information
6 * regarding copyright ownership. The ASF licenses this file
7 * to you under the Apache License, Version 2.0 (the
8 * "License"); you may not use this file except in compliance
9 * with the License. You may obtain a copy of the License at
10 *
11 * http://www.apache.org/licenses/LICENSE-2.0
12 *
13 * Unless required by applicable law or agreed to in writing,
14 * software distributed under the License is distributed on an
15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16 * KIND, either express or implied. See the License for the
17 * specific language governing permissions and limitations
18 * under the License.
19 *
20 *************************************************************/
21
22
23
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_dbaccess.hxx"
26 #ifndef DBAUI_QUERYORDER_HRC
27 #include "queryorder.hrc"
28 #endif
29 #ifndef DBAUI_QUERYORDER_HXX
30 #include "queryorder.hxx"
31 #endif
32
33 #ifndef DBACCESS_SHARED_DBUSTRINGS_HRC
34 #include "dbustrings.hrc"
35 #endif
36
37 #ifndef _COM_SUN_STAR_SDB_XSINGLESELECTQUERYCOMPOSER_HPP_
38 #include <com/sun/star/sdb/XSingleSelectQueryComposer.hpp>
39 #endif
40 #ifndef _COM_SUN_STAR_SDBC_COLUMNSEARCH_HPP_
41 #include <com/sun/star/sdbc/ColumnSearch.hpp>
42 #endif
43 #ifndef _COM_SUN_STAR_CONTAINER_XNAMEACCESS_HPP_
44 #include <com/sun/star/container/XNameAccess.hpp>
45 #endif
46 #ifndef _TOOLS_DEBUG_HXX
47 #include <tools/debug.hxx>
48 #endif
49 #ifndef _DBAUI_MODULE_DBU_HXX_
50 #include "moduledbu.hxx"
51 #endif
52 #ifndef _CONNECTIVITY_PARSE_SQLITERATOR_HXX_
53 #include <connectivity/sqliterator.hxx>
54 #endif
55 #ifndef _CONNECTIVITY_DBTOOLS_HXX_
56 #include <connectivity/dbtools.hxx>
57 #endif
58 #ifndef _COMPHELPER_EXTRACT_HXX_
59 #include <comphelper/extract.hxx>
60 #endif
61 #ifndef _COM_SUN_STAR_SDBCX_XCOLUMNSSUPPLIER_HPP_
62 #include <com/sun/star/sdbcx/XColumnsSupplier.hpp>
63 #endif
64
65 #ifndef TOOLS_DIAGNOSE_EX_H
66 #include <tools/diagnose_ex.h>
67 #endif
68
69 #include <algorithm>
70
71
72 using namespace dbaui;
73 using namespace connectivity;
74 using namespace ::com::sun::star::uno;
75 using namespace ::com::sun::star::container;
76 using namespace ::com::sun::star::util;
77 using namespace ::com::sun::star::sdb;
78 using namespace ::com::sun::star::sdbc;
79 using namespace ::com::sun::star::sdbcx;
80 using namespace ::com::sun::star::beans;
81
DBG_NAME(DlgOrderCrit)82 DBG_NAME(DlgOrderCrit)
83 //------------------------------------------------------------------------------
84 DlgOrderCrit::DlgOrderCrit( Window * pParent,
85 const Reference< XConnection>& _rxConnection,
86 const Reference< XSingleSelectQueryComposer >& _rxComposer,
87 const Reference< XNameAccess>& _rxCols)
88 :ModalDialog( pParent, ModuleRes(DLG_ORDERCRIT) )
89 ,aLB_ORDERFIELD1( this, ModuleRes( LB_ORDERFIELD1 ) )
90 ,aLB_ORDERVALUE1( this, ModuleRes( LB_ORDERVALUE1 ) )
91 ,aLB_ORDERFIELD2( this, ModuleRes( LB_ORDERFIELD2 ) )
92 ,aLB_ORDERVALUE2( this, ModuleRes( LB_ORDERVALUE2 ) )
93 ,aLB_ORDERFIELD3( this, ModuleRes( LB_ORDERFIELD3 ) )
94 ,aLB_ORDERVALUE3( this, ModuleRes( LB_ORDERVALUE3 ) )
95 ,aFT_ORDERFIELD( this, ModuleRes( FT_ORDERFIELD ) )
96 ,aFT_ORDERAFTER1( this, ModuleRes( FT_ORDERAFTER1 ) )
97 ,aFT_ORDERAFTER2( this, ModuleRes( FT_ORDERAFTER2 ) )
98 ,aFT_ORDEROPER( this, ModuleRes( FT_ORDEROPER ) )
99 ,aFT_ORDERDIR( this, ModuleRes( FT_ORDERDIR ) )
100 ,aBT_OK( this, ModuleRes( BT_OK ) )
101 ,aBT_CANCEL( this, ModuleRes( BT_CANCEL ) )
102 ,aBT_HELP( this, ModuleRes( BT_HELP ) )
103 ,aFL_ORDER( this, ModuleRes( FL_ORDER ) )
104 ,aSTR_NOENTRY( ModuleRes( STR_NOENTRY ) )
105 ,m_xQueryComposer( _rxComposer )
106 ,m_xColumns(_rxCols)
107 ,m_xConnection(_rxConnection)
108 {
109 DBG_CTOR(DlgOrderCrit,NULL);
110
111 AllSettings aSettings( GetSettings() );
112 StyleSettings aStyle( aSettings.GetStyleSettings() );
113 aStyle.SetAutoMnemonic( sal_False );
114 aSettings.SetStyleSettings( aStyle );
115 SetSettings( aSettings );
116
117 m_aColumnList[0] = &aLB_ORDERFIELD1;
118 m_aColumnList[1] = &aLB_ORDERFIELD2;
119 m_aColumnList[2] = &aLB_ORDERFIELD3;
120
121 m_aValueList[0] = &aLB_ORDERVALUE1;
122 m_aValueList[1] = &aLB_ORDERVALUE2;
123 m_aValueList[2] = &aLB_ORDERVALUE3;
124
125 xub_StrLen j;
126 for(j=0 ; j < DOG_ROWS ; j++ )
127 {
128 m_aColumnList[j]->InsertEntry( aSTR_NOENTRY );
129 }
130
131 for( j=0 ; j < DOG_ROWS ; j++ )
132 {
133 m_aColumnList[j]->SelectEntryPos(0);
134 m_aValueList[j]->SelectEntryPos(0);
135 }
136 try
137 {
138 // ... sowie auch die restlichen Felder
139 Sequence< ::rtl::OUString> aNames = m_xColumns->getElementNames();
140 const ::rtl::OUString* pIter = aNames.getConstArray();
141 const ::rtl::OUString* pEnd = pIter + aNames.getLength();
142 Reference<XPropertySet> xColumn;
143 for(;pIter != pEnd;++pIter)
144 {
145 xColumn.set(m_xColumns->getByName(*pIter),UNO_QUERY);
146 OSL_ENSURE(xColumn.is(),"Column is null!");
147 if ( xColumn.is() )
148 {
149 sal_Int32 nDataType = 0;
150 xColumn->getPropertyValue(PROPERTY_TYPE) >>= nDataType;
151 sal_Int32 eColumnSearch = dbtools::getSearchColumnFlag(m_xConnection,nDataType);
152 if(eColumnSearch != ColumnSearch::NONE)
153 {
154 for( j=0 ; j < DOG_ROWS ; j++ )
155 {
156 m_aColumnList[j]->InsertEntry(*pIter);
157 }
158 }
159 }
160 }
161
162 m_sOrgOrder = m_xQueryComposer->getOrder();
163 impl_initializeOrderList_nothrow();
164 }
165 catch(const Exception&)
166 {
167 DBG_UNHANDLED_EXCEPTION();
168 }
169 EnableLines();
170
171 aLB_ORDERFIELD1.SetSelectHdl(LINK(this,DlgOrderCrit,FieldListSelectHdl));
172 aLB_ORDERFIELD2.SetSelectHdl(LINK(this,DlgOrderCrit,FieldListSelectHdl));
173
174 FreeResource();
175
176 }
177
178 //------------------------------------------------------------------------------
179
180 #define LbText(x) ((x).GetSelectEntry())
181 #define LbPos(x) ((x).GetSelectEntryPos())
182
183 //------------------------------------------------------------------------------
~DlgOrderCrit()184 DlgOrderCrit::~DlgOrderCrit()
185 {
186 DBG_DTOR(DlgOrderCrit,NULL);
187 }
188
189 //------------------------------------------------------------------------------
190 IMPL_LINK_INLINE_START( DlgOrderCrit, FieldListSelectHdl, ListBox *, /*pListBox*/ )
191 {
192 DBG_CHKTHIS(DlgOrderCrit,NULL);
193 EnableLines();
194 return 0;
195 }
IMPL_LINK_INLINE_END(DlgOrderCrit,FieldListSelectHdl,ListBox *,pListBox)196 IMPL_LINK_INLINE_END( DlgOrderCrit, FieldListSelectHdl, ListBox *, pListBox )
197
198 //------------------------------------------------------------------------------
199 void DlgOrderCrit::impl_initializeOrderList_nothrow()
200 {
201 try
202 {
203 const ::rtl::OUString sNameProperty = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Name" ) );
204 const ::rtl::OUString sAscendingProperty = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "IsAscending" ) );
205
206 Reference< XIndexAccess > xOrderColumns( m_xQueryComposer->getOrderColumns(), UNO_QUERY_THROW );
207 sal_Int32 nColumns = xOrderColumns->getCount();
208 if ( nColumns > DOG_ROWS )
209 nColumns = DOG_ROWS;
210
211 for ( sal_Int32 i = 0; i < nColumns; ++i )
212 {
213 Reference< XPropertySet > xColumn( xOrderColumns->getByIndex( i ), UNO_QUERY_THROW );
214
215 ::rtl::OUString sColumnName;
216 sal_Bool bIsAscending( sal_True );
217
218 xColumn->getPropertyValue( sNameProperty ) >>= sColumnName;
219 xColumn->getPropertyValue( sAscendingProperty ) >>= bIsAscending;
220
221 m_aColumnList[i]->SelectEntry( sColumnName );
222 m_aValueList[i]->SelectEntryPos( bIsAscending ? 0 : 1 );
223 }
224 }
225 catch( const Exception& )
226 {
227 DBG_UNHANDLED_EXCEPTION();
228 }
229 }
230
231 //------------------------------------------------------------------------------
EnableLines()232 void DlgOrderCrit::EnableLines()
233 {
234 DBG_CHKTHIS(DlgOrderCrit,NULL);
235
236 if ( aLB_ORDERFIELD1.GetSelectEntryPos() == 0 )
237 {
238 aLB_ORDERFIELD2.Disable();
239 aLB_ORDERVALUE2.Disable();
240
241 aLB_ORDERFIELD2.SelectEntryPos( 0 );
242 aLB_ORDERVALUE2.SelectEntryPos( 0 );
243 }
244 else
245 {
246 aLB_ORDERFIELD2.Enable();
247 aLB_ORDERVALUE2.Enable();
248 }
249
250 if ( aLB_ORDERFIELD2.GetSelectEntryPos() == 0 )
251 {
252 aLB_ORDERFIELD3.Disable();
253 aLB_ORDERVALUE3.Disable();
254
255 aLB_ORDERFIELD3.SelectEntryPos( 0 );
256 aLB_ORDERVALUE3.SelectEntryPos( 0 );
257 }
258 else
259 {
260 aLB_ORDERFIELD3.Enable();
261 aLB_ORDERVALUE3.Enable();
262 }
263 }
264
265 //------------------------------------------------------------------------------
GetOrderList() const266 ::rtl::OUString DlgOrderCrit::GetOrderList( ) const
267 {
268 DBG_CHKTHIS(DlgOrderCrit,NULL);
269 Reference<XDatabaseMetaData> xMetaData = m_xConnection->getMetaData();
270 ::rtl::OUString sQuote = xMetaData.is() ? xMetaData->getIdentifierQuoteString() : ::rtl::OUString();
271 static const ::rtl::OUString sDESC = ::rtl::OUString::createFromAscii(" DESC ");
272 static const ::rtl::OUString sASC = ::rtl::OUString::createFromAscii(" ASC ");
273
274 Reference< XNameAccess> xColumns = Reference< XColumnsSupplier >(m_xQueryComposer,UNO_QUERY)->getColumns();
275
276 ::rtl::OUString sOrder;
277 for( sal_uInt16 i=0 ; i<DOG_ROWS; i++ )
278 {
279 if(m_aColumnList[i]->GetSelectEntryPos() != 0)
280 {
281 if(sOrder.getLength())
282 sOrder += ::rtl::OUString::createFromAscii(",");
283
284 String sName = m_aColumnList[i]->GetSelectEntry();
285 try
286 {
287 sal_Bool bFunction = sal_False;
288 Reference< XPropertySet > xColumn;
289 if ( xColumns.is() && xColumns->hasByName( sName ) && (xColumns->getByName( sName ) >>= xColumn) && xColumn.is() )
290 {
291 if ( xColumn->getPropertySetInfo()->hasPropertyByName(PROPERTY_REALNAME) )
292 {
293 ::rtl::OUString sRealName;
294 xColumn->getPropertyValue(PROPERTY_REALNAME) >>= sRealName;
295 sName = sRealName;
296 static ::rtl::OUString sAgg(RTL_CONSTASCII_USTRINGPARAM("AggregateFunction"));
297 static ::rtl::OUString sFunction(RTL_CONSTASCII_USTRINGPARAM("Function"));
298 if ( xColumn->getPropertySetInfo()->hasPropertyByName(sFunction) )
299 xColumn->getPropertyValue(sFunction) >>= bFunction;
300 }
301 }
302 if ( bFunction )
303 sOrder += sName;
304 else
305 sOrder += ::dbtools::quoteName(sQuote,sName);
306 }
307 catch(Exception)
308 {
309 }
310 if(m_aValueList[i]->GetSelectEntryPos())
311 sOrder += sDESC;
312 else
313 sOrder += sASC;
314 }
315 }
316 return sOrder;
317 }
318
319 //------------------------------------------------------------------------------
BuildOrderPart()320 void DlgOrderCrit::BuildOrderPart()
321 {
322 DBG_CHKTHIS(DlgOrderCrit,NULL);
323 m_xQueryComposer->setOrder(GetOrderList());
324 }
325 // -----------------------------------------------------------------------------
326
327
328
329
330
331