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