projects / wxWidgets.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Added SQL_WVARCHAR and SQL_WCHAR to the data types that the sample checks to see...
[wxWidgets.git] / samples / db / dbtest.cpp
1 ///////////////////////////////////////////////////////////////////////////////
2 // Name: dbtest.cpp
3 // Purpose: wxWidgets database demo app
4 // Author: George Tasker
5 // Modified by:
6 // Created: 1998
7 // RCS-ID: $Id$
8 // Copyright: (c) 1998 Remstar International, Inc.
9 // Licence: wxWindows licence
10 ///////////////////////////////////////////////////////////////////////////////
11
12 /*
13 * SYNOPSIS START
14
15 This sample program demonstrates the cross-platform ODBC database classes
16 donated by the development team at Remstar International.
17
18 The table this sample is based on is developer contact table, and shows
19 some of the simple uses of the database classes wxDb and wxDbTable.
20
21 * SYNOPSIS END
22 */
23
24 #ifdef __GNUG__
25 #pragma implementation "dbtest.h"
26 #endif
27
28 #include "wx/wxprec.h"
29
30 #ifdef __BORLANDC__
31 #pragma hdrstop
32 #endif //__BORLANDC__
33
34 #ifndef WX_PRECOMP
35 #include "wx/wx.h"
36 #endif //WX_PRECOMP
37
38 #if defined(__WXGTK__) || defined(__WXX11__) || defined(__WXMAC__)
39 #include "db.xpm"
40 #endif
41
42 #include <stdio.h> /* Included strictly for reading the text file with the database parameters */
43
44 //#include "wx/db.h" /* Required in the file which will get the data source connection */
45 //#include "wx/dbtable.h" /* Has the wxDbTable object from which all data objects will inherit their data table functionality */
46
47 //extern wxDbList WXDLLEXPORT *PtrBegDbList; /* from db.cpp, used in getting back error results from db connections */
48
49 #if wxUSE_GRID
50 #include "wx/grid.h"
51 #include "wx/generic/gridctrl.h"
52 #include "wx/dbgrid.h"
53
54 #define CHOICEINT
55 #endif
56
57 #include "dbtest.h" /* Header file for this demonstration program */
58 #include "listdb.h" /* Code to support the "Lookup" button on the editor dialog */
59
60 IMPLEMENT_APP(DatabaseDemoApp)
61
62 extern wxChar ListDB_Selection[]; /* Used to return the first column value for the selected line from the listDB routines */
63 extern wxChar ListDB_Selection2[]; /* Used to return the second column value for the selected line from the listDB routines */
64
65 #ifdef wxODBC_BLOB_SUPPORT
66 #include "wx/file.h"
67 #include "wx/mstream.h"
68 #include "wx/image.h"
69 #include "wx/bitmap.h"
70 #include "wx/statbmp.h"
71 #endif
72
73 #if !wxUSE_ODBC
74 #error Sample cannot be compiled unless setup.h has wxUSE_ODBC set to 1
75 #endif
76
77
78 bool DataTypeSupported(wxDb *pDb, SWORD datatype, wxString *nativeDataTypeName)
79 {
80 wxDbSqlTypeInfo sqlTypeInfo;
81
82 bool breakpoint = false;
83
84 *nativeDataTypeName = wxEmptyString;
85 if (pDb->GetDataTypeInfo(datatype, sqlTypeInfo))
86 {
87 *nativeDataTypeName = sqlTypeInfo.TypeName;
88 breakpoint = true;
89 }
90
91 return breakpoint;
92
93 } // GetDataTypesSupported();
94
95
96
97 void CheckSupportForAllDataTypes(wxDb *pDb)
98 {
99 wxString nativeDataTypeName;
100
101 wxLogMessage(wxT("\nThe following datatypes are supported by the\ndatabase you are currently connected to:"));
102 #ifdef SQL_C_BINARY
103 if (DataTypeSupported(pDb,SQL_C_BINARY, &nativeDataTypeName))
104 {
105 nativeDataTypeName = wxT("SQL_C_BINARY (") + nativeDataTypeName;
106 nativeDataTypeName += wxT(")\n");
107 wxLogMessage(nativeDataTypeName);
108 }
109 #endif
110 #ifdef SQL_C_BIT
111 if (DataTypeSupported(pDb,SQL_C_BIT, &nativeDataTypeName))
112 {
113 nativeDataTypeName = wxT("SQL_C_BIT (") + nativeDataTypeName;
114 nativeDataTypeName += wxT(")\n");
115 wxLogMessage(nativeDataTypeName);
116 }
117 #endif
118 #ifdef SQL_C_BOOKMARK
119 if (DataTypeSupported(pDb,SQL_C_BOOKMARK, &nativeDataTypeName))
120 {
121 nativeDataTypeName = wxT("SQL_C_BOOKMARK (") + nativeDataTypeName;
122 nativeDataTypeName += wxT(")\n");
123 wxLogMessage(nativeDataTypeName);
124 }
125 #endif
126 #ifdef SQL_C_CHAR
127 if (DataTypeSupported(pDb,SQL_C_CHAR, &nativeDataTypeName))
128 {
129 nativeDataTypeName = wxT("SQL_C_CHAR (") + nativeDataTypeName;
130 nativeDataTypeName += wxT(")\n");
131 wxLogMessage(nativeDataTypeName);
132 }
133 #endif
134 #ifdef SQL_C_DATE
135 if (DataTypeSupported(pDb,SQL_C_DATE, &nativeDataTypeName))
136 {
137 nativeDataTypeName = wxT("SQL_C_DATE (") + nativeDataTypeName;
138 nativeDataTypeName += wxT(")\n");
139 wxLogMessage(nativeDataTypeName);
140 }
141 #endif
142 #ifdef SQL_C_DEFAULT
143 if (DataTypeSupported(pDb,SQL_C_DEFAULT, &nativeDataTypeName))
144 {
145 nativeDataTypeName = wxT("SQL_C_DEFAULT (") + nativeDataTypeName;
146 nativeDataTypeName += wxT(")\n");
147 wxLogMessage(nativeDataTypeName);
148 }
149 #endif
150 #ifdef SQL_C_DOUBLE
151 if (DataTypeSupported(pDb,SQL_C_DOUBLE, &nativeDataTypeName))
152 {
153 nativeDataTypeName = wxT("SQL_C_DOUBLE (") + nativeDataTypeName;
154 nativeDataTypeName += wxT(")\n");
155 wxLogMessage(nativeDataTypeName);
156 }
157 #endif
158 #ifdef SQL_C_FLOAT
159 if (DataTypeSupported(pDb,SQL_C_FLOAT, &nativeDataTypeName))
160 {
161 nativeDataTypeName = wxT("SQL_C_FLOAT (") + nativeDataTypeName;
162 nativeDataTypeName += wxT(")\n");
163 wxLogMessage(nativeDataTypeName);
164 }
165 #endif
166 #ifdef SQL_C_GUID
167 if (DataTypeSupported(pDb,SQL_C_GUID, &nativeDataTypeName))
168 {
169 nativeDataTypeName = wxT("SQL_C_GUID (") + nativeDataTypeName;
170 nativeDataTypeName += wxT(")\n");
171 wxLogMessage(nativeDataTypeName);
172 }
173 #endif
174 #ifdef SQL_C_INTERVAL_DAY
175 if (DataTypeSupported(pDb,SQL_C_INTERVAL_DAY, &nativeDataTypeName))
176 {
177 nativeDataTypeName = wxT("SQL_C_INTERVAL_DAY (") + nativeDataTypeName;
178 nativeDataTypeName += wxT(")\n");
179 wxLogMessage(nativeDataTypeName);
180 }
181 #endif
182 #ifdef SQL_C_INTERVAL_DAY_TO_HOUR
183 if (DataTypeSupported(pDb,SQL_C_INTERVAL_DAY_TO_HOUR, &nativeDataTypeName))
184 {
185 nativeDataTypeName = wxT("SQL_C_INTERVAL_DAY_TO_HOUR (") + nativeDataTypeName;
186 nativeDataTypeName += wxT(")\n");
187 wxLogMessage(nativeDataTypeName);
188 }
189 #endif
190 #ifdef SQL_C_INTERVAL_DAY_TO_MINUTE
191 if (DataTypeSupported(pDb,SQL_C_INTERVAL_DAY_TO_MINUTE, &nativeDataTypeName))
192 {
193 nativeDataTypeName = wxT("SQL_C_INTERVAL_DAY_TO_MINUTE (") + nativeDataTypeName;
194 nativeDataTypeName += wxT(")\n");
195 wxLogMessage(nativeDataTypeName);
196 }
197 #endif
198 #ifdef SQL_C_INTERVAL_DAY_TO_SECOND
199 if (DataTypeSupported(pDb,SQL_C_INTERVAL_DAY_TO_SECOND, &nativeDataTypeName))
200 {
201 nativeDataTypeName = wxT("SQL_C_INTERVAL_DAY_TO_SECOND (") + nativeDataTypeName;
202 nativeDataTypeName += wxT(")\n");
203 wxLogMessage(nativeDataTypeName);
204 }
205 #endif
206 #ifdef SQL_C_INTERVAL_HOUR
207 if (DataTypeSupported(pDb,SQL_C_INTERVAL_HOUR, &nativeDataTypeName))
208 {
209 nativeDataTypeName = wxT("SQL_C_INTERVAL_HOUR (") + nativeDataTypeName;
210 nativeDataTypeName += wxT(")\n");
211 wxLogMessage(nativeDataTypeName);
212 }
213 #endif
214 #ifdef SQL_C_INTERVAL_HOUR_TO_MINUTE
215 if (DataTypeSupported(pDb,SQL_C_INTERVAL_HOUR_TO_MINUTE, &nativeDataTypeName))
216 {
217 nativeDataTypeName = wxT("SQL_C_INTERVAL_HOUR_TO_MINUTE (") + nativeDataTypeName;
218 nativeDataTypeName += wxT(")\n");
219 wxLogMessage(nativeDataTypeName);
220 }
221 #endif
222 #ifdef SQL_C_INTERVAL_HOUR_TO_SECOND
223 if (DataTypeSupported(pDb,SQL_C_INTERVAL_HOUR_TO_SECOND, &nativeDataTypeName))
224 {
225 nativeDataTypeName = wxT("SQL_C_INTERVAL_HOUR_TO_SECOND (") + nativeDataTypeName;
226 nativeDataTypeName += wxT(")\n");
227 wxLogMessage(nativeDataTypeName);
228 }
229 #endif
230 #ifdef SQL_C_INTERVAL_MINUTE
231 if (DataTypeSupported(pDb,SQL_C_INTERVAL_MINUTE, &nativeDataTypeName))
232 {
233 nativeDataTypeName = wxT("SQL_C_INTERVAL_MINUTE (") + nativeDataTypeName;
234 nativeDataTypeName += wxT(")\n");
235 wxLogMessage(nativeDataTypeName);
236 }
237 #endif
238 #ifdef SQL_C_INTERVAL_MINUTE_TO_SECOND
239 if (DataTypeSupported(pDb,SQL_C_INTERVAL_MINUTE_TO_SECOND, &nativeDataTypeName))
240 {
241 nativeDataTypeName = wxT("SQL_C_INTERVAL_MINUTE_TO_SECOND (") + nativeDataTypeName;
242 nativeDataTypeName += wxT(")\n");
243 wxLogMessage(nativeDataTypeName);
244 }
245 #endif
246 #ifdef SQL_C_INTERVAL_MONTH
247 if (DataTypeSupported(pDb,SQL_C_INTERVAL_MONTH, &nativeDataTypeName))
248 {
249 nativeDataTypeName = wxT("SQL_C_INTERVAL_MONTH (") + nativeDataTypeName;
250 nativeDataTypeName += wxT(")\n");
251 wxLogMessage(nativeDataTypeName);
252 }
253 #endif
254 #ifdef SQL_C_INTERVAL_SECOND
255 if (DataTypeSupported(pDb,SQL_C_INTERVAL_SECOND, &nativeDataTypeName))
256 {
257 nativeDataTypeName = wxT("SQL_C_INTERVAL_SECOND (") + nativeDataTypeName;
258 nativeDataTypeName += wxT(")\n");
259 wxLogMessage(nativeDataTypeName);
260 }
261 #endif
262 #ifdef SQL_C_INTERVAL_YEAR
263 if (DataTypeSupported(pDb,SQL_C_INTERVAL_YEAR, &nativeDataTypeName))
264 {
265 nativeDataTypeName = wxT("SQL_C_INTERVAL_YEAR (") + nativeDataTypeName;
266 nativeDataTypeName += wxT(")\n");
267 wxLogMessage(nativeDataTypeName);
268 }
269 #endif
270 #ifdef SQL_C_INTERVAL_YEAR_TO_MONTH
271 if (DataTypeSupported(pDb,SQL_C_INTERVAL_YEAR_TO_MONTH, &nativeDataTypeName))
272 {
273 nativeDataTypeName = wxT("SQL_C_INTERVAL_YEAR_TO_MONTH (") + nativeDataTypeName;
274 nativeDataTypeName += wxT(")\n");
275 wxLogMessage(nativeDataTypeName);
276 }
277 #endif
278 #ifdef SQL_C_LONG
279 if (DataTypeSupported(pDb,SQL_C_LONG, &nativeDataTypeName))
280 {
281 nativeDataTypeName = wxT("SQL_C_LONG (") + nativeDataTypeName;
282 nativeDataTypeName += wxT(")\n");
283 wxLogMessage(nativeDataTypeName);
284 }
285 #endif
286 #ifdef SQL_C_NUMERIC
287 if (DataTypeSupported(pDb,SQL_C_NUMERIC, &nativeDataTypeName))
288 {
289 nativeDataTypeName = wxT("SQL_C_NUMERIC (") + nativeDataTypeName;
290 nativeDataTypeName += wxT(")\n");
291 wxLogMessage(nativeDataTypeName);
292 }
293 #endif
294 #ifdef SQL_C_SBIGINT
295 if (DataTypeSupported(pDb,SQL_C_SBIGINT, &nativeDataTypeName))
296 {
297 nativeDataTypeName = wxT("SQL_C_SBIGINT (") + nativeDataTypeName;
298 nativeDataTypeName += wxT(")\n");
299 wxLogMessage(nativeDataTypeName);
300 }
301 #endif
302 #ifdef SQL_C_SHORT
303 if (DataTypeSupported(pDb,SQL_C_SHORT, &nativeDataTypeName))
304 {
305 nativeDataTypeName = wxT("SQL_C_SHORT (") + nativeDataTypeName;
306 nativeDataTypeName += wxT(")\n");
307 wxLogMessage(nativeDataTypeName);
308 }
309 #endif
310 #ifdef SQL_C_SLONG
311 if (DataTypeSupported(pDb,SQL_C_SLONG, &nativeDataTypeName))
312 {
313 nativeDataTypeName = wxT("SQL_C_SLONG (") + nativeDataTypeName;
314 nativeDataTypeName += wxT(")\n");
315 wxLogMessage(nativeDataTypeName);
316 }
317 #endif
318 #ifdef SQL_C_SSHORT
319 if (DataTypeSupported(pDb,SQL_C_SSHORT, &nativeDataTypeName))
320 {
321 nativeDataTypeName = wxT("SQL_C_SSHORT (") + nativeDataTypeName;
322 nativeDataTypeName += wxT(")\n");
323 wxLogMessage(nativeDataTypeName);
324 }
325 #endif
326 #ifdef SQL_C_STINYINT
327 if (DataTypeSupported(pDb,SQL_C_STINYINT, &nativeDataTypeName))
328 {
329 nativeDataTypeName = wxT("SQL_C_STINYINT (") + nativeDataTypeName;
330 nativeDataTypeName += wxT(")\n");
331 wxLogMessage(nativeDataTypeName);
332 }
333 #endif
334 #ifdef SQL_C_TIME
335 if (DataTypeSupported(pDb,SQL_C_TIME, &nativeDataTypeName))
336 {
337 nativeDataTypeName = wxT("SQL_C_TIME (") + nativeDataTypeName;
338 nativeDataTypeName += wxT(")\n");
339 wxLogMessage(nativeDataTypeName);
340 }
341 #endif
342 #ifdef SQL_C_TIMESTAMP
343 if (DataTypeSupported(pDb,SQL_C_TIMESTAMP, &nativeDataTypeName))
344 {
345 nativeDataTypeName = wxT("SQL_C_TIMESTAMP (") + nativeDataTypeName;
346 nativeDataTypeName += wxT(")\n");
347 wxLogMessage(nativeDataTypeName);
348 }
349 #endif
350 #ifdef SQL_C_TINYINT
351 if (DataTypeSupported(pDb,SQL_C_TINYINT, &nativeDataTypeName))
352 {
353 nativeDataTypeName = wxT("SQL_C_TINYINT (") + nativeDataTypeName;
354 nativeDataTypeName += wxT(")\n");
355 wxLogMessage(nativeDataTypeName);
356 }
357 #endif
358 #ifdef SQL_C_TYPE_DATE
359 if (DataTypeSupported(pDb,SQL_C_TYPE_DATE, &nativeDataTypeName))
360 {
361 nativeDataTypeName = wxT("SQL_C_TYPE_DATE (") + nativeDataTypeName;
362 nativeDataTypeName += wxT(")\n");
363 wxLogMessage(nativeDataTypeName);
364 }
365 #endif
366 #ifdef SQL_C_TYPE_TIME
367 if (DataTypeSupported(pDb,SQL_C_TYPE_TIME, &nativeDataTypeName))
368 {
369 nativeDataTypeName = wxT("SQL_C_TYPE_TIME (") + nativeDataTypeName;
370 nativeDataTypeName += wxT(")\n");
371 wxLogMessage(nativeDataTypeName);
372 }
373 #endif
374 #ifdef SQL_C_TYPE_TIMESTAMP
375 if (DataTypeSupported(pDb,SQL_C_TYPE_TIMESTAMP, &nativeDataTypeName))
376 {
377 nativeDataTypeName = wxT("SQL_C_TYPE_TIMESTAMP (") + nativeDataTypeName;
378 nativeDataTypeName += wxT(")\n");
379 wxLogMessage(nativeDataTypeName);
380 }
381 #endif
382 #ifdef SQL_C_UBIGINT
383 if (DataTypeSupported(pDb,SQL_C_UBIGINT, &nativeDataTypeName))
384 {
385 nativeDataTypeName = wxT("SQL_C_UBIGINT (") + nativeDataTypeName;
386 nativeDataTypeName += wxT(")\n");
387 wxLogMessage(nativeDataTypeName);
388 }
389 #endif
390 #ifdef SQL_C_ULONG
391 if (DataTypeSupported(pDb,SQL_C_ULONG, &nativeDataTypeName))
392 {
393 nativeDataTypeName = wxT("SQL_C_ULONG (") + nativeDataTypeName;
394 nativeDataTypeName += wxT(")\n");
395 wxLogMessage(nativeDataTypeName);
396 }
397 #endif
398 #ifdef SQL_C_USHORT
399 if (DataTypeSupported(pDb,SQL_C_USHORT, &nativeDataTypeName))
400 {
401 nativeDataTypeName = wxT("SQL_C_USHORT (") + nativeDataTypeName;
402 nativeDataTypeName += wxT(")\n");
403 wxLogMessage(nativeDataTypeName);
404 }
405 #endif
406 #ifdef SQL_C_UTINYINT
407 if (DataTypeSupported(pDb,SQL_C_UTINYINT, &nativeDataTypeName))
408 {
409 nativeDataTypeName = wxT("SQL_C_UTINYINT (") + nativeDataTypeName;
410 nativeDataTypeName += wxT(")\n");
411 wxLogMessage(nativeDataTypeName);
412 }
413 #endif
414 #ifdef SQL_C_VARBOOKMARK
415 if (DataTypeSupported(pDb,SQL_C_VARBOOKMARK, &nativeDataTypeName))
416 {
417 nativeDataTypeName = wxT("SQL_C_VARBOOKMARK (") + nativeDataTypeName;
418 nativeDataTypeName += wxT(")\n");
419 wxLogMessage(nativeDataTypeName);
420 }
421 #endif
422 #ifdef SQL_C_WXCHAR
423 if (DataTypeSupported(pDb,SQL_C_WXCHAR, &nativeDataTypeName))
424 {
425 nativeDataTypeName = wxT("SQL_C_WXCHAR (") + nativeDataTypeName;
426 nativeDataTypeName += wxT(")\n");
427 wxLogMessage(nativeDataTypeName);
428 }
429 #endif
430
431 // Extended SQL types
432 #ifdef SQL_DATE
433 if (DataTypeSupported(pDb,SQL_DATE, &nativeDataTypeName))
434 {
435 nativeDataTypeName = wxT("SQL_DATE (") + nativeDataTypeName;
436 nativeDataTypeName += wxT(")\n");
437 wxLogMessage(nativeDataTypeName);
438 }
439 #endif
440 #ifdef SQL_INTERVAL
441 if (DataTypeSupported(pDb,SQL_INTERVAL, &nativeDataTypeName))
442 {
443 nativeDataTypeName = wxT("SQL_INTERVAL (") + nativeDataTypeName;
444 nativeDataTypeName += wxT(")\n");
445 wxLogMessage(nativeDataTypeName);
446 }
447 #endif
448 #ifdef SQL_TIME
449 if (DataTypeSupported(pDb,SQL_TIME, &nativeDataTypeName))
450 {
451 nativeDataTypeName = wxT("SQL_TIME (") + nativeDataTypeName;
452 nativeDataTypeName += wxT(")\n");
453 wxLogMessage(nativeDataTypeName);
454 }
455 #endif
456 #ifdef SQL_TIMESTAMP
457 if (DataTypeSupported(pDb,SQL_TIMESTAMP, &nativeDataTypeName))
458 {
459 nativeDataTypeName = wxT("SQL_TIMESTAMP (") + nativeDataTypeName;
460 nativeDataTypeName += wxT(")\n");
461 wxLogMessage(nativeDataTypeName);
462 }
463 #endif
464 #ifdef SQL_LONGVARCHAR
465 if (DataTypeSupported(pDb,SQL_LONGVARCHAR, &nativeDataTypeName))
466 {
467 nativeDataTypeName = wxT("SQL_LONGVARCHAR (") + nativeDataTypeName;
468 nativeDataTypeName += wxT(")\n");
469 wxLogMessage(nativeDataTypeName);
470 }
471 #endif
472 #ifdef SQL_BINARY
473 if (DataTypeSupported(pDb,SQL_BINARY, &nativeDataTypeName))
474 {
475 nativeDataTypeName = wxT("SQL_BINARY (") + nativeDataTypeName;
476 nativeDataTypeName += wxT(")\n");
477 wxLogMessage(nativeDataTypeName);
478 }
479 #endif
480 #ifdef SQL_VARBINARY
481 if (DataTypeSupported(pDb,SQL_VARBINARY, &nativeDataTypeName))
482 {
483 nativeDataTypeName = wxT("SQL_VARBINARY (") + nativeDataTypeName;
484 nativeDataTypeName += wxT(")\n");
485 wxLogMessage(nativeDataTypeName);
486 }
487 #endif
488 #ifdef SQL_LONGVARBINARY
489 if (DataTypeSupported(pDb,SQL_LONGVARBINARY, &nativeDataTypeName))
490 {
491 nativeDataTypeName = wxT("SQL_LOGVARBINARY (") + nativeDataTypeName;
492 nativeDataTypeName += wxT(")\n");
493 wxLogMessage(nativeDataTypeName);
494 }
495 #endif
496 #ifdef SQL_BIGINT
497 if (DataTypeSupported(pDb,SQL_BIGINT, &nativeDataTypeName))
498 {
499 nativeDataTypeName = wxT("SQL_BIGINT (") + nativeDataTypeName;
500 nativeDataTypeName += wxT(")\n");
501 wxLogMessage(nativeDataTypeName);
502 }
503 #endif
504 #ifdef SQL_TINYINT
505 if (DataTypeSupported(pDb,SQL_TINYINT, &nativeDataTypeName))
506 {
507 nativeDataTypeName = wxT("SQL_TINYINT (") + nativeDataTypeName;
508 nativeDataTypeName += wxT(")\n");
509 wxLogMessage(nativeDataTypeName);
510 }
511 #endif
512 #ifdef SQL_BIT
513 if (DataTypeSupported(pDb,SQL_BIT, &nativeDataTypeName))
514 {
515 nativeDataTypeName = wxT("SQL_BIT (") + nativeDataTypeName;
516 nativeDataTypeName += wxT(")\n");
517 wxLogMessage(nativeDataTypeName);
518 }
519 #endif
520 #ifdef SQL_GUID
521 if (DataTypeSupported(pDb,SQL_GUID, &nativeDataTypeName))
522 {
523 nativeDataTypeName = wxT("SQL_GUID (") + nativeDataTypeName;
524 nativeDataTypeName += wxT(")\n");
525 wxLogMessage(nativeDataTypeName);
526 }
527 #endif
528
529 #ifdef SQL_CHAR
530 if (DataTypeSupported(pDb,SQL_CHAR, &nativeDataTypeName))
531 {
532 nativeDataTypeName = wxT("SQL_CHAR (") + nativeDataTypeName;
533 nativeDataTypeName += wxT(")\n");
534 wxLogMessage(nativeDataTypeName);
535 }
536 #endif
537 #ifdef SQL_INTEGER
538 if (DataTypeSupported(pDb,SQL_INTEGER, &nativeDataTypeName))
539 {
540 nativeDataTypeName = wxT("SQL_INTEGER (") + nativeDataTypeName;
541 nativeDataTypeName += wxT(")\n");
542 wxLogMessage(nativeDataTypeName);
543 }
544 #endif
545 #ifdef SQL_SMALLINT
546 if (DataTypeSupported(pDb,SQL_SMALLINT, &nativeDataTypeName))
547 {
548 nativeDataTypeName = wxT("SQL_SAMLLINT (") + nativeDataTypeName;
549 nativeDataTypeName += wxT(")\n");
550 wxLogMessage(nativeDataTypeName);
551 }
552 #endif
553 #ifdef SQL_REAL
554 if (DataTypeSupported(pDb,SQL_REAL, &nativeDataTypeName))
555 {
556 nativeDataTypeName = wxT("SQL_REAL (") + nativeDataTypeName;
557 nativeDataTypeName += wxT(")\n");
558 wxLogMessage(nativeDataTypeName);
559 }
560 #endif
561 #ifdef SQL_DOUBLE
562 if (DataTypeSupported(pDb,SQL_DOUBLE, &nativeDataTypeName))
563 {
564 nativeDataTypeName = wxT("SQL_DOUBLE (") + nativeDataTypeName;
565 nativeDataTypeName += wxT(")\n");
566 wxLogMessage(nativeDataTypeName);
567 }
568 #endif
569 #ifdef SQL_NUMERIC
570 if (DataTypeSupported(pDb,SQL_NUMERIC, &nativeDataTypeName))
571 {
572 nativeDataTypeName = wxT("SQL_NUMERIC (") + nativeDataTypeName;
573 nativeDataTypeName += wxT(")\n");
574 wxLogMessage(nativeDataTypeName);
575 }
576 #endif
577 #ifdef SQL_DATE
578 if (DataTypeSupported(pDb,SQL_DATE, &nativeDataTypeName))
579 {
580 nativeDataTypeName = wxT("SQL_DATE (") + nativeDataTypeName;
581 nativeDataTypeName += wxT(")\n");
582 wxLogMessage(nativeDataTypeName);
583 }
584 #endif
585 #ifdef SQL_TIME
586 if (DataTypeSupported(pDb,SQL_TIME, &nativeDataTypeName))
587 {
588 nativeDataTypeName = wxT("SQL_TIME (") + nativeDataTypeName;
589 nativeDataTypeName += wxT(")\n");
590 wxLogMessage(nativeDataTypeName);
591 }
592 #endif
593 #ifdef SQL_TIMESTAMP
594 if (DataTypeSupported(pDb,SQL_TIMESTAMP, &nativeDataTypeName))
595 {
596 nativeDataTypeName = wxT("SQL_TIMESTAMP (") + nativeDataTypeName;
597 nativeDataTypeName += wxT(")\n");
598 wxLogMessage(nativeDataTypeName);
599 }
600 #endif
601 #ifdef SQL_VARCHAR
602 if (DataTypeSupported(pDb,SQL_VARCHAR, &nativeDataTypeName))
603 {
604 nativeDataTypeName = wxT("SQL_VARCHAR (") + nativeDataTypeName;
605 nativeDataTypeName += wxT(")\n");
606 wxLogMessage(nativeDataTypeName);
607 }
608 #endif
609
610 // UNICODE
611 #ifdef SQL_C_TCHAR
612 if (DataTypeSupported(pDb,SQL_C_TCHAR, &nativeDataTypeName))
613 {
614 nativeDataTypeName = wxT("SQL_C_TCHAR (") + nativeDataTypeName;
615 nativeDataTypeName += wxT(")\n");
616 wxLogMessage(nativeDataTypeName);
617 }
618 #endif
619 #ifdef SQL_WVARCHAR
620 if (DataTypeSupported(pDb,SQL_WVARCHAR, &nativeDataTypeName))
621 {
622 nativeDataTypeName = wxT("SQL_WVARCHAR (") + nativeDataTypeName;
623 nativeDataTypeName += wxT(")\n");
624 wxLogMessage(nativeDataTypeName);
625 }
626 #endif
627 #ifdef SQL_WCHAR
628 if (DataTypeSupported(pDb,SQL_WCHAR, &nativeDataTypeName))
629 {
630 nativeDataTypeName = wxT("SQL_WCHAR (") + nativeDataTypeName;
631 nativeDataTypeName += wxT(")\n");
632 wxLogMessage(nativeDataTypeName);
633 }
634 #endif
635
636 wxLogMessage(wxT("Done\n"));
637 } // CheckSupportForAllDataTypes()
638
639
640 bool DatabaseDemoApp::OnInit()
641 {
642 DbConnectInf = NULL;
643 Contact = NULL;
644
645 // Create the main frame window
646 DemoFrame = new DatabaseDemoFrame(NULL, wxT("wxWidgets Database Demo"), wxPoint(50, 50), wxSize(537, 530));
647
648 // Give it an icon
649 DemoFrame->SetIcon(wxICON(db));
650
651 // Make a menubar
652 wxMenu *file_menu = new wxMenu;
653 file_menu->Append(FILE_CREATE_ID, wxT("&Create CONTACT table"));
654 file_menu->Append(FILE_RECREATE_TABLE, wxT("&Recreate CONTACT table"));
655 file_menu->Append(FILE_RECREATE_INDEXES, wxT("&Recreate CONTACT indexes"));
656 #if wxUSE_GRID
657 file_menu->Append(FILE_DBGRID_TABLE, wxT("&Open DB Grid example"));
658 #endif
659 file_menu->Append(FILE_EXIT, wxT("E&xit"));
660
661 wxMenu *edit_menu = new wxMenu;
662 edit_menu->Append(EDIT_PARAMETERS, wxT("&Parameters..."));
663
664 wxMenu *help_menu = new wxMenu;
665 help_menu->Append(HELP_ABOUT, wxT("&About"));
666
667 wxMenuBar *menu_bar = new wxMenuBar;
668 menu_bar->Append(file_menu, wxT("&File"));
669 menu_bar->Append(edit_menu, wxT("&Edit"));
670 menu_bar->Append(help_menu, wxT("&Help"));
671 DemoFrame->SetMenuBar(menu_bar);
672
673 params.ODBCSource[0] = 0;
674 params.UserName[0] = 0;
675 params.Password[0] = 0;
676 params.DirPath[0] = 0;
677
678 #ifdef wxODBC_BLOB_SUPPORT
679 wxInitAllImageHandlers();
680 wxImage::InitStandardHandlers();
681 wxBitmap::InitStandardHandlers();
682 #endif
683
684 // Show the frame
685 DemoFrame->Show(true);
686
687 // Passing NULL for the SQL environment handle causes
688 // the wxDbConnectInf constructor to obtain a handle
689 // for you.
690 //
691 // WARNING: Be certain that you do not free this handle
692 // directly with SQLFreeEnv(). Use either the
693 // method ::FreeHenv() or delete the DbConnectInf.
694 DbConnectInf = new wxDbConnectInf(NULL, params.ODBCSource, params.UserName,
695 params.Password, params.DirPath);
696
697 if (!DbConnectInf || !DbConnectInf->GetHenv())
698 {
699 wxMessageBox(wxT("Unable to define data source connection info."), wxT("DB CONNECTION ERROR..."),wxOK | wxICON_EXCLAMATION);
700 wxDELETE(DbConnectInf);
701 }
702
703 if (!ReadParamFile(params))
704 DemoFrame->BuildParameterDialog(NULL);
705
706 if (!wxStrlen(params.ODBCSource))
707 {
708 wxDELETE(DbConnectInf);
709 return(false);
710 }
711
712 DbConnectInf->SetDsn(params.ODBCSource);
713 DbConnectInf->SetUserID(params.UserName);
714 DbConnectInf->SetPassword(params.Password);
715 DbConnectInf->SetDefaultDir(params.DirPath);
716
717 READONLY_DB = wxDbGetConnection(DbConnectInf);
718 if (READONLY_DB == 0)
719 {
720 wxMessageBox(wxT("Unable to connect to the data source.\n\nCheck the name of your data source to verify it has been correctly entered/spelled.\n\nWith some databases, the user name and password must\nbe created with full rights to the CONTACT table prior to making a connection\n(using tools provided by the database manufacturer)"), wxT("DB CONNECTION ERROR..."),wxOK | wxICON_EXCLAMATION);
721 DemoFrame->BuildParameterDialog(NULL);
722 wxDELETE(DbConnectInf);
723 wxMessageBox(wxT("Now exiting program.\n\nRestart program to try any new settings."),wxT("Notice..."),wxOK | wxICON_INFORMATION);
724 return(false);
725 }
726
727 DemoFrame->BuildEditorDialog();
728
729 // Show the frame
730 DemoFrame->Refresh();
731
732 return true;
733 } // DatabaseDemoApp::OnInit()
734
735
736 /*
737 * Remove CR or CR/LF from a character string.
738 */
739 wxChar* wxRemoveLineTerminator(wxChar* aString)
740 {
741 int len = wxStrlen(aString);
742 while (len > 0 && (aString[len-1] == wxT('\r') || aString[len-1] == wxT('\n'))) {
743 aString[len-1] = wxT('\0');
744 len--;
745 }
746 return aString;
747 }
748
749
750 bool DatabaseDemoApp::ReadParamFile(Cparameters &params)
751 {
752 FILE *paramFile;
753 if ((paramFile = wxFopen(PARAM_FILENAME, wxT("r"))) == NULL)
754 {
755 wxString tStr;
756 tStr.Printf(wxT("Unable to open the parameter file '%s' for reading.\n\nYou must specify the data source, user name, and\npassword that will be used and save those settings."),PARAM_FILENAME.c_str());
757 wxMessageBox(tStr,wxT("File I/O Error..."),wxOK | wxICON_EXCLAMATION);
758
759 return false;
760 }
761
762 wxChar buffer[1000+1];
763 wxFgets(buffer, sizeof(params.ODBCSource), paramFile);
764 wxRemoveLineTerminator(buffer);
765 wxStrcpy(params.ODBCSource,buffer);
766
767 wxFgets(buffer, sizeof(params.UserName), paramFile);
768 wxRemoveLineTerminator(buffer);
769 wxStrcpy(params.UserName,buffer);
770
771 wxFgets(buffer, sizeof(params.Password), paramFile);
772 wxRemoveLineTerminator(buffer);
773 wxStrcpy(params.Password,buffer);
774
775 wxFgets(buffer, sizeof(params.DirPath), paramFile);
776 wxRemoveLineTerminator(buffer);
777 wxStrcpy(params.DirPath,buffer);
778
779 fclose(paramFile);
780
781 return true;
782 } // DatabaseDemoApp::ReadParamFile()
783
784
785 bool DatabaseDemoApp::WriteParamFile(Cparameters &WXUNUSED(params))
786 {
787 FILE *paramFile;
788 if ((paramFile = wxFopen(PARAM_FILENAME, wxT("wt"))) == NULL)
789 {
790 wxString tStr;
791 tStr.Printf(wxT("Unable to write/overwrite '%s'."),PARAM_FILENAME.c_str());
792 wxMessageBox(tStr,wxT("File I/O Error..."),wxOK | wxICON_EXCLAMATION);
793 return false;
794 }
795
796 wxFputs(wxGetApp().params.ODBCSource, paramFile);
797 wxFputc(wxT('\n'), paramFile);
798 wxFputs(wxGetApp().params.UserName, paramFile);
799 wxFputc(wxT('\n'), paramFile);
800 wxFputs(wxGetApp().params.Password, paramFile);
801 wxFputc(wxT('\n'), paramFile);
802 wxFputs(wxGetApp().params.DirPath, paramFile);
803 wxFputc(wxT('\n'), paramFile);
804 fclose(paramFile);
805
806 return true;
807 } // DatabaseDemoApp::WriteParamFile()
808
809
810 void DatabaseDemoApp::CreateDataTable(bool recreate)
811 {
812 bool Ok = true;
813 if (recreate)
814 Ok = (wxMessageBox(wxT("Any data currently residing in the table will be erased.\n\nAre you sure?"),wxT("Confirm"),wxYES_NO|wxICON_QUESTION) == wxYES);
815
816 if (!Ok)
817 return;
818
819 wxBeginBusyCursor();
820
821 bool success = true;
822
823 Contact->GetDb()->RollbackTrans(); // Make sure the current cursor is in a known/stable state
824
825 if (!Contact->CreateTable(recreate))
826 {
827 wxEndBusyCursor();
828 wxString tStr;
829 tStr = wxT("Error creating CONTACTS table.\nTable was not created.\n\n");
830 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),Contact->GetDb(),__TFILE__,__LINE__),
831 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
832
833 success = false;
834 }
835 else
836 {
837 if (!Contact->CreateIndexes(recreate))
838 {
839 wxEndBusyCursor();
840 wxString tStr;
841 tStr = wxT("Error creating CONTACTS indexes.\nIndexes will be unavailable.\n\n");
842 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),Contact->GetDb(),__TFILE__,__LINE__),
843 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
844
845 success = false;
846 }
847 }
848 while (wxIsBusy())
849 wxEndBusyCursor();
850
851 if (success)
852 wxMessageBox(wxT("Table and index(es) were successfully created."),wxT("Notice..."),wxOK | wxICON_INFORMATION);
853 } // DatabaseDemoApp::CreateDataTable()
854
855
856 BEGIN_EVENT_TABLE(DatabaseDemoFrame, wxFrame)
857 EVT_MENU(FILE_CREATE_ID, DatabaseDemoFrame::OnCreate)
858 EVT_MENU(FILE_RECREATE_TABLE, DatabaseDemoFrame::OnRecreateTable)
859 EVT_MENU(FILE_RECREATE_INDEXES, DatabaseDemoFrame::OnRecreateIndexes)
860 #if wxUSE_GRID
861 EVT_MENU(FILE_DBGRID_TABLE, DatabaseDemoFrame::OnDbGridTable)
862 #endif
863 EVT_MENU(FILE_EXIT, DatabaseDemoFrame::OnExit)
864 EVT_MENU(EDIT_PARAMETERS, DatabaseDemoFrame::OnEditParameters)
865 EVT_MENU(HELP_ABOUT, DatabaseDemoFrame::OnAbout)
866 EVT_CLOSE(DatabaseDemoFrame::OnCloseWindow)
867 END_EVENT_TABLE()
868
869
870 // DatabaseDemoFrame constructor
871 DatabaseDemoFrame::DatabaseDemoFrame(wxFrame *frame, const wxString& title,
872 const wxPoint& pos, const wxSize& size):
873 wxFrame(frame, wxID_ANY, title, pos, size)
874 {
875 // Put any code in necessary for initializing the main frame here
876 pEditorDlg = NULL;
877 pParamDlg = NULL;
878
879 #if wxUSE_LOG
880 delete wxLog::SetActiveTarget(new wxLogStderr);
881 #endif // wxUSE_LOG
882
883 } // DatabaseDemoFrame constructor
884
885 DatabaseDemoFrame::~DatabaseDemoFrame()
886 {
887 #if wxUSE_LOG
888 delete wxLog::SetActiveTarget(NULL);
889 #endif // wxUSE_LOG
890 } // DatabaseDemoFrame destructor
891
892
893 void DatabaseDemoFrame::OnCreate(wxCommandEvent& WXUNUSED(event))
894 {
895 wxGetApp().CreateDataTable(false);
896 } // DatabaseDemoFrame::OnCreate()
897
898
899 void DatabaseDemoFrame::OnRecreateTable(wxCommandEvent& WXUNUSED(event))
900 {
901 wxGetApp().CreateDataTable(true);
902 } // DatabaseDemoFrame::OnRecreate()
903
904
905 void DatabaseDemoFrame::OnRecreateIndexes(wxCommandEvent& WXUNUSED(event))
906 {
907 wxGetApp().Contact->GetDb()->RollbackTrans(); // Make sure the current cursor is in a known/stable state
908
909 if (!wxGetApp().Contact->CreateIndexes(true))
910 {
911 while (wxIsBusy())
912 wxEndBusyCursor();
913 wxString tStr;
914 tStr = wxT("Error creating CONTACTS indexes.\nNew indexes will be unavailable.\n\n");
915 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
916 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
917
918 }
919 else
920 wxMessageBox(wxT("Index(es) were successfully recreated."),wxT("Notice..."),wxOK | wxICON_INFORMATION);
921
922 } // DatabaseDemoFrame::OnRecreateIndexes()
923
924
925 #if wxUSE_GRID
926 void DatabaseDemoFrame::OnDbGridTable(wxCommandEvent& WXUNUSED(event))
927 {
928 DbGridFrame *frame = new DbGridFrame(this);
929 if (frame->Initialize())
930 {
931 frame->Show();
932 }
933 }
934 #endif
935
936 void DatabaseDemoFrame::OnExit(wxCommandEvent& WXUNUSED(event))
937 {
938 Close();
939 } // DatabaseDemoFrame::OnExit()
940
941
942 void DatabaseDemoFrame::OnEditParameters(wxCommandEvent& WXUNUSED(event))
943 {
944 if ((pEditorDlg->mode != mCreate) && (pEditorDlg->mode != mEdit))
945 BuildParameterDialog(this);
946 else
947 wxMessageBox(wxT("Cannot change database parameters while creating or editing a record"),wxT("Notice..."),wxOK | wxICON_INFORMATION);
948 } // DatabaseDemoFrame::OnEditParameters()
949
950
951 void DatabaseDemoFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
952 {
953 wxMessageBox(wxT("wxWidgets sample program for database classes\n\nContributed on 27 July 1998"),wxT("About..."),wxOK | wxICON_INFORMATION);
954 } // DatabaseDemoFrame::OnAbout()
955
956
957 // Put any additional checking necessary to make certain it is alright
958 // to close the program here that is not done elsewhere
959 void DatabaseDemoFrame::OnCloseWindow(wxCloseEvent& event)
960 {
961 // Clean up time
962 if (pEditorDlg && pEditorDlg->Close())
963 pEditorDlg = NULL;
964 else
965 {
966 if (pEditorDlg)
967 {
968 event.Veto();
969 return;
970 }
971 }
972
973 wxDELETE(wxGetApp().Contact);
974
975 // This function will close all the connections to the database that have been
976 // previously cached.
977 wxDbCloseConnections();
978
979 // Deletion of the wxDbConnectInf instance must be the LAST thing done that
980 // has anything to do with the database. Deleting this before disconnecting,
981 // freeing/closing connections, etc will result in a crash!
982 wxDELETE(wxGetApp().DbConnectInf);
983
984 this->Destroy();
985
986 } // DatabaseDemoFrame::OnCloseWindow()
987
988
989 void DatabaseDemoFrame::BuildEditorDialog()
990 {
991 pEditorDlg = NULL;
992 pEditorDlg = new CeditorDlg(this);
993 if (pEditorDlg)
994 {
995 pEditorDlg->Initialize();
996 if (!pEditorDlg->initialized)
997 {
998 pEditorDlg->Close();
999 pEditorDlg = NULL;
1000 wxMessageBox(wxT("Unable to initialize the editor dialog for some reason"),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
1001 Close();
1002 }
1003 }
1004 else
1005 {
1006 wxMessageBox(wxT("Unable to create the editor dialog for some reason"),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
1007 Close();
1008 }
1009 } // DatabaseDemoFrame::BuildEditorDialog()
1010
1011
1012 void DatabaseDemoFrame::BuildParameterDialog(wxWindow *parent)
1013 {
1014 pParamDlg = new CparameterDlg(parent);
1015
1016 if (!pParamDlg)
1017 wxMessageBox(wxT("Unable to create the parameter dialog for some reason"),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
1018 } // DatabaseDemoFrame::BuildParameterDialog()
1019
1020
1021 /*
1022 * Constructor note: If no wxDb object is passed in, a new connection to the database
1023 * is created for this instance of Ccontact. This can be a slow process depending
1024 * on the database engine being used, and some database engines have a limit on the
1025 * number of connections (either hard limits, or license restricted) so care should
1026 * be used to use as few connections as is necessary.
1027 *
1028 * IMPORTANT: Objects which share a wxDb pointer are ALL acted upon whenever a member
1029 * function of pDb is called (i.e. CommitTrans() or RollbackTrans(), so if modifying
1030 * or creating a table objects which use the same pDb, know that all the objects
1031 * will be committed or rolled back when any of the objects has this function call made.
1032 */
1033 Ccontact::Ccontact (wxDb *pwxDb) : wxDbTable(pwxDb ? pwxDb : wxDbGetConnection(wxGetApp().DbConnectInf),
1034 CONTACT_TABLE_NAME, CONTACT_NO_COLS, (const wxString &)wxEmptyString,
1035 !wxDB_QUERY_ONLY, wxGetApp().DbConnectInf->GetDefaultDir())
1036 {
1037 // This is used to represent whether the database connection should be released
1038 // when this instance of the object is deleted. If using the same connection
1039 // for multiple instance of database objects, then the connection should only be
1040 // released when the last database instance using the connection is deleted
1041 freeDbConn = !pwxDb;
1042
1043 if (GetDb())
1044 GetDb()->SetSqlLogging(sqlLogON);
1045
1046 SetupColumns();
1047
1048 } // Ccontact Constructor
1049
1050
1051 void Ccontact::Initialize()
1052 {
1053 Name[0] = 0;
1054 Addr1[0] = 0;
1055 Addr2[0] = 0;
1056 City[0] = 0;
1057 State[0] = 0;
1058 PostalCode[0] = 0;
1059 Country[0] = 0;
1060 JoinDate.year = 1980;
1061 JoinDate.month = 1;
1062 JoinDate.day = 1;
1063 JoinDate.hour = 0;
1064 JoinDate.minute = 0;
1065 JoinDate.second = 0;
1066 JoinDate.fraction = 0;
1067 NativeLanguage = langENGLISH;
1068 IsDeveloper = false;
1069 Contributions = 0;
1070 LinesOfCode = 0L;
1071 BlobSize = 0L;
1072 memset(Picture, 0, MAX_PICTURE_SIZE);
1073 } // Ccontact::Initialize
1074
1075
1076 Ccontact::~Ccontact()
1077 {
1078 if (freeDbConn)
1079 {
1080 if (!wxDbFreeConnection(GetDb()))
1081 {
1082 wxString tStr;
1083 tStr = wxT("Unable to Free the Ccontact data table handle\n\n");
1084
1085 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
1086 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1087 }
1088 }
1089 } // Ccontract destructor
1090
1091
1092 /*
1093 * Handles setting up all the connections for the interface from the wxDbTable
1094 * functions to interface to the data structure used to store records in
1095 * memory, and for all the column definitions that define the table structure
1096 */
1097 void Ccontact::SetupColumns()
1098 {
1099 // NOTE: Columns now are 8 character names, as that is all dBase can support. Longer
1100 // names can be used for other database engines
1101 SetColDefs ( 0,wxT("NAME"), DB_DATA_TYPE_VARCHAR, Name, SQL_C_WXCHAR, sizeof(Name), true, true); // Primary index
1102 SetColDefs ( 1,wxT("ADDRESS1"), DB_DATA_TYPE_VARCHAR, Addr1, SQL_C_WXCHAR, sizeof(Addr1), false,true);
1103 SetColDefs ( 2,wxT("ADDRESS2"), DB_DATA_TYPE_VARCHAR, Addr2, SQL_C_WXCHAR, sizeof(Addr2), false,true);
1104 SetColDefs ( 3,wxT("CITY"), DB_DATA_TYPE_VARCHAR, City, SQL_C_WXCHAR, sizeof(City), false,true);
1105 SetColDefs ( 4,wxT("STATE"), DB_DATA_TYPE_VARCHAR, State, SQL_C_WXCHAR, sizeof(State), false,true);
1106 SetColDefs ( 5,wxT("POSTCODE"), DB_DATA_TYPE_VARCHAR, PostalCode, SQL_C_WXCHAR, sizeof(PostalCode), false,true);
1107 SetColDefs ( 6,wxT("COUNTRY"), DB_DATA_TYPE_VARCHAR, Country, SQL_C_WXCHAR, sizeof(Country), false,true);
1108 SetColDefs ( 7,wxT("JOINDATE"), DB_DATA_TYPE_DATE, &JoinDate, SQL_C_TIMESTAMP, sizeof(JoinDate), false,true);
1109 SetColDefs ( 8,wxT("IS_DEV"), DB_DATA_TYPE_INTEGER, &IsDeveloper, SQL_C_BOOLEAN(IsDeveloper), sizeof(IsDeveloper), false,true);
1110 SetColDefs ( 9,wxT("CONTRIBS"), DB_DATA_TYPE_INTEGER, &Contributions, SQL_C_UTINYINT, sizeof(Contributions), false,true);
1111 SetColDefs (10,wxT("LINE_CNT"), DB_DATA_TYPE_INTEGER, &LinesOfCode, SQL_C_ULONG, sizeof(LinesOfCode), false,true);
1112 SetColDefs (11,wxT("LANGUAGE"), DB_DATA_TYPE_INTEGER, &NativeLanguage, SQL_C_ENUM, sizeof(NativeLanguage), false,true);
1113 #ifdef wxODBC_BLOB_SUPPORT
1114 SetColDefs (12,wxT("PICSIZE"), DB_DATA_TYPE_INTEGER, &BlobSize, SQL_C_ULONG, sizeof(BlobSize), false,true);
1115 SetColDefs (13,wxT("PICTURE"), DB_DATA_TYPE_BLOB, Picture, SQL_C_BINARY, sizeof(Picture), false,true);
1116 #endif
1117 } // Ccontact::SetupColumns
1118
1119
1120 bool Ccontact::CreateIndexes(bool recreate)
1121 {
1122 // This index could easily be accomplished with an "orderBy" clause,
1123 // but is done to show how to construct a non-primary index.
1124 wxString indexName;
1125 wxDbIdxDef idxDef[2];
1126
1127 wxStrcpy(idxDef[0].ColName, wxT("IS_DEV"));
1128 idxDef[0].Ascending = true;
1129
1130 wxStrcpy(idxDef[1].ColName, wxT("NAME"));
1131 idxDef[1].Ascending = true;
1132
1133 indexName = GetTableName();
1134 indexName += wxT("_IDX1");
1135
1136 return CreateIndex(indexName.c_str(), true, 2, idxDef, recreate);
1137
1138 } // Ccontact::CreateIndexes()
1139
1140
1141 /*
1142 * Having a function to do a query on the primary key (and possibly others) is
1143 * very efficient and tighter coding so that it is available where ever the object
1144 * is. Great for use with multiple tables when not using views or outer joins
1145 */
1146 bool Ccontact::FetchByName(const wxString &name)
1147 {
1148 whereStr.Printf(wxT("NAME = '%s'"),name.c_str());
1149 SetWhereClause(whereStr.c_str());
1150 SetOrderByClause(wxEmptyString);
1151
1152 if (!Query())
1153 return(false);
1154
1155 // Fetch the record
1156 return(GetNext());
1157
1158 } // Ccontact::FetchByName()
1159
1160
1161 /*
1162 *
1163 * ************* DIALOGS ***************
1164 *
1165 */
1166
1167
1168 /* CeditorDlg constructor
1169 *
1170 * Creates the dialog used for creating/editing/deleting/copying a Ccontact object.
1171 * This dialog actually is drawn in the main frame of the program
1172 *
1173 * An instance of Ccontact is created - "Contact" - which is used to hold the Ccontact
1174 * object that is currently being worked with.
1175 */
1176
1177 BEGIN_EVENT_TABLE(CeditorDlg, wxPanel)
1178 EVT_BUTTON(wxID_ANY, CeditorDlg::OnButton)
1179 EVT_CLOSE(CeditorDlg::OnCloseWindow)
1180 END_EVENT_TABLE()
1181
1182 CeditorDlg::CeditorDlg(wxWindow *parent) : wxPanel (parent, 0, 0, 537, 530)
1183 {
1184 // Since the ::OnCommand() function is overridden, this prevents the widget
1185 // detection in ::OnCommand() until all widgets have been initialized to prevent
1186 // uninitialized pointers from crashing the program
1187 widgetPtrsSet = false;
1188
1189 initialized = false;
1190
1191 SetMode(mView);
1192
1193 Show(false);
1194 } // CeditorDlg constructor
1195
1196
1197 void CeditorDlg::OnCloseWindow(wxCloseEvent& event)
1198 {
1199 // Clean up time
1200 if ((mode != mCreate) && (mode != mEdit))
1201 {
1202 this->Destroy();
1203 }
1204 else
1205 {
1206 wxMessageBox(wxT("Must finish processing the current record being created/modified before exiting"),wxT("Notice..."),wxOK | wxICON_INFORMATION);
1207 event.Veto();
1208 }
1209 } // CeditorDlg::OnCloseWindow()
1210
1211
1212 void CeditorDlg::OnButton(wxCommandEvent &event)
1213 {
1214 wxWindow *win = (wxWindow*) event.GetEventObject();
1215 OnCommand( *win, event );
1216 } // CeditorDlg::OnButton()
1217
1218
1219 void CeditorDlg::OnCommand(wxWindow& win, wxCommandEvent& WXUNUSED(event))
1220 {
1221 wxString widgetName;
1222
1223 widgetName = win.GetName();
1224
1225 if (!widgetPtrsSet)
1226 return;
1227
1228 if (widgetName == pCreateBtn->GetName())
1229 {
1230 wxGetApp().Contact->Initialize();
1231 PutData();
1232 SetMode( mCreate );
1233 pNameTxt->SetValue(wxEmptyString);
1234 pNameTxt->SetFocus();
1235 return;
1236 }
1237
1238 if (widgetName == pEditBtn->GetName())
1239 {
1240 saveName = wxGetApp().Contact->Name;
1241 SetMode( mEdit );
1242 pNameTxt->SetFocus();
1243 return;
1244 }
1245
1246 if (widgetName == pCopyBtn->GetName())
1247 {
1248 SetMode(mCreate);
1249 pNameTxt->SetValue(wxEmptyString);
1250 pNameTxt->SetFocus();
1251 return;
1252 }
1253
1254 if (widgetName == pDeleteBtn->GetName())
1255 {
1256 bool Ok = (wxMessageBox(wxT("Are you sure?"),wxT("Confirm"),wxYES_NO|wxICON_QUESTION) == wxYES);
1257
1258 if (!Ok)
1259 return;
1260
1261 if (Ok && wxGetApp().Contact->Delete())
1262 {
1263 // NOTE: Deletions are not finalized until a CommitTrans() is performed.
1264 // If the commit were not performed, the program will continue to
1265 // show the table contents as if they were deleted until this instance
1266 // of Ccontact is deleted. If the Commit wasn't performed, the
1267 // database will automatically Rollback the changes when the database
1268 // connection is terminated
1269 wxGetApp().Contact->GetDb()->CommitTrans();
1270
1271 // Try to get the row that followed the just deleted row in the orderBy sequence
1272 if (!GetNextRec())
1273 {
1274 // There was now row (in sequence) after the just deleted row, so get the
1275 // row which preceded the just deleted row
1276 if (!GetPrevRec())
1277 {
1278 // There are now no rows remaining, so clear the dialog widgets
1279 wxGetApp().Contact->Initialize();
1280 PutData();
1281 }
1282 }
1283 SetMode(mode); // force reset of button enable/disable
1284 }
1285 else
1286 // Delete failed
1287 wxGetApp().Contact->GetDb()->RollbackTrans();
1288
1289 SetMode(mView);
1290 return;
1291 }
1292
1293 if (widgetName == pSaveBtn->GetName())
1294 {
1295 Save();
1296 return;
1297 }
1298
1299 if (widgetName == pCancelBtn->GetName())
1300 {
1301 bool Ok = (wxMessageBox(wxT("Are you sure?"),wxT("Confirm"),wxYES_NO|wxICON_QUESTION) == wxYES);
1302
1303 if (!Ok)
1304 return;
1305
1306 if (saveName.empty())
1307 {
1308 wxGetApp().Contact->Initialize();
1309 PutData();
1310 SetMode(mView);
1311 return;
1312 }
1313 else
1314 {
1315 // Requery previous record
1316 if (wxGetApp().Contact->FetchByName(saveName))
1317 {
1318 PutData();
1319 SetMode(mView);
1320 return;
1321 }
1322 }
1323
1324 // Previous record not available, retrieve first record in table
1325 if (wxGetApp().Contact->GetDb()->Dbms() != dbmsPOSTGRES &&
1326 wxGetApp().Contact->GetDb()->Dbms() != dbmsMY_SQL)
1327 {
1328 wxGetApp().Contact->whereStr = wxT("NAME = (SELECT MIN(NAME) FROM ");
1329 wxGetApp().Contact->whereStr += wxGetApp().Contact->GetTableName();
1330 wxGetApp().Contact->whereStr += wxT(")");
1331 wxGetApp().Contact->SetWhereClause(wxGetApp().Contact->whereStr.c_str());
1332 }
1333 else
1334 wxGetApp().Contact->SetWhereClause(wxEmptyString);
1335
1336 if (!wxGetApp().Contact->Query())
1337 {
1338 wxString tStr;
1339 tStr = wxT("ODBC error during Query()\n\n");
1340 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
1341 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1342
1343 SetMode(mView);
1344 return;
1345 }
1346 if (wxGetApp().Contact->GetNext()) // Successfully read first record
1347 {
1348 PutData();
1349 SetMode(mView);
1350 return;
1351 }
1352 // No contacts are available, clear dialog
1353 wxGetApp().Contact->Initialize();
1354 PutData();
1355 SetMode(mView);
1356 return;
1357 } // Cancel Button
1358
1359 if (widgetName == pPrevBtn->GetName())
1360 {
1361 if (!GetPrevRec())
1362 wxBell();
1363 return;
1364 } // Prev Button
1365
1366 if (widgetName == pNextBtn->GetName())
1367 {
1368 if (!GetNextRec())
1369 wxBell();
1370 return;
1371 } // Next Button
1372
1373 if (widgetName == pQueryBtn->GetName())
1374 {
1375 // Display the query dialog box
1376 wxChar qryWhere[DB_MAX_WHERE_CLAUSE_LEN+1];
1377 wxStrcpy(qryWhere, (const wxChar*) wxGetApp().Contact->qryWhereStr);
1378 wxChar *tblName[] = {(wxChar *)CONTACT_TABLE_NAME.c_str(), 0};
1379 new CqueryDlg(GetParent(), wxGetApp().Contact->GetDb(), tblName, qryWhere);
1380
1381 // Query the first record in the new record set and
1382 // display it, if the query string has changed.
1383 if (wxStrcmp(qryWhere, (const wxChar*) wxGetApp().Contact->qryWhereStr))
1384 {
1385 wxGetApp().Contact->whereStr.Empty();
1386 wxGetApp().Contact->SetOrderByClause(wxT("NAME"));
1387
1388 if (wxGetApp().Contact->GetDb()->Dbms() != dbmsPOSTGRES &&
1389 wxGetApp().Contact->GetDb()->Dbms() != dbmsMY_SQL)
1390 {
1391 wxGetApp().Contact->whereStr = wxT("NAME = (SELECT MIN(NAME) FROM ");
1392 wxGetApp().Contact->whereStr += CONTACT_TABLE_NAME;
1393 }
1394
1395 // Append the query where string (if there is one)
1396 wxGetApp().Contact->qryWhereStr = qryWhere;
1397 if (wxStrlen(qryWhere))
1398 {
1399 wxGetApp().Contact->whereStr += wxT(" WHERE ");
1400 wxGetApp().Contact->whereStr += wxGetApp().Contact->qryWhereStr;
1401 }
1402 // Close the expression with a right paren
1403 wxGetApp().Contact->whereStr += wxT(")");
1404 // Requery the table
1405 wxGetApp().Contact->SetWhereClause(wxGetApp().Contact->whereStr.c_str());
1406 if (!wxGetApp().Contact->Query())
1407 {
1408 wxString tStr;
1409 tStr = wxT("ODBC error during Query()\n\n");
1410 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
1411 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1412
1413 return;
1414 }
1415 // Display the first record from the query set
1416 if (!wxGetApp().Contact->GetNext())
1417 wxGetApp().Contact->Initialize();
1418 PutData();
1419 }
1420
1421 // Enable/Disable the reset button
1422 pResetBtn->Enable(!wxGetApp().Contact->qryWhereStr.empty());
1423
1424 return;
1425 } // Query button
1426
1427
1428 if (widgetName == pResetBtn->GetName())
1429 {
1430 // Clear the additional where criteria established by the query feature
1431 wxGetApp().Contact->qryWhereStr = wxEmptyString;
1432 wxGetApp().Contact->SetOrderByClause(wxT("NAME"));
1433
1434 if (wxGetApp().Contact->GetDb()->Dbms() != dbmsPOSTGRES &&
1435 wxGetApp().Contact->GetDb()->Dbms() != dbmsMY_SQL)
1436 {
1437 wxGetApp().Contact->whereStr = wxT("NAME = (SELECT MIN(NAME) FROM ");
1438 wxGetApp().Contact->whereStr += CONTACT_TABLE_NAME;
1439 wxGetApp().Contact->whereStr += wxT(")");
1440 }
1441
1442 wxGetApp().Contact->SetWhereClause(wxGetApp().Contact->whereStr.c_str());
1443 if (!wxGetApp().Contact->Query())
1444 {
1445 wxString tStr;
1446 tStr = wxT("ODBC error during Query()\n\n");
1447 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
1448 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1449 return;
1450 }
1451 if (!wxGetApp().Contact->GetNext())
1452 wxGetApp().Contact->Initialize();
1453 PutData();
1454 pResetBtn->Enable(false);
1455
1456 return;
1457 } // Reset button
1458
1459
1460 if (widgetName == pNameListBtn->GetName())
1461 {
1462 new ClookUpDlg(/* wxWindow *parent */ this,
1463 /* const wxString &windowTitle */ wxT("Select contact name"),
1464 /* const wxString &tableName */ CONTACT_TABLE_NAME,
1465 /* const wxString &dispCol1 */ wxT("NAME"),
1466 /* const wxString &dispCol2 */ wxT("JOINDATE"),
1467 /* const wxString &where */ wxT(""),
1468 /* const wxString &orderBy */ wxT("NAME"),
1469 /* wxDb *pDb */ wxGetApp().READONLY_DB,
1470 /* const wxString &defDir */ wxGetApp().DbConnectInf->GetDefaultDir(),
1471 /* bool distinctValues*/ true,
1472 wxEmptyString, 20);
1473
1474 if (ListDB_Selection && wxStrlen(ListDB_Selection))
1475 {
1476 wxString w = wxT("NAME = '");
1477 w += ListDB_Selection;
1478 w += wxT("'");
1479 GetRec(w);
1480 }
1481
1482 return;
1483 }
1484
1485 if (widgetName == pDataTypesBtn->GetName())
1486 {
1487 CheckSupportForAllDataTypes(wxGetApp().READONLY_DB);
1488 wxMessageBox(wxT("Support datatypes was dumped to stdout."));
1489 return;
1490 } // Data types Button
1491
1492 if (widgetName == pDbDiagsBtn->GetName())
1493 {
1494 DisplayDbDiagnostics(wxGetApp().READONLY_DB);
1495 wxMessageBox(wxT("Diagnostics info was dumped to stdout."));
1496 return;
1497 }
1498
1499 if (widgetName == pCatalogBtn->GetName())
1500 {
1501 if (wxGetApp().Contact->GetDb()->Catalog(wxEmptyString, wxT("catalog.txt")))
1502 wxMessageBox(wxT("The file 'catalog.txt' was created."));
1503 else
1504 wxMessageBox(wxT("Creation of the file 'catalog.txt' failed."));
1505 return;
1506 }
1507
1508 #ifdef wxODBC_BLOB_SUPPORT
1509 if (widgetName == pChooseImageBtn->GetName())
1510 {
1511 OnSelectPict();
1512 }
1513
1514 if (widgetName == pShowImageBtn->GetName())
1515 {
1516 OnShowImage();
1517 }
1518 #endif
1519
1520 } // CeditorDlg::OnCommand()
1521
1522
1523 bool CeditorDlg::Initialize()
1524 {
1525 // Create the data structure and a new database connection.
1526 // (As there is not a pDb being passed in the constructor, a new database
1527 // connection is created)
1528 wxGetApp().Contact = new Ccontact();
1529
1530 if (!wxGetApp().Contact)
1531 {
1532 wxMessageBox(wxT("Unable to instantiate an instance of Ccontact"),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
1533 return false;
1534 }
1535
1536 // Check if the table exists or not. If it doesn't, ask the user if they want to
1537 // create the table. Continue trying to create the table until it exists, or user aborts
1538 while (!wxGetApp().Contact->GetDb()->TableExists(CONTACT_TABLE_NAME,
1539 wxGetApp().DbConnectInf->GetUserID(),
1540 wxGetApp().DbConnectInf->GetDefaultDir()))
1541 {
1542 wxString tStr;
1543 tStr.Printf(wxT("Unable to open the table '%s'. The table may\nneed to be created.\n\nDo you wish to try to create/clear the table?\n\n"),CONTACT_TABLE_NAME.c_str());
1544 bool createTable = (wxMessageBox(tStr.c_str(),wxT("Confirm"),wxYES_NO|wxICON_QUESTION) == wxYES);
1545
1546 if (!createTable)
1547 {
1548 // Close();
1549 return false;
1550 }
1551 else
1552 wxGetApp().CreateDataTable(false);
1553 }
1554
1555 // Tables must be "opened" before anything other than creating/deleting table can be done
1556 if (!wxGetApp().Contact->Open())
1557 {
1558 // Table does exist, or there was some problem opening it. Currently this should
1559 // never fail, except in the case of the table not exisiting or the current
1560 // user has insufficent privileges to access the table
1561 #if 1
1562 // This code is experimenting with a new function that will hopefully be available
1563 // in the 2.4 release. This check will determine whether the open failing was due
1564 // to the table not existing, or the users privileges being insufficient to
1565 // open the table.
1566 if (!wxGetApp().Contact->GetDb()->TablePrivileges(CONTACT_TABLE_NAME, wxT("SELECT"),
1567 wxGetApp().Contact->GetDb()->GetUsername(),
1568 wxGetApp().Contact->GetDb()->GetUsername(),
1569 wxGetApp().DbConnectInf->GetDefaultDir()))
1570 {
1571 wxString tStr;
1572 tStr.Printf(wxT("Unable to open the table '%s' (likely due to\ninsufficient privileges of the logged in user).\n\n"),CONTACT_TABLE_NAME.c_str());
1573
1574 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
1575 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1576 }
1577 else
1578 #endif
1579 if (!wxGetApp().Contact->GetDb()->TableExists(CONTACT_TABLE_NAME,
1580 wxGetApp().Contact->GetDb()->GetUsername(),
1581 wxGetApp().DbConnectInf->GetDefaultDir()))
1582 {
1583 wxString tStr;
1584 tStr.Printf(wxT("Unable to open the table '%s' as the table\ndoes not appear to exist in the tablespace available\nto the currently logged in user.\n\n"),CONTACT_TABLE_NAME.c_str());
1585 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
1586 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1587 }
1588
1589 return false;
1590 }
1591
1592 // Build the dialog
1593
1594 (void)new wxStaticBox(this, EDITOR_DIALOG_FN_GROUP, wxEmptyString, wxPoint(15, 1), wxSize(497, 69), 0, wxT("FunctionGrp"));
1595 (void)new wxStaticBox(this, EDITOR_DIALOG_SEARCH_GROUP, wxEmptyString, wxPoint(417, 1), wxSize(95, 242), 0, wxT("SearchGrp"));
1596
1597 pCreateBtn = new wxButton(this, EDITOR_DIALOG_CREATE, wxT("&Create"), wxPoint( 25, 21), wxSize( 70, 35), 0, wxDefaultValidator, wxT("CreateBtn"));
1598 pEditBtn = new wxButton(this, EDITOR_DIALOG_EDIT, wxT("&Edit"), wxPoint(102, 21), wxSize( 70, 35), 0, wxDefaultValidator, wxT("EditBtn"));
1599 pDeleteBtn = new wxButton(this, EDITOR_DIALOG_DELETE, wxT("&Delete"), wxPoint(179, 21), wxSize( 70, 35), 0, wxDefaultValidator, wxT("DeleteBtn"));
1600 pCopyBtn = new wxButton(this, EDITOR_DIALOG_COPY, wxT("Cop&y"), wxPoint(256, 21), wxSize( 70, 35), 0, wxDefaultValidator, wxT("CopyBtn"));
1601 pSaveBtn = new wxButton(this, EDITOR_DIALOG_SAVE, wxT("&Save"), wxPoint(333, 21), wxSize( 70, 35), 0, wxDefaultValidator, wxT("SaveBtn"));
1602 pCancelBtn = new wxButton(this, EDITOR_DIALOG_CANCEL, wxT("C&ancel"), wxPoint(430, 21), wxSize( 70, 35), 0, wxDefaultValidator, wxT("CancelBtn"));
1603 pPrevBtn = new wxButton(this, EDITOR_DIALOG_PREV, wxT("<< &Prev"), wxPoint(430, 81), wxSize( 70, 35), 0, wxDefaultValidator, wxT("PrevBtn"));
1604 pNextBtn = new wxButton(this, EDITOR_DIALOG_NEXT, wxT("&Next >>"), wxPoint(430, 121), wxSize( 70, 35), 0, wxDefaultValidator, wxT("NextBtn"));
1605 pQueryBtn = new wxButton(this, EDITOR_DIALOG_QUERY, wxT("&Query"), wxPoint(430, 161), wxSize( 70, 35), 0, wxDefaultValidator, wxT("QueryBtn"));
1606 pResetBtn = new wxButton(this, EDITOR_DIALOG_RESET, wxT("&Reset"), wxPoint(430, 200), wxSize( 70, 35), 0, wxDefaultValidator, wxT("ResetBtn"));
1607 pNameMsg = new wxStaticText(this, EDITOR_DIALOG_NAME_MSG, wxT("Name:"), wxPoint( 17, 80), wxDefaultSize, 0, wxT("NameMsg"));
1608 pNameTxt = new wxTextCtrl(this, EDITOR_DIALOG_NAME_TEXT, wxEmptyString, wxPoint( 17, 97), wxSize(308, 25), 0, wxDefaultValidator, wxT("NameTxt"));
1609 pNameListBtn = new wxButton(this, EDITOR_DIALOG_LOOKUP, wxT("&Lookup"), wxPoint(333, 97), wxSize( 70, 24), 0, wxDefaultValidator, wxT("LookupBtn"));
1610 pAddress1Msg = new wxStaticText(this, EDITOR_DIALOG_ADDRESS1_MSG, wxT("Address:"), wxPoint( 17, 130), wxDefaultSize, 0, wxT("Address1Msg"));
1611 pAddress1Txt = new wxTextCtrl(this, EDITOR_DIALOG_ADDRESS2_TEXT, wxEmptyString, wxPoint( 17, 147), wxSize(308, 25), 0, wxDefaultValidator, wxT("Address1Txt"));
1612 pAddress2Msg = new wxStaticText(this, EDITOR_DIALOG_ADDRESS2_MSG, wxT("Address:"), wxPoint( 17, 180), wxDefaultSize, 0, wxT("Address2Msg"));
1613 pAddress2Txt = new wxTextCtrl(this, EDITOR_DIALOG_ADDRESS2_TEXT, wxEmptyString, wxPoint( 17, 197), wxSize(308, 25), 0, wxDefaultValidator, wxT("Address2Txt"));
1614 pCityMsg = new wxStaticText(this, EDITOR_DIALOG_CITY_MSG, wxT("City:"), wxPoint( 17, 230), wxDefaultSize, 0, wxT("CityMsg"));
1615 pCityTxt = new wxTextCtrl(this, EDITOR_DIALOG_CITY_TEXT, wxEmptyString, wxPoint( 17, 247), wxSize(225, 25), 0, wxDefaultValidator, wxT("CityTxt"));
1616 pStateMsg = new wxStaticText(this, EDITOR_DIALOG_STATE_MSG, wxT("State:"), wxPoint(250, 230), wxDefaultSize, 0, wxT("StateMsg"));
1617 pStateTxt = new wxTextCtrl(this, EDITOR_DIALOG_STATE_TEXT, wxEmptyString, wxPoint(250, 247), wxSize(153, 25), 0, wxDefaultValidator, wxT("StateTxt"));
1618 pCountryMsg = new wxStaticText(this, EDITOR_DIALOG_COUNTRY_MSG, wxT("Country:"), wxPoint( 17, 280), wxDefaultSize, 0, wxT("CountryMsg"));
1619 pCountryTxt = new wxTextCtrl(this, EDITOR_DIALOG_COUNTRY_TEXT, wxEmptyString, wxPoint( 17, 297), wxSize(225, 25), 0, wxDefaultValidator, wxT("CountryTxt"));
1620 pPostalCodeMsg = new wxStaticText(this, EDITOR_DIALOG_POSTAL_MSG, wxT("Postal Code:"),wxPoint(250, 280), wxDefaultSize, 0, wxT("PostalCodeMsg"));
1621 pPostalCodeTxt = new wxTextCtrl(this, EDITOR_DIALOG_POSTAL_TEXT, wxEmptyString, wxPoint(250, 297), wxSize(153, 25), 0, wxDefaultValidator, wxT("PostalCodeTxt"));
1622
1623 wxString choice_strings[5];
1624 choice_strings[0] = wxT("English");
1625 choice_strings[1] = wxT("French");
1626 choice_strings[2] = wxT("German");
1627 choice_strings[3] = wxT("Spanish");
1628 choice_strings[4] = wxT("Other");
1629
1630 pNativeLangChoice = new wxChoice(this, EDITOR_DIALOG_LANG_CHOICE, wxPoint( 17, 346), wxSize(277, wxDefaultCoord), 5, choice_strings);
1631 pNativeLangMsg = new wxStaticText(this, EDITOR_DIALOG_LANG_MSG, wxT("Native language:"), wxPoint( 17, 330), wxDefaultSize, 0, wxT("NativeLangMsg"));
1632
1633 wxString radio_strings[2];
1634 radio_strings[0] = wxT("No");
1635 radio_strings[1] = wxT("Yes");
1636 pDeveloperRadio = new wxRadioBox(this,EDITOR_DIALOG_DEVELOPER, wxT("Developer:"), wxPoint(303, 330), wxDefaultSize, 2, radio_strings, 2, wxHORIZONTAL);
1637 pJoinDateMsg = new wxStaticText(this, EDITOR_DIALOG_JOIN_MSG, wxT("Date joined:"), wxPoint( 17, 380), wxDefaultSize, 0, wxT("JoinDateMsg"));
1638 pJoinDateTxt = new wxTextCtrl(this, EDITOR_DIALOG_JOIN_TEXT, wxEmptyString, wxPoint( 17, 397), wxSize(150, 25), 0, wxDefaultValidator, wxT("JoinDateTxt"));
1639 pContribMsg = new wxStaticText(this, EDITOR_DIALOG_CONTRIB_MSG,wxT("Contributions:"), wxPoint(175, 380), wxDefaultSize, 0, wxT("ContribMsg"));
1640 pContribTxt = new wxTextCtrl(this, EDITOR_DIALOG_CONTRIB_TEXT, wxEmptyString, wxPoint(175, 397), wxSize(120, 25), 0, wxDefaultValidator, wxT("ContribTxt"));
1641 pLinesMsg = new wxStaticText(this, EDITOR_DIALOG_LINES_MSG, wxT("Lines of code:"), wxPoint(303, 380), wxDefaultSize, 0, wxT("LinesMsg"));
1642 pLinesTxt = new wxTextCtrl(this, EDITOR_DIALOG_LINES_TEXT, wxEmptyString, wxPoint(303, 397), wxSize(100, 25), 0, wxDefaultValidator, wxT("LinesTxt"));
1643
1644 pCatalogBtn = new wxButton(this, EDITOR_DIALOG_CATALOG, wxT("Catalo&g"), wxPoint(430, 287), wxSize( 70, 35), 0, wxDefaultValidator, wxT("CatalogBtn"));
1645 pDataTypesBtn = new wxButton(this, EDITOR_DIALOG_DATATYPES, wxT("Data&types"), wxPoint(430, 337), wxSize( 70, 35), 0, wxDefaultValidator, wxT("DataTypesBtn"));
1646 pDbDiagsBtn = new wxButton(this, EDITOR_DIALOG_DB_DIAGS, wxT("DB Dia&gs"), wxPoint(430, 387), wxSize( 70, 35), 0, wxDefaultValidator, wxT("DbDiagsBtn"));
1647
1648 #ifdef wxODBC_BLOB_SUPPORT
1649 pPictureMsg = new wxStaticText(this, EDITOR_DIALOG_PIC_MSG, wxT("Picture:"), wxPoint( 17,430), wxDefaultSize, 0, wxT("PicMsg"));
1650 pPictSizeMsg = new wxStaticText(this, EDITOR_DIALOG_PICSIZE_MSG, wxT("Picture Bytes:"), wxPoint(175,430), wxDefaultSize, 0, wxT("PicSizeMsg"));
1651 pChooseImageBtn = new wxButton(this, EDITOR_DIALOG_PIC_BROWSE, wxT("Select..."), wxPoint( 17,447), wxSize( 70, 24), 0, wxDefaultValidator, wxT("PicBrowseBtn"));
1652 pShowImageBtn = new wxButton(this, EDITOR_DIALOG_PIC_SHOW, wxT("Show..."), wxPoint( 97,447), wxSize( 70, 24), 0, wxDefaultValidator, wxT("PictShowBtn"));
1653 pPictSizeTxt = new wxTextCtrl(this, EDITOR_DIALOG_PIC_SIZE_TEXT, wxEmptyString, wxPoint(175,447), wxSize(120, 25), 0, wxDefaultValidator, wxT("PictSizeTxt"));
1654 #endif
1655
1656 // Now that all the widgets on the panel are created, its safe to allow ::OnCommand() to
1657 // handle all widget processing
1658 widgetPtrsSet = true;
1659
1660 // Setup the orderBy and where clauses to return back a single record as the result set,
1661 // as there will only be one record being shown on the dialog at a time, this optimizes
1662 // network traffic by only returning a one row result
1663
1664 wxGetApp().Contact->SetOrderByClause(wxT("NAME")); // field name to sort by
1665
1666 // The wxString "whereStr" is not a member of the wxDbTable object, it is a member variable
1667 // specifically in the Ccontact class. It is used here for simpler construction of a varying
1668 // length string, and then after the string is built, the wxDbTable member variable "where" is
1669 // assigned the pointer to the constructed string.
1670 //
1671 // The constructed where clause below has a sub-query within it "SELECT MIN(NAME) FROM %s"
1672 // to achieve a single row (in this case the first name in alphabetical order).
1673
1674 if (wxGetApp().Contact->GetDb()->Dbms() != dbmsPOSTGRES &&
1675 wxGetApp().Contact->GetDb()->Dbms() != dbmsMY_SQL)
1676 {
1677 wxGetApp().Contact->whereStr.Printf(wxT("NAME = (SELECT MIN(NAME) FROM %s)"),
1678 wxGetApp().Contact->GetTableName().c_str());
1679 // NOTE: (const wxChar*) returns a pointer which may not be valid later, so this is short term use only
1680 wxGetApp().Contact->SetWhereClause(wxGetApp().Contact->whereStr);
1681 }
1682 else
1683 wxGetApp().Contact->SetWhereClause(wxEmptyString);
1684
1685 // Perform the Query to get the result set.
1686 // NOTE: If there are no rows returned, that is a valid result, so Query() would return true.
1687 // Only if there is a database error will Query() come back as false
1688 if (!wxGetApp().Contact->Query())
1689 {
1690 wxString tStr;
1691 tStr = wxT("ODBC error during Query()\n\n");
1692 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
1693 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1694 return false;
1695 }
1696
1697 // Since Query succeeded, now get the row that was returned
1698 if (!wxGetApp().Contact->GetNext())
1699 // If the GetNext() failed at this point, then there are no rows to retrieve,
1700 // so clear the values in the members of "Contact" so that PutData() blanks the
1701 // widgets on the dialog
1702 wxGetApp().Contact->Initialize();
1703 /*
1704 wxGetApp().Contact->GetDb()->RollbackTrans();
1705 */
1706 SetMode(mView);
1707 PutData();
1708
1709 Show(true);
1710
1711 initialized = true;
1712 return true;
1713 } // CeditorDlg::Initialize()
1714
1715 #ifdef wxODBC_BLOB_SUPPORT
1716
1717 void CeditorDlg::OnSelectPict()
1718 {
1719 wxFileDialog dlg(this, wxT("Choose an image file less than 60K"), wxEmptyString, wxEmptyString, wxT("JPEG files (*.jpg)|*.jpg|GIF files (*.gif)|*.gif|BMP files (*.bmp)|*.bmp|All Files (*.*)|*.*"), wxOPEN);
1720
1721 if (dlg.ShowModal() == wxID_OK)
1722 {
1723 wxFile file(dlg.GetPath());
1724
1725 if (file.IsOpened())
1726 {
1727 // assume not huge file in sample
1728 long iSize = (long)file.Length();
1729
1730 if ((iSize > 0) && (iSize < MAX_PICTURE_SIZE))
1731 {
1732 wxGetApp().Contact->BlobSize = (size_t)iSize;
1733
1734 memset(wxGetApp().Contact->Picture, 0, MAX_PICTURE_SIZE);
1735
1736 wxFileOffset iReadSize = file.Read(wxGetApp().Contact->Picture, (size_t)iSize);
1737
1738 if (iReadSize < iSize)
1739 wxMessageBox(wxT("Something bad happened while reading..."), wxT("BLOB Loading Error"), wxOK | wxICON_EXCLAMATION);
1740
1741 wxString tStr;
1742 tStr.Printf(wxT("%ld"),iSize);
1743 pPictSizeTxt->SetValue(tStr);
1744 }
1745 else
1746 wxMessageBox(wxT("Selected File is TOO BIG. 60k is the max image size"), wxT("BLOB Loading Error"), wxOK | wxICON_EXCLAMATION);
1747 }
1748 else
1749 wxMessageBox(wxT("Unable to open the requested image file"), wxT("File Access Error"), wxOK | wxICON_EXCLAMATION);
1750 }
1751 }
1752
1753 void CeditorDlg::OnShowImage()
1754 {
1755 if (wxGetApp().Contact->BlobSize > 0)
1756 {
1757 CimageDlg dlg(this, wxGetApp().Contact->Picture, wxGetApp().Contact->BlobSize);
1758
1759 dlg.ShowModal();
1760 }
1761 }
1762
1763 #endif
1764
1765 void CeditorDlg::FieldsEditable()
1766 {
1767 if (!widgetPtrsSet)
1768 return;
1769
1770 pNameTxt->Enable((mode == mCreate) || (mode == mEdit));
1771 pAddress1Txt->Enable((mode == mCreate) || (mode == mEdit));
1772 pAddress2Txt->Enable((mode == mCreate) || (mode == mEdit));
1773 pCityTxt->Enable((mode == mCreate) || (mode == mEdit));
1774 pStateTxt->Enable((mode == mCreate) || (mode == mEdit));
1775 pPostalCodeTxt->Enable((mode == mCreate) || (mode == mEdit));
1776 pCountryTxt->Enable((mode == mCreate) || (mode == mEdit));
1777
1778 pJoinDateTxt->Enable((mode == mCreate) || (mode == mEdit));
1779 pContribTxt->Enable((mode == mCreate) || (mode == mEdit));
1780 pLinesTxt->Enable((mode == mCreate) || (mode == mEdit));
1781 pNativeLangChoice->Enable((mode == mCreate) || (mode == mEdit));
1782 pDeveloperRadio->Enable((mode == mCreate) || (mode == mEdit));
1783
1784 #ifdef wxODBC_BLOB_SUPPORT
1785 pPictSizeTxt->Enable(false);
1786 pChooseImageBtn->Enable((mode == mCreate) || (mode == mEdit));
1787 pShowImageBtn->Enable(wxGetApp().Contact && wxGetApp().Contact->BlobSize > 0); //((mode == mCreate) || (mode == mEdit));
1788 #endif
1789
1790 } // CeditorDlg::FieldsEditable()
1791
1792
1793 void CeditorDlg::SetMode(enum DialogModes m)
1794 {
1795 bool edit = false;
1796
1797 mode = m;
1798 switch (mode)
1799 {
1800 case mCreate:
1801 case mEdit:
1802 edit = true;
1803 break;
1804 case mView:
1805 case mSearch:
1806 edit = false;
1807 break;
1808 default:
1809 break;
1810 };
1811
1812 if (widgetPtrsSet)
1813 {
1814 pCreateBtn->Enable( !edit );
1815 pEditBtn->Enable( !edit && (wxStrcmp(wxGetApp().Contact->Name, wxEmptyString) != 0) );
1816 pDeleteBtn->Enable( !edit && (wxStrcmp(wxGetApp().Contact->Name, wxEmptyString)!=0) );
1817 pCopyBtn->Enable( !edit && (wxStrcmp(wxGetApp().Contact->Name, wxEmptyString)!=0) );
1818 pSaveBtn->Enable( edit );
1819 pCancelBtn->Enable( edit );
1820 pPrevBtn->Enable( !edit );
1821 pNextBtn->Enable( !edit );
1822 pQueryBtn->Enable( !edit );
1823 pResetBtn->Enable( !edit && !wxGetApp().Contact->qryWhereStr.empty() );
1824 pNameListBtn->Enable( !edit );
1825 }
1826
1827 FieldsEditable();
1828 } // CeditorDlg::SetMode()
1829
1830
1831 bool CeditorDlg::PutData()
1832 {
1833 wxString tStr;
1834
1835 pNameTxt->SetValue(wxGetApp().Contact->Name);
1836 pAddress1Txt->SetValue(wxGetApp().Contact->Addr1);
1837 pAddress2Txt->SetValue(wxGetApp().Contact->Addr2);
1838 pCityTxt->SetValue(wxGetApp().Contact->City);
1839 pStateTxt->SetValue(wxGetApp().Contact->State);
1840 pCountryTxt->SetValue(wxGetApp().Contact->Country);
1841 pPostalCodeTxt->SetValue(wxGetApp().Contact->PostalCode);
1842
1843 tStr.Printf(wxT("%d/%d/%d"),wxGetApp().Contact->JoinDate.month,wxGetApp().Contact->JoinDate.day,wxGetApp().Contact->JoinDate.year);
1844 pJoinDateTxt->SetValue(tStr);
1845
1846 tStr.Printf(wxT("%d"),wxGetApp().Contact->Contributions);
1847 pContribTxt->SetValue(tStr);
1848
1849 tStr.Printf(wxT("%lu"),wxGetApp().Contact->LinesOfCode);
1850 pLinesTxt->SetValue(tStr);
1851
1852 pNativeLangChoice->SetSelection(wxGetApp().Contact->NativeLanguage);
1853
1854 pDeveloperRadio->SetSelection(wxGetApp().Contact->IsDeveloper);
1855
1856 #ifdef wxODBC_BLOB_SUPPORT
1857 tStr.Printf(wxT("%lu"),wxGetApp().Contact->BlobSize);
1858 pPictSizeTxt->SetValue(tStr);
1859 pShowImageBtn->Enable(wxGetApp().Contact->BlobSize > 0);
1860 #endif
1861
1862 return true;
1863 } // Ceditor::PutData()
1864
1865
1866 /*
1867 * Reads the data out of all the widgets on the dialog. Some data evaluation is done
1868 * to ensure that there is a name entered and that the date field is valid.
1869 *
1870 * A return value of true means that valid data was retrieved from the dialog, otherwise
1871 * invalid data was found (and a message was displayed telling the user what to fix), and
1872 * the data was not placed into the appropraite fields of Ccontact
1873 */
1874 bool CeditorDlg::GetData()
1875 {
1876 // Validate that the data currently entered into the widgets is valid data
1877
1878 wxString tStr;
1879 tStr = pNameTxt->GetValue();
1880 if (!wxStrcmp((const wxChar*) tStr, wxEmptyString))
1881 {
1882 wxMessageBox(wxT("A name is required for entry into the contact table"), wxT("Notice..."), wxOK | wxICON_INFORMATION);
1883 return false;
1884 }
1885
1886 bool invalid = false;
1887 int mm = 1,dd = 1,yyyy = 2001;
1888 int first, second;
1889
1890 tStr = pJoinDateTxt->GetValue();
1891 if (tStr.Freq(wxT('/')) != 2)
1892 invalid = true;
1893
1894 // Find the month, day, and year tokens
1895 if (!invalid)
1896 {
1897 first = tStr.First(wxT('/'));
1898 second = tStr.Last(wxT('/'));
1899
1900 mm = wxAtoi(tStr.SubString(0,first));
1901 dd = wxAtoi(tStr.SubString(first+1,second));
1902 yyyy = wxAtoi(tStr.SubString(second+1,tStr.Length()-1));
1903
1904 invalid = !(mm && dd && yyyy);
1905 }
1906
1907 // Force Year 2000 compliance
1908 if (!invalid && (yyyy < 1000))
1909 invalid = true;
1910
1911 // Check the token ranges for validity
1912 if (!invalid)
1913 {
1914 if (yyyy > 9999)
1915 invalid = true;
1916 else if ((mm < 1) || (mm > 12))
1917 invalid = true;
1918 else
1919 {
1920 if (dd < 1)
1921 invalid = true;
1922 else
1923 {
1924 int days[12] = {31,28,31,30,31,30,
1925 31,31,30,31,30,31};
1926 if (dd > days[mm-1])
1927 {
1928 invalid = true;
1929 if ((dd == 29) && (mm == 2))
1930 {
1931 if (((yyyy % 4) == 0) && (((yyyy % 100) != 0) || ((yyyy % 400) == 0)))
1932 invalid = false;
1933 }
1934 }
1935 }
1936 }
1937 }
1938
1939 if (!invalid)
1940 {
1941 wxGetApp().Contact->JoinDate.month = (unsigned short) mm;
1942 wxGetApp().Contact->JoinDate.day = (unsigned short) dd;
1943 wxGetApp().Contact->JoinDate.year = (short) yyyy;
1944 }
1945 else
1946 {
1947 wxMessageBox(wxT("Improper date format. Please check the date\nspecified and try again.\n\nNOTE: Dates are in american format (MM/DD/YYYY)"),wxT("Notice..."),wxOK | wxICON_INFORMATION);
1948 return false;
1949 }
1950
1951 tStr = pNameTxt->GetValue();
1952 wxStrcpy(wxGetApp().Contact->Name,(const wxChar*) tStr);
1953 wxStrcpy(wxGetApp().Contact->Addr1,pAddress1Txt->GetValue());
1954 wxStrcpy(wxGetApp().Contact->Addr2,pAddress2Txt->GetValue());
1955 wxStrcpy(wxGetApp().Contact->City,pCityTxt->GetValue());
1956 wxStrcpy(wxGetApp().Contact->State,pStateTxt->GetValue());
1957 wxStrcpy(wxGetApp().Contact->Country,pCountryTxt->GetValue());
1958 wxStrcpy(wxGetApp().Contact->PostalCode,pPostalCodeTxt->GetValue());
1959
1960 wxGetApp().Contact->Contributions = (UCHAR)wxAtoi(pContribTxt->GetValue());
1961 wxGetApp().Contact->LinesOfCode = wxAtol(pLinesTxt->GetValue());
1962
1963 wxGetApp().Contact->NativeLanguage = (enum Language) pNativeLangChoice->GetSelection();
1964 wxGetApp().Contact->IsDeveloper = pDeveloperRadio->GetSelection() > 0;
1965
1966 return true;
1967 } // CeditorDlg::GetData()
1968
1969
1970 /*
1971 * Retrieve data from the dialog, verify the validity of the data, and if it is valid,
1972 * try to insert/update the data to the table based on the current 'mode' the dialog
1973 * is set to.
1974 *
1975 * A return value of true means the insert/update was completed successfully, a return
1976 * value of false means that Save() failed. If returning false, then this function
1977 * has displayed a detailed error message for the user.
1978 */
1979 bool CeditorDlg::Save()
1980 {
1981 bool failed = false;
1982
1983 // Read the data in the widgets of the dialog to get the user's data
1984 if (!GetData())
1985 failed = true;
1986
1987 // Perform any other required validations necessary before saving
1988 if (!failed)
1989 {
1990 wxBeginBusyCursor();
1991
1992 if (mode == mCreate)
1993 {
1994 RETCODE result = (RETCODE)wxGetApp().Contact->Insert();
1995
1996 failed = (result != DB_SUCCESS);
1997 if (failed)
1998 {
1999 // Some errors may be expected, like a duplicate key, so handle those instances with
2000 // specific error messages.
2001 if (result == DB_ERR_INTEGRITY_CONSTRAINT_VIOL)
2002 {
2003 wxString tStr;
2004 tStr = wxT("A duplicate key value already exists in the table.\nUnable to save record\n\n");
2005 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
2006 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
2007 }
2008 else
2009 {
2010 // Some other unexpected error occurred
2011 wxString tStr;
2012 tStr = wxT("Database insert failed\n\n");
2013 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
2014 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
2015 }
2016 }
2017 }
2018 else // mode == mEdit
2019 {
2020 wxGetApp().Contact->GetDb()->RollbackTrans();
2021 wxGetApp().Contact->whereStr.Printf(wxT("NAME = '%s'"),saveName.c_str());
2022 if (!wxGetApp().Contact->UpdateWhere(wxGetApp().Contact->whereStr))
2023 {
2024 wxString tStr;
2025 tStr = wxT("Database update failed\n\n");
2026 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
2027 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
2028 failed = true;
2029 }
2030 }
2031
2032 if (!failed)
2033 {
2034 wxGetApp().Contact->GetDb()->CommitTrans();
2035 SetMode(mView); // Sets the dialog mode back to viewing after save is successful
2036 }
2037 else
2038 wxGetApp().Contact->GetDb()->RollbackTrans();
2039
2040 wxEndBusyCursor();
2041 }
2042
2043 return !failed;
2044 } // CeditorDlg::Save()
2045
2046
2047 /*
2048 * Where this program is only showing a single row at a time in the dialog,
2049 * a special where clause must be built to find just the single row which,
2050 * in sequence, would follow the currently displayed row.
2051 */
2052 bool CeditorDlg::GetNextRec()
2053 {
2054 wxString w;
2055
2056 if (wxGetApp().Contact->GetDb()->Dbms() != dbmsPOSTGRES &&
2057 wxGetApp().Contact->GetDb()->Dbms() != dbmsMY_SQL)
2058 {
2059 w = wxT("NAME = (SELECT MIN(NAME) FROM ");
2060 w += wxGetApp().Contact->GetTableName();
2061 w += wxT(" WHERE NAME > '");
2062 }
2063 else
2064 w = wxT("(NAME > '");
2065
2066 w += wxGetApp().Contact->Name;
2067 w += wxT("'");
2068
2069 // If a query where string is currently set, append that criteria
2070 if (!wxGetApp().Contact->qryWhereStr.empty())
2071 {
2072 w += wxT(" AND (");
2073 w += wxGetApp().Contact->qryWhereStr;
2074 w += wxT(")");
2075 }
2076
2077 w += wxT(")");
2078 return(GetRec(w));
2079
2080 } // CeditorDlg::GetNextRec()
2081
2082
2083 /*
2084 * Where this program is only showing a single row at a time in the dialog,
2085 * a special where clause must be built to find just the single row which,
2086 * in sequence, would precede the currently displayed row.
2087 */
2088 bool CeditorDlg::GetPrevRec()
2089 {
2090 wxString w;
2091
2092 if (wxGetApp().Contact->GetDb()->Dbms() != dbmsPOSTGRES &&
2093 wxGetApp().Contact->GetDb()->Dbms() != dbmsMY_SQL)
2094 {
2095 w = wxT("NAME = (SELECT MAX(NAME) FROM ");
2096 w += wxGetApp().Contact->GetTableName();
2097 w += wxT(" WHERE NAME < '");
2098 }
2099 else
2100 w = wxT("(NAME < '");
2101
2102 w += wxGetApp().Contact->Name;
2103 w += wxT("'");
2104
2105 // If a query where string is currently set, append that criteria
2106 if (!wxGetApp().Contact->qryWhereStr.empty())
2107 {
2108 w += wxT(" AND (");
2109 w += wxGetApp().Contact->qryWhereStr;
2110 w += wxT(")");
2111 }
2112
2113 w += wxT(")");
2114
2115 return(GetRec(w));
2116
2117 } // CeditorDlg::GetPrevRec()
2118
2119
2120 /*
2121 * This function is here to avoid duplicating this same code in both the
2122 * GetPrevRec() and GetNextRec() functions
2123 */
2124 bool CeditorDlg::GetRec(const wxString &whereStr)
2125 {
2126 wxGetApp().Contact->SetWhereClause(whereStr);
2127 wxGetApp().Contact->SetOrderByClause(wxT("NAME"));
2128
2129 if (!wxGetApp().Contact->Query())
2130 {
2131 wxString tStr;
2132 tStr = wxT("ODBC error during Query()\n\n");
2133 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
2134 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
2135
2136 return(false);
2137 }
2138
2139 if (wxGetApp().Contact->GetNext())
2140 {
2141 PutData();
2142 return(true);
2143 }
2144 else
2145 return(false);
2146 } // CeditorDlg::GetRec()
2147
2148
2149
2150 /*
2151 * CparameterDlg constructor
2152 */
2153
2154 BEGIN_EVENT_TABLE(CparameterDlg, wxDialog)
2155 EVT_BUTTON(PARAMETER_DIALOG_SAVE, CparameterDlg::OnButton)
2156 EVT_BUTTON(PARAMETER_DIALOG_CANCEL, CparameterDlg::OnButton)
2157 EVT_CLOSE(CparameterDlg::OnCloseWindow)
2158 END_EVENT_TABLE()
2159
2160 CparameterDlg::CparameterDlg(wxWindow *parent) : wxDialog (parent, PARAMETER_DIALOG, wxT("ODBC parameter settings"), wxDefaultPosition, wxSize(400, 325))
2161 {
2162 // Since the ::OnCommand() function is overridden, this prevents the widget
2163 // detection in ::OnCommand() until all widgets have been initialized to prevent
2164 // uninitialized pointers from crashing the program
2165 widgetPtrsSet = false;
2166
2167 pParamODBCSourceMsg = new wxStaticText(this, PARAMETER_DIALOG_SOURCE_MSG, wxT("ODBC data sources:"), wxPoint( 10, 10), wxDefaultSize, 0, wxT("ParamODBCSourceMsg"));
2168 pParamODBCSourceList = new wxListBox(this, PARAMETER_DIALOG_SOURCE_LISTBOX, wxPoint( 10, 29), wxSize(285, 150), 0, 0, wxLB_SINGLE|wxLB_ALWAYS_SB, wxDefaultValidator, wxT("ParamODBCSourceList"));
2169 pParamUserNameMsg = new wxStaticText(this, PARAMETER_DIALOG_NAME_MSG, wxT("Database user name:"), wxPoint( 10, 193), wxDefaultSize, 0, wxT("ParamUserNameMsg"));
2170 pParamUserNameTxt = new wxTextCtrl(this, PARAMETER_DIALOG_NAME_TEXT, wxEmptyString, wxPoint(10, 209), wxSize( 140, 25), 0, wxDefaultValidator, wxT("ParamUserNameTxt"));
2171 pParamPasswordMsg = new wxStaticText(this, PARAMETER_DIALOG_PASSWORD_MSG, wxT("Password:"), wxPoint(156, 193), wxDefaultSize, 0, wxT("ParamPasswordMsg"));
2172 pParamPasswordTxt = new wxTextCtrl(this, PARAMETER_DIALOG_PASSWORD_TEXT, wxEmptyString, wxPoint(156, 209), wxSize( 140, 25), 0, wxDefaultValidator, wxT("ParamPasswordTxt"));
2173 pParamDirPathMsg = new wxStaticText(this, PARAMETER_DIALOG_DIRPATH_MSG, wxT("Directory:"), wxPoint( 10, 243), wxDefaultSize, 0, wxT("ParamDirPathMsg"));
2174 pParamDirPathTxt = new wxTextCtrl(this, PARAMETER_DIALOG_DIRPATH_TEXT, wxEmptyString, wxPoint( 10, 259), wxSize(140, 25), 0, wxDefaultValidator, wxT("ParamDirPathTxt"));
2175 pParamSaveBtn = new wxButton(this, PARAMETER_DIALOG_SAVE, wxT("&Save"), wxPoint(310, 21), wxSize( 70, 35), 0, wxDefaultValidator, wxT("ParamSaveBtn"));
2176 pParamCancelBtn = new wxButton(this, PARAMETER_DIALOG_CANCEL, wxT("C&ancel"), wxPoint(310, 66), wxSize( 70, 35), 0, wxDefaultValidator, wxT("ParamCancelBtn"));
2177
2178 // Now that all the widgets on the panel are created, its safe to allow ::OnCommand() to
2179 // handle all widget processing
2180 widgetPtrsSet = true;
2181
2182 saved = false;
2183 savedParamSettings = wxGetApp().params;
2184
2185 Centre(wxBOTH);
2186 PutData();
2187 ShowModal();
2188 } // CparameterDlg constructor
2189
2190
2191 void CparameterDlg::OnCloseWindow(wxCloseEvent& event)
2192 {
2193 // Put any additional checking necessary to make certain it is alright
2194 // to close the program here that is not done elsewhere
2195 if (!saved)
2196 {
2197 bool Ok = (wxMessageBox(wxT("No changes have been saved.\n\nAre you sure you wish exit the parameter screen?"),wxT("Confirm"),wxYES_NO|wxICON_QUESTION) == wxYES);
2198
2199 if (!Ok)
2200 {
2201 event.Veto();
2202 return;
2203 }
2204
2205 wxGetApp().params = savedParamSettings;
2206 }
2207
2208 if (GetParent() != NULL)
2209 GetParent()->SetFocus();
2210
2211 while (wxIsBusy())
2212 wxEndBusyCursor();
2213
2214 Show(false);
2215 SetReturnCode(0); // added so BoundsChecker would not report use of uninitialized variable
2216
2217 this->Destroy();
2218 } // CparameterDlg::OnCloseWindow()
2219
2220
2221 void CparameterDlg::OnButton( wxCommandEvent &event )
2222 {
2223 wxWindow *win = (wxWindow*) event.GetEventObject();
2224 OnCommand( *win, event );
2225 }
2226
2227
2228 void CparameterDlg::OnCommand(wxWindow& win, wxCommandEvent& WXUNUSED(event))
2229 {
2230 wxString widgetName;
2231
2232 widgetName = win.GetName();
2233
2234 if (!widgetPtrsSet)
2235 return;
2236
2237 if (widgetName == pParamSaveBtn->GetName())
2238 {
2239 if (Save())
2240 {
2241 wxString tStr;
2242 tStr = wxT("Database parameters have been saved.");
2243 if (GetParent() != NULL) // The parameter dialog was not called during startup due to a missing cfg file
2244 tStr += wxT("\nNew parameters will take effect the next time the program is started.");
2245 wxMessageBox(tStr,wxT("Notice..."),wxOK | wxICON_INFORMATION);
2246 saved = true;
2247 Close();
2248 }
2249 return;
2250 }
2251
2252 if (widgetName == pParamCancelBtn->GetName())
2253 {
2254 Close();
2255 return;
2256 }
2257 } // CparameterDlg::OnCommand()
2258
2259
2260 bool CparameterDlg::PutData()
2261 {
2262 // Fill the data source list box
2263 FillDataSourceList();
2264
2265 // Fill in the fields from the params object
2266 if (wxGetApp().params.ODBCSource && wxStrlen(wxGetApp().params.ODBCSource))
2267 {
2268 int index = pParamODBCSourceList->FindString(wxGetApp().params.ODBCSource);
2269 if (index != wxNOT_FOUND)
2270 pParamODBCSourceList->SetSelection(index);
2271 }
2272 pParamUserNameTxt->SetValue(wxGetApp().params.UserName);
2273 pParamPasswordTxt->SetValue(wxGetApp().params.Password);
2274 pParamDirPathTxt->SetValue(wxGetApp().params.DirPath);
2275 return true;
2276 } // CparameterDlg::PutData()
2277
2278
2279 bool CparameterDlg::GetData()
2280 {
2281 wxString tStr;
2282 if (pParamODBCSourceList->GetStringSelection() != wxEmptyString)
2283 {
2284 tStr = pParamODBCSourceList->GetStringSelection();
2285 if (tStr.Length() > ((int)(sizeof(wxGetApp().params.ODBCSource) / sizeof(wxChar))-1))
2286 {
2287 wxString errmsg;
2288 errmsg.Printf(wxT("ODBC Data source name is longer than the data structure to hold it.\n'Cparameter.ODBCSource' must have a larger character array\nto handle a data source with this long of a name\n\nThe data source currently selected is %d characters long."), tStr.Length());
2289 wxMessageBox(errmsg, wxT("Internal program error..."), wxOK | wxICON_EXCLAMATION);
2290 return false;
2291 }
2292 wxStrcpy(wxGetApp().params.ODBCSource, tStr);
2293 }
2294 else
2295 return false;
2296
2297 tStr = pParamUserNameTxt->GetValue();
2298 if (tStr.Length() > ((int)(sizeof(wxGetApp().params.UserName) / sizeof(wxChar))-1))
2299 {
2300 wxString errmsg;
2301 errmsg.Printf(wxT("User name is longer than the data structure to hold it.\n'Cparameter.UserName' must have a larger character array\nto handle a data source with this long of a name\n\nThe user name currently specified is %d characters long."), tStr.Length());
2302 wxMessageBox(errmsg, wxT("Internal program error..."), wxOK | wxICON_EXCLAMATION);
2303 return false;
2304 }
2305 wxStrcpy(wxGetApp().params.UserName, tStr);
2306
2307 tStr = pParamPasswordTxt->GetValue();
2308 if (tStr.Length() > ((int)(sizeof(wxGetApp().params.Password) / sizeof(wxChar))-1))
2309 {
2310 wxString errmsg;
2311 errmsg.Printf(wxT("Password is longer than the data structure to hold it.\n'Cparameter.Password' must have a larger character array\nto handle a data source with this long of a name\n\nThe password currently specified is %d characters long."), tStr.Length());
2312 wxMessageBox(errmsg, wxT("Internal program error..."), wxOK | wxICON_EXCLAMATION);
2313 return false;
2314 }
2315 wxStrcpy(wxGetApp().params.Password,tStr);
2316
2317 tStr = pParamDirPathTxt->GetValue();
2318 tStr.Replace(wxT("\\"),wxT("/"));
2319 if (tStr.Length() > ((int)(sizeof(wxGetApp().params.DirPath) / sizeof(wxChar))-1))
2320 {
2321 wxString errmsg;
2322 errmsg.Printf(wxT("DirPath is longer than the data structure to hold it.\n'Cparameter.DirPath' must have a larger character array\nto handle a data source with this long of a name\n\nThe password currently specified is %d characters long."), tStr.Length());
2323 wxMessageBox(errmsg, wxT("Internal program error..."), wxOK | wxICON_EXCLAMATION);
2324 return false;
2325 }
2326 wxStrcpy(wxGetApp().params.DirPath,tStr);
2327 return true;
2328 } // CparameterDlg::GetData()
2329
2330
2331 bool CparameterDlg::Save()
2332 {
2333 // Copy the current params in case user cancels changing
2334 // the params, so that we can reset them.
2335 if (!GetData())
2336 {
2337 wxGetApp().params = savedParamSettings;
2338 return false;
2339 }
2340
2341 wxGetApp().WriteParamFile(wxGetApp().params);
2342
2343 return true;
2344 } // CparameterDlg::Save()
2345
2346
2347 void CparameterDlg::FillDataSourceList()
2348 {
2349 wxChar Dsn[SQL_MAX_DSN_LENGTH+1];
2350 wxChar DsDesc[254+1];
2351 wxSortedArrayString strArr;
2352
2353 while (wxDbGetDataSource(wxGetApp().DbConnectInf->GetHenv(), Dsn,
2354 SQL_MAX_DSN_LENGTH, DsDesc, 254))
2355 {
2356 strArr.Add(Dsn);
2357 }
2358
2359 for (size_t i=0; i < strArr.GetCount(); i++)
2360 {
2361 pParamODBCSourceList->Append(strArr[i].c_str());
2362 }
2363
2364 } // CparameterDlg::FillDataSourceList()
2365
2366
2367 BEGIN_EVENT_TABLE(CqueryDlg, wxDialog)
2368 EVT_BUTTON(wxID_ANY, CqueryDlg::OnButton)
2369 EVT_CLOSE(CqueryDlg::OnCloseWindow)
2370 END_EVENT_TABLE()
2371
2372
2373 // CqueryDlg() constructor
2374 CqueryDlg::CqueryDlg(wxWindow *parent, wxDb *pDb, wxChar *tblName[],
2375 const wxString &pWhereArg) :
2376 wxDialog (parent, QUERY_DIALOG, wxT("Query"), wxDefaultPosition, wxSize(480, 360))
2377 {
2378 wxBeginBusyCursor();
2379
2380 colInf = 0;
2381 dbTable = 0;
2382 masterTableName = tblName[0];
2383 widgetPtrsSet = false;
2384 pDB = pDb;
2385
2386 // Initialize the WHERE clause from the string passed in
2387 pWhere = pWhereArg; // Save a pointer to the output buffer
2388 if (pWhere.Length() > (unsigned int)DB_MAX_WHERE_CLAUSE_LEN) // Check the length of the buffer passed in
2389 {
2390 wxString s;
2391 s.Printf(wxT("Maximum where clause length exceeded.\nLength must be less than %d"), DB_MAX_WHERE_CLAUSE_LEN+1);
2392 wxMessageBox(s,wxT("Error..."),wxOK | wxICON_EXCLAMATION);
2393 Close();
2394 return;
2395 }
2396
2397 pQueryCol1Msg = new wxStaticText(this, QUERY_DIALOG_COL_MSG, wxT("Column 1:"), wxPoint( 10, 10), wxSize( 69, 16), 0, wxT("QueryCol1Msg"));
2398 pQueryCol1Choice = new wxChoice(this, QUERY_DIALOG_COL_CHOICE, wxPoint( 10, 27), wxSize(250, 27), 0, 0, 0, wxDefaultValidator, wxT("QueryCol1Choice"));
2399 pQueryNotMsg = new wxStaticText(this, QUERY_DIALOG_NOT_MSG, wxT("NOT"), wxPoint(268, 10), wxDefaultSize, 0, wxT("QueryNotMsg"));
2400 pQueryNotCheck = new wxCheckBox(this, QUERY_DIALOG_NOT_CHECKBOX, wxEmptyString, wxPoint(275, 37), wxSize( 20, 20), 0, wxDefaultValidator, wxT("QueryNotCheck"));
2401
2402 wxString choice_strings[9];
2403 choice_strings[0] = wxT("=");
2404 choice_strings[1] = wxT("<");
2405 choice_strings[2] = wxT(">");
2406 choice_strings[3] = wxT("<=");
2407 choice_strings[4] = wxT(">=");
2408 choice_strings[5] = wxT("Begins");
2409 choice_strings[6] = wxT("Contains");
2410 choice_strings[7] = wxT("Like");
2411 choice_strings[8] = wxT("Between");
2412
2413 pQueryOperatorMsg = new wxStaticText(this, QUERY_DIALOG_OP_MSG, wxT("Operator:"), wxPoint(305, 10), wxDefaultSize, 0, wxT("QueryOperatorMsg"));
2414 pQueryOperatorChoice = new wxChoice(this, QUERY_DIALOG_OP_CHOICE, wxPoint(305, 27), wxSize( 80, 27), 9, choice_strings, 0, wxDefaultValidator, wxT("QueryOperatorChoice"));
2415 pQueryCol2Msg = new wxStaticText(this, QUERY_DIALOG_COL2_MSG, wxT("Column 2:"), wxPoint( 10, 65), wxSize( 69, 16), 0, wxT("QueryCol2Msg"));
2416 pQueryCol2Choice = new wxChoice(this, QUERY_DIALOG_COL2_CHOICE, wxPoint( 10, 82), wxSize(250, 27), 0, 0, 0, wxDefaultValidator, wxT("QueryCol2Choice"));
2417 pQuerySqlWhereMsg = new wxStaticText(this, QUERY_DIALOG_WHERE_MSG, wxT("SQL where clause:"), wxPoint( 10, 141), wxDefaultSize, 0, wxT("QuerySqlWhereMsg"));
2418 pQuerySqlWhereMtxt = new wxTextCtrl(this, QUERY_DIALOG_WHERE_TEXT, wxEmptyString, wxPoint( 10, 159), wxSize(377, 134), wxTE_MULTILINE, wxDefaultValidator, wxT("QuerySqlWhereMtxt"));
2419 pQueryAddBtn = new wxButton(this, QUERY_DIALOG_ADD, wxT("&Add"), wxPoint(406, 24), wxSize( 56, 26), 0, wxDefaultValidator, wxT("QueryAddBtn"));
2420 pQueryAndBtn = new wxButton(this, QUERY_DIALOG_AND, wxT("A&nd"), wxPoint(406, 58), wxSize( 56, 26), 0, wxDefaultValidator, wxT("QueryAndBtn"));
2421 pQueryOrBtn = new wxButton(this, QUERY_DIALOG_OR, wxT("&Or"), wxPoint(406, 92), wxSize( 56, 26), 0, wxDefaultValidator, wxT("QueryOrBtn"));
2422 pQueryLParenBtn = new wxButton(this, QUERY_DIALOG_LPAREN, wxT("("), wxPoint(406, 126), wxSize( 26, 26), 0, wxDefaultValidator, wxT("QueryLParenBtn"));
2423 pQueryRParenBtn = new wxButton(this, QUERY_DIALOG_RPAREN, wxT(")"), wxPoint(436, 126), wxSize( 26, 26), 0, wxDefaultValidator, wxT("QueryRParenBtn"));
2424 pQueryDoneBtn = new wxButton(this, QUERY_DIALOG_DONE, wxT("&Done"), wxPoint(406, 185), wxSize( 56, 26), 0, wxDefaultValidator, wxT("QueryDoneBtn"));
2425 pQueryClearBtn = new wxButton(this, QUERY_DIALOG_CLEAR, wxT("C&lear"), wxPoint(406, 218), wxSize( 56, 26), 0, wxDefaultValidator, wxT("QueryClearBtn"));
2426 pQueryCountBtn = new wxButton(this, QUERY_DIALOG_COUNT, wxT("&Count"), wxPoint(406, 252), wxSize( 56, 26), 0, wxDefaultValidator, wxT("QueryCountBtn"));
2427 pQueryValue1Msg = new wxStaticText(this, QUERY_DIALOG_VALUE1_MSG, wxT("Value:"), wxPoint(277, 66), wxDefaultSize, 0, wxT("QueryValue1Msg"));
2428 pQueryValue1Txt = new wxTextCtrl(this, QUERY_DIALOG_VALUE1_TEXT, wxEmptyString, wxPoint(277, 83), wxSize(108, 25), 0, wxDefaultValidator, wxT("QueryValue1Txt"));
2429 pQueryValue2Msg = new wxStaticText(this, QUERY_DIALOG_VALUE2_MSG, wxT("AND"), wxPoint(238, 126), wxDefaultSize, 0, wxT("QueryValue2Msg"));
2430 pQueryValue2Txt = new wxTextCtrl(this, QUERY_DIALOG_VALUE2_TEXT, wxEmptyString, wxPoint(277, 120), wxSize(108, 25), 0, wxDefaultValidator, wxT("QueryValue2Txt"));
2431 pQueryHintGrp = new wxStaticBox(this, QUERY_DIALOG_HINT_GROUP, wxEmptyString, wxPoint( 10, 291), wxSize(377, 40), 0, wxT("QueryHintGrp"));
2432 pQueryHintMsg = new wxStaticText(this, QUERY_DIALOG_HINT_MSG, wxEmptyString, wxPoint( 16, 306), wxDefaultSize, 0, wxT("QueryHintMsg"));
2433
2434 widgetPtrsSet = true;
2435 // Initialize the dialog
2436 wxString qualName;
2437 pQueryCol2Choice->Append(wxT("VALUE -->"));
2438 colInf = pDB->GetColumns(tblName);
2439
2440 if (!colInf)
2441 {
2442 wxEndBusyCursor();
2443 wxString tStr;
2444 tStr = wxT("ODBC error during GetColumns()\n\n");
2445 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
2446 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
2447 return;
2448 }
2449
2450 int i;
2451 for (i = 0; colInf[i].colName && wxStrlen(colInf[i].colName); i++)
2452 {
2453 // If there is more than one table being queried, qualify
2454 // the column names with the table name prefix.
2455 if (tblName[1] && wxStrlen(tblName[1]))
2456 {
2457 qualName.Printf(wxT("%s.%s"), colInf[i].tableName, colInf[i].colName);
2458 pQueryCol1Choice->Append(qualName);
2459 pQueryCol2Choice->Append(qualName);
2460 }
2461 else // Single table query, append just the column names
2462 {
2463 pQueryCol1Choice->Append(colInf[i].colName);
2464 pQueryCol2Choice->Append(colInf[i].colName);
2465 }
2466 }
2467
2468 pQueryCol1Choice->SetSelection(0);
2469 pQueryCol2Choice->SetSelection(0);
2470 pQueryOperatorChoice->SetSelection(0);
2471
2472 pQueryValue2Msg->Show(false);
2473 pQueryValue2Txt->Show(false);
2474
2475 pQueryHintMsg->SetLabel(langQRY_EQ);
2476
2477 pQuerySqlWhereMtxt->SetValue(pWhere.c_str());
2478
2479 wxEndBusyCursor();
2480
2481 // Display the dialog window
2482 Centre(wxBOTH);
2483 ShowModal();
2484 } // CqueryDlg() constructor
2485
2486
2487 CqueryDlg::~CqueryDlg()
2488 {
2489 } // CqueryDlg::~CqueryDlg() destructor
2490
2491
2492 void CqueryDlg::OnButton(wxCommandEvent &event)
2493 {
2494 wxWindow *win = (wxWindow*) event.GetEventObject();
2495 OnCommand( *win, event );
2496 } // CqueryDlg::OnButton()
2497
2498
2499 void CqueryDlg::OnCommand(wxWindow& win, wxCommandEvent& WXUNUSED(event))
2500 {
2501 // Widget pointers won't be set when the dialog is constructed.
2502 // Control is passed through this function once for each widget on
2503 // a dialog as the dialog is constructed.
2504 if (!widgetPtrsSet)
2505 return;
2506
2507 wxString widgetName = win.GetName();
2508
2509 // Operator choice box
2510 if (widgetName == pQueryOperatorChoice->GetName())
2511 {
2512 // Set the help text
2513 switch((qryOp) pQueryOperatorChoice->GetSelection())
2514 {
2515 case qryOpEQ:
2516 pQueryHintMsg->SetLabel(langQRY_EQ);
2517 break;
2518 case qryOpLT:
2519 pQueryHintMsg->SetLabel(langQRY_LT);
2520 break;
2521 case qryOpGT:
2522 pQueryHintMsg->SetLabel(langQRY_GT);
2523 break;
2524 case qryOpLE:
2525 pQueryHintMsg->SetLabel(langQRY_LE);
2526 break;
2527 case qryOpGE:
2528 pQueryHintMsg->SetLabel(langQRY_GE);
2529 break;
2530 case qryOpBEGINS:
2531 pQueryHintMsg->SetLabel(langQRY_BEGINS);
2532 break;
2533 case qryOpCONTAINS:
2534 pQueryHintMsg->SetLabel(langQRY_CONTAINS);
2535 break;
2536 case qryOpLIKE:
2537 pQueryHintMsg->SetLabel(langQRY_LIKE);
2538 break;
2539 case qryOpBETWEEN:
2540 pQueryHintMsg->SetLabel(langQRY_BETWEEN);
2541 break;
2542 }
2543
2544 // Hide the value2 widget
2545 pQueryValue2Msg->Show(false); // BETWEEN will show this widget
2546 pQueryValue2Txt->Show(false); // BETWEEN will show this widget
2547
2548 // Disable the NOT operator for <, <=, >, >=
2549 switch((qryOp) pQueryOperatorChoice->GetSelection())
2550 {
2551 case qryOpLT:
2552 case qryOpGT:
2553 case qryOpLE:
2554 case qryOpGE:
2555 pQueryNotCheck->SetValue(0);
2556 pQueryNotCheck->Enable(false);
2557 break;
2558 default:
2559 pQueryNotCheck->Enable(true);
2560 break;
2561 }
2562
2563 // Manipulate the dialog to handle the selected operator
2564 switch((qryOp) pQueryOperatorChoice->GetSelection())
2565 {
2566 case qryOpEQ:
2567 case qryOpLT:
2568 case qryOpGT:
2569 case qryOpLE:
2570 case qryOpGE:
2571 pQueryCol2Choice->Enable(true);
2572 if (pQueryCol2Choice->GetSelection()) // Column name is highlighted
2573 {
2574 pQueryValue1Msg->Show(false);
2575 pQueryValue1Txt->Show(false);
2576 }
2577 else // "Value" is highlighted
2578 {
2579 pQueryValue1Msg->Show(true);
2580 pQueryValue1Txt->Show(true);
2581 pQueryValue1Txt->SetFocus();
2582 }
2583 break;
2584 case qryOpBEGINS:
2585 case qryOpCONTAINS:
2586 case qryOpLIKE:
2587 pQueryCol2Choice->SetSelection(0);
2588 pQueryCol2Choice->Enable(false);
2589 pQueryValue1Msg->Show(true);
2590 pQueryValue1Txt->Show(true);
2591 pQueryValue1Txt->SetFocus();
2592 break;
2593 case qryOpBETWEEN:
2594 pQueryCol2Choice->SetSelection(0);
2595 pQueryCol2Choice->Enable(false);
2596 pQueryValue2Msg->Show(true);
2597 pQueryValue2Txt->Show(true);
2598 pQueryValue1Msg->Show(true);
2599 pQueryValue1Txt->Show(true);
2600 pQueryValue1Txt->SetFocus();
2601 break;
2602 }
2603
2604 return;
2605
2606 } // Operator choice box
2607
2608 // Column 2 choice
2609 if (widgetName == pQueryCol2Choice->GetName())
2610 {
2611 if (pQueryCol2Choice->GetSelection()) // Column name is highlighted
2612 {
2613 pQueryValue1Msg->Show(false);
2614 pQueryValue1Txt->Show(false);
2615 }
2616 else // "Value" is highlighted
2617 {
2618 pQueryValue1Msg->Show(true);
2619 pQueryValue1Txt->Show(true);
2620 pQueryValue1Txt->SetFocus();
2621 }
2622 return;
2623 } // Column 2 choice
2624
2625 // Add button
2626 if (widgetName == pQueryAddBtn->GetName())
2627 {
2628 ProcessAddBtn();
2629 return;
2630 } // Add button
2631
2632 // And button
2633 if (widgetName == pQueryAndBtn->GetName())
2634 {
2635 AppendToWhere(wxT(" AND\n"));
2636 return;
2637 } // And button
2638
2639 // Or button
2640 if (widgetName == pQueryOrBtn->GetName())
2641 {
2642 AppendToWhere(wxT(" OR\n"));
2643 return;
2644 } // Or button
2645
2646 // Left Paren button
2647 if (widgetName == pQueryLParenBtn->GetName())
2648 {
2649 AppendToWhere(wxT("("));
2650 return;
2651 } // Left Paren button
2652
2653 // Right paren button
2654 if (widgetName == pQueryRParenBtn->GetName())
2655 {
2656 AppendToWhere(wxT(")"));
2657 return;
2658 } // Right Paren button
2659
2660 // Done button
2661 if (widgetName == pQueryDoneBtn->GetName())
2662 {
2663 // Be sure the where clause will not overflow the output buffer
2664 if (wxStrlen(pQuerySqlWhereMtxt->GetValue()) > (unsigned int)DB_MAX_WHERE_CLAUSE_LEN)
2665 {
2666 wxString s;
2667 s.Printf(wxT("Maximum where clause length exceeded.\nLength must be less than %d"), DB_MAX_WHERE_CLAUSE_LEN+1);
2668 wxMessageBox(s,wxT("Error..."),wxOK | wxICON_EXCLAMATION);
2669 return;
2670 }
2671 // Validate the where clause for things such as matching parens
2672 if (!ValidateWhereClause())
2673 return;
2674 // Copy the where clause to the output buffer and exit
2675 pWhere = pQuerySqlWhereMtxt->GetValue();
2676 Close();
2677 return;
2678 } // Done button
2679
2680 // Clear button
2681 if (widgetName == pQueryClearBtn->GetName())
2682 {
2683 bool Ok = (wxMessageBox(wxT("Are you sure you wish to clear the Query?"), wxT("Confirm"), wxYES_NO|wxICON_QUESTION) == wxYES);
2684
2685 if (Ok)
2686 pQuerySqlWhereMtxt->SetValue(wxEmptyString);
2687
2688 return;
2689 } // Clear button
2690
2691 // Count button
2692 if (widgetName == pQueryCountBtn->GetName())
2693 {
2694 wxBeginBusyCursor();
2695 ProcessCountBtn();
2696 wxEndBusyCursor();
2697 return;
2698 } // Count button
2699
2700 } // CqueryDlg::OnCommand
2701
2702
2703 void CqueryDlg::OnCloseWindow(wxCloseEvent& WXUNUSED(event))
2704 {
2705 // Clean up
2706 wxDELETEA(colInf);
2707
2708 wxDELETE(dbTable);
2709
2710 GetParent()->SetFocus();
2711 while (wxIsBusy())
2712 wxEndBusyCursor();
2713
2714 Show(false);
2715 SetReturnCode(1); // added so BoundsChecker would not report use of uninitialized variable
2716
2717 this->Destroy();
2718 } // CqueryDlg::OnCloseWindow()
2719
2720
2721 void CqueryDlg::AppendToWhere(wxChar *s)
2722 {
2723 wxString whereStr = pQuerySqlWhereMtxt->GetValue();
2724 whereStr += s;
2725 pQuerySqlWhereMtxt->SetValue(whereStr);
2726 } // CqueryDlg::AppendToWhere()
2727
2728
2729 void CqueryDlg::ProcessAddBtn()
2730 {
2731 qryOp oper = (qryOp) pQueryOperatorChoice->GetSelection();
2732
2733 // Verify that eveything is filled in correctly
2734 if (pQueryCol2Choice->GetSelection() == 0) // "Value" is selected
2735 {
2736 // Verify that value 1 is filled in
2737 if (wxStrlen(pQueryValue1Txt->GetValue()) == 0)
2738 {
2739 wxBell();
2740 pQueryValue1Txt->SetFocus();
2741 return;
2742 }
2743 // For the BETWEEN operator, value 2 must be filled in as well
2744 if (oper == qryOpBETWEEN &&
2745 wxStrlen(pQueryValue2Txt->GetValue()) == 0)
2746 {
2747 wxBell();
2748 pQueryValue2Txt->SetFocus();
2749 return;
2750 }
2751 }
2752
2753 // Build the expression and append it to the where clause window
2754 wxString s = pQueryCol1Choice->GetStringSelection();
2755
2756 if (pQueryNotCheck->GetValue() && (oper != qryOpEQ))
2757 s += wxT(" NOT");
2758
2759 switch(oper)
2760 {
2761 case qryOpEQ:
2762 if (pQueryNotCheck->GetValue()) // NOT box is checked
2763 s += wxT(" <>");
2764 else
2765 s += wxT(" =");
2766 break;
2767 case qryOpLT:
2768 s += wxT(" <");
2769 break;
2770 case qryOpGT:
2771 s += wxT(" >");
2772 break;
2773 case qryOpLE:
2774 s += wxT(" <=");
2775 break;
2776 case qryOpGE:
2777 s += wxT(" >=");
2778 break;
2779 case qryOpBEGINS:
2780 case qryOpCONTAINS:
2781 case qryOpLIKE:
2782 s += wxT(" LIKE");
2783 break;
2784 case qryOpBETWEEN:
2785 s += wxT(" BETWEEN");
2786 break;
2787 }
2788
2789 s += wxT(" ");
2790
2791 int col1Idx = pQueryCol1Choice->GetSelection();
2792
2793 bool quote = false;
2794 if (colInf[col1Idx].sqlDataType == SQL_VARCHAR ||
2795 oper == qryOpBEGINS ||
2796 oper == qryOpCONTAINS ||
2797 oper == qryOpLIKE)
2798 quote = true;
2799
2800 if (pQueryCol2Choice->GetSelection()) // Column name
2801 s += pQueryCol2Choice->GetStringSelection();
2802 else // Column 2 is a "value"
2803 {
2804 if (quote)
2805 s += wxT("'");
2806 if (oper == qryOpCONTAINS)
2807 s += wxT("%");
2808 s += pQueryValue1Txt->GetValue();
2809 if (oper == qryOpCONTAINS || oper == qryOpBEGINS)
2810 s += wxT("%");
2811 if (quote)
2812 s += wxT("'");
2813 }
2814
2815 if (oper == qryOpBETWEEN)
2816 {
2817 s += wxT(" AND ");
2818 if (quote)
2819 s += wxT("'");
2820 s += pQueryValue2Txt->GetValue();
2821 if (quote)
2822 s += wxT("'");
2823 }
2824
2825 AppendToWhere((wxChar*) (const wxChar*) s);
2826
2827 } // CqueryDlg::ProcessAddBtn()
2828
2829
2830 void CqueryDlg::ProcessCountBtn()
2831 {
2832 if (!ValidateWhereClause())
2833 return;
2834
2835 if (!dbTable) // wxDbTable object needs to be created and opened
2836 {
2837 dbTable = new wxDbTable(pDB, masterTableName, 0, (const wxString &)wxEmptyString,
2838 !wxDB_QUERY_ONLY,
2839 wxGetApp().DbConnectInf->GetDefaultDir());
2840 if (!dbTable)
2841 {
2842 wxMessageBox(wxT("Memory allocation failed creating a wxDbTable object."),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
2843 return;
2844 }
2845 if (!dbTable->Open())
2846 {
2847 wxString tStr;
2848 tStr = wxT("ODBC error during Open()\n\n");
2849 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
2850 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
2851 return;
2852 }
2853 }
2854
2855 // Count() with WHERE clause
2856 wxString whereStr;
2857
2858 whereStr = pQuerySqlWhereMtxt->GetValue();
2859 dbTable->SetWhereClause(whereStr.c_str());
2860
2861 ULONG whereCnt = dbTable->Count();
2862
2863 // Count() of all records in the table
2864 dbTable->SetWhereClause(wxEmptyString);
2865 ULONG totalCnt = dbTable->Count();
2866
2867 if (whereCnt > 0 || totalCnt == 0)
2868 {
2869 wxString tStr;
2870 tStr.Printf(wxT("%lu of %lu records match the query criteria."),whereCnt,totalCnt);
2871 wxMessageBox(tStr,wxT("Notice..."),wxOK | wxICON_INFORMATION);
2872 }
2873 else
2874 {
2875 wxString tStr;
2876 tStr.Printf(wxT("%lu of %lu records match the query criteria.\n\nEither the criteria entered produced a result set\nwith no records, or there was a syntactical error\nin the clause you entered.\n\nPress the details button to see if any database errors were reported."),whereCnt,totalCnt);
2877 wxMessageBox(tStr,wxT("Notice..."),wxOK | wxICON_INFORMATION);
2878 }
2879
2880 // After a wxMessageBox, the focus does not necessarily return to the
2881 // window which was the focus when the message box popped up, so return
2882 // focus to the Query dialog for certain
2883 SetFocus();
2884
2885 } // CqueryDlg::ProcessCountBtn()
2886
2887
2888 bool CqueryDlg::ValidateWhereClause()
2889 {
2890 wxString where = pQuerySqlWhereMtxt->GetValue();
2891
2892 if (where.Freq(wxT('(')) != where.Freq(wxT(')')))
2893 {
2894 wxMessageBox(wxT("There are mismatched parenthesis in the constructed where clause"),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
2895 return(false);
2896 }
2897 // After a wxMessageBox, the focus does not necessarily return to the
2898 // window which was the focus when the message box popped up, so return
2899 // focus to the Query dialog for certain
2900 SetFocus();
2901
2902 return(true);
2903
2904 } // CqueryDlg::ValidateWhereClause()
2905
2906 #ifdef wxODBC_BLOB_SUPPORT
2907
2908 BEGIN_EVENT_TABLE(CimageDlg, wxDialog)
2909 EVT_CLOSE(CimageDlg::OnCloseWindow)
2910 END_EVENT_TABLE()
2911
2912 CimageDlg::CimageDlg(wxWindow *parent, wxChar *pImageData, off_t iSize)
2913 : wxDialog(parent, IMAGE_DIALOG, wxT("BLOB Image"), wxDefaultPosition, wxDefaultSize),
2914 m_pDisplayBmp(NULL),
2915 m_pBmp(NULL),
2916 m_pImage(NULL)
2917 {
2918 wxMemoryInputStream inStream(pImageData, iSize);
2919
2920 if(inStream.IsOk())
2921 {
2922 m_pImage = new wxImage(inStream, wxBITMAP_TYPE_ANY);
2923
2924 if(m_pImage->Ok())
2925 {
2926 m_pBmp = new wxBitmap(m_pImage);
2927 m_pDisplayBmp = new wxStaticBitmap(this, IMAGE_DIALOG_STATIC_BMP, *m_pBmp, wxPoint(5,5), wxDefaultSize);
2928
2929 SetSize(m_pBmp->GetWidth() + 10, m_pBmp->GetHeight() + 30);
2930 }
2931 }
2932 }
2933
2934 CimageDlg::~CimageDlg()
2935 {
2936 if(m_pImage)
2937 delete m_pImage;
2938
2939 if(m_pBmp)
2940 delete m_pBmp;
2941
2942 if(m_pDisplayBmp)
2943 delete m_pDisplayBmp;
2944 }
2945
2946 void CimageDlg::OnCloseWindow(wxCloseEvent& WXUNUSED(event))
2947 {
2948 GetParent()->SetFocus();
2949
2950 Show(false);
2951
2952 this->Destroy();
2953 }
2954
2955 #endif
2956
2957 void DisplayDbDiagnostics(wxDb *pDb)
2958 {
2959 wxString s, t;
2960 bool comma;
2961
2962 s = wxT("Diagnostics Output\n");
2963 s += langDBINF_DB_NAME;
2964 s += pDb->dbInf.dbmsName;
2965 s += wxT("\n");
2966
2967 s += langDBINF_DB_VER;
2968 s += pDb->dbInf.dbmsVer;
2969 s += wxT("\n");
2970
2971 s += langDBINF_DRIVER_NAME;
2972 s += pDb->dbInf.driverName;
2973 s += wxT("\n");
2974
2975 s += langDBINF_DRIVER_ODBC_VER;
2976 s += pDb->dbInf.odbcVer;
2977 s += wxT("\n");
2978
2979 s += langDBINF_DRIVER_MGR_ODBC_VER;
2980 s += pDb->dbInf.drvMgrOdbcVer;
2981 s += wxT("\n");
2982
2983 s += langDBINF_DRIVER_VER;
2984 s += pDb->dbInf.driverVer;
2985 s += wxT("\n");
2986
2987 s += langDBINF_SERVER_NAME;
2988 s += pDb->dbInf.serverName;
2989 s += wxT("\n");
2990
2991 s += langDBINF_FILENAME;
2992 s += pDb->dbInf.databaseName;
2993 s += wxT("\n");
2994
2995 s += langDBINF_OUTER_JOINS;
2996 s += pDb->dbInf.outerJoins;
2997 s += wxT("\n");
2998
2999 s += langDBINF_STORED_PROC;
3000 s += pDb->dbInf.procedureSupport;
3001 s += wxT("\n");
3002
3003 if (pDb->dbInf.maxConnections)
3004 t.sprintf(wxT("%s%d\n"), langDBINF_MAX_HDBC, pDb->dbInf.maxConnections);
3005 else
3006 t.sprintf(wxT("%s%s\n"), langDBINF_MAX_HDBC, langDBINF_UNLIMITED);
3007 s += t;
3008
3009 if (pDb->dbInf.maxStmts)
3010 t.sprintf(wxT("%s%d\n"), langDBINF_MAX_HSTMT, pDb->dbInf.maxStmts);
3011 else
3012 t.sprintf(wxT("%s%s\n"), langDBINF_MAX_HSTMT, langDBINF_UNLIMITED);
3013 s += t;
3014
3015 s += langDBINF_API_LVL;
3016 switch(pDb->dbInf.apiConfLvl)
3017 {
3018 case SQL_OAC_NONE: s += langDBINF_NONE; break;
3019 case SQL_OAC_LEVEL1: s += langDBINF_LEVEL1; break;
3020 case SQL_OAC_LEVEL2: s += langDBINF_LEVEL2; break;
3021 }
3022 s += wxT("\n");
3023
3024 s += langDBINF_CLI_LVL;
3025 switch(pDb->dbInf.cliConfLvl)
3026 {
3027 case SQL_OSCC_NOT_COMPLIANT: s += langDBINF_NOT_COMPLIANT; break;
3028 case SQL_OSCC_COMPLIANT: s += langDBINF_COMPLIANT; break;
3029 }
3030 s += wxT("\n");
3031
3032 s += langDBINF_SQL_LVL;
3033 switch(pDb->dbInf.sqlConfLvl)
3034 {
3035 case SQL_OSC_MINIMUM: s += langDBINF_MIN_GRAMMAR; break;
3036 case SQL_OSC_CORE: s += langDBINF_CORE_GRAMMAR; break;
3037 case SQL_OSC_EXTENDED: s += langDBINF_EXT_GRAMMAR; break;
3038 }
3039 s += wxT("\n");
3040
3041 s += langDBINF_COMMIT_BEHAVIOR;
3042 switch(pDb->dbInf.cursorCommitBehavior)
3043 {
3044 case SQL_CB_DELETE: s += langDBINF_DELETE_CURSORS; break;
3045 case SQL_CB_CLOSE: s += langDBINF_CLOSE_CURSORS; break;
3046 case SQL_CB_PRESERVE: s += langDBINF_PRESERVE_CURSORS; break;
3047 }
3048 s += wxT("\n");
3049
3050 s += langDBINF_ROLLBACK_BEHAVIOR;
3051 switch(pDb->dbInf.cursorRollbackBehavior)
3052 {
3053 case SQL_CB_DELETE: s += langDBINF_DELETE_CURSORS; break;
3054 case SQL_CB_CLOSE: s += langDBINF_CLOSE_CURSORS; break;
3055 case SQL_CB_PRESERVE: s += langDBINF_PRESERVE_CURSORS; break;
3056 }
3057 s += wxT("\n");
3058
3059 s += langDBINF_SUPP_NOT_NULL;
3060 switch(pDb->dbInf.supportNotNullClause)
3061 {
3062 case SQL_NNC_NULL: s += langNO; break;
3063 case SQL_NNC_NON_NULL: s += langYES; break;
3064 }
3065 s += wxT("\n");
3066
3067 s += langDBINF_SUPP_IEF;
3068 s += pDb->dbInf.supportIEF;
3069 s += wxT("\n");
3070
3071 // DEFAULT setting for "Transaction Isolation Level"
3072 s += langDBINF_TXN_ISOLATION;
3073 switch(pDb->dbInf.txnIsolation)
3074 {
3075 case SQL_TXN_READ_UNCOMMITTED: s += langDBINF_READ_UNCOMMITTED; break;
3076 case SQL_TXN_READ_COMMITTED: s += langDBINF_READ_COMMITTED; break;
3077 case SQL_TXN_REPEATABLE_READ: s += langDBINF_REPEATABLE_READ; break;
3078 case SQL_TXN_SERIALIZABLE: s += langDBINF_SERIALIZABLE; break;
3079 #ifdef ODBC_V20
3080 case SQL_TXN_VERSIONING: s += langDBINF_VERSIONING; break;
3081 #endif
3082 }
3083 s += wxT("\n");
3084
3085 // CURRENT setting for "Transaction Isolation Level"
3086 long txnIsoLvl;
3087 s += langDBINF_TXN_ISOLATION_CURR;
3088 if (SQLGetConnectOption(pDb->GetHDBC(),SQL_TXN_ISOLATION,&txnIsoLvl) == SQL_SUCCESS)
3089 {
3090 switch(txnIsoLvl)
3091 {
3092 case SQL_TXN_READ_UNCOMMITTED: s += langDBINF_READ_UNCOMMITTED; break;
3093 case SQL_TXN_READ_COMMITTED: s += langDBINF_READ_COMMITTED; break;
3094 case SQL_TXN_REPEATABLE_READ: s += langDBINF_REPEATABLE_READ; break;
3095 case SQL_TXN_SERIALIZABLE: s += langDBINF_SERIALIZABLE; break;
3096 #ifdef ODBC_V20
3097 case SQL_TXN_VERSIONING: s += langDBINF_VERSIONING; break;
3098 #endif
3099 }
3100 }
3101 s += wxT("\n");
3102
3103 #ifdef __VMS__
3104 #pragma message disable incboodep
3105 #endif
3106 comma = false;
3107 s += langDBINF_TXN_ISOLATION_OPTS;
3108 if (pDb->dbInf.txnIsolationOptions & SQL_TXN_READ_UNCOMMITTED)
3109 {s += langDBINF_READ_UNCOMMITTED; comma++;}
3110 if (pDb->dbInf.txnIsolationOptions & SQL_TXN_READ_COMMITTED)
3111 {if (comma++) s += wxT(", "); s += langDBINF_READ_COMMITTED;}
3112 if (pDb->dbInf.txnIsolationOptions & SQL_TXN_REPEATABLE_READ)
3113 {if (comma++) s += wxT(", "); s += langDBINF_REPEATABLE_READ;}
3114 if (pDb->dbInf.txnIsolationOptions & SQL_TXN_SERIALIZABLE)
3115 {if (comma++) s += wxT(", "); s += langDBINF_SERIALIZABLE;}
3116 #ifdef ODBC_V20
3117 if (pDb->dbInf.txnIsolationOptions & SQL_TXN_VERSIONING)
3118 {if (comma++) s += wxT(", "); s += langDBINF_VERSIONING;}
3119 #endif
3120 s += wxT("\n");
3121
3122 comma = false;
3123 s += langDBINF_FETCH_DIRS;
3124 if (pDb->dbInf.fetchDirections & SQL_FD_FETCH_NEXT)
3125 {s += langDBINF_NEXT; comma++;}
3126 if (pDb->dbInf.fetchDirections & SQL_FD_FETCH_PRIOR)
3127 {if (comma++) s += wxT(", "); s += langDBINF_PREV;}
3128 if (pDb->dbInf.fetchDirections & SQL_FD_FETCH_FIRST)
3129 {if (comma++) s += wxT(", "); s += langDBINF_FIRST;}
3130 if (pDb->dbInf.fetchDirections & SQL_FD_FETCH_LAST)
3131 {if (comma++) s += wxT(", "); s += langDBINF_LAST;}
3132 if (pDb->dbInf.fetchDirections & SQL_FD_FETCH_ABSOLUTE)
3133 {if (comma++) s += wxT(", "); s += langDBINF_ABSOLUTE;}
3134 if (pDb->dbInf.fetchDirections & SQL_FD_FETCH_RELATIVE)
3135 {if (comma++) s += wxT(", "); s += langDBINF_RELATIVE;}
3136 #ifdef ODBC_V20
3137 if (pDb->dbInf.fetchDirections & SQL_FD_FETCH_RESUME)
3138 {if (comma++) s += wxT(", "); s += langDBINF_RESUME;}
3139 #endif
3140 if (pDb->dbInf.fetchDirections & SQL_FD_FETCH_BOOKMARK)
3141 {if (comma++) s += wxT(", "); s += langDBINF_BOOKMARK;}
3142 s += wxT("\n");
3143
3144 comma = false;
3145 s += langDBINF_LOCK_TYPES;
3146 if (pDb->dbInf.lockTypes & SQL_LCK_NO_CHANGE)
3147 {s += langDBINF_NO_CHANGE; comma++;}
3148 if (pDb->dbInf.lockTypes & SQL_LCK_EXCLUSIVE)
3149 {if (comma++) s += wxT(", "); s += langDBINF_EXCLUSIVE;}
3150 if (pDb->dbInf.lockTypes & SQL_LCK_UNLOCK)
3151 {if (comma++) s += wxT(", "); s += langDBINF_UNLOCK;}
3152 s += wxT("\n");
3153
3154 comma = false;
3155 s += langDBINF_POS_OPERS;
3156 if (pDb->dbInf.posOperations & SQL_POS_POSITION)
3157 {s += langDBINF_POSITION; comma++;}
3158 if (pDb->dbInf.posOperations & SQL_POS_REFRESH)
3159 {if (comma++) s += wxT(", "); s += langDBINF_REFRESH;}
3160 if (pDb->dbInf.posOperations & SQL_POS_UPDATE)
3161 {if (comma++) s += wxT(", "); s += langDBINF_UPD;}
3162 if (pDb->dbInf.posOperations & SQL_POS_DELETE)
3163 {if (comma++) s += wxT(", "); s += langDBINF_DEL;}
3164 if (pDb->dbInf.posOperations & SQL_POS_ADD)
3165 {if (comma++) s += wxT(", "); s += langDBINF_ADD;}
3166 s += wxT("\n");
3167
3168 comma = false;
3169 s += langDBINF_POS_STMTS;
3170 if (pDb->dbInf.posStmts & SQL_PS_POSITIONED_DELETE)
3171 {s += langDBINF_POS_DEL; comma++;}
3172 if (pDb->dbInf.posStmts & SQL_PS_POSITIONED_UPDATE)
3173 {if (comma++) s += wxT(", "); s += langDBINF_POS_UPD;}
3174 if (pDb->dbInf.posStmts & SQL_PS_SELECT_FOR_UPDATE)
3175 {if (comma++) s += wxT(", "); s += langDBINF_SELECT_FOR_UPD;}
3176 s += wxT("\n");
3177
3178 comma = false;
3179 s += langDBINF_SCROLL_CONCURR;
3180 if (pDb->dbInf.scrollConcurrency & SQL_SCCO_READ_ONLY)
3181 {s += langDBINF_READ_ONLY; comma++;}
3182 if (pDb->dbInf.scrollConcurrency & SQL_SCCO_LOCK)
3183 {if (comma++) s += wxT(", "); s += langDBINF_LOCK;}
3184 if (pDb->dbInf.scrollConcurrency & SQL_SCCO_OPT_ROWVER)
3185 {if (comma++) s += wxT(", "); s += langDBINF_OPT_ROWVER;}
3186 if (pDb->dbInf.scrollConcurrency & SQL_SCCO_OPT_VALUES)
3187 {if (comma++) s += wxT(", "); s += langDBINF_OPT_VALUES;}
3188 s += wxT("\n");
3189
3190 comma = false;
3191 s += langDBINF_SCROLL_OPTS;
3192 if (pDb->dbInf.scrollOptions & SQL_SO_FORWARD_ONLY)
3193 {s += langDBINF_FWD_ONLY; comma++;}
3194 if (pDb->dbInf.scrollOptions & SQL_SO_STATIC)
3195 {if (comma++) s += wxT(", "); s += langDBINF_STATIC;}
3196 if (pDb->dbInf.scrollOptions & SQL_SO_KEYSET_DRIVEN)
3197 {if (comma++) s += wxT(", "); s += langDBINF_KEYSET_DRIVEN;}
3198 if (pDb->dbInf.scrollOptions & SQL_SO_DYNAMIC)
3199 {if (comma++) s += wxT(", "); s += langDBINF_DYNAMIC;}
3200 if (pDb->dbInf.scrollOptions & SQL_SO_MIXED)
3201 {if (comma++) s += wxT(", "); s += langDBINF_MIXED;}
3202 s += wxT("\n");
3203
3204 comma = false;
3205 s += langDBINF_STATIC_SENS;
3206 if (pDb->dbInf.staticSensitivity & SQL_SS_ADDITIONS)
3207 {s += langDBINF_ADDITIONS; comma++;}
3208 if (pDb->dbInf.staticSensitivity & SQL_SS_DELETIONS)
3209 {if (comma++) s += wxT(", "); s += langDBINF_DELETIONS;}
3210 if (pDb->dbInf.staticSensitivity & SQL_SS_UPDATES)
3211 {if (comma++) s += wxT(", "); s += langDBINF_UPDATES;}
3212 s += wxT("\n");
3213 #ifdef __VMS__
3214 #pragma message enable incboodep
3215 #endif
3216
3217
3218 s += langDBINF_TXN_CAPABLE;
3219 switch(pDb->dbInf.txnCapable)
3220 {
3221 case SQL_TC_NONE: s += langNO; break;
3222 case SQL_TC_DML: s += langDBINF_DML_ONLY; break;
3223 case SQL_TC_DDL_COMMIT: s += langDBINF_DDL_COMMIT; break;
3224 case SQL_TC_DDL_IGNORE: s += langDBINF_DDL_IGNORE; break;
3225 case SQL_TC_ALL: s += langDBINF_DDL_AND_DML; break;
3226 }
3227 s += wxT("\n");
3228
3229 t.sprintf(wxT("%s%lu\n"), langDBINF_LOGIN_TIMEOUT, pDb->dbInf.loginTimeout);
3230 s += t;
3231
3232 // Oracle specific information
3233 if (pDb->Dbms() == dbmsORACLE)
3234 {
3235 s += wxT("\n");
3236 s += langDBINF_ORACLE_BANNER;
3237 s += wxT("\n");
3238
3239 // Oracle cache hit ratio
3240 SDWORD cb;
3241 ULONG dbBlockGets;
3242 pDb->ExecSql(wxT("SELECT VALUE FROM V$SYSSTAT WHERE NAME = 'db block gets'"));
3243 pDb->GetNext();
3244 if (pDb->GetData(1, SQL_C_ULONG, &dbBlockGets, 0, &cb))
3245 {
3246 t.sprintf(wxT("%s: %lu\n"), langDBINF_DB_BLOCK_GETS, dbBlockGets);
3247 s += t;
3248 }
3249
3250 ULONG consistentGets;
3251 pDb->ExecSql(wxT("SELECT VALUE FROM V$SYSSTAT WHERE NAME = 'consistent gets'"));
3252 pDb->GetNext();
3253 if (pDb->GetData(1, SQL_C_ULONG, &consistentGets, 0, &cb))
3254 {
3255 t.sprintf(wxT("%s: %lu\n"), langDBINF_CONSISTENT_GETS, consistentGets);
3256 s += t;
3257 }
3258
3259 ULONG physReads;
3260 pDb->ExecSql(wxT("SELECT VALUE FROM V$SYSSTAT WHERE NAME = 'physical reads'"));
3261 pDb->GetNext();
3262 if (pDb->GetData(1, SQL_C_ULONG, &physReads, 0, &cb))
3263 {
3264 t.sprintf(wxT("%s: %lu\n"), langDBINF_PHYSICAL_READS, physReads);
3265 s += t;
3266 }
3267
3268 ULONG hitRatio = (ULONG)((1.00 - ((float)physReads / (float)(dbBlockGets + consistentGets))) * 100.00);
3269 t.sprintf(wxT("*** %s: %lu%%\n"), langDBINF_CACHE_HIT_RATIO, hitRatio);
3270 s += t;
3271
3272 // Tablespace information
3273 s += wxT("\n");
3274 s += langDBINF_TABLESPACE_IO;
3275 s += wxT("\n");
3276 ULONG physWrites;
3277 char tablespaceName[256+1];
3278 pDb->ExecSql(wxT("SELECT NAME,PHYRDS,PHYWRTS FROM V$DATAFILE, V$FILESTAT WHERE V$DATAFILE.FILE# = V$FILESTAT.FILE#"));
3279 while (pDb->GetNext())
3280 {
3281 pDb->GetData(1, SQL_C_WXCHAR, tablespaceName, 256, &cb);
3282 pDb->GetData(2, SQL_C_ULONG, &physReads, 0, &cb);
3283 pDb->GetData(3, SQL_C_ULONG, &physWrites, 0, &cb);
3284 t.sprintf(wxT("%s\n\t%s: %lu\t%s: %lu\n"), tablespaceName,
3285 langDBINF_PHYSICAL_READS, physReads, langDBINF_PHYSICAL_WRITES, physWrites);
3286 s += t;
3287 }
3288
3289 s += wxT("\n");
3290 }
3291
3292 s += wxT("End of Diagnostics\n");
3293 wxLogMessage(s);
3294
3295 } // DisplayDbDiagnostics()
3296
3297 #if wxUSE_GRID
3298
3299 BEGIN_EVENT_TABLE(DbGridFrame, wxFrame)
3300 // EVT_CLOSE(DbGridFrame::OnCloseWindow)
3301 END_EVENT_TABLE()
3302
3303
3304 DbGridFrame::DbGridFrame(wxWindow *parent)
3305 : wxFrame (parent, wxID_ANY, wxT("Database Table"),
3306 wxDefaultPosition, wxSize(400, 325))
3307 {
3308 initialized = false;
3309 }
3310
3311
3312 void DbGridFrame::OnCloseWindow(wxCloseEvent& WXUNUSED(event))
3313 {
3314 this->Destroy();
3315 }
3316
3317
3318 bool DbGridFrame::Initialize()
3319 {
3320 wxGrid *grid = new wxGrid(this, wxID_ANY, wxDefaultPosition);
3321
3322 grid->RegisterDataType(wxGRID_VALUE_DATETIME,
3323 new wxGridCellDateTimeRenderer(wxT("%d %b %Y")),
3324 new wxGridCellTextEditor);
3325 #ifdef CHOICEINT
3326 grid->RegisterDataType(wxGRID_VALUE_CHOICEINT,
3327 new wxGridCellEnumRenderer,
3328 new wxGridCellEnumEditor);
3329
3330 wxString NativeLangChoice( wxString::Format(wxT("%s:%s,%s,%s,%s,%s"),wxGRID_VALUE_CHOICEINT,
3331 wxT("English"),
3332 wxT("French"),
3333 wxT("German"),
3334 wxT("Spanish"),
3335 wxT("Other") ));
3336 #endif
3337
3338 // Columns must match the sequence specified in SetColDef() calls
3339 wxDbGridColInfo* cols =
3340 new wxDbGridColInfo( 0,wxGRID_VALUE_STRING,wxT("Name"),
3341 new wxDbGridColInfo( 1,wxGRID_VALUE_STRING,wxT("Address 1"),
3342 new wxDbGridColInfo( 2,wxGRID_VALUE_STRING,wxT("Address 2"),
3343 new wxDbGridColInfo( 3,wxGRID_VALUE_STRING,wxT("City"),
3344 new wxDbGridColInfo( 4,wxGRID_VALUE_STRING,wxT("State"),
3345 new wxDbGridColInfo( 5,wxGRID_VALUE_STRING,wxT("PostCode"),
3346 new wxDbGridColInfo( 6,wxGRID_VALUE_STRING,wxT("Country"),
3347 new wxDbGridColInfo( 7,wxGRID_VALUE_DBAUTO,wxT("Join Date"),
3348 new wxDbGridColInfo( 8,wxGRID_VALUE_BOOL, wxT("Developer"),
3349 new wxDbGridColInfo( 9,wxGRID_VALUE_NUMBER,wxT("Contributions"),
3350 new wxDbGridColInfo(10,wxGRID_VALUE_NUMBER,wxT("Lines Of Code"),
3351 #ifdef CHOICEINT
3352 new wxDbGridColInfo(11,NativeLangChoice, wxT("Native Language"),NULL))))))))))));
3353 #else
3354 new wxDbGridColInfo(11,wxGRID_VALUE_NUMBER,wxT("Native Language"),NULL))))))))))));
3355 #endif
3356
3357 Ccontact *Contact = new Ccontact();
3358 //wxGetApp().Contact
3359
3360 if (!Contact)
3361 {
3362 wxMessageBox(wxT("Unable to instantiate an instance of Ccontact"), wxT("Error..."), wxOK | wxICON_EXCLAMATION);
3363 return false;
3364 }
3365
3366 if (!Contact->Open())
3367 {
3368 if (Contact->GetDb()->TableExists(CONTACT_TABLE_NAME, Contact->GetDb()->GetUsername(),
3369 wxGetApp().DbConnectInf->GetDefaultDir()))
3370 {
3371 wxString tStr;
3372 tStr.Printf(wxT("Unable to open the table '%s'.\n\n"),CONTACT_TABLE_NAME.c_str());
3373 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
3374 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
3375 }
3376
3377 return false;
3378 }
3379
3380 // Execute the following query using the cursor designated
3381 // for full table query
3382 Contact->SetRowMode(wxDbTable::WX_ROW_MODE_QUERY);
3383
3384 if (!Contact->Query())
3385 {
3386 wxString tStr;
3387 tStr = wxT("ODBC error during Query()\n\n");
3388 wxMessageBox(wxDbLogExtendedErrorMsg(tStr.c_str(),wxGetApp().Contact->GetDb(),__TFILE__,__LINE__),
3389 wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
3390 return false;
3391 }
3392
3393 // No data has been read in from the database yet, so
3394 // we need to initialize the data members to valid values
3395 // so Fit() can correctly size the grid
3396 Contact->Initialize();
3397
3398 wxDbGridTableBase* db = new wxDbGridTableBase(Contact, cols, wxUSE_QUERY, true);
3399
3400 delete cols;
3401
3402 grid->SetTable(db,true);
3403 grid->SetMargins(0, 0);
3404
3405 grid->Fit();
3406 wxSize size = grid->GetSize();
3407 size.x += 10;
3408 size.y += 10;
3409 SetClientSize(size);
3410 initialized = true;
3411 return true;
3412 } // DbGridFrame::Initialize()
3413
3414 #endif // #if wxUSE_GRID
3415
3416 /*
3417 TEST CODE FOR TESTING THE wxDbCreateDataSource() FUNCTION
3418
3419 int result = 0;
3420 result = wxDbCreateDataSource(wxT("Microsoft Access Driver (*.mdb)"), wxT("GLT-TEST2"), wxT("GLT-Descrip"), false, wxEmptyString, this);
3421 if (!result)
3422 {
3423 // check for errors caused by ConfigDSN based functions
3424 DWORD retcode = 0;
3425 WORD cb;
3426 wxChar errMsg[500+1];
3427 errMsg[0] = wxT('\0');
3428
3429 SQLInstallerError(1, &retcode, errMsg, 500, &cb);
3430
3431 wxMessageBox(wxT("FAILED creating data source"), wxT("FAILED"));
3432 }
3433 else
3434 wxMessageBox(wxT("SUCCEEDED creating data source"), wxT("SUCCESS"));
3435 */
3436
3437
wxWidgets (Impactor)