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