samples/db/dbtest.cpp

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