demos/dbbrowse/browsedb.cpp

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