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