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 #ifdef __WXGTK__
  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 #include "dbtest.h"                 /* Header file for this demonstration program */
  50 #include "listdb.h"                 /* Code to support the "Lookup" button on the editor dialog */
  51
  52 IMPLEMENT_APP(DatabaseDemoApp)
  53
  54 extern wxChar ListDB_Selection[];        /* Used to return the first column value for the selected line from the listDB routines */
  55 extern wxChar ListDB_Selection2[];    /* Used to return the second column value for the selected line from the listDB routines */
  56
  57 DatabaseDemoFrame *DemoFrame;       /* Pointer to the main frame */
  58
  59 /* Pointer to the main database connection used in the program.  This
  60  * pointer would normally be used for doing things as database lookups
  61  * for user login names and passwords, getting workstation settings, etc.
  62  * ---> IMPORTANT <---
  63  *
  64  *        For each database object created which uses this wxDb pointer
  65  *    connection to the database, when a CommitTrans() or RollBackTrans()
  66  *    will commit or rollback EVERY object which uses this wxDb pointer.
  67  *
  68  *    To allow each table object (those derived from wxDbTable) to be
  69  *    individually committed or rolled back, you MUST use a different
  70  *    instance of wxDb in the constructor of the table.  Doing so creates
  71  *        more overhead, and will use more database connections (some DBs have
  72  *    connection limits...), so use connections sparringly.
  73  *
  74  *        It is recommended that one "main" database connection be created for
  75  *        the entire program to use for READ-ONLY database accesses, but for each
  76  *        table object which will do a CommitTrans() or RollbackTrans() that a
  77  *        new wxDb object be created and used for it.
  78  */
  79
  80 wxDb    *READONLY_DB;
  81
  82 const char *GetExtendedDBErrorMsg(wxDb *pDb, char *ErrFile, int ErrLine)
  83 {
  84     static wxString msg;
  85     msg = wxT("");
  86
  87     wxString tStr;
  88
  89     if (ErrFile || ErrLine)
  90     {
  91         msg += wxT("File: ");
  92         msg += ErrFile;
  93         msg += wxT("   Line: ");
  94         tStr.Printf(wxT("%d"),ErrLine);
  95         msg += tStr.c_str();
  96         msg += wxT("\n");
  97     }
  98
  99     msg.Append (wxT("\nODBC errors:\n"));
 100     msg += wxT("\n");
 101
 102     // Display errors for this connection
 103     int i;
 104     for (i = 0; i < DB_MAX_ERROR_HISTORY; i++)
 105     {
 106         if (pDb->errorList[i])
 107         {
 108             msg.Append(pDb->errorList[i]);
 109             if (wxStrcmp(pDb->errorList[i],wxT("")) != 0)
 110                 msg.Append(wxT("\n"));
 111             // Clear the errmsg buffer so the next error will not
 112             // end up showing the previous error that have occurred
 113             wxStrcpy(pDb->errorList[i],wxT(""));
 114         }
 115     }
 116     msg += wxT("\n");
 117
 118     return msg.c_str();
 119 }  // GetExtendedDBErrorMsg
 120
 121
 122 bool DatabaseDemoApp::OnInit()
 123 {
 124     // Create the main frame window
 125     DemoFrame = new DatabaseDemoFrame(NULL, wxT("wxWindows Database Demo"), wxPoint(50, 50), wxSize(537, 480));
 126
 127     // Give it an icon
 128     DemoFrame->SetIcon(wxICON(db));
 129
 130     // Make a menubar
 131     wxMenu *file_menu = new wxMenu;
 132     file_menu->Append(FILE_CREATE, wxT("&Create CONTACT table"));
 133     file_menu->Append(FILE_RECREATE_TABLE, wxT("&Recreate CONTACT table"));
 134     file_menu->Append(FILE_RECREATE_INDEXES, wxT("&Recreate CONTACT indexes"));
 135     file_menu->Append(FILE_EXIT, wxT("E&xit"));
 136
 137     wxMenu *edit_menu = new wxMenu;
 138     edit_menu->Append(EDIT_PARAMETERS, wxT("&Parameters..."));
 139
 140     wxMenu *about_menu = new wxMenu;
 141     about_menu->Append(ABOUT_DEMO, wxT("&About"));
 142
 143     wxMenuBar *menu_bar = new wxMenuBar;
 144     menu_bar->Append(file_menu, wxT("&File"));
 145     menu_bar->Append(edit_menu, wxT("&Edit"));
 146     menu_bar->Append(about_menu, wxT("&About"));
 147     DemoFrame->SetMenuBar(menu_bar);
 148
 149     // Initialize the ODBC Environment for Database Operations
 150     if (SQLAllocEnv(&DbConnectInf.Henv) != SQL_SUCCESS)
 151     {
 152         wxMessageBox(wxT("A problem occured while trying to get a connection to the data source"),wxT("DB CONNECTION ERROR"),wxOK | wxICON_EXCLAMATION);
 153         return NULL;
 154     }
 155
 156     params.ODBCSource[0] = 0;
 157     params.UserName[0]   = 0;
 158     params.Password[0]   = 0;
 159     params.DirPath[0]    = 0;
 160
 161     // Show the frame
 162     DemoFrame->Show(TRUE);
 163
 164     FILE *paramFile;
 165     if ((paramFile = fopen(paramFilename, wxT("r"))) == NULL)
 166     {
 167         wxString tStr;
 168         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."),paramFilename);
 169         wxMessageBox(tStr,wxT("File I/O Error..."),wxOK | wxICON_EXCLAMATION);
 170
 171         DemoFrame->BuildParameterDialog(NULL);
 172         if ((paramFile = fopen(paramFilename, wxT("r"))) == NULL)
 173             return FALSE;
 174     }
 175
 176     wxChar buffer[1000+1];
 177     fgets(buffer, sizeof(params.ODBCSource), paramFile);
 178     buffer[wxStrlen(buffer)-1] = wxT('\0');
 179     wxStrcpy(params.ODBCSource,buffer);
 180
 181     fgets(buffer, sizeof(params.UserName), paramFile);
 182     buffer[wxStrlen(buffer)-1] = wxT('\0');
 183     wxStrcpy(params.UserName,buffer);
 184
 185     fgets(buffer, sizeof(params.Password), paramFile);
 186     buffer[wxStrlen(buffer)-1] = wxT('\0');
 187     wxStrcpy(params.Password,buffer);
 188
 189     fgets(buffer, sizeof(params.DirPath), paramFile);
 190     buffer[wxStrlen(buffer)-1] = wxT('\0');
 191     wxStrcpy(params.DirPath,buffer);
 192
 193     fclose(paramFile);
 194
 195     // Connect to datasource
 196     DbConnectInf.Dsn        = params.ODBCSource;    // ODBC data source name (created with ODBC Administrator under Win95/NT)
 197     DbConnectInf.Uid        = params.UserName;      // database username - must already exist in the data source
 198     DbConnectInf.AuthStr    = params.Password;      // password database username
 199     DbConnectInf.defaultDir = params.DirPath;       // path where the table exists (needed for dBase)
 200
 201     READONLY_DB = wxDbGetConnection(&DbConnectInf);
 202     if (READONLY_DB == 0)
 203     {
 204         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);
 205         DemoFrame->BuildParameterDialog(NULL);
 206         DbConnectInf.Dsn.Empty();
 207         DbConnectInf.Uid.Empty();
 208         DbConnectInf.AuthStr.Empty();
 209         wxMessageBox(wxT("Now exiting program.\n\nRestart program to try any new settings."),wxT("Notice..."),wxOK | wxICON_INFORMATION);
 210         return(FALSE);
 211     }
 212
 213     DemoFrame->BuildEditorDialog();
 214
 215     // Show the frame
 216     DemoFrame->Refresh();
 217
 218     return TRUE;
 219 }  // DatabaseDemoApp::OnInit()
 220
 221
 222 BEGIN_EVENT_TABLE(DatabaseDemoFrame, wxFrame)
 223     EVT_MENU(FILE_CREATE, DatabaseDemoFrame::OnCreate)
 224     EVT_MENU(FILE_RECREATE_TABLE, DatabaseDemoFrame::OnRecreateTable)
 225     EVT_MENU(FILE_RECREATE_INDEXES, DatabaseDemoFrame::OnRecreateIndexes)
 226     EVT_MENU(FILE_EXIT, DatabaseDemoFrame::OnExit)
 227     EVT_MENU(EDIT_PARAMETERS, DatabaseDemoFrame::OnEditParameters)
 228     EVT_MENU(ABOUT_DEMO, DatabaseDemoFrame::OnAbout)
 229     EVT_CLOSE(DatabaseDemoFrame::OnCloseWindow)
 230 END_EVENT_TABLE()
 231
 232
 233 // DatabaseDemoFrame constructor
 234 DatabaseDemoFrame::DatabaseDemoFrame(wxFrame *frame, const wxString& title,
 235                                      const wxPoint& pos, const wxSize& size):
 236                                         wxFrame(frame, -1, title, pos, size)
 237 {
 238     // Put any code in necessary for initializing the main frame here
 239     pEditorDlg = NULL;
 240     pParamDlg  = NULL;
 241 }  // DatabaseDemoFrame constructor
 242
 243
 244 void DatabaseDemoFrame::OnCreate(wxCommandEvent& event)
 245 {
 246     CreateDataTable(FALSE);
 247 }  // DatabaseDemoFrame::OnCreate()
 248
 249
 250 void DatabaseDemoFrame::OnRecreateTable(wxCommandEvent& event)
 251 {
 252     CreateDataTable(TRUE);
 253 }  // DatabaseDemoFrame::OnRecreate()
 254
 255
 256 void DatabaseDemoFrame::OnRecreateIndexes(wxCommandEvent& event)
 257 {
 258     // Using a new connection to the database so as not to disturb
 259     // the current cursors on the table in use in the editor dialog
 260     Ccontact *Contact = new Ccontact();
 261
 262     if (!Contact)
 263     {
 264         wxEndBusyCursor();
 265         wxMessageBox(wxT("Error allocating memory for 'Ccontact'object.\n\nTable could not be opened."),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
 266         return;
 267     }
 268
 269     if (!Contact->CreateIndexes())
 270     {
 271        wxEndBusyCursor();
 272        wxString tStr;
 273        tStr  = wxT("Error creating CONTACTS indexes.\nNew indexes will be unavailable.\n\n");
 274        tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
 275        wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
 276     }
 277
 278     delete Contact;
 279     Contact = NULL;
 280 }  // DatabaseDemoFrame::OnRecreateIndexes()
 281
 282 void DatabaseDemoFrame::OnExit(wxCommandEvent& event)
 283 {
 284     Close();
 285 }  // DatabaseDemoFrame::OnExit()
 286
 287
 288 void DatabaseDemoFrame::OnEditParameters(wxCommandEvent& event)
 289 {
 290     if ((pEditorDlg->mode != mCreate) && (pEditorDlg->mode != mEdit))
 291         BuildParameterDialog(this);
 292     else
 293         wxMessageBox(wxT("Cannot change database parameters while creating or editing a record"),wxT("Notice..."),wxOK | wxICON_INFORMATION);
 294 }  // DatabaseDemoFrame::OnEditParameters()
 295
 296
 297 void DatabaseDemoFrame::OnAbout(wxCommandEvent& event)
 298 {
 299     wxMessageBox(wxT("wxWindows sample program for database classes\n\nContributed on 27 July 1998"),wxT("About..."),wxOK | wxICON_INFORMATION);
 300 }  // DatabaseDemoFrame::OnAbout()
 301
 302
 303 void DatabaseDemoFrame::OnCloseWindow(wxCloseEvent& event)
 304 {
 305     // Put any additional checking necessary to make certain it is alright
 306     // to close the program here that is not done elsewhere
 307
 308     // Clean up time
 309     if (pEditorDlg && pEditorDlg->Close())
 310         pEditorDlg = NULL;
 311     else
 312     {
 313         if (pEditorDlg)
 314         {
 315             event.Veto();
 316             return;
 317         }
 318     }
 319
 320     // This function will close all the connections to the database that have been
 321     // previously cached.
 322     wxDbCloseConnections();
 323
 324     // Cleans up the environment space allocated for the SQL/ODBC connection handle
 325     SQLFreeEnv(DbConnectInf.Henv);
 326
 327     this->Destroy();
 328
 329 }  // DatabaseDemoFrame::OnCloseWindow()
 330
 331
 332 void DatabaseDemoFrame::CreateDataTable(bool recreate)
 333 {
 334     bool Ok = TRUE;
 335     if (recreate)
 336        Ok = (wxMessageBox(wxT("Any data currently residing in the table will be erased.\n\nAre you sure?"),wxT("Confirm"),wxYES_NO|wxICON_QUESTION) == wxYES);
 337
 338     if (!Ok)
 339         return;
 340
 341     wxBeginBusyCursor();
 342
 343     bool success = TRUE;
 344
 345     Ccontact *Contact = new Ccontact();
 346     if (!Contact)
 347     {
 348         wxEndBusyCursor();
 349         wxMessageBox(wxT("Error allocating memory for 'Ccontact'object.\n\nTable was not created."),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
 350         return;
 351     }
 352
 353     if (!Contact->CreateTable(recreate))
 354     {
 355         wxEndBusyCursor();
 356         wxString tStr;
 357         tStr  = wxT("Error creating CONTACTS table.\nTable was not created.\n\n");
 358         tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
 359         wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
 360         success = FALSE;
 361     }
 362     else
 363     {
 364         if (!Contact->CreateIndexes())
 365         {
 366             wxEndBusyCursor();
 367             wxString tStr;
 368             tStr  = wxT("Error creating CONTACTS indexes.\nIndexes will be unavailable.\n\n");
 369             tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
 370             wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
 371             success = FALSE;
 372         }
 373     }
 374     while (wxIsBusy())
 375         wxEndBusyCursor();
 376
 377     delete Contact;
 378     Contact = NULL;
 379
 380     if (success)
 381         wxMessageBox(wxT("Table and index(es) were successfully created."),wxT("Notice..."),wxOK | wxICON_INFORMATION);
 382 }  // DatabaseDemoFrame::CreateDataTable()
 383
 384
 385 void DatabaseDemoFrame::BuildEditorDialog()
 386 {
 387     pEditorDlg = NULL;
 388     pEditorDlg = new CeditorDlg(this);
 389     if (pEditorDlg)
 390     {
 391         pEditorDlg->Initialize();
 392         if (!pEditorDlg->initialized)
 393         {
 394             pEditorDlg->Close();
 395             pEditorDlg = NULL;
 396             wxMessageBox(wxT("Unable to initialize the editor dialog for some reason"),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
 397             DemoFrame->Close();
 398         }
 399     }
 400     else
 401     {
 402         wxMessageBox(wxT("Unable to create the editor dialog for some reason"),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
 403         DemoFrame->Close();
 404     }
 405 }  // DatabaseDemoFrame::BuildEditorDialog()
 406
 407
 408 void DatabaseDemoFrame::BuildParameterDialog(wxWindow *parent)
 409 {
 410     pParamDlg = new CparameterDlg(parent);
 411
 412     if (!pParamDlg)
 413         wxMessageBox(wxT("Unable to create the parameter dialog for some reason"),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
 414 }  // DatabaseDemoFrame::BuildParameterDialog()
 415
 416
 417 /*
 418  * Constructor note: If no wxDb object is passed in, a new connection to the database
 419  *     is created for this instance of Ccontact.  This can be a slow process depending
 420  *     on the database engine being used, and some database engines have a limit on the
 421  *     number of connections (either hard limits, or license restricted) so care should
 422  *     be used to use as few connections as is necessary.
 423  *
 424  * IMPORTANT: Objects which share a wxDb pointer are ALL acted upon whenever a member
 425  *     function of pDb is called (i.e. CommitTrans() or RollbackTrans(), so if modifying
 426  *     or creating a table objects which use the same pDb, know that all the objects
 427  *     will be committed or rolled back when any of the objects has this function call made.
 428  */
 429 Ccontact::Ccontact (wxDb *pwxDb) : wxDbTable(pwxDb ? pwxDb : wxDbGetConnection(&DbConnectInf), CONTACT_TABLE_NAME,CONTACT_NO_COLS, wxT(""), !wxDB_QUERY_ONLY, DbConnectInf.defaultDir)
 430 {
 431     // This is used to represent whether the database connection should be released
 432     // when this instance of the object is deleted.  If using the same connection
 433     // for multiple instance of database objects, then the connection should only be
 434     // released when the last database instance using the connection is deleted
 435     freeDbConn = !pwxDb;
 436
 437     SetupColumns();
 438
 439 }  // Ccontact Constructor
 440
 441
 442 void Ccontact::Initialize()
 443 {
 444     Name[0]            = 0;
 445     Addr1[0]           = 0;
 446     Addr2[0]           = 0;
 447     City[0]            = 0;
 448     State[0]           = 0;
 449     PostalCode[0]      = 0;
 450     Country[0]         = 0;
 451     JoinDate.year      = 1980;
 452     JoinDate.month     = 1;
 453     JoinDate.day       = 1;
 454     JoinDate.hour      = 0;
 455     JoinDate.minute    = 0;
 456     JoinDate.second    = 0;
 457     JoinDate.fraction  = 0;
 458     NativeLanguage     = langENGLISH;
 459     IsDeveloper        = FALSE;
 460     Contributions      = 0;
 461     LinesOfCode        = 0L;
 462 }  // Ccontact::Initialize
 463
 464
 465 Ccontact::~Ccontact()
 466 {
 467     if (freeDbConn)
 468     {
 469         if (!wxDbFreeConnection(GetDb()))
 470         {
 471             wxString tStr;
 472             tStr  = wxT("Unable to Free the Ccontact data table handle\n\n");
 473             tStr += GetExtendedDBErrorMsg(GetDb(),__FILE__,__LINE__);
 474             wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
 475         }
 476     }
 477 }  // Ccontract destructor
 478
 479
 480 /*
 481  * Handles setting up all the connections for the interface from the wxDbTable
 482  * functions to interface to the data structure used to store records in
 483  * memory, and for all the column definitions that define the table structure
 484  */
 485 void Ccontact::SetupColumns()
 486 {
 487     // NOTE: Columns now are 8 character names, as that is all dBase can support.  Longer
 488     //       names can be used for other database engines
 489     SetColDefs ( 0,wxT("NAME"),       DB_DATA_TYPE_VARCHAR,     Name,           SQL_C_CHAR,                 sizeof(Name),           TRUE, TRUE);  // Primary index
 490     SetColDefs ( 1,wxT("ADDRESS1"),   DB_DATA_TYPE_VARCHAR,     Addr1,          SQL_C_CHAR,                 sizeof(Addr1),          FALSE,TRUE);
 491     SetColDefs ( 2,wxT("ADDRESS2"),   DB_DATA_TYPE_VARCHAR,     Addr2,          SQL_C_CHAR,                 sizeof(Addr2),          FALSE,TRUE);
 492     SetColDefs ( 3,wxT("CITY"),       DB_DATA_TYPE_VARCHAR,     City,           SQL_C_CHAR,                 sizeof(City),           FALSE,TRUE);
 493     SetColDefs ( 4,wxT("STATE"),      DB_DATA_TYPE_VARCHAR,     State,          SQL_C_CHAR,                 sizeof(State),          FALSE,TRUE);
 494     SetColDefs ( 5,wxT("POSTCODE"),   DB_DATA_TYPE_VARCHAR,     PostalCode,     SQL_C_CHAR,                 sizeof(PostalCode),     FALSE,TRUE);
 495     SetColDefs ( 6,wxT("COUNTRY"),    DB_DATA_TYPE_VARCHAR,     Country,        SQL_C_CHAR,                 sizeof(Country),        FALSE,TRUE);
 496     SetColDefs ( 7,wxT("JOINDATE"),   DB_DATA_TYPE_DATE,       &JoinDate,       SQL_C_TIMESTAMP,            sizeof(JoinDate),       FALSE,TRUE);
 497     SetColDefs ( 8,wxT("IS_DEV"),     DB_DATA_TYPE_INTEGER,    &IsDeveloper,    SQL_C_BOOLEAN(IsDeveloper), sizeof(IsDeveloper),    FALSE,TRUE);
 498     SetColDefs ( 9,wxT("CONTRIBS"),   DB_DATA_TYPE_INTEGER,    &Contributions,  SQL_C_USHORT,               sizeof(Contributions),  FALSE,TRUE);
 499     SetColDefs (10,wxT("LINE_CNT"),   DB_DATA_TYPE_INTEGER,    &LinesOfCode,    SQL_C_ULONG,                sizeof(LinesOfCode),    FALSE,TRUE);
 500     SetColDefs (11,wxT("LANGUAGE"),   DB_DATA_TYPE_INTEGER,    &NativeLanguage, SQL_C_ENUM,                 sizeof(NativeLanguage), FALSE,TRUE);
 501 }  // Ccontact::SetupColumns
 502
 503
 504 bool Ccontact::CreateIndexes(void)
 505 {
 506     // This index could easily be accomplished with an "orderBy" clause,
 507     // but is done to show how to construct a non-primary index.
 508     wxString    indexName;
 509     wxDbIdxDef  idxDef[2];
 510
 511     bool        Ok = TRUE;
 512
 513     wxStrcpy(idxDef[0].ColName, "IS_DEV");
 514     idxDef[0].Ascending = TRUE;
 515
 516     wxStrcpy(idxDef[1].ColName, "NAME");
 517     idxDef[1].Ascending = TRUE;
 518
 519     indexName = GetTableName();
 520     indexName += "_IDX1";
 521     Ok = CreateIndex(indexName.c_str(), TRUE, 2, idxDef);
 522
 523     return Ok;
 524 }  // Ccontact::CreateIndexes()
 525
 526
 527 /*
 528  * Having a function to do a query on the primary key (and possibly others) is
 529  * very efficient and tighter coding so that it is available where ever the object
 530  * is.  Great for use with multiple tables when not using views or outer joins
 531  */
 532 bool Ccontact::FetchByName(wxChar *name)
 533 {
 534     whereStr.Printf(wxT("NAME = '%s'"),name);
 535     SetWhereClause(whereStr.c_str());
 536     SetOrderByClause(wxT(""));
 537
 538     if (!Query())
 539         return(FALSE);
 540
 541     // Fetch the record
 542     return(GetNext());
 543
 544 }  // Ccontact::FetchByName()
 545
 546
 547 /*
 548  *
 549  *  ************* DIALOGS ***************
 550  *
 551  */
 552
 553
 554 /* CeditorDlg constructor
 555  *
 556  * Creates the dialog used for creating/editing/deleting/copying a Ccontact object.
 557  * This dialog actually is drawn in the main frame of the program
 558  *
 559  * An instance of Ccontact is created - "Contact" - which is used to hold the Ccontact
 560  * object that is currently being worked with.
 561  */
 562
 563 BEGIN_EVENT_TABLE(CeditorDlg, wxPanel)
 564     EVT_BUTTON(-1,  CeditorDlg::OnButton)
 565     EVT_CLOSE(CeditorDlg::OnCloseWindow)
 566 END_EVENT_TABLE()
 567
 568 CeditorDlg::CeditorDlg(wxWindow *parent) : wxPanel (parent, 0, 0, 537, 480)
 569 {
 570     // Since the ::OnCommand() function is overridden, this prevents the widget
 571     // detection in ::OnCommand() until all widgets have been initialized to prevent
 572     // uninitialized pointers from crashing the program
 573     widgetPtrsSet = FALSE;
 574
 575     initialized = FALSE;
 576
 577     Contact = NULL;
 578
 579     Show(FALSE);
 580 }  // CeditorDlg constructor
 581
 582
 583 void CeditorDlg::OnCloseWindow(wxCloseEvent& event)
 584 {
 585     // Clean up time
 586     if ((mode != mCreate) && (mode != mEdit))
 587     {
 588         if (Contact)
 589         {
 590             delete Contact;
 591             Contact = NULL;
 592         }
 593         this->Destroy();
 594     }
 595     else
 596     {
 597         wxMessageBox(wxT("Must finish processing the current record being created/modified before exiting"),wxT("Notice..."),wxOK | wxICON_INFORMATION);
 598         event.Veto();
 599     }
 600 }  // CeditorDlg::OnCloseWindow()
 601
 602
 603 void CeditorDlg::OnButton(wxCommandEvent &event)
 604 {
 605     wxWindow *win = (wxWindow*) event.GetEventObject();
 606     OnCommand( *win, event );
 607 }  // CeditorDlg::OnButton()
 608
 609
 610 void CeditorDlg::OnCommand(wxWindow& win, wxCommandEvent& event)
 611 {
 612     wxString widgetName;
 613
 614     widgetName = win.GetName();
 615
 616     if (!widgetPtrsSet)
 617         return;
 618
 619     if (widgetName == pCreateBtn->GetName())
 620     {
 621         Contact->Initialize();
 622         PutData();
 623         SetMode( mCreate );
 624         pNameTxt->SetValue(wxT(""));
 625         pNameTxt->SetFocus();
 626         return;
 627     }
 628
 629     if (widgetName == pEditBtn->GetName())
 630     {
 631         saveName = Contact->Name;
 632         SetMode( mEdit );
 633         pNameTxt->SetFocus();
 634         return;
 635     }
 636
 637     if (widgetName == pCopyBtn->GetName())
 638     {
 639         SetMode(mCreate);
 640         pNameTxt->SetValue(wxT(""));
 641         pNameTxt->SetFocus();
 642
 643         return;
 644     }
 645
 646     if (widgetName == pDeleteBtn->GetName())
 647     {
 648         bool Ok = (wxMessageBox(wxT("Are you sure?"),wxT("Confirm"),wxYES_NO|wxICON_QUESTION) == wxYES);
 649
 650         if (!Ok)
 651             return;
 652
 653         if (Ok && Contact->Delete())
 654         {
 655             // NOTE: Deletions are not finalized until a CommitTrans() is performed.
 656             //       If the commit were not performed, the program will continue to
 657             //       show the table contents as if they were deleted until this instance
 658             //       of Ccontact is deleted.  If the Commit wasn't performed, the
 659             //       database will automatically Rollback the changes when the database
 660             //       connection is terminated
 661             Contact->GetDb()->CommitTrans();
 662
 663             // Try to get the row that followed the just deleted row in the orderBy sequence
 664             if (!GetNextRec())
 665             {
 666                 // There was now row (in sequence) after the just deleted row, so get the
 667                 // row which preceded the just deleted row
 668                 if (!GetPrevRec())
 669                 {
 670                     // There are now no rows remaining, so clear the dialog widgets
 671                     Contact->Initialize();
 672                     PutData();
 673                 }
 674             }
 675             SetMode(mode);    // force reset of button enable/disable
 676         }
 677         else
 678             // Delete failed
 679             Contact->GetDb()->RollbackTrans();
 680
 681         SetMode(mView);
 682         return;
 683     }
 684
 685     if (widgetName == pSaveBtn->GetName())
 686     {
 687         Save();
 688         return;
 689     }
 690
 691     if (widgetName == pCancelBtn->GetName())
 692     {
 693         bool Ok = (wxMessageBox(wxT("Are you sure?"),wxT("Confirm"),wxYES_NO|wxICON_QUESTION) == wxYES);
 694
 695         if (!Ok)
 696             return;
 697
 698         if (saveName.IsEmpty())
 699         {
 700             Contact->Initialize();
 701             PutData();
 702             SetMode(mView);
 703             return;
 704         }
 705         else
 706         {
 707             // Requery previous record
 708             if (Contact->FetchByName((wxChar*) (const wxChar*) saveName))
 709             {
 710                 PutData();
 711                 SetMode(mView);
 712                 return;
 713             }
 714         }
 715
 716         // Previous record not available, retrieve first record in table
 717         if (Contact->GetDb()->Dbms() != dbmsPOSTGRES && Contact->GetDb()->Dbms() != dbmsMY_SQL)
 718         {
 719             Contact->whereStr  = wxT("NAME = (SELECT MIN(NAME) FROM ");
 720             Contact->whereStr += Contact->GetTableName();
 721             Contact->whereStr += wxT(")");
 722             Contact->SetWhereClause(Contact->whereStr.c_str());
 723         }
 724         else
 725             Contact->SetWhereClause(wxT(""));
 726
 727         if (!Contact->Query())
 728         {
 729             wxString tStr;
 730             tStr  = wxT("ODBC error during Query()\n\n");
 731             tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
 732             wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
 733             SetMode(mView);
 734             return;
 735         }
 736         if (Contact->GetNext())  // Successfully read first record
 737         {
 738             PutData();
 739             SetMode(mView);
 740             return;
 741         }
 742         // No contacts are available, clear dialog
 743         Contact->Initialize();
 744         PutData();
 745         SetMode(mView);
 746         return;
 747     }  // Cancel Button
 748
 749     if (widgetName == pPrevBtn->GetName())
 750     {
 751         if (!GetPrevRec())
 752             wxBell();
 753         return;
 754     }  // Prev Button
 755
 756     if (widgetName == pNextBtn->GetName())
 757     {
 758         if (!GetNextRec())
 759             wxBell();
 760         return;
 761     }  // Next Button
 762
 763     if (widgetName == pQueryBtn->GetName())
 764     {
 765         // Display the query dialog box
 766         wxChar qryWhere[DB_MAX_WHERE_CLAUSE_LEN+1];
 767         wxStrcpy(qryWhere, (const wxChar*) Contact->qryWhereStr);
 768         wxChar *tblName[] = {(wxChar *)CONTACT_TABLE_NAME, 0};
 769         new CqueryDlg(GetParent(), Contact->GetDb(), tblName, qryWhere);
 770
 771         // Query the first record in the new record set and
 772         // display it, if the query string has changed.
 773         if (wxStrcmp(qryWhere, (const wxChar*) Contact->qryWhereStr))
 774         {
 775             Contact->whereStr.Empty();
 776             Contact->SetOrderByClause("NAME");
 777
 778             if (Contact->GetDb()->Dbms() != dbmsPOSTGRES && Contact->GetDb()->Dbms() != dbmsMY_SQL)
 779             {
 780                 Contact->whereStr  = wxT("NAME = (SELECT MIN(NAME) FROM ");
 781                 Contact->whereStr += CONTACT_TABLE_NAME;
 782             }
 783
 784             // Append the query where string (if there is one)
 785             Contact->qryWhereStr  = qryWhere;
 786             if (wxStrlen(qryWhere))
 787             {
 788                 Contact->whereStr += wxT(" WHERE ");
 789                 Contact->whereStr += Contact->qryWhereStr;
 790             }
 791             // Close the expression with a right paren
 792             Contact->whereStr += wxT(")");
 793             // Requery the table
 794             Contact->SetWhereClause(Contact->whereStr.c_str());
 795             if (!Contact->Query())
 796             {
 797                 wxString tStr;
 798                 tStr  = wxT("ODBC error during Query()\n\n");
 799                 tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
 800                 wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
 801                 return;
 802             }
 803             // Display the first record from the query set
 804             if (!Contact->GetNext())
 805                 Contact->Initialize();
 806             PutData();
 807         }
 808
 809         // Enable/Disable the reset button
 810         pResetBtn->Enable(!Contact->qryWhereStr.IsEmpty());
 811
 812         return;
 813     }  // Query button
 814
 815
 816     if (widgetName == pResetBtn->GetName())
 817     {
 818         // Clear the additional where criteria established by the query feature
 819         Contact->qryWhereStr = wxT("");
 820         Contact->SetOrderByClause(wxT("NAME"));
 821
 822         if (Contact->GetDb()->Dbms() != dbmsPOSTGRES && Contact->GetDb()->Dbms() != dbmsMY_SQL)
 823         {
 824             Contact->whereStr        = wxT("NAME = (SELECT MIN(NAME) FROM ");
 825             Contact->whereStr        += CONTACT_TABLE_NAME;
 826             Contact->whereStr        += wxT(")");
 827         }
 828
 829         Contact->SetWhereClause(Contact->whereStr.c_str());
 830         if (!Contact->Query())
 831         {
 832             wxString tStr;
 833             tStr  = wxT("ODBC error during Query()\n\n");
 834             tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
 835             wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
 836             return;
 837         }
 838         if (!Contact->GetNext())
 839             Contact->Initialize();
 840         PutData();
 841         pResetBtn->Enable(FALSE);
 842
 843         return;
 844     }  // Reset button
 845
 846
 847     if (widgetName == pNameListBtn->GetName())
 848     {
 849         new ClookUpDlg(/* wxWindow  *parent        */ this,
 850                        /* wxChar      *windowTitle   */ wxT("Select contact name"),
 851                        /* wxChar      *tableName     */ (wxChar *) CONTACT_TABLE_NAME,
 852                        /* wxChar      *dispCol1      */ wxT("NAME"),
 853                        /* wxChar      *dispCol2      */ wxT("JOINDATE"),
 854                        /* wxChar      *where         */ wxT(""),
 855                        /* wxChar      *orderBy       */ wxT("NAME"),
 856                        /* bool      distinctValues */ TRUE);
 857
 858         if (ListDB_Selection && wxStrlen(ListDB_Selection))
 859         {
 860             wxString w = wxT("NAME = '");
 861             w += ListDB_Selection;
 862             w += wxT("'");
 863             GetRec((wxChar*) (const wxChar*) w);
 864         }
 865
 866         return;
 867     }
 868 }  // CeditorDlg::OnCommand()
 869
 870
 871 bool CeditorDlg::Initialize()
 872 {
 873     // Create the data structure and a new database connection.
 874     // (As there is not a pDb being passed in the constructor, a new database
 875     // connection is created)
 876     Contact = new Ccontact();
 877
 878     if (!Contact)
 879     {
 880         wxMessageBox(wxT("Unable to instantiate an instance of Ccontact"),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
 881         return FALSE;
 882     }
 883
 884     // Check if the table exists or not.  If it doesn't, ask the user if they want to
 885     // create the table.  Continue trying to create the table until it exists, or user aborts
 886     while (!Contact->GetDb()->TableExists((wxChar *)CONTACT_TABLE_NAME,DbConnectInf.Uid,DbConnectInf.defaultDir))
 887     {
 888         wxString tStr;
 889         tStr.Printf(wxT("Unable to open the table '%s'.\n\nTable may need to be created...?\n\n"),CONTACT_TABLE_NAME);
 890         tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
 891         wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
 892
 893         bool createTable = (wxMessageBox(wxT("Do you wish to try to create/clear the CONTACTS table?"),wxT("Confirm"),wxYES_NO|wxICON_QUESTION) == wxYES);
 894
 895         if (!createTable)
 896         {
 897 //            Close();
 898             return FALSE;
 899         }
 900         else
 901             DemoFrame->CreateDataTable(TRUE);
 902     }
 903
 904     // Tables must be "opened" before anything other than creating/deleting table can be done
 905     if (!Contact->Open())
 906     {
 907         // Table does exist, or there was some problem opening it.  Currently this should
 908         // never fail, except in the case of the table not exisiting or the current
 909         // user has insufficent privileges to access the table
 910 #if 0
 911 // This code is experimenting with a new function that will hopefully be available
 912 // in the 2.4 release.  This check will determine whether the open failing was due
 913 // to the table not existing, or the users privileges being insufficient to
 914 // open the table.
 915         if (!Contact->GetDb()->TablePrivileges(CONTACT_TABLE_NAME,wxT("SELECT"),Contact->GetDb()->GetUsername(),Contact->GetDb()->GetUsername(),DbConnectInf.defaultDir))
 916         {
 917             wxString tStr;
 918             tStr.Printf(wxT("Unable to open the table '%s'.\n\n"),CONTACT_TABLE_NAME);
 919             tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
 920             wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
 921         }
 922         else
 923 #endif
 924         if (Contact->GetDb()->TableExists(CONTACT_TABLE_NAME,Contact->GetDb()->GetUsername(),DbConnectInf.defaultDir))
 925         {
 926             wxString tStr;
 927             tStr.Printf(wxT("Unable to open the table '%s'.\n\n"),CONTACT_TABLE_NAME);
 928             tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
 929             wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
 930         }
 931
 932         return FALSE;
 933     }
 934
 935     // Build the dialog
 936
 937     (void)new wxStaticBox(this, EDITOR_DIALOG_FN_GROUP, wxT(""),  wxPoint(15, 1), wxSize(497,  69), 0, wxT("FunctionGrp"));
 938     (void)new wxStaticBox(this, EDITOR_DIALOG_SEARCH_GROUP, wxT(""), wxPoint(417, 1), wxSize(95, 242), 0, wxT("SearchGrp"));
 939
 940     pCreateBtn      = new wxButton(this, EDITOR_DIALOG_CREATE,           wxT("&Create"),     wxPoint( 25,  21), wxSize( 70,  35), 0, wxDefaultValidator, wxT("CreateBtn"));
 941     pEditBtn        = new wxButton(this, EDITOR_DIALOG_EDIT,             wxT("&Edit"),       wxPoint(102,  21), wxSize( 70,  35), 0, wxDefaultValidator, wxT("EditBtn"));
 942     pDeleteBtn      = new wxButton(this, EDITOR_DIALOG_DELETE,           wxT("&Delete"),     wxPoint(179,  21), wxSize( 70,  35), 0, wxDefaultValidator, wxT("DeleteBtn"));
 943     pCopyBtn        = new wxButton(this, EDITOR_DIALOG_COPY,             wxT("Cop&y"),       wxPoint(256,  21), wxSize( 70,  35), 0, wxDefaultValidator, wxT("CopyBtn"));
 944     pSaveBtn        = new wxButton(this, EDITOR_DIALOG_SAVE,             wxT("&Save"),       wxPoint(333,  21), wxSize( 70,  35), 0, wxDefaultValidator, wxT("SaveBtn"));
 945     pCancelBtn      = new wxButton(this, EDITOR_DIALOG_CANCEL,           wxT("C&ancel"),     wxPoint(430,  21), wxSize( 70,  35), 0, wxDefaultValidator, wxT("CancelBtn"));
 946     pPrevBtn        = new wxButton(this, EDITOR_DIALOG_PREV,             wxT("<< &Prev"),    wxPoint(430,  81), wxSize( 70,  35), 0, wxDefaultValidator, wxT("PrevBtn"));
 947     pNextBtn        = new wxButton(this, EDITOR_DIALOG_NEXT,             wxT("&Next >>"),    wxPoint(430, 121), wxSize( 70,  35), 0, wxDefaultValidator, wxT("NextBtn"));
 948     pQueryBtn       = new wxButton(this, EDITOR_DIALOG_QUERY,            wxT("&Query"),      wxPoint(430, 161), wxSize( 70,  35), 0, wxDefaultValidator, wxT("QueryBtn"));
 949     pResetBtn       = new wxButton(this, EDITOR_DIALOG_RESET,            wxT("&Reset"),      wxPoint(430, 200), wxSize( 70,  35), 0, wxDefaultValidator, wxT("ResetBtn"));
 950     pNameMsg        = new wxStaticText(this, EDITOR_DIALOG_NAME_MSG,     wxT("Name:"),       wxPoint( 17,  80), wxSize( -1,  -1), 0, wxT("NameMsg"));
 951     pNameTxt        = new wxTextCtrl(this, EDITOR_DIALOG_NAME_TEXT,      wxT(""),            wxPoint( 17,  97), wxSize(308,  25), 0, wxDefaultValidator, wxT("NameTxt"));
 952     pNameListBtn    = new wxButton(this, EDITOR_DIALOG_LOOKUP,           wxT("&Lookup"),     wxPoint(333,  97), wxSize( 70,  24), 0, wxDefaultValidator, wxT("LookupBtn"));
 953     pAddress1Msg    = new wxStaticText(this, EDITOR_DIALOG_ADDRESS1_MSG, wxT("Address:"),    wxPoint( 17, 130), wxSize( -1,  -1), 0, wxT("Address1Msg"));
 954     pAddress1Txt    = new wxTextCtrl(this, EDITOR_DIALOG_ADDRESS2_TEXT,  wxT(""),            wxPoint( 17, 147), wxSize(308,  25), 0, wxDefaultValidator, wxT("Address1Txt"));
 955     pAddress2Msg    = new wxStaticText(this, EDITOR_DIALOG_ADDRESS2_MSG, wxT("Address:"),    wxPoint( 17, 180), wxSize( -1,  -1), 0, wxT("Address2Msg"));
 956     pAddress2Txt    = new wxTextCtrl(this, EDITOR_DIALOG_ADDRESS2_TEXT,  wxT(""),            wxPoint( 17, 197), wxSize(308,  25), 0, wxDefaultValidator, wxT("Address2Txt"));
 957     pCityMsg        = new wxStaticText(this, EDITOR_DIALOG_CITY_MSG,     wxT("City:"),       wxPoint( 17, 230), wxSize( -1,  -1), 0, wxT("CityMsg"));
 958     pCityTxt        = new wxTextCtrl(this, EDITOR_DIALOG_CITY_TEXT,      wxT(""),            wxPoint( 17, 247), wxSize(225,  25), 0, wxDefaultValidator, wxT("CityTxt"));
 959     pStateMsg       = new wxStaticText(this, EDITOR_DIALOG_STATE_MSG,    wxT("State:"),      wxPoint(250, 230), wxSize( -1,  -1), 0, wxT("StateMsg"));
 960     pStateTxt       = new wxTextCtrl(this, EDITOR_DIALOG_STATE_TEXT,     wxT(""),            wxPoint(250, 247), wxSize(153,  25), 0, wxDefaultValidator, wxT("StateTxt"));
 961     pCountryMsg     = new wxStaticText(this, EDITOR_DIALOG_COUNTRY_MSG,  wxT("Country:"),    wxPoint( 17, 280), wxSize( -1,  -1), 0, wxT("CountryMsg"));
 962     pCountryTxt     = new wxTextCtrl(this, EDITOR_DIALOG_COUNTRY_TEXT,   wxT(""),            wxPoint( 17, 297), wxSize(225,  25), 0, wxDefaultValidator, wxT("CountryTxt"));
 963     pPostalCodeMsg  = new wxStaticText(this, EDITOR_DIALOG_POSTAL_MSG,   wxT("Postal Code:"),wxPoint(250, 280), wxSize( -1,  -1), 0, wxT("PostalCodeMsg"));
 964     pPostalCodeTxt  = new wxTextCtrl(this, EDITOR_DIALOG_POSTAL_TEXT,    wxT(""),            wxPoint(250, 297), wxSize(153,  25), 0, wxDefaultValidator, wxT("PostalCodeTxt"));
 965
 966     wxString choice_strings[5];
 967     choice_strings[0] = wxT("English");
 968     choice_strings[1] = wxT("French");
 969     choice_strings[2] = wxT("German");
 970     choice_strings[3] = wxT("Spanish");
 971     choice_strings[4] = wxT("Other");
 972
 973     pNativeLangChoice = new wxChoice(this, EDITOR_DIALOG_LANG_CHOICE,                             wxPoint( 17, 346), wxSize(277,  -1), 5, choice_strings);
 974     pNativeLangMsg    = new wxStaticText(this, EDITOR_DIALOG_LANG_MSG,   wxT("Native language:"), wxPoint( 17, 330), wxSize( -1,  -1), 0, wxT("NativeLangMsg"));
 975
 976     wxString radio_strings[2];
 977     radio_strings[0]  = wxT("No");
 978     radio_strings[1]  = wxT("Yes");
 979     pDeveloperRadio   = new wxRadioBox(this,EDITOR_DIALOG_DEVELOPER,     wxT("Developer:"),       wxPoint(303, 330), wxSize( -1,  -1), 2, radio_strings, 2, wxHORIZONTAL);
 980     pJoinDateMsg      = new wxStaticText(this, EDITOR_DIALOG_JOIN_MSG,   wxT("Date joined:"),     wxPoint( 17, 380), wxSize( -1,  -1), 0, wxT("JoinDateMsg"));
 981     pJoinDateTxt      = new wxTextCtrl(this, EDITOR_DIALOG_JOIN_TEXT,    wxT(""),                 wxPoint( 17, 397), wxSize(150,  25), 0, wxDefaultValidator, wxT("JoinDateTxt"));
 982     pContribMsg       = new wxStaticText(this, EDITOR_DIALOG_CONTRIB_MSG,wxT("Contributions:"),   wxPoint(175, 380), wxSize( -1,  -1), 0, wxT("ContribMsg"));
 983     pContribTxt       = new wxTextCtrl(this, EDITOR_DIALOG_CONTRIB_TEXT, wxT(""),                 wxPoint(175, 397), wxSize(120,  25), 0, wxDefaultValidator, wxT("ContribTxt"));
 984     pLinesMsg         = new wxStaticText(this, EDITOR_DIALOG_LINES_MSG,  wxT("Lines of code:"),   wxPoint(303, 380), wxSize( -1,  -1), 0, wxT("LinesMsg"));
 985     pLinesTxt         = new wxTextCtrl(this, EDITOR_DIALOG_LINES_TEXT,   wxT(""),                 wxPoint(303, 397), wxSize(100,  25), 0, wxDefaultValidator, wxT("LinesTxt"));
 986
 987     // Now that all the widgets on the panel are created, its safe to allow ::OnCommand() to
 988     // handle all widget processing
 989     widgetPtrsSet = TRUE;
 990
 991     // Setup the orderBy and where clauses to return back a single record as the result set,
 992     // as there will only be one record being shown on the dialog at a time, this optimizes
 993     // network traffic by only returning a one row result
 994
 995     Contact->SetOrderByClause(wxT("NAME"));  // field name to sort by
 996
 997     // The wxString "whereStr" is not a member of the wxDbTable object, it is a member variable
 998     // specifically in the Ccontact class.  It is used here for simpler construction of a varying
 999     // length string, and then after the string is built, the wxDbTable member variable "where" is
1000     // assigned the pointer to the constructed string.
1001     //
1002     // The constructed where clause below has a sub-query within it "SELECT MIN(NAME) FROM %s"
1003     // to achieve a single row (in this case the first name in alphabetical order).
1004
1005     if (Contact->GetDb()->Dbms() != dbmsPOSTGRES && Contact->GetDb()->Dbms() != dbmsMY_SQL)
1006     {
1007         Contact->whereStr.sprintf(wxT("NAME = (SELECT MIN(NAME) FROM %s)"),Contact->GetTableName());
1008         // NOTE: (const wxChar*) returns a pointer which may not be valid later, so this is short term use only
1009         Contact->SetWhereClause(Contact->whereStr.c_str());
1010     }
1011     else
1012        Contact->SetWhereClause(wxT(""));
1013
1014     // Perform the Query to get the result set.
1015     // NOTE: If there are no rows returned, that is a valid result, so Query() would return TRUE.
1016     //       Only if there is a database error will Query() come back as FALSE
1017     if (!Contact->Query())
1018     {
1019         wxString tStr;
1020         tStr  = wxT("ODBC error during Query()\n\n");
1021         tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
1022         wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1023 //        GetParent()->Close();
1024         return FALSE;
1025     }
1026
1027     // Since Query succeeded, now get the row that was returned
1028     if (!Contact->GetNext())
1029         // If the GetNext() failed at this point, then there are no rows to retrieve,
1030         // so clear the values in the members of "Contact" so that PutData() blanks the
1031         // widgets on the dialog
1032         Contact->Initialize();
1033
1034     SetMode(mView);
1035     PutData();
1036
1037     Show(TRUE);
1038
1039     initialized = TRUE;
1040     return TRUE;
1041 }  // CeditorDlg::Initialize()
1042
1043
1044 void CeditorDlg::FieldsEditable()
1045 {
1046     pNameTxt->Enable((mode == mCreate) || (mode == mEdit));
1047     pAddress1Txt->Enable((mode == mCreate) || (mode == mEdit));
1048     pAddress2Txt->Enable((mode == mCreate) || (mode == mEdit));
1049     pCityTxt->Enable((mode == mCreate) || (mode == mEdit));
1050     pStateTxt->Enable((mode == mCreate) || (mode == mEdit));
1051     pPostalCodeTxt->Enable((mode == mCreate) || (mode == mEdit));
1052     pCountryTxt->Enable((mode == mCreate) || (mode == mEdit));
1053
1054     pJoinDateTxt->Enable((mode == mCreate) || (mode == mEdit));
1055     pContribTxt->Enable((mode == mCreate) || (mode == mEdit));
1056     pLinesTxt->Enable((mode == mCreate) || (mode == mEdit));
1057     pNativeLangChoice->Enable((mode == mCreate) || (mode == mEdit));
1058     pDeveloperRadio->Enable((mode == mCreate) || (mode == mEdit));
1059
1060 }  // CeditorDlg::FieldsEditable()
1061
1062
1063 void CeditorDlg::SetMode(enum DialogModes m)
1064 {
1065     bool edit = FALSE;
1066
1067     mode = m;
1068     switch (mode)
1069     {
1070         case mCreate:
1071         case mEdit:
1072             edit = TRUE;
1073             break;
1074         case mView:
1075         case mSearch:
1076             edit = FALSE;
1077             break;
1078         default:
1079                 break;
1080     };
1081
1082     if (widgetPtrsSet)
1083     {
1084         pCreateBtn->Enable( !edit );
1085         pEditBtn->Enable( !edit && (wxStrcmp(Contact->Name,wxT(""))!=0) );
1086         pDeleteBtn->Enable( !edit && (wxStrcmp(Contact->Name,wxT(""))!=0) );
1087         pCopyBtn->Enable( !edit && (wxStrcmp(Contact->Name,wxT(""))!=0) );
1088         pSaveBtn->Enable( edit );
1089         pCancelBtn->Enable( edit );
1090         pPrevBtn->Enable( !edit );
1091         pNextBtn->Enable( !edit );
1092         pQueryBtn->Enable( !edit );
1093         pResetBtn->Enable( !edit && !Contact->qryWhereStr.IsEmpty() );
1094         pNameListBtn->Enable( !edit );
1095     }
1096
1097     FieldsEditable();
1098 }  // CeditorDlg::SetMode()
1099
1100
1101 bool CeditorDlg::PutData()
1102 {
1103     wxString tStr;
1104
1105     pNameTxt->SetValue(Contact->Name);
1106     pAddress1Txt->SetValue(Contact->Addr1);
1107     pAddress2Txt->SetValue(Contact->Addr2);
1108     pCityTxt->SetValue(Contact->City);
1109     pStateTxt->SetValue(Contact->State);
1110     pCountryTxt->SetValue(Contact->Country);
1111     pPostalCodeTxt->SetValue(Contact->PostalCode);
1112
1113     tStr.Printf(wxT("%d/%d/%d"),Contact->JoinDate.month,Contact->JoinDate.day,Contact->JoinDate.year);
1114     pJoinDateTxt->SetValue(tStr);
1115
1116     tStr.Printf(wxT("%d"),Contact->Contributions);
1117     pContribTxt->SetValue(tStr);
1118
1119     tStr.Printf(wxT("%lu"),Contact->LinesOfCode);
1120     pLinesTxt->SetValue(tStr);
1121
1122     pNativeLangChoice->SetSelection(Contact->NativeLanguage);
1123
1124     pDeveloperRadio->SetSelection(Contact->IsDeveloper);
1125
1126     return TRUE;
1127 }  // Ceditor::PutData()
1128
1129
1130 /*
1131  * Reads the data out of all the widgets on the dialog.  Some data evaluation is done
1132  * to ensure that there is a name entered and that the date field is valid.
1133  *
1134  * A return value of TRUE means that valid data was retrieved from the dialog, otherwise
1135  * invalid data was found (and a message was displayed telling the user what to fix), and
1136  * the data was not placed into the appropraite fields of Ccontact
1137  */
1138 bool CeditorDlg::GetData()
1139 {
1140     // Validate that the data currently entered into the widgets is valid data
1141
1142     wxString tStr;
1143     tStr = pNameTxt->GetValue();
1144     if (!wxStrcmp((const wxChar*) tStr,wxT("")))
1145     {
1146         wxMessageBox(wxT("A name is required for entry into the contact table"),wxT("Notice..."),wxOK | wxICON_INFORMATION);
1147         return FALSE;
1148     }
1149
1150     bool    invalid = FALSE;
1151     int    mm,dd,yyyy;
1152     int    first, second;
1153
1154     tStr = pJoinDateTxt->GetValue();
1155     if (tStr.Freq(wxT('/')) != 2)
1156         invalid = TRUE;
1157
1158     // Find the month, day, and year tokens
1159     if (!invalid)
1160     {
1161         first   = tStr.First(wxT('/'));
1162         second  = tStr.Last(wxT('/'));
1163
1164         mm      = atoi(tStr.SubString(0,first));
1165         dd      = atoi(tStr.SubString(first+1,second));
1166         yyyy    = atoi(tStr.SubString(second+1,tStr.Length()-1));
1167
1168         invalid = !(mm && dd && yyyy);
1169     }
1170
1171     // Force Year 2000 compliance
1172     if (!invalid && (yyyy < 1000))
1173         invalid = TRUE;
1174
1175     // Check the token ranges for validity
1176     if (!invalid)
1177     {
1178         if (yyyy > 9999)
1179             invalid = TRUE;
1180         else if ((mm < 1) || (mm > 12))
1181             invalid = TRUE;
1182         else
1183         {
1184             if (dd < 1)
1185                 invalid = TRUE;
1186             else
1187             {
1188                 int days[12] = {31,28,31,30,31,30,
1189                                 31,31,30,31,30,31};
1190                 if (dd > days[mm-1])
1191                 {
1192                     invalid = TRUE;
1193                     if ((dd == 29) && (mm == 2))
1194                     {
1195                         if (((yyyy % 4) == 0) && (((yyyy % 100) != 0) || ((yyyy % 400) == 0)))
1196                             invalid = FALSE;
1197                     }
1198                 }
1199             }
1200         }
1201     }
1202
1203     if (!invalid)
1204     {
1205         Contact->JoinDate.month = mm;
1206         Contact->JoinDate.day   = dd;
1207         Contact->JoinDate.year  = yyyy;
1208     }
1209     else
1210     {
1211         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);
1212         return FALSE;
1213     }
1214
1215     tStr = pNameTxt->GetValue();
1216     wxStrcpy(Contact->Name,(const wxChar*) tStr);
1217     wxStrcpy(Contact->Addr1,pAddress1Txt->GetValue());
1218     wxStrcpy(Contact->Addr2,pAddress2Txt->GetValue());
1219     wxStrcpy(Contact->City,pCityTxt->GetValue());
1220     wxStrcpy(Contact->State,pStateTxt->GetValue());
1221     wxStrcpy(Contact->Country,pCountryTxt->GetValue());
1222     wxStrcpy(Contact->PostalCode,pPostalCodeTxt->GetValue());
1223
1224     Contact->Contributions = atoi(pContribTxt->GetValue());
1225     Contact->LinesOfCode = atol(pLinesTxt->GetValue());
1226
1227     Contact->NativeLanguage = (enum Language) pNativeLangChoice->GetSelection();
1228     Contact->IsDeveloper = pDeveloperRadio->GetSelection() > 0;
1229
1230     return TRUE;
1231 }  // CeditorDlg::GetData()
1232
1233
1234 /*
1235  * Retrieve data from the dialog, verify the validity of the data, and if it is valid,
1236  * try to insert/update the data to the table based on the current 'mode' the dialog
1237  * is set to.
1238  *
1239  * A return value of TRUE means the insert/update was completed successfully, a return
1240  * value of FALSE means that Save() failed.  If returning FALSE, then this function
1241  * has displayed a detailed error message for the user.
1242  */
1243 bool CeditorDlg::Save()
1244 {
1245     bool failed = FALSE;
1246
1247     // Read the data in the widgets of the dialog to get the user's data
1248     if (!GetData())
1249         failed = TRUE;
1250
1251     // Perform any other required validations necessary before saving
1252     if (!failed)
1253     {
1254         wxBeginBusyCursor();
1255
1256         if (mode == mCreate)
1257         {
1258             RETCODE result = Contact->Insert();
1259
1260             failed = (result != DB_SUCCESS);
1261             if (failed)
1262             {
1263                 // Some errors may be expected, like a duplicate key, so handle those instances with
1264                 // specific error messages.
1265                 if (result == DB_ERR_INTEGRITY_CONSTRAINT_VIOL)
1266                 {
1267                     wxString tStr;
1268                     tStr  = wxT("A duplicate key value already exists in the table.\nUnable to save record\n\n");
1269                     tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
1270                     wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1271                 }
1272                 else
1273                 {
1274                     // Some other unexpexted error occurred
1275                     wxString tStr;
1276                     tStr  = wxT("Database insert failed\n\n");
1277                     tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
1278                     wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1279                 }
1280             }
1281         }
1282         else  // mode == mEdit
1283         {
1284             if (!Contact->Update())
1285             {
1286                 wxString tStr;
1287                 tStr  = wxT("Database update failed\n\n");
1288                 tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
1289                 wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1290                 failed = TRUE;
1291             }
1292         }
1293
1294         if (!failed)
1295         {
1296             Contact->GetDb()->CommitTrans();
1297             SetMode(mView);  // Sets the dialog mode back to viewing after save is successful
1298         }
1299         else
1300             Contact->GetDb()->RollbackTrans();
1301
1302         wxEndBusyCursor();
1303     }
1304
1305     return !failed;
1306 }  // CeditorDlg::Save()
1307
1308
1309 /*
1310  * Where this program is only showing a single row at a time in the dialog,
1311  * a special where clause must be built to find just the single row which,
1312  * in sequence, would follow the currently displayed row.
1313  */
1314 bool CeditorDlg::GetNextRec()
1315 {
1316     wxString w;
1317
1318     if (Contact->GetDb()->Dbms() != dbmsPOSTGRES && Contact->GetDb()->Dbms() != dbmsMY_SQL)
1319     {
1320         w  = wxT("NAME = (SELECT MIN(NAME) FROM ");
1321         w += Contact->GetTableName();
1322         w += wxT(" WHERE NAME > '");
1323     }
1324     else
1325         w = wxT("(NAME > '");
1326
1327     w += Contact->Name;
1328     w += wxT("'");
1329
1330     // If a query where string is currently set, append that criteria
1331     if (!Contact->qryWhereStr.IsEmpty())
1332     {
1333         w += wxT(" AND (");
1334         w += Contact->qryWhereStr;
1335         w += wxT(")");
1336     }
1337
1338     w += wxT(")");
1339     return(GetRec((wxChar*) (const wxChar*) w));
1340
1341 }  // CeditorDlg::GetNextRec()
1342
1343
1344 /*
1345  * Where this program is only showing a single row at a time in the dialog,
1346  * a special where clause must be built to find just the single row which,
1347  * in sequence, would precede the currently displayed row.
1348  */
1349 bool CeditorDlg::GetPrevRec()
1350 {
1351     wxString w;
1352
1353     if (Contact->GetDb()->Dbms() != dbmsPOSTGRES && Contact->GetDb()->Dbms() != dbmsMY_SQL)
1354     {
1355         w  = wxT("NAME = (SELECT MAX(NAME) FROM ");
1356         w += Contact->GetTableName();
1357         w += wxT(" WHERE NAME < '");
1358     }
1359     else
1360         w = wxT("(NAME < '");
1361
1362     w += Contact->Name;
1363     w += wxT("'");
1364
1365     // If a query where string is currently set, append that criteria
1366     if (!Contact->qryWhereStr.IsEmpty())
1367     {
1368         w += wxT(" AND (");
1369         w += Contact->qryWhereStr;
1370         w += wxT(")");
1371     }
1372
1373     w += wxT(")");
1374
1375     return(GetRec((wxChar*) (const wxChar*)w));
1376
1377 }  // CeditorDlg::GetPrevRec()
1378
1379
1380 /*
1381  * This function is here to avoid duplicating this same code in both the
1382  * GetPrevRec() and GetNextRec() functions
1383  */
1384 bool CeditorDlg::GetRec(wxChar *whereStr)
1385 {
1386     Contact->SetWhereClause(whereStr);
1387     Contact->SetOrderByClause(wxT("NAME"));
1388
1389     if (!Contact->Query())
1390     {
1391         wxString tStr;
1392         tStr  = wxT("ODBC error during Query()\n\n");
1393         tStr += GetExtendedDBErrorMsg(Contact->GetDb(),__FILE__,__LINE__);
1394         wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1395
1396         return(FALSE);
1397     }
1398
1399     if (Contact->GetNext())
1400     {
1401         PutData();
1402         return(TRUE);
1403     }
1404     else
1405         return(FALSE);
1406 }  // CeditorDlg::GetRec()
1407
1408
1409
1410 /*
1411  * CparameterDlg constructor
1412  */
1413
1414 BEGIN_EVENT_TABLE(CparameterDlg, wxDialog)
1415     EVT_BUTTON(PARAMETER_DIALOG_SAVE,  CparameterDlg::OnButton)
1416     EVT_BUTTON(PARAMETER_DIALOG_CANCEL,  CparameterDlg::OnButton)
1417     EVT_CLOSE(CparameterDlg::OnCloseWindow)
1418 END_EVENT_TABLE()
1419
1420 CparameterDlg::CparameterDlg(wxWindow *parent) : wxDialog (parent, PARAMETER_DIALOG, wxT("ODBC parameter settings"), wxPoint(-1, -1), wxSize(400, 325))
1421 {
1422     // Since the ::OnCommand() function is overridden, this prevents the widget
1423     // detection in ::OnCommand() until all widgets have been initialized to prevent
1424     // uninitialized pointers from crashing the program
1425     widgetPtrsSet = FALSE;
1426
1427     pParamODBCSourceMsg  = new wxStaticText(this, PARAMETER_DIALOG_SOURCE_MSG,   wxT("ODBC data sources:"),   wxPoint( 10, 10),    wxSize( -1,  -1), 0, wxT("ParamODBCSourceMsg"));
1428     pParamODBCSourceList = new wxListBox(this, PARAMETER_DIALOG_SOURCE_LISTBOX,                          wxPoint( 10, 29),    wxSize(285, 150), 0, 0, wxLB_SINGLE|wxLB_ALWAYS_SB, wxDefaultValidator, wxT("ParamODBCSourceList"));
1429     pParamUserNameMsg    = new wxStaticText(this, PARAMETER_DIALOG_NAME_MSG,     wxT("Database user name:"),  wxPoint( 10, 193),   wxSize( -1,  -1), 0, wxT("ParamUserNameMsg"));
1430     pParamUserNameTxt    = new wxTextCtrl(this, PARAMETER_DIALOG_NAME_TEXT,      wxT(""), wxPoint(10, 209),   wxSize( 140, 25),    0, wxDefaultValidator, wxT("ParamUserNameTxt"));
1431     pParamPasswordMsg    = new wxStaticText(this, PARAMETER_DIALOG_PASSWORD_MSG, wxT("Password:"),            wxPoint(156, 193),   wxSize( -1,  -1), 0, wxT("ParamPasswordMsg"));
1432     pParamPasswordTxt    = new wxTextCtrl(this, PARAMETER_DIALOG_PASSWORD_TEXT,  wxT(""), wxPoint(156, 209),  wxSize( 140,  25),   0, wxDefaultValidator, wxT("ParamPasswordTxt"));
1433     pParamDirPathMsg     = new wxStaticText(this, PARAMETER_DIALOG_DIRPATH_MSG,  wxT("Directory:"),           wxPoint( 10, 243),   wxSize( -1,  -1), 0, wxT("ParamDirPathMsg"));
1434     pParamDirPathTxt     = new wxTextCtrl(this, PARAMETER_DIALOG_DIRPATH_TEXT,   wxT(""),                     wxPoint( 10, 259),   wxSize(140,  25), 0, wxDefaultValidator, wxT("ParamDirPathTxt"));
1435     pParamSaveBtn        = new wxButton(this, PARAMETER_DIALOG_SAVE,             wxT("&Save"),                wxPoint(310,  21),   wxSize( 70,  35), 0, wxDefaultValidator, wxT("ParamSaveBtn"));
1436     pParamCancelBtn      = new wxButton(this, PARAMETER_DIALOG_CANCEL,           wxT("C&ancel"),              wxPoint(310,  66),   wxSize( 70,  35), 0, wxDefaultValidator, wxT("ParamCancelBtn"));
1437
1438     // Now that all the widgets on the panel are created, its safe to allow ::OnCommand() to
1439     // handle all widget processing
1440     widgetPtrsSet = TRUE;
1441
1442     saved = FALSE;
1443     savedParamSettings = wxGetApp().params;
1444
1445     Centre(wxBOTH);
1446     PutData();
1447     ShowModal();
1448 }  // CparameterDlg constructor
1449
1450
1451 void CparameterDlg::OnCloseWindow(wxCloseEvent& event)
1452 {
1453     // Put any additional checking necessary to make certain it is alright
1454     // to close the program here that is not done elsewhere
1455     if (!saved)
1456     {
1457         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);
1458
1459         if (!Ok)
1460         {
1461             event.Veto();
1462             return;
1463         }
1464
1465         wxGetApp().params = savedParamSettings;
1466     }
1467
1468     if (GetParent() != NULL)
1469         GetParent()->SetFocus();
1470
1471     while (wxIsBusy())
1472         wxEndBusyCursor();
1473
1474     Show(FALSE);
1475     SetReturnCode(0);  // added so BoundsChecker would not report use of uninitialized variable
1476
1477     this->Destroy();
1478 }  // CparameterDlg::OnCloseWindow()
1479
1480
1481 void CparameterDlg::OnButton( wxCommandEvent &event )
1482 {
1483     wxWindow *win = (wxWindow*) event.GetEventObject();
1484     OnCommand( *win, event );
1485 }
1486
1487
1488 void CparameterDlg::OnCommand(wxWindow& win, wxCommandEvent& event)
1489 {
1490     wxString widgetName;
1491
1492     widgetName = win.GetName();
1493
1494     if (!widgetPtrsSet)
1495         return;
1496
1497     if (widgetName == pParamSaveBtn->GetName())
1498     {
1499         if (Save())
1500         {
1501             wxString tStr;
1502             tStr = wxT("Database parameters have been saved.");
1503             if (GetParent() != NULL)  // The parameter dialog was not called during startup due to a missing cfg file
1504                 tStr += wxT("\nNew parameters will take effect the next time the program is started.");
1505             wxMessageBox(tStr,wxT("Notice..."),wxOK | wxICON_INFORMATION);
1506             saved = TRUE;
1507             Close();
1508         }
1509         return;
1510     }
1511
1512     if (widgetName == pParamCancelBtn->GetName())
1513     {
1514         Close();
1515         return;
1516     }
1517 }  // CparameterDlg::OnCommand()
1518
1519
1520 bool CparameterDlg::PutData()
1521 {
1522     // Fill the data source list box
1523     FillDataSourceList();
1524
1525     // Fill in the fields from the params object
1526     if (wxGetApp().params.ODBCSource && wxStrlen(wxGetApp().params.ODBCSource))
1527         pParamODBCSourceList->SetStringSelection(wxGetApp().params.ODBCSource);
1528     pParamUserNameTxt->SetValue(wxGetApp().params.UserName);
1529     pParamPasswordTxt->SetValue(wxGetApp().params.Password);
1530     pParamDirPathTxt->SetValue(wxGetApp().params.DirPath);
1531     return TRUE;
1532 }  // CparameterDlg::PutData()
1533
1534
1535 bool CparameterDlg::GetData()
1536 {
1537     wxString tStr;
1538     if (pParamODBCSourceList->GetStringSelection() != wxT(""))
1539     {
1540         tStr = pParamODBCSourceList->GetStringSelection();
1541         if (tStr.Length() > (sizeof(wxGetApp().params.ODBCSource)-1))
1542         {
1543             wxString errmsg;
1544             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());
1545             wxMessageBox(errmsg,wxT("Internal program error..."),wxOK | wxICON_EXCLAMATION);
1546             return FALSE;
1547         }
1548         wxStrcpy(wxGetApp().params.ODBCSource, tStr);
1549     }
1550     else
1551         return FALSE;
1552
1553     tStr = pParamUserNameTxt->GetValue();
1554     if (tStr.Length() > (sizeof(wxGetApp().params.UserName)-1))
1555     {
1556         wxString errmsg;
1557         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());
1558         wxMessageBox(errmsg,wxT("Internal program error..."),wxOK | wxICON_EXCLAMATION);
1559         return FALSE;
1560     }
1561     wxStrcpy(wxGetApp().params.UserName, tStr);
1562
1563     tStr = pParamPasswordTxt->GetValue();
1564     if (tStr.Length() > (sizeof(wxGetApp().params.Password)-1))
1565     {
1566         wxString errmsg;
1567         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());
1568         wxMessageBox(errmsg,wxT("Internal program error..."),wxOK | wxICON_EXCLAMATION);
1569         return FALSE;
1570     }
1571     wxStrcpy(wxGetApp().params.Password,tStr);
1572
1573     tStr = pParamDirPathTxt->GetValue();
1574     tStr.Replace(wxT("\\"),wxT("/"));
1575     if (tStr.Length() > (sizeof(wxGetApp().params.DirPath)-1))
1576     {
1577         wxString errmsg;
1578         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());
1579         wxMessageBox(errmsg,wxT("Internal program error..."),wxOK | wxICON_EXCLAMATION);
1580         return FALSE;
1581     }
1582     wxStrcpy(wxGetApp().params.DirPath,tStr);
1583     return TRUE;
1584 }  // CparameterDlg::GetData()
1585
1586
1587 bool CparameterDlg::Save()
1588 {
1589     Cparameters saveParams = wxGetApp().params;
1590     if (!GetData())
1591     {
1592         wxGetApp().params = saveParams;
1593         return FALSE;
1594     }
1595
1596     FILE *paramFile;
1597     if ((paramFile = fopen(paramFilename, wxT("wt"))) == NULL)
1598     {
1599         wxString tStr;
1600         tStr.Printf(wxT("Unable to write/overwrite '%s'."),paramFilename);
1601         wxMessageBox(tStr,wxT("File I/O Error..."),wxOK | wxICON_EXCLAMATION);
1602         return FALSE;
1603     }
1604
1605     fputs(wxGetApp().params.ODBCSource, paramFile);
1606     fputc(wxT('\n'), paramFile);
1607     fputs(wxGetApp().params.UserName, paramFile);
1608     fputc(wxT('\n'), paramFile);
1609     fputs(wxGetApp().params.Password, paramFile);
1610     fputc(wxT('\n'), paramFile);
1611     fputs(wxGetApp().params.DirPath, paramFile);
1612     fputc(wxT('\n'), paramFile);
1613     fclose(paramFile);
1614
1615     return TRUE;
1616 }  // CparameterDlg::Save()
1617
1618
1619 void CparameterDlg::FillDataSourceList()
1620 {
1621     wxChar Dsn[SQL_MAX_DSN_LENGTH + 1];
1622     wxChar DsDesc[255];
1623     wxStringList strList;
1624
1625     while (wxDbGetDataSource(DbConnectInf.Henv, Dsn, SQL_MAX_DSN_LENGTH+1, DsDesc, 255))
1626         strList.Add(Dsn);
1627
1628     strList.Sort();
1629     strList.Add(wxT(""));
1630     wxChar **p = strList.ListToArray();
1631
1632     int i;
1633     for (i = 0; wxStrlen(p[i]); i++)
1634         pParamODBCSourceList->Append(p[i]);
1635
1636     delete [] p;
1637 }  // CparameterDlg::CparameterDlg::FillDataSourceList()
1638
1639
1640 BEGIN_EVENT_TABLE(CqueryDlg, wxDialog)
1641     EVT_BUTTON(-1,  CqueryDlg::OnButton)
1642     EVT_CLOSE(CqueryDlg::OnCloseWindow)
1643 END_EVENT_TABLE()
1644
1645
1646 // CqueryDlg() constructor
1647 CqueryDlg::CqueryDlg(wxWindow *parent, wxDb *pDb, wxChar *tblName[], wxChar *pWhereArg) : wxDialog (parent, QUERY_DIALOG, wxT("Query"), wxPoint(-1, -1), wxSize(480, 360))
1648 {
1649     wxBeginBusyCursor();
1650
1651     colInf = 0;
1652     dbTable = 0;
1653     masterTableName = tblName[0];
1654     widgetPtrsSet = FALSE;
1655     pDB = pDb;
1656
1657     // Initialize the WHERE clause from the string passed in
1658     pWhere = pWhereArg;                                            // Save a pointer to the output buffer
1659     if (wxStrlen(pWhere) > (unsigned int)DB_MAX_WHERE_CLAUSE_LEN)  // Check the length of the buffer passed in
1660     {
1661         wxString s;
1662         s.Printf(wxT("Maximum where clause length exceeded.\nLength must be less than %d"), DB_MAX_WHERE_CLAUSE_LEN+1);
1663         wxMessageBox(s,wxT("Error..."),wxOK | wxICON_EXCLAMATION);
1664         Close();
1665         return;
1666     }
1667
1668     pQueryCol1Msg           = new wxStaticText(this, QUERY_DIALOG_COL_MSG,    wxT("Column 1:"),   wxPoint( 10,  10), wxSize( 69,  16), 0, wxT("QueryCol1Msg"));
1669     pQueryCol1Choice        = new wxChoice(this, QUERY_DIALOG_COL_CHOICE,                    wxPoint( 10,  27), wxSize(250,  27), 0, 0, 0, wxDefaultValidator, wxT("QueryCol1Choice"));
1670     pQueryNotMsg            = new wxStaticText(this, QUERY_DIALOG_NOT_MSG,    wxT("NOT"),         wxPoint(268,  10), wxSize( -1,  -1), 0, wxT("QueryNotMsg"));
1671     pQueryNotCheck          = new wxCheckBox(this, QUERY_DIALOG_NOT_CHECKBOX, wxT(""),            wxPoint(275,  37), wxSize( 20,  20), 0, wxDefaultValidator, wxT("QueryNotCheck"));
1672
1673     wxString choice_strings[9];
1674     choice_strings[0] = wxT("=");
1675     choice_strings[1] = wxT("<");
1676     choice_strings[2] = wxT(">");
1677     choice_strings[3] = wxT("<=");
1678     choice_strings[4] = wxT(">=");
1679     choice_strings[5] = wxT("Begins");
1680     choice_strings[6] = wxT("Contains");
1681     choice_strings[7] = wxT("Like");
1682     choice_strings[8] = wxT("Between");
1683
1684     pQueryOperatorMsg       = new wxStaticText(this, QUERY_DIALOG_OP_MSG,       wxT("Operator:"),         wxPoint(305,  10), wxSize( -1,  -1), 0, wxT("QueryOperatorMsg"));
1685     pQueryOperatorChoice    = new wxChoice(this, QUERY_DIALOG_OP_CHOICE,                                  wxPoint(305,  27), wxSize( 80,  27), 9, choice_strings, 0, wxDefaultValidator, wxT("QueryOperatorChoice"));
1686     pQueryCol2Msg           = new wxStaticText(this, QUERY_DIALOG_COL2_MSG,     wxT("Column 2:"),         wxPoint( 10,  65), wxSize( 69,  16), 0, wxT("QueryCol2Msg"));
1687     pQueryCol2Choice        = new wxChoice(this, QUERY_DIALOG_COL2_CHOICE,                                wxPoint( 10,  82), wxSize(250,  27), 0, 0, 0, wxDefaultValidator, wxT("QueryCol2Choice"));
1688     pQuerySqlWhereMsg       = new wxStaticText(this, QUERY_DIALOG_WHERE_MSG,    wxT("SQL where clause:"), wxPoint( 10, 141), wxSize( -1,  -1), 0, wxT("QuerySqlWhereMsg"));
1689     pQuerySqlWhereMtxt      = new wxTextCtrl(this, QUERY_DIALOG_WHERE_TEXT,     wxT(""),                  wxPoint( 10, 159), wxSize(377, 134), wxTE_MULTILINE, wxDefaultValidator, wxT("QuerySqlWhereMtxt"));
1690     pQueryAddBtn            = new wxButton(this, QUERY_DIALOG_ADD,              wxT("&Add"),              wxPoint(406,  24), wxSize( 56,  26), 0, wxDefaultValidator, wxT("QueryAddBtn"));
1691     pQueryAndBtn            = new wxButton(this, QUERY_DIALOG_AND,              wxT("A&nd"),              wxPoint(406,  58), wxSize( 56,  26), 0, wxDefaultValidator, wxT("QueryAndBtn"));
1692     pQueryOrBtn             = new wxButton(this, QUERY_DIALOG_OR,               wxT("&Or"),               wxPoint(406,  92), wxSize( 56,  26), 0, wxDefaultValidator, wxT("QueryOrBtn"));
1693     pQueryLParenBtn         = new wxButton(this, QUERY_DIALOG_LPAREN,           wxT("("),                 wxPoint(406, 126), wxSize( 26,  26), 0, wxDefaultValidator, wxT("QueryLParenBtn"));
1694     pQueryRParenBtn         = new wxButton(this, QUERY_DIALOG_RPAREN,           wxT(")"),                 wxPoint(436, 126), wxSize( 26,  26), 0, wxDefaultValidator, wxT("QueryRParenBtn"));
1695     pQueryDoneBtn           = new wxButton(this, QUERY_DIALOG_DONE,             wxT("&Done"),             wxPoint(406, 185), wxSize( 56,  26), 0, wxDefaultValidator, wxT("QueryDoneBtn"));
1696     pQueryClearBtn          = new wxButton(this, QUERY_DIALOG_CLEAR,            wxT("C&lear"),            wxPoint(406, 218), wxSize( 56,  26), 0, wxDefaultValidator, wxT("QueryClearBtn"));
1697     pQueryCountBtn          = new wxButton(this, QUERY_DIALOG_COUNT,            wxT("&Count"),            wxPoint(406, 252), wxSize( 56,  26), 0, wxDefaultValidator, wxT("QueryCountBtn"));
1698     pQueryValue1Msg         = new wxStaticText(this, QUERY_DIALOG_VALUE1_MSG,   wxT("Value:"),            wxPoint(277,  66), wxSize( -1,  -1), 0, wxT("QueryValue1Msg"));
1699     pQueryValue1Txt         = new wxTextCtrl(this, QUERY_DIALOG_VALUE1_TEXT,    wxT(""),                  wxPoint(277,  83), wxSize(108,  25), 0, wxDefaultValidator, wxT("QueryValue1Txt"));
1700     pQueryValue2Msg         = new wxStaticText(this, QUERY_DIALOG_VALUE2_MSG,   wxT("AND"),               wxPoint(238, 126), wxSize( -1,  -1), 0, wxT("QueryValue2Msg"));
1701     pQueryValue2Txt         = new wxTextCtrl(this, QUERY_DIALOG_VALUE2_TEXT,    wxT(""),                  wxPoint(277, 120), wxSize(108,  25), 0, wxDefaultValidator, wxT("QueryValue2Txt"));
1702     pQueryHintGrp           = new wxStaticBox(this, QUERY_DIALOG_HINT_GROUP,    wxT(""),                  wxPoint( 10, 291), wxSize(377,  40), 0, wxT("QueryHintGrp"));
1703     pQueryHintMsg           = new wxStaticText(this, QUERY_DIALOG_HINT_MSG,     wxT(""),                  wxPoint( 16, 306), wxSize( -1,  -1), 0, wxT("QueryHintMsg"));
1704
1705     widgetPtrsSet = TRUE;
1706     // Initialize the dialog
1707     wxString qualName;
1708     pQueryCol2Choice->Append(wxT("VALUE -->"));
1709     colInf = pDB->GetColumns(tblName);
1710
1711     if (!colInf)
1712     {
1713         wxEndBusyCursor();
1714         wxString tStr;
1715         tStr  = wxT("ODBC error during GetColumns()\n\n");
1716         tStr += GetExtendedDBErrorMsg(pDb,__FILE__,__LINE__);
1717         wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
1718         return;
1719     }
1720
1721     int i;
1722     for (i = 0; colInf[i].colName && wxStrlen(colInf[i].colName); i++)
1723     {
1724         // If there is more than one table being queried, qualify
1725         // the column names with the table name prefix.
1726         if (tblName[1] && wxStrlen(tblName[1]))
1727         {
1728             qualName.Printf(wxT("%s.%s"), colInf[i].tableName, colInf[i].colName);
1729             pQueryCol1Choice->Append(qualName);
1730             pQueryCol2Choice->Append(qualName);
1731         }
1732         else  // Single table query, append just the column names
1733         {
1734             pQueryCol1Choice->Append(colInf[i].colName);
1735             pQueryCol2Choice->Append(colInf[i].colName);
1736         }
1737     }
1738
1739     pQueryCol1Choice->SetSelection(0);
1740     pQueryCol2Choice->SetSelection(0);
1741     pQueryOperatorChoice->SetSelection(0);
1742
1743     pQueryValue2Msg->Show(FALSE);
1744     pQueryValue2Txt->Show(FALSE);
1745
1746     pQueryHintMsg->SetLabel(langQRY_EQ);
1747
1748     pQuerySqlWhereMtxt->SetValue(pWhere);
1749
1750     wxEndBusyCursor();
1751
1752     // Display the dialog window
1753     Centre(wxBOTH);
1754     ShowModal();
1755 }  // CqueryDlg() constructor
1756
1757
1758 CqueryDlg::~CqueryDlg()
1759 {
1760 }  // CqueryDlg::~CqueryDlg() destructor
1761
1762
1763 void CqueryDlg::OnButton(wxCommandEvent &event)
1764 {
1765   wxWindow *win = (wxWindow*) event.GetEventObject();
1766   OnCommand( *win, event );
1767 }  // CqueryDlg::OnButton()
1768
1769
1770 void CqueryDlg::OnCommand(wxWindow& win, wxCommandEvent& event)
1771 {
1772     // Widget pointers won't be set when the dialog is constructed.
1773     // Control is passed through this function once for each widget on
1774     // a dialog as the dialog is constructed.
1775     if (!widgetPtrsSet)
1776         return;
1777
1778     wxString widgetName = win.GetName();
1779
1780     // Operator choice box
1781     if (widgetName == pQueryOperatorChoice->GetName())
1782     {
1783         // Set the help text
1784         switch((qryOp) pQueryOperatorChoice->GetSelection())
1785         {
1786             case qryOpEQ:
1787                 pQueryHintMsg->SetLabel(langQRY_EQ);
1788                 break;
1789             case qryOpLT:
1790                 pQueryHintMsg->SetLabel(langQRY_LT);
1791                 break;
1792             case qryOpGT:
1793                 pQueryHintMsg->SetLabel(langQRY_GT);
1794                 break;
1795             case qryOpLE:
1796                 pQueryHintMsg->SetLabel(langQRY_LE);
1797                 break;
1798             case qryOpGE:
1799                 pQueryHintMsg->SetLabel(langQRY_GE);
1800                 break;
1801             case qryOpBEGINS:
1802                 pQueryHintMsg->SetLabel(langQRY_BEGINS);
1803                 break;
1804             case qryOpCONTAINS:
1805                 pQueryHintMsg->SetLabel(langQRY_CONTAINS);
1806                 break;
1807             case qryOpLIKE:
1808                 pQueryHintMsg->SetLabel(langQRY_LIKE);
1809                 break;
1810             case qryOpBETWEEN:
1811                 pQueryHintMsg->SetLabel(langQRY_BETWEEN);
1812                 break;
1813         }
1814
1815         // Hide the value2 widget
1816         pQueryValue2Msg->Show(FALSE);  // BETWEEN will show this widget
1817         pQueryValue2Txt->Show(FALSE);  // BETWEEN will show this widget
1818
1819         // Disable the NOT operator for <, <=, >, >=
1820         switch((qryOp) pQueryOperatorChoice->GetSelection())
1821         {
1822             case qryOpLT:
1823             case qryOpGT:
1824             case qryOpLE:
1825             case qryOpGE:
1826                 pQueryNotCheck->SetValue(0);
1827                 pQueryNotCheck->Enable(FALSE);
1828                 break;
1829             default:
1830                 pQueryNotCheck->Enable(TRUE);
1831                 break;
1832         }
1833
1834         // Manipulate the dialog to handle the selected operator
1835         switch((qryOp) pQueryOperatorChoice->GetSelection())
1836         {
1837             case qryOpEQ:
1838             case qryOpLT:
1839             case qryOpGT:
1840             case qryOpLE:
1841             case qryOpGE:
1842                 pQueryCol2Choice->Enable(TRUE);
1843                 if (pQueryCol2Choice->GetSelection())    // Column name is highlighted
1844                 {
1845                     pQueryValue1Msg->Show(FALSE);
1846                     pQueryValue1Txt->Show(FALSE);
1847                 }
1848                 else                                                // "Value" is highlighted
1849                 {
1850                     pQueryValue1Msg->Show(TRUE);
1851                     pQueryValue1Txt->Show(TRUE);
1852                     pQueryValue1Txt->SetFocus();
1853                 }
1854                 break;
1855             case qryOpBEGINS:
1856             case qryOpCONTAINS:
1857             case qryOpLIKE:
1858                 pQueryCol2Choice->SetSelection(0);
1859                 pQueryCol2Choice->Enable(FALSE);
1860                 pQueryValue1Msg->Show(TRUE);
1861                 pQueryValue1Txt->Show(TRUE);
1862                 pQueryValue1Txt->SetFocus();
1863                 break;
1864             case qryOpBETWEEN:
1865                 pQueryCol2Choice->SetSelection(0);
1866                 pQueryCol2Choice->Enable(FALSE);
1867                 pQueryValue2Msg->Show(TRUE);
1868                 pQueryValue2Txt->Show(TRUE);
1869                 pQueryValue1Msg->Show(TRUE);
1870                 pQueryValue1Txt->Show(TRUE);
1871                 pQueryValue1Txt->SetFocus();
1872                 break;
1873         }
1874
1875         return;
1876
1877     }  // Operator choice box
1878
1879     // Column 2 choice
1880     if (widgetName == pQueryCol2Choice->GetName())
1881     {
1882         if (pQueryCol2Choice->GetSelection())    // Column name is highlighted
1883         {
1884             pQueryValue1Msg->Show(FALSE);
1885             pQueryValue1Txt->Show(FALSE);
1886         }
1887         else                                                // "Value" is highlighted
1888         {
1889             pQueryValue1Msg->Show(TRUE);
1890             pQueryValue1Txt->Show(TRUE);
1891             pQueryValue1Txt->SetFocus();
1892         }
1893         return;
1894     }  // Column 2 choice
1895
1896     // Add button
1897     if (widgetName == pQueryAddBtn->GetName())
1898     {
1899         ProcessAddBtn();
1900         return;
1901     }  // Add button
1902
1903     // And button
1904     if (widgetName == pQueryAndBtn->GetName())
1905     {
1906         AppendToWhere(wxT(" AND\n"));
1907         return;
1908     }  // And button
1909
1910     // Or button
1911     if (widgetName == pQueryOrBtn->GetName())
1912     {
1913         AppendToWhere(wxT(" OR\n"));
1914         return;
1915     }  // Or button
1916
1917     // Left Paren button
1918     if (widgetName == pQueryLParenBtn->GetName())
1919     {
1920         AppendToWhere(wxT("("));
1921         return;
1922     }  // Left Paren button
1923
1924     // Right paren button
1925     if (widgetName == pQueryRParenBtn->GetName())
1926     {
1927         AppendToWhere(wxT(")"));
1928         return;
1929     }  // Right Paren button
1930
1931     // Done button
1932     if (widgetName == pQueryDoneBtn->GetName())
1933     {
1934         // Be sure the where clause will not overflow the output buffer
1935         if (wxStrlen(pQuerySqlWhereMtxt->GetValue()) > (unsigned int)DB_MAX_WHERE_CLAUSE_LEN)
1936         {
1937             wxString s;
1938             s.Printf(wxT("Maximum where clause length exceeded.\nLength must be less than %d"), DB_MAX_WHERE_CLAUSE_LEN+1);
1939             wxMessageBox(s,wxT("Error..."),wxOK | wxICON_EXCLAMATION);
1940             return;
1941         }
1942         // Validate the where clause for things such as matching parens
1943         if (!ValidateWhereClause())
1944             return;
1945         // Copy the where clause to the output buffer and exit
1946         wxStrcpy(pWhere, pQuerySqlWhereMtxt->GetValue());
1947         Close();
1948         return;
1949     }  // Done button
1950
1951     // Clear button
1952     if (widgetName == pQueryClearBtn->GetName())
1953     {
1954         bool Ok = (wxMessageBox(wxT("Are you sure you wish to clear the Query?"),wxT("Confirm"),wxYES_NO|wxICON_QUESTION) == wxYES);
1955
1956         if (Ok)
1957             pQuerySqlWhereMtxt->SetValue(wxT(""));
1958         return;
1959     }  // Clear button
1960
1961     // Count button
1962     if (widgetName == pQueryCountBtn->GetName())
1963     {
1964         wxBeginBusyCursor();
1965         ProcessCountBtn();
1966         wxEndBusyCursor();
1967         return;
1968     }  // Count button
1969
1970 }  // CqueryDlg::OnCommand
1971
1972
1973 void CqueryDlg::OnCloseWindow(wxCloseEvent& event)
1974 {
1975     // Clean up
1976     if (colInf)
1977     {
1978         delete [] colInf;
1979         colInf = 0;
1980     }
1981
1982     if (dbTable)
1983     {
1984         delete dbTable;
1985         dbTable = 0;
1986     }
1987
1988     GetParent()->SetFocus();
1989     while (wxIsBusy())
1990         wxEndBusyCursor();
1991
1992     Show(FALSE);
1993     SetReturnCode(1);  // added so BoundsChecker would not report use of uninitialized variable
1994
1995     this->Destroy();
1996 }  // CqueryDlg::OnCloseWindow()
1997
1998
1999 void CqueryDlg::AppendToWhere(wxChar *s)
2000 {
2001     wxString whereStr = pQuerySqlWhereMtxt->GetValue();
2002     whereStr += s;
2003     pQuerySqlWhereMtxt->SetValue(whereStr);
2004 }  // CqueryDlg::AppendToWhere()
2005
2006
2007 void CqueryDlg::ProcessAddBtn()
2008 {
2009     qryOp oper = (qryOp) pQueryOperatorChoice->GetSelection();
2010
2011     // Verify that eveything is filled in correctly
2012     if (pQueryCol2Choice->GetSelection() == 0)            // "Value" is selected
2013     {
2014         // Verify that value 1 is filled in
2015         if (wxStrlen(pQueryValue1Txt->GetValue()) == 0)
2016         {
2017             wxBell();
2018             pQueryValue1Txt->SetFocus();
2019             return;
2020         }
2021         // For the BETWEEN operator, value 2 must be filled in as well
2022         if (oper == qryOpBETWEEN &&
2023              wxStrlen(pQueryValue2Txt->GetValue()) == 0)
2024         {
2025             wxBell();
2026             pQueryValue2Txt->SetFocus();
2027             return;
2028         }
2029     }
2030
2031     // Build the expression and append it to the where clause window
2032     wxString s = pQueryCol1Choice->GetStringSelection();
2033
2034     if (pQueryNotCheck->GetValue() && (oper != qryOpEQ))
2035         s += wxT(" NOT");
2036
2037     switch(oper)
2038     {
2039     case qryOpEQ:
2040         if (pQueryNotCheck->GetValue())    // NOT box is checked
2041             s += wxT(" <>");
2042         else
2043             s += wxT(" =");
2044         break;
2045     case qryOpLT:
2046         s += wxT(" <");
2047         break;
2048     case qryOpGT:
2049         s += wxT(" >");
2050         break;
2051     case qryOpLE:
2052         s += wxT(" <=");
2053         break;
2054     case qryOpGE:
2055         s += wxT(" >=");
2056         break;
2057     case qryOpBEGINS:
2058     case qryOpCONTAINS:
2059     case qryOpLIKE:
2060         s += wxT(" LIKE");
2061         break;
2062     case qryOpBETWEEN:
2063         s += wxT(" BETWEEN");
2064         break;
2065     }
2066
2067     s += wxT(" ");
2068
2069     int col1Idx = pQueryCol1Choice->GetSelection();
2070
2071     bool quote = FALSE;
2072     if (colInf[col1Idx].sqlDataType == SQL_VARCHAR  ||
2073         oper == qryOpBEGINS                         ||
2074         oper == qryOpCONTAINS                       ||
2075         oper == qryOpLIKE)
2076         quote = TRUE;
2077
2078     if (pQueryCol2Choice->GetSelection())    // Column name
2079         s += pQueryCol2Choice->GetStringSelection();
2080     else  // Column 2 is a "value"
2081     {
2082         if (quote)
2083             s += wxT("'");
2084         if (oper == qryOpCONTAINS)
2085             s += wxT("%");
2086         s += pQueryValue1Txt->GetValue();
2087         if (oper == qryOpCONTAINS || oper == qryOpBEGINS)
2088             s += wxT("%");
2089         if (quote)
2090             s += wxT("'");
2091     }
2092
2093     if (oper == qryOpBETWEEN)
2094     {
2095         s += wxT(" AND ");
2096         if (quote)
2097             s += wxT("'");
2098         s += pQueryValue2Txt->GetValue();
2099         if (quote)
2100             s += wxT("'");
2101     }
2102
2103     AppendToWhere((wxChar*) (const wxChar*) s);
2104
2105 }  // CqueryDlg::ProcessAddBtn()
2106
2107
2108 void CqueryDlg::ProcessCountBtn()
2109 {
2110     if (!ValidateWhereClause())
2111         return;
2112
2113     if (dbTable == 0)  // wxDbTable object needs to be created and opened
2114     {
2115         if (!(dbTable = new wxDbTable(pDB, masterTableName, 0, wxT(""), !wxDB_QUERY_ONLY, DbConnectInf.defaultDir)))
2116         {
2117             wxMessageBox(wxT("Memory allocation failed creating a wxDbTable object."),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
2118             return;
2119         }
2120         if (!dbTable->Open())
2121         {
2122             wxString tStr;
2123             tStr  = wxT("ODBC error during Open()\n\n");
2124             tStr += GetExtendedDBErrorMsg(dbTable->GetDb(),__FILE__,__LINE__);
2125             wxMessageBox(tStr,wxT("ODBC Error..."),wxOK | wxICON_EXCLAMATION);
2126             return;
2127         }
2128     }
2129
2130     // Count() with WHERE clause
2131     wxString whereStr;
2132
2133     whereStr = pQuerySqlWhereMtxt->GetValue();
2134     dbTable->SetWhereClause(whereStr.c_str());
2135
2136     ULONG whereCnt = dbTable->Count();
2137
2138     // Count() of all records in the table
2139     dbTable->SetWhereClause(wxT(""));
2140     ULONG totalCnt = dbTable->Count();
2141
2142     if (whereCnt > 0 || totalCnt == 0)
2143     {
2144         wxString tStr;
2145         tStr.Printf(wxT("%lu of %lu records match the query criteria."),whereCnt,totalCnt);
2146         wxMessageBox(tStr,wxT("Notice..."),wxOK | wxICON_INFORMATION);
2147     }
2148     else
2149     {
2150         wxString tStr;
2151         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);
2152         wxMessageBox(tStr,wxT("Notice..."),wxOK | wxICON_INFORMATION);
2153     }
2154
2155     // After a wxMessageBox, the focus does not necessarily return to the
2156     // window which was the focus when the message box popped up, so return
2157     // focus to the Query dialog for certain
2158     SetFocus();
2159
2160 }  // CqueryDlg::ProcessCountBtn()
2161
2162
2163 bool CqueryDlg::ValidateWhereClause()
2164 {
2165     wxString where = pQuerySqlWhereMtxt->GetValue();
2166
2167     if (where.Freq(wxT('(')) != where.Freq(wxT(')')))
2168     {
2169         wxMessageBox(wxT("There are mismatched parenthesis in the constructed where clause"),wxT("Error..."),wxOK | wxICON_EXCLAMATION);
2170         return(FALSE);
2171     }
2172     // After a wxMessageBox, the focus does not necessarily return to the
2173     // window which was the focus when the message box popped up, so return
2174     // focus to the Query dialog for certain
2175     SetFocus();
2176
2177     return(TRUE);
2178
2179 }  // CqueryDlg::ValidateWhereClause()
2180
2181
2182
2183
2184 /*
2185     TEST CODE FOR TESTING THE wxDbCreateDataSource() FUNCTION
2186
2187         int result = 0;
2188         result = wxDbCreateDataSource(wxT("Microsoft Access Driver (*.mdb)"),wxT("GLT-TEST2"),wxT("GLT-Descrip"),FALSE,wxT(""),this);
2189         if (!result)
2190         {
2191             // check for errors caused by ConfigDSN based functions
2192             DWORD retcode = 0;
2193             WORD cb;
2194             wxChar errMsg[500+1];
2195             errMsg[0] = wxT('\0');
2196
2197             SQLInstallerError(1,&retcode,errMsg,500,&cb);
2198
2199             wxMessageBox(wxT("FAILED creating data source"),wxT("FAILED"));
2200         }
2201         else
2202             wxMessageBox(wxT("SUCCEEDED creating data source"),wxT("SUCCESS"));
2203 */
2204
2205