demos/dbbrowse/browsedb.cpp

   1 //---------------------------------------------------------------------------
   2 // Name:        BrowserDB.h,cpp
   3 // Purpose:     a wxDB;
   4 // Author:      Mark Johnson, mj10777@gmx.net
   5 // Modified by:
   6 // Created:     19991127.mj10777
   7 // Copyright:   (c) Mark Johnson
   8 // Licence:     wxWindows license
   9 //---------------------------------------------------------------------------
  10 //-- 1)
  11 //---------------------------------------------------------------------------
  12 //-- all #ifdefs that the whole Project needs. ------------------------------
  13 //---------------------------------------------------------------------------
  14 #ifdef __GNUG__
  15  #pragma implementation
  16  #pragma interface
  17 #endif
  18 //---------------------------------------------------------------------------
  19 // For compilers that support precompilation, includes "wx/wx.h".
  20 #include "wx/wxprec.h"
  21 //---------------------------------------------------------------------------
  22 #ifdef __BORLANDC__
  23  #pragma hdrstop
  24 #endif
  25 //---------------------------------------------------------------------------
  26 #ifndef WX_PRECOMP
  27  #include "wx/wx.h"
  28 #endif
  29 //---------------------------------------------------------------------------
  30 #include <wx/dbtable.h>
  31 #include "std.h"
  32 //---------------------------------------------------------------------------
  33 // Global structure for holding ODBC connection information
  34 // - darf nur einmal im Projekte definiert werden ?? Extra Databasse Klasse ?
  35 struct DbStuff ConnectInf;      // Für DBase
  36 //---------------------------------------------------------------------------
  37 extern DbList* WXDLLEXPORT PtrBegDbList;    /* from db.cpp, used in getting back error results from db connections */
  38 //---------------------------------------------------------------------------
  39 char *GetExtendedDBErrorMsg(char *ErrFile, int ErrLine)
  40 {
  41  static wxString msg;
  42  wxString tStr;
  43  if (ErrFile || ErrLine)
  44  {
  45   msg += "File: ";
  46   msg += ErrFile;
  47   msg += "   Line: ";
  48   tStr.Printf("%d",ErrLine);
  49   msg += tStr.GetData();
  50   // msg += "\n";
  51  }
  52  msg.Append ("\nODBC errors:\n");
  53  // msg += "\n";
  54  /* Scan through each database connection displaying
  55   * any ODBC errors that have occured. */
  56  for (DbList *pDbList = PtrBegDbList; pDbList; pDbList = pDbList->PtrNext)
  57  {
  58   // Skip over any free connections
  59   if (pDbList->Free)
  60    continue;
  61   // Display errors for this connection
  62   for (int i = 0; i < DB_MAX_ERROR_HISTORY; i++)
  63   {
  64    if (pDbList->PtrDb->errorList[i])
  65    {
  66     msg.Append(pDbList->PtrDb->errorList[i]);
  67     if (strcmp(pDbList->PtrDb->errorList[i],"") != 0)
  68      msg.Append("\n");
  69    }
  70   }
  71  }
  72  msg += "\n";
  73  return (char*) (const char*) msg;
  74 }  // GetExtendedDBErrorMsg
  75 //////////////////////////////////////////////////////////////////////////////////
  76 // BJO 20000115 : New stuff : dialog to ask for username and password
  77 //////////////////////////////////////////////////////////////////////////////////
  78 class UserDialog : public wxDialog
  79 {
  80  public:
  81   UserDialog(wxWindow* parent);
  82   virtual ~UserDialog();
  83   void OnOK(wxCommandEvent& event);
  84   wxString s_UserName, s_Password;
  85
  86  private:
  87   wxButton *m_OK;
  88   wxStaticText *m_Label1, *m_Label2;
  89   wxTextCtrl *m_UserName, *m_Password;
  90
  91
  92   DECLARE_EVENT_TABLE()
  93 };
  94 //---------------------------------------------------------------------------
  95 BEGIN_EVENT_TABLE(UserDialog, wxDialog)
  96   EVT_BUTTON(wxID_OK, UserDialog::OnOK)
  97 END_EVENT_TABLE()
  98 //---------------------------------------------------------------------------
  99 UserDialog::UserDialog(wxWindow *parent):
 100     wxDialog(parent, -1, _("ODBC user"),wxDefaultPosition, wxSize(310, 300),wxDIALOG_MODAL | wxDEFAULT_DIALOG_STYLE)
 101 {
 102   wxLayoutConstraints* layout;
 103   SetAutoLayout(TRUE);
 104   //-----------------------------------------------
 105   m_OK = new wxButton(this, wxID_OK, _("Ok"));
 106   layout = new wxLayoutConstraints;
 107   layout->left.SameAs(this, wxLeft, 10);
 108   layout->top.SameAs(this, wxTop,10);
 109   layout->height.AsIs();
 110   layout->width.Absolute(75);
 111   m_OK->SetConstraints(layout);
 112
 113   m_Label1 = new wxStaticText(this, -1, _("User name:"));
 114   layout = new wxLayoutConstraints;
 115   layout->left.SameAs(m_OK, wxLeft);
 116   layout->top.SameAs(m_OK, wxBottom, 10);
 117   layout->height.AsIs();
 118   layout->width.AsIs();
 119   m_Label1->SetConstraints(layout);
 120
 121   m_UserName = new wxTextCtrl(this, -1, "");
 122   layout = new wxLayoutConstraints;
 123   layout->left.SameAs(m_OK, wxLeft);
 124   layout->top.SameAs(m_Label1, wxBottom, 3);
 125   layout->width.AsIs();
 126   layout->height.AsIs();
 127   m_UserName->SetConstraints(layout);
 128
 129   m_Label2 = new wxStaticText(this, -1, _("Password:"));
 130   layout = new wxLayoutConstraints;
 131   layout->left.SameAs(m_OK, wxLeft);
 132   layout->top.SameAs(m_UserName, wxBottom, 10);
 133   layout->height.AsIs();
 134   layout->width.AsIs();
 135   m_Label2->SetConstraints(layout);
 136
 137   m_Password = new wxTextCtrl(this, -1, "", wxDefaultPosition, wxDefaultSize, wxTE_PASSWORD);
 138   layout = new wxLayoutConstraints;
 139   layout->left.SameAs(m_OK, wxLeft);
 140   layout->width.AsIs();
 141   layout->top.SameAs(m_Label2, wxBottom, 3);
 142   layout->height.AsIs();
 143   m_Password->SetConstraints(layout);
 144
 145   s_UserName = "";
 146   s_Password = "";
 147
 148   Layout();
 149 }
 150 //---------------------------------------------------------------------------
 151 UserDialog::~UserDialog()
 152 {
 153 }
 154 //---------------------------------------------------------------------------
 155 void UserDialog::OnOK(wxCommandEvent& WXUNUSED(event))
 156 {
 157  strcpy(ConnectInf.Uid,  m_UserName->GetValue());
 158  strcpy(ConnectInf.AuthStr, m_Password->GetValue());
 159  EndModal(1);
 160 }
 161 //////////////////////////////////////////////////////////////////////////////////
 162 // BJO 20000115 : end of  new stuff
 163 //////////////////////////////////////////////////////////////////////////////////
 164 //---------------------------------------------------------------------------
 165 BrowserDB::BrowserDB()
 166 {
 167  Zeiger_auf_NULL(0);
 168  ODBCSource = "";             // ODBC data source name (created with ODBC Administrator under Win95/NT)
 169  UserName   = "";             // database username - must already exist in the data source
 170  Password   = "";             // password database username
 171  OnFillSqlTyp();
 172  OnFilldbTyp();
 173 }  // BrowserDB Constructor
 174 //---------------------------------------------------------------------------
 175 BrowserDB::~BrowserDB()
 176 {
 177  Zeiger_auf_NULL(1);  // Clean up Tables and Databases (Commit, Close und delete)
 178 }  // BrowserDB destructor
 179 //--------------------------------------------------------------------------------------------
 180 bool BrowserDB::Initialize(int Quite)
 181 {
 182  if (!OnStartDB(Quite))
 183  {
 184   wxLogMessage(_("\n\n-E-> BrowserDB::OnStartDB(%s) : Failed ! "),ODBCSource.c_str());
 185   return FALSE;
 186  }
 187  return TRUE;
 188 }  // BrowserDB:Initialize
 189 //--------------------------------------------------------------------------------------------
 190 bool BrowserDB::OnStartDB(int Quite)
 191 {
 192  if (!Quite)
 193   wxLogMessage(_("\n-I-> BrowserDB::OnStartDB(%s) : Begin "),ODBCSource.c_str());
 194  if (db_BrowserDB != NULL)
 195  {
 196   if (!Quite)
 197    wxLogMessage(_("\n-I-> BrowserDB::OnStartDB() : DB is allready open."));
 198   return TRUE;
 199  }
 200  // Initialize the ODBC Environment for Database Operations
 201  if (SQLAllocEnv(&ConnectInf.Henv) != SQL_SUCCESS)
 202  {
 203   if (!Quite)
 204    wxLogMessage(_("\n-E-> BrowserDB::OnStartDB() : DB CONNECTION ERROR : A problem occured while trying to get a connection to the data source"));
 205   return FALSE;
 206  }
 207  //---------------------------------------------------------------------------
 208  // Connect to datasource
 209  //---------------------------
 210  DlgUser p_Dlg(pDoc->p_MainFrame, "Username and Password", wxPoint(100, 100), wxSize(340, 170));
 211  p_Dlg.s_DSN      = ODBCSource;
 212  p_Dlg.s_User     = UserName;
 213  p_Dlg.s_Password = Password;
 214  p_Dlg.OnInit();
 215  if (p_Dlg.ShowModal() == wxID_OK)
 216  {
 217   (pDoc->p_DSN+i_Which)->Usr = p_Dlg.s_User;
 218   (pDoc->p_DSN+i_Which)->Pas = p_Dlg.s_Password;
 219   UserName  = p_Dlg.s_User;
 220   Password  = p_Dlg.s_Password;
 221  }
 222  p_Dlg.Destroy();
 223  //---------------------------
 224  strcpy(ConnectInf.Dsn, ODBCSource);           // ODBC data source name (created with ODBC Administrator under Win95/NT)
 225  strcpy(ConnectInf.Uid, UserName);             // database username - must already exist in the data source
 226  strcpy(ConnectInf.AuthStr, Password);         // password database username
 227  db_BrowserDB = GetDbConnection(&ConnectInf);
 228  // wxLogMessage(">>>%s<<<>>>%s<<<",UserName.c_str(),Password.c_str());
 229  if (db_BrowserDB == NULL)
 230  {
 231   strcpy(ConnectInf.Dsn, "");
 232   strcpy(ConnectInf.Uid, "");
 233   strcpy(ConnectInf.AuthStr, "");
 234   if (!Quite)
 235   {
 236    wxLogMessage(_("\n-E-> BrowserDB::OnConnectDataSource() DB CONNECTION ERROR : 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 table prior to making a connection\n(using tools provided by the database manufacturer)"));
 237    wxLogMessage(_("-I-> BrowserDB::OnStartDB(%s) : End "),ODBCSource.c_str());
 238   }
 239   return FALSE;
 240  }
 241  //--------------------------------------------------------------------------
 242  if (!Quite)
 243  {
 244   Temp1 = db_BrowserDB->GetDatabaseName();
 245   Temp2 = db_BrowserDB->GetDataSource();
 246   wxLogMessage(_("-I-> BrowserDB::OnGetDataSourceODBC() - DatabaseName(%s) ; DataSource(%s)"),Temp1.c_str(),Temp2.c_str());
 247   wxLogMessage(_("-I-> BrowserDB::OnStartDB(%s) : End "),ODBCSource.c_str());
 248  }
 249  return TRUE;
 250 }
 251 //--------------------------------------------------------------------------------------------
 252 bool BrowserDB::OnCloseDB(int Quite)
 253 {
 254  if (!Quite)
 255   wxLogMessage(_("-I-> BrowserDB::OnCloseDB() : Begin "));
 256  if (db_BrowserDB)
 257  {
 258   db_BrowserDB->Close();
 259   FreeDbConnection(db_BrowserDB);
 260
 261   // Free Environment Handle that ODBC uses
 262   if (SQLFreeEnv(&ConnectInf.Henv) != SQL_SUCCESS)
 263   {
 264    // Error freeing environment handle
 265   }
 266   db_BrowserDB = NULL;
 267  }
 268  if (!Quite)
 269   wxLogMessage(_("\n-I-> BrowserDB::OnCloseDB() : End "));
 270  return TRUE;
 271 }
 272 //----------------------------------------------------------------------------------------
 273 bool BrowserDB::OnGetNext(int Cols,int Quite)
 274 {
 275  SDWORD cb;
 276  int      i_dbDataType;
 277  int   i=0;
 278  char             s_temp[1024+1];
 279  long             l_temp;
 280  double           f_temp;
 281  int              AnzError=0;
 282  TIMESTAMP_STRUCT t_temp;
 283  wxString Temp0;
 284  //-----------------------------
 285  if (!db_BrowserDB->GetNext())
 286  {
 287   return FALSE;
 288   Temp0.Printf(_("\n-E-> BrowserDB::OnGetNext - ODBC-Error with GetNext \n-E-> "));
 289   Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
 290   wxLogMessage(Temp0);
 291   wxMessageBox(Temp0);
 292  }
 293  else
 294  {
 295   for (i=0;i<Cols;i++)
 296   {
 297    strcpy((cl_BrowserDB+i)->tableName,"-E->");
 298    i_dbDataType = (cl_BrowserDB->pColFor+i)->i_dbDataType;
 299    if (i_dbDataType == 0)                        // Filter unsupported dbDataTypes
 300    {
 301     if (((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_VARCHAR) || ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_LONGVARCHAR))
 302      i_dbDataType = DB_DATA_TYPE_VARCHAR;
 303     if ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_C_DATE)
 304      i_dbDataType = DB_DATA_TYPE_DATE;
 305     if ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_C_BIT)
 306      i_dbDataType = DB_DATA_TYPE_INTEGER;
 307     if ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_NUMERIC)
 308      i_dbDataType = DB_DATA_TYPE_VARCHAR;
 309     if ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_REAL)
 310      i_dbDataType = DB_DATA_TYPE_FLOAT;
 311    }
 312    if ((i_dbDataType == DB_DATA_TYPE_INTEGER) && ((cl_BrowserDB->pColFor+i)->i_sqlDataType == SQL_C_DOUBLE))
 313    {   // DBASE Numeric
 314     i_dbDataType = DB_DATA_TYPE_FLOAT;
 315    }
 316    switch(i_dbDataType)
 317    {
 318     case DB_DATA_TYPE_VARCHAR:
 319          strcpy(s_temp,"");
 320          if (!db_BrowserDB->GetData(i+1,(cl_BrowserDB->pColFor+i)->i_dbDataType,&s_temp,sizeof(s_temp), &cb))
 321          {
 322           Temp0.Printf(_("\n-E-> BrowserDB::OnGetNext - ODBC-Error with GetNext of >%s<.\n-E-> "),(cl_BrowserDB+i)->tableName);
 323           Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
 324           wxLogMessage(Temp0);
 325          }
 326          Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,s_temp);
 327          strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
 328          break;
 329     case DB_DATA_TYPE_INTEGER:
 330          l_temp = 0;
 331          if (!db_BrowserDB->GetData(i+1,(cl_BrowserDB->pColFor+i)->i_sqlDataType,&l_temp,sizeof(l_temp), &cb))
 332          {
 333           Temp0.Printf(_("\n-E-> BrowserDB::OnGetData - ODBC-Error with GetNext \n-E-> "));
 334           Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
 335          }
 336          else
 337          {
 338           Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,l_temp);
 339           strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
 340          }
 341          break;
 342     case DB_DATA_TYPE_FLOAT:
 343          f_temp = 0;
 344          if (!db_BrowserDB->GetData(i+1,(cl_BrowserDB->pColFor+i)->i_sqlDataType,&f_temp,sizeof(f_temp), &cb))
 345          {
 346           Temp0.Printf(_("\n-E-> BrowserDB::OnGetData - ODBC-Error with GetNext \n-E-> "));
 347           Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
 348           wxMessageBox(Temp0);
 349          }
 350          else
 351          {
 352           Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,f_temp);
 353           strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
 354          }
 355          break;
 356     case DB_DATA_TYPE_DATE:
 357          t_temp.day = t_temp.month = t_temp.year = t_temp.hour = t_temp.minute = t_temp.second = t_temp.fraction = 0;
 358          if (!db_BrowserDB->GetData(i+1,(cl_BrowserDB->pColFor+i)->i_sqlDataType,&t_temp,sizeof(t_temp), &cb))
 359          {
 360           Temp0.Printf(_("\n-E-> BrowserDB::OnGetData - ODBC-Error with GetNext \n-E-> "));
 361           Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
 362          }
 363          else
 364          {
 365           // i_Nation =  0 = timestamp , 1=EU, 2=UK, 3=International, 4=US
 366           if (((cl_BrowserDB->pColFor+i)->i_Nation == 0)  ||  // TS  YYYY-MM-DD
 367               ((cl_BrowserDB->pColFor+i)->i_Nation == 3))     // IT  YYYY-MM-DD
 368           {
 369            Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,t_temp.year,t_temp.month,t_temp.day,
 370                                    t_temp.hour, t_temp.minute, t_temp.second, t_temp.fraction);
 371            strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
 372           }
 373           if ( ((cl_BrowserDB->pColFor+i)->i_Nation == 1) ||  // EU  DD.MM.YYYY
 374               ((cl_BrowserDB->pColFor+i)->i_Nation == 2))     // UK  DD/MM/YYYY
 375           {
 376            Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,t_temp.day,t_temp.month,t_temp.year,
 377                                    t_temp.hour, t_temp.minute, t_temp.second, t_temp.fraction);
 378            strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
 379           }
 380           if ((cl_BrowserDB->pColFor+i)->i_Nation == 3)      // US  MM/DD/YYYY
 381           {
 382            Temp0.Printf((cl_BrowserDB->pColFor+i)->s_Field,t_temp.month,t_temp.day,t_temp.year,
 383                                    t_temp.hour, t_temp.minute, t_temp.second, t_temp.fraction);
 384            strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
 385           }
 386          }
 387          break;
 388     default:
 389          AnzError++;
 390          if (AnzError <= 100)
 391          {
 392           Temp0 = (cl_BrowserDB+i)->colName;
 393           wxLogMessage(_("-E-> BrowserDB::OnGetNext - DB_DATA_TYPE_?? (%d) in Col(%s)"),(cl_BrowserDB->pColFor+i)->i_dbDataType,Temp0.c_str());
 394          }
 395          else
 396           return TRUE;
 397          Temp0.Printf(_("-E-> unknown Format(%d) - sql(%d)"),(cl_BrowserDB->pColFor+i)->i_dbDataType,(cl_BrowserDB->pColFor+i)->i_sqlDataType);
 398          strcpy((cl_BrowserDB+i)->tableName,Temp0.c_str());
 399          break;
 400    };
 401   }
 402  }
 403  // wxLogMessage("-E-> BrowserDB::OnGetNext - End");
 404  return TRUE;
 405 }
 406 //----------------------------------------------------------------------------------------
 407 bool BrowserDB::OnSelect(wxString tb_Name, int Quite)
 408 {
 409  wxString SQLStmt;
 410  i_Records = 0;
 411  //--------------------------------------------------------------------------
 412  SQLStmt.sprintf("SELECT * FROM %s",tb_Name.c_str());
 413  if (!db_BrowserDB->ExecSql((char *)(SQLStmt.GetData())))
 414  {
 415   Temp0.Printf(_("\n-E-> BrowserDB::OnSelect - ODBC-Error with ExecSql of >%s<.\n-E-> "),tb_Name.c_str());
 416   Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
 417   wxLogMessage(Temp0);
 418   wxMessageBox("-E-> BrowserDB::OnSelect - GetData()");
 419   return FALSE;
 420  }
 421  //--------------------------------------------------------------------------
 422  while (db_BrowserDB->GetNext())
 423  {
 424   i_Records++;
 425  }
 426  //--------------------------------------------------------------------------
 427  if (!db_BrowserDB->ExecSql((char *)(SQLStmt.GetData())))
 428  {
 429   Temp0.Printf(_("\n-E-> BrowserDB::OnSelect - ODBC-Error with ExecSql of >%s<.\n-E-> "),tb_Name.c_str());
 430   Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
 431   wxLogMessage(Temp0);
 432   return FALSE;
 433  }
 434  //--------------------------------------------------------------------------
 435  // SetColDefs ( 0,"NAME",     DB_DATA_TYPE_VARCHAR,  Name,     SQL_C_CHAR,      sizeof(Name),    TRUE, TRUE);  // Primary index
 436  //--------------------------------------------------------------------------
 437  if (!Quite)
 438  {
 439   wxLogMessage(_("\n-I-> BrowserDB::OnSelect(%s) Records(%d): End "),tb_Name.c_str(),i_Records);
 440  }
 441  return TRUE;
 442 }
 443 //----------------------------------------------------------------------------------------
 444 bool BrowserDB::OnExecSql(wxString SQLStmt, int Quite)
 445 {
 446  //--------------------------------------------------------------------------
 447  if (!db_BrowserDB->ExecSql((char *)(SQLStmt.GetData())))
 448  {
 449   Temp0.Printf(_("\n-E-> BrowserDB::OnExecSQL - ODBC-Error with ExecSql of >%s<.\n-E-> "),SQLStmt.c_str());
 450   Temp0 += GetExtendedDBErrorMsg(__FILE__,__LINE__);
 451   if (!Quite)
 452    wxLogMessage(Temp0);
 453   else
 454    wxMessageBox("-E-> BrowserDB::OnExecSql - ExecSql()");
 455   return FALSE;
 456  }
 457  if (!Quite)
 458  {
 459   // wxLogMessage(_("\n-I-> BrowserDB::OnExecSql(%s) - End "),SQLStmt.c_str());
 460  }
 461  return TRUE;
 462 }
 463 //----------------------------------------------------------------------------------------
 464 wxDbInf* BrowserDB::OnGetCatalog(int Quite)
 465 {
 466  char UName[255];
 467  strcpy(UName,UserName);
 468  ct_BrowserDB = db_BrowserDB->GetCatalog(UName);
 469  return ct_BrowserDB;
 470 }
 471 //----------------------------------------------------------------------------------------
 472 wxColInf* BrowserDB::OnGetColumns(char *tableName, int numCols,int Quite)
 473 {
 474  char UName[255];
 475  int i;
 476  strcpy(UName,UserName);
 477  cl_BrowserDB = db_BrowserDB->GetColumns(tableName,&numCols,UName);
 478  cl_BrowserDB->pColFor = new wxColFor[numCols];
 479  for (i=0;i<numCols;i++)
 480  {
 481   (cl_BrowserDB->pColFor+i)->Format(1,(cl_BrowserDB+i)->dbDataType,(cl_BrowserDB+i)->sqlDataType,
 482                                   (cl_BrowserDB+i)->columnSize, (cl_BrowserDB+i)->decimalDigits);
 483  }
 484  return cl_BrowserDB;
 485 }
 486 //----------------------------------------------------------------------------------------
 487 void BrowserDB::Zeiger_auf_NULL(int Art)
 488 {
 489  if (Art == 1) // Löschen
 490  {
 491   if (cl_BrowserDB != NULL)
 492   { // Destroy the memory
 493    delete [] cl_BrowserDB;
 494   }
 495   if (ct_BrowserDB != NULL)
 496   { // Destroy the memory
 497    delete [] ct_BrowserDB;
 498   }
 499   if (db_BrowserDB != NULL)
 500   {
 501    db_BrowserDB->CommitTrans();
 502    db_BrowserDB->Close();
 503    CloseDbConnections();
 504    delete db_BrowserDB;
 505   }
 506  }
 507  cl_BrowserDB       = NULL;
 508  ct_BrowserDB       = NULL;
 509  db_BrowserDB       = NULL;
 510  p_LogWindow        = NULL;
 511 }
 512 //----------------------------------------------------------------------------------------
 513 void BrowserDB::OnFillSqlTyp()
 514 {
 515  i_SqlTyp[1]  = SQL_C_BINARY;     s_SqlTyp[1]  = "SQL_C_BINARY";
 516  i_SqlTyp[2]  = SQL_C_BIT;        s_SqlTyp[2]  = "SQL_C_BIT";
 517  i_SqlTyp[3]  = SQL_C_BOOKMARK;   s_SqlTyp[3]  = "SQL_C_BOOKMARK";
 518  i_SqlTyp[4]  = SQL_C_CHAR;       s_SqlTyp[4]  = "SQL_C_CHAR";
 519  i_SqlTyp[5]  = SQL_C_DATE;       s_SqlTyp[5]  = "SQL_C_DATE";
 520  i_SqlTyp[6]  = SQL_C_DEFAULT;    s_SqlTyp[6]  = "SQL_C_DEFAULT";
 521  i_SqlTyp[7]  = SQL_C_DOUBLE;     s_SqlTyp[7]  = "SQL_C_DOUBLE";
 522  i_SqlTyp[8]  = SQL_C_FLOAT;      s_SqlTyp[8]  = "SQL_C_FLOAT";
 523  i_SqlTyp[9]  = SQL_C_LONG;       s_SqlTyp[9]  = "SQL_C_LONG";
 524  i_SqlTyp[10] = SQL_C_SHORT;      s_SqlTyp[10] = "SQL_C_SHORT";
 525  i_SqlTyp[11] = SQL_C_SLONG;      s_SqlTyp[11] = "SQL_C_SLONG";
 526  i_SqlTyp[12] = SQL_C_SSHORT;     s_SqlTyp[12] = "SQL_C_SSHORT";
 527  i_SqlTyp[13] = SQL_C_STINYINT;   s_SqlTyp[13] = "SQL_C_STINYINT";
 528  i_SqlTyp[14] = SQL_C_TIME;       s_SqlTyp[14] = "SQL_C_TIME";
 529  i_SqlTyp[15] = SQL_C_TIMESTAMP;  s_SqlTyp[15] = "SQL_C_TIMESTAMP";
 530  i_SqlTyp[16] = SQL_C_TINYINT;    s_SqlTyp[16] = "SQL_C_TINYINT";
 531  i_SqlTyp[17] = SQL_C_ULONG;      s_SqlTyp[17] = "SQL_C_ULONG";
 532  i_SqlTyp[18] = SQL_C_USHORT;     s_SqlTyp[18] = "SQL_C_USHORT";
 533  i_SqlTyp[19] = SQL_C_UTINYINT;   s_SqlTyp[19] = "SQL_C_UTINYINT";
 534  i_SqlTyp[20] = SQL_VARCHAR;      s_SqlTyp[20] = "SQL_VARCHAR";
 535  i_SqlTyp[21] = SQL_NUMERIC;      s_SqlTyp[21] = "SQL_NUMERIC";
 536  i_SqlTyp[22] = SQL_LONGVARCHAR;  s_SqlTyp[22] = "SQL_LONGVARCHAR";
 537  i_SqlTyp[23] = SQL_REAL;         s_SqlTyp[23] = "SQL_REAL";
 538  i_SqlTyp[0]  = 23;               s_SqlTyp[0]  = "";
 539 }
 540 //----------------------------------------------------------------------------------------
 541 void BrowserDB::OnFilldbTyp()
 542 {
 543  i_dbTyp[1]   = DB_DATA_TYPE_VARCHAR;     s_dbTyp[1]  = "DB_DATA_TYPE_VARCHAR";
 544  i_dbTyp[2]   = DB_DATA_TYPE_INTEGER;     s_dbTyp[2]  = "DB_DATA_TYPE_INTEGER";
 545  i_dbTyp[3]   = DB_DATA_TYPE_FLOAT;       s_dbTyp[3]  = "DB_DATA_TYPE_FLOAT";
 546  i_dbTyp[4]   = DB_DATA_TYPE_DATE;        s_dbTyp[4]  = "DB_DATA_TYPE_DATE";
 547  i_dbTyp[0]   = 4;                        s_dbTyp[0]   = "";
 548 }
 549 //----------------------------------------------------------------------------------------