demos/dbbrowse/dbtree.cpp

   1 //----------------------------------------------------------------------------------------
   2 // Name:        DBTree.cpp/.h
   3 // Purpose:     Tree with Table and Views, branches show Field information
   4 // Author:      Mark Johnson
   5 // Modified by:
   6 // Created:     19991129
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Mark Johnson, Berlin Germany
   9 // Licence:     wxWindows license
  10 //----------------------------------------------------------------------------------------
  11 //-- all #ifdefs that the whole Project needs. -------------------------------------------
  12 //----------------------------------------------------------------------------------------
  13 #ifdef __GNUG__
  14 #pragma implementation
  15 #pragma interface
  16 #endif
  17 //----------------------------------------------------------------------------------------
  18 // For compilers that support precompilation, includes "wx/wx.h".
  19 #include "wx/wxprec.h"
  20 //----------------------------------------------------------------------------------------
  21 #ifdef __BORLANDC__
  22 #pragma hdrstop
  23 #endif
  24 //----------------------------------------------------------------------------------------
  25 #ifndef WX_PRECOMP
  26 #include "wx/wx.h"
  27 #endif
  28 //----------------------------------------------------------------------------------------
  29 #ifndef __WXMSW__
  30 #endif
  31 //----------------------------------------------------------------------------------------
  32 //-- all #includes that every .cpp needs             --- 19990807.mj10777 ----------------
  33 //----------------------------------------------------------------------------------------
  34 #include "std.h"    // sorgsam Pflegen !
  35
  36 //----------------------------------------------------------------------------------------
  37 //-- Global functions --------------------------------------------------------------------
  38 //----------------------------------------------------------------------------------------
  39 static inline const char *bool2String(bool b)
  40 {
  41     return b ? "" : "not ";
  42 }
  43
  44 //----------------------------------------------------------------------------------------
  45 BEGIN_EVENT_TABLE(DBTree, wxTreeCtrl)
  46     EVT_MOTION (DBTree::OnMouseMove)
  47     EVT_TREE_SEL_CHANGED(TREE_CTRL_DB, DBTree::OnSelChanged)
  48     EVT_TREE_ITEM_RIGHT_CLICK(TREE_CTRL_DB,DBTree::OnRightSelect)
  49     EVT_MENU(DATA_SHOW,DBTree::OnDBGrid)
  50     EVT_MENU(DATA_DB,DBTree::OnDBClass)
  51     EVT_MENU(DATA_TABLE,DBTree::OnTableClass)
  52     EVT_MENU(DATA_TABLE_ALL,DBTree::OnTableClassAll)
  53 END_EVENT_TABLE()
  54 //----------------------------------------------------------------------------------------
  55 // DBTree implementation
  56 //----------------------------------------------------------------------------------------
  57 IMPLEMENT_DYNAMIC_CLASS(DBTree, wxTreeCtrl)
  58
  59 //----------------------------------------------------------------------------------------
  60 DBTree::DBTree(wxWindow *parent)  : wxTreeCtrl(parent)
  61 {
  62 }
  63
  64 //----------------------------------------------------------------------------------------
  65 DBTree::DBTree(wxWindow *parent, const wxWindowID id,const wxPoint& pos, const wxSize& size, long style)
  66 : wxTreeCtrl(parent, id, pos, size, style)
  67 {
  68     // Make an image list containing small icons
  69     p_imageListNormal = new wxImageList(16, 16, TRUE);
  70     // should correspond to TreeIc_xxx enum
  71 #if !defined(__WXMSW__)
  72 #include "bitmaps/logo.xpm"
  73 #include "bitmaps/dsnclose.xpm"
  74 #include "bitmaps/dsnopen.xpm"
  75 #include "bitmaps/tab.xpm"
  76 #include "bitmaps/view.xpm"
  77 #include "bitmaps/col.xpm"
  78 #include "bitmaps/key.xpm"
  79 #include "bitmaps/keyf.xpm"
  80 #include "bitmaps/d_open.xpm"
  81 #include "bitmaps/d_closed.xpm"
  82 #endif
  83     p_imageListNormal->Add(wxICON(aLogo));
  84     p_imageListNormal->Add(wxICON(DsnClosed));
  85     p_imageListNormal->Add(wxICON(DsnOpen));
  86     p_imageListNormal->Add(wxICON(TAB));
  87     p_imageListNormal->Add(wxICON(VIEW));
  88     p_imageListNormal->Add(wxICON(COL));
  89     p_imageListNormal->Add(wxICON(KEY));
  90     p_imageListNormal->Add(wxICON(KEYF));
  91     p_imageListNormal->Add(wxICON(DocOpen));
  92     p_imageListNormal->Add(wxICON(DocOpen));
  93     SetImageList(p_imageListNormal);
  94     ct_BrowserDB = NULL;
  95     popupMenu1   = NULL;
  96     popupMenu2   = NULL;
  97 }
  98
  99 //----------------------------------------------------------------------------------------
 100 DBTree::~DBTree()
 101 {
 102     delete ct_BrowserDB;
 103
 104     //  delete (pDoc->db_Br+i_Which);
 105     // wxLogMessage("DBTree::~DBTree() - Vor  OnCloseDB()");
 106     (pDoc->db_Br+i_Which)->OnCloseDB(FALSE);
 107     // wxLogMessage("DBTree::~DBTree() - Nach OnCloseDB()");
 108     (pDoc->db_Br+i_Which)->db_BrowserDB = NULL;
 109     (pDoc->db_Br+i_Which)->ct_BrowserDB = NULL;
 110     (pDoc->db_Br+i_Which)->cl_BrowserDB = NULL;
 111
 112     delete p_imageListNormal;
 113     if (popupMenu1)       // If the DSN has no Tables, then no delete should be done !
 114         delete popupMenu1;
 115     if (popupMenu1)       // If the DSN has no Tables, then no delete should be done !
 116         delete popupMenu2;
 117 }
 118
 119 //----------------------------------------------------------------------------------------
 120 #undef TREE_EVENT_HANDLER
 121
 122 //----------------------------------------------------------------------------------------
 123 int DBTree::OnPopulate()
 124 {
 125     wxTreeItemId Root, Folder, Docu, Funkt;
 126     int i,x,y,z=0, TableType;
 127     wxString SQL_TYPE, DB_TYPE;
 128     SetFont(* pDoc->ft_Doc);
 129     //---------------------------------------------------------------------------------------
 130     if ((pDoc->db_Br+i_Which)->Initialize(FALSE))
 131     {
 132         wxStopWatch sw;
 133         wxBeginBusyCursor();
 134         ct_BrowserDB = (pDoc->db_Br+i_Which)->OnGetCatalog(FALSE);
 135         if (ct_BrowserDB)
 136         { // Use the wxDatabase Information
 137             Temp0.Printf("%s - (%s) (%s)", s_DSN.c_str(),ct_BrowserDB->catalog, ct_BrowserDB->schema);
 138             Root = AddRoot(Temp0,TreeIc_DsnOpen,TreeIc_DsnOpen,new DBTreeData("Root"));
 139             for (x=0;x<ct_BrowserDB->numTables;x++)
 140             {
 141                 wxYield();
 142                 TableType = 0; // TABLE = 1 ; VIEW = 2 ; 0 We are not interested in
 143                 if (!wxStrcmp((ct_BrowserDB->pTableInf+x)->tableType,"TABLE"))    // only TABLES
 144                     TableType = 1;
 145                 if (!wxStrcmp((ct_BrowserDB->pTableInf+x)->tableType,"VIEW"))     // and  VIEWS
 146                     TableType = 2;
 147                 if (TableType)    // only TABLES or Views
 148                 {
 149                     Temp1.Printf("TN(%s",(ct_BrowserDB->pTableInf+x)->tableName);
 150                     //----
 151                     (ct_BrowserDB->pTableInf+x)->pColInf = (pDoc->db_Br+i_Which)->OnGetColumns((ct_BrowserDB->pTableInf+x)->tableName,(ct_BrowserDB->pTableInf+x)->numCols,FALSE);
 152                     //----
 153                     if ((ct_BrowserDB->pTableInf+x)->pColInf)
 154                     {
 155                         if (TableType == 1)  // Table
 156                         {
 157                             Temp0.Printf(_("Table-Name(%s) with (%d)Columns ; Remarks(%s)"),  (ct_BrowserDB->pTableInf+x)->tableName,
 158                                 (ct_BrowserDB->pTableInf+x)->numCols,(ct_BrowserDB->pTableInf+x)->tableRemarks);
 159                             Folder = AppendItem(Root,Temp0,TreeIc_TAB,TreeIc_TAB, new DBTreeData(Temp1));
 160                         }
 161                         if (TableType == 2)  // View
 162                         {
 163                             Temp0.Printf(_("View-Name(%s) with (%d)Columns ; Remarks(%s)"),  (ct_BrowserDB->pTableInf+x)->tableName,
 164                                 (ct_BrowserDB->pTableInf+x)->numCols,(ct_BrowserDB->pTableInf+x)->tableRemarks);
 165                             Folder = AppendItem(Root,Temp0,TreeIc_VIEW,TreeIc_VIEW, new DBTreeData(Temp1));
 166                         }
 167                         for (y=0;y<(ct_BrowserDB->pTableInf+x)->numCols;y++)
 168                         {
 169                             Temp1.Printf("FN(%s",((ct_BrowserDB->pTableInf+x)->pColInf+y)->colName);
 170                             // Here is where we find out if the Column is a Primary / Foreign Key
 171                             if (((ct_BrowserDB->pTableInf+x)->pColInf+y)->PkCol != 0)  // Primary Key
 172                             {
 173                                 Temp2.Printf("(%d) - %s",((ct_BrowserDB->pTableInf+x)->pColInf+y)->PkCol,((ct_BrowserDB->pTableInf+x)->pColInf+y)->colName);
 174                                 Docu = AppendItem(Folder,Temp2,TreeIc_KEY,TreeIc_KEY,new DBTreeData(Temp1));
 175                                 Temp2 = ((ct_BrowserDB->pTableInf+x)->pColInf+y)->PkTableName;
 176                                 if (Temp2 == "")
 177                                     Temp2 = _("None");
 178                                 Temp2.Printf(_("This Primary Key is used in the following Tables : %s"),Temp2.c_str());
 179                                 Funkt = AppendItem(Docu,Temp2,TreeIc_DocClosed,TreeIc_DocOpen,new DBTreeData("KEY"));
 180                             }
 181                             else
 182                             {
 183                                 if (((ct_BrowserDB->pTableInf+x)->pColInf+y)->FkCol != 0) // Foreign Key
 184                                 {
 185                                     Temp2.Printf("(%d) - %s",((ct_BrowserDB->pTableInf+x)->pColInf+y)->FkCol,((ct_BrowserDB->pTableInf+x)->pColInf+y)->colName);
 186                                     Docu = AppendItem(Folder,Temp2,TreeIc_KEYF,TreeIc_KEYF,new DBTreeData(Temp1));
 187                                     Temp2.Printf(_("This Foreign Key comes from the following Table : %s"),((ct_BrowserDB->pTableInf+x)->pColInf+y)->FkTableName);
 188                                     Funkt = AppendItem(Docu,Temp2,TreeIc_DocClosed,TreeIc_DocOpen,new DBTreeData("KEYF"));
 189                                 }
 190                                 else
 191                                     Docu = AppendItem(Folder,((ct_BrowserDB->pTableInf+x)->pColInf+y)->colName,TreeIc_COL,TreeIc_COL,new DBTreeData(Temp1));
 192                             }
 193                             SQL_TYPE.Printf("SQL_C_???? (%d)",((ct_BrowserDB->pTableInf+x)->pColInf+y)->sqlDataType);
 194                             DB_TYPE.Printf("DB_DATA_TYPE_???? (%d)",((ct_BrowserDB->pTableInf+x)->pColInf+y)->dbDataType);
 195                             for (i=1;i<=(pDoc->db_Br+i_Which)->i_SqlTyp[0];i++)
 196                             {
 197                                 if (((ct_BrowserDB->pTableInf+x)->pColInf+y)->sqlDataType == (pDoc->db_Br+i_Which)->i_SqlTyp[i])
 198                                 {
 199                                     SQL_TYPE.Printf("%s(%d) ; ",(pDoc->db_Br+i_Which)->s_SqlTyp[i].c_str(),(pDoc->db_Br+i_Which)->i_SqlTyp[i]);
 200                                 }
 201                             } // for (i=1;i<=i_SqlTyp[0];i++)
 202                             wxYield();
 203                             for (i=1;i<=(pDoc->db_Br+i_Which)->i_dbTyp[0];i++)
 204                             {
 205                                 if (((ct_BrowserDB->pTableInf+x)->pColInf+y)->dbDataType == (pDoc->db_Br+i_Which)->i_dbTyp[i])
 206                                 {
 207                                     DB_TYPE.Printf("%s(%d)",(pDoc->db_Br+i_Which)->s_dbTyp[i].c_str(),(pDoc->db_Br+i_Which)->i_dbTyp[i]);
 208                                 }
 209                             } // for (i=1;i<=i_dbTyp[0];i++)
 210                             wxYield();
 211                             SQL_TYPE += DB_TYPE;
 212                             Funkt = AppendItem(Docu,SQL_TYPE,TreeIc_DocClosed,TreeIc_DocOpen,new DBTreeData(SQL_TYPE));
 213                             SQL_TYPE.Printf("%10s %d,%d",((ct_BrowserDB->pTableInf+x)->pColInf+y)->typeName,
 214                                 ((ct_BrowserDB->pTableInf+x)->pColInf+y)->columnSize,((ct_BrowserDB->pTableInf+x)->pColInf+y)->decimalDigits);
 215                             Funkt = AppendItem(Docu,SQL_TYPE,TreeIc_DocClosed,TreeIc_DocOpen,new DBTreeData(SQL_TYPE));
 216                         }  // for (y=0;y<(ct_BrowserDB->pTableInf+x)->numCols;y++)
 217                     }   // if ((ct_BrowserDB->pTableInf+x)->pColInf)
 218                     else
 219                         Folder = AppendItem(Root,Temp0,TreeIc_FolderClosed,TreeIc_FolderOpen, new DBTreeData(Temp1));
 220                     z++;
 221 //                    if (z % 10 == 0)
 222                     {
 223                         Temp0.Printf(_("-I-> DBTree::OnPopulate(%s) - Table %6d (from %d) has been read."),(ct_BrowserDB->pTableInf+x)->tableName,z,ct_BrowserDB->numTables);
 224                         pDoc->p_MainFrame->SetStatusText(Temp0, 0);
 225                     }
 226                     wxYield();
 227                 }    // if ((ct_BrowserDB->pTableInf+x)->tableType == "TABLE" or VIEW)
 228                 // else
 229                 //  wxLogMessage(_("\n-I-> if ! TABLE or VIEW  >%s<"),(ct_BrowserDB->pTableInf+x)->tableType);
 230             }     // for (x=0;x<ct_BrowserDB->numTables;x++)
 231         }      // if (ct_BrowserDB)
 232         else
 233             wxLogMessage(_("\n-E-> DBTree::OnPopulate() : Invalid Catalog Pointer : Failed"));
 234         wxEndBusyCursor();
 235         Temp0.Printf(_("-I-> DBTree::OnPopulate() - %6d Tables have been read. - Time needed : %ld ms"),z,sw.Time());
 236         wxLogMessage(Temp0);
 237         pDoc->p_MainFrame->SetStatusText(Temp0, 0);
 238     }       // if((pDoc->db_Br+i_Which)->Initialize(FALSE))
 239     else
 240     {
 241         wxLogMessage(_("\n-E-> DBTree::OnPopulate() : A valid Pointer could not be created : Failed"));
 242         return 0;
 243     }
 244     //---------------------------------------------------------------------------------------
 245     Expand(Root);
 246     //---------------------------------------------------------------------------------------
 247     popupMenu1 = NULL;
 248     popupMenu1 = new wxMenu("");
 249     popupMenu1->Append(DATA_DB, _("Make wxDB.cpp/h "));
 250     popupMenu1->AppendSeparator();
 251     popupMenu1->Append(DATA_TABLE_ALL, _("Make all wxTable.cpp/h classes"));
 252     popupMenu2 = NULL;
 253     popupMenu2 = new wxMenu("");
 254     popupMenu2->Append(DATA_SHOW, _("Show Data"));
 255     popupMenu2->AppendSeparator();
 256     popupMenu2->Append(DATA_TABLE, _("Make wxTable.cpp/h "));
 257     //---------------------------------------------------------------------------------------
 258     return 0;
 259 }  // DBTree::OnPopulate()
 260
 261 //----------------------------------------------------------------------------------------
 262 void DBTree::OnSelChanged(wxTreeEvent& WXUNUSED(event))
 263 {
 264     int i;
 265     Temp0.Empty();
 266     pDoc->p_MainFrame->SetStatusText(Temp0,0);
 267     // Get the Information that we need
 268     wxTreeItemId itemId = GetSelection();
 269     DBTreeData *item = (DBTreeData *)GetItemData(itemId);
 270     if ( item != NULL )
 271     {
 272         int Treffer = 0;
 273         Temp1.Printf("%s",item->m_desc.c_str());
 274         //-------------------------------------------------------------------------------------
 275         if (Temp1.Contains("ODBC-"))
 276         {
 277             Temp1 = Temp1.Mid(5,wxSTRING_MAXLEN);
 278             for (i=0;i<pDoc->i_DSN;i++)
 279             {
 280                 if (Temp1 == (pDoc->p_DSN+i)->Dsn)
 281                 {
 282                     // pDoc->OnChosenDSN(i);
 283                 }
 284             }
 285             Treffer++;
 286         }
 287         //--------------------------------------------------------------------------------------
 288         if (Treffer == 0)
 289         {
 290             //-------------------------------------------------------------------------------------
 291             /*
 292             Temp0.Printf(_("Item '%s': %sselected, %sexpanded, %sbold,"
 293             "%u children (%u immediately under this item)."),
 294             item->m_desc.c_str(),
 295             bool2String(IsSelected(itemId)),
 296             bool2String(IsExpanded(itemId)),
 297             bool2String(IsBold(itemId)),
 298             GetChildrenCount(itemId),
 299             GetChildrenCount(itemId));
 300             LogBuf.Printf("-I-> DBTree::OnSelChanged - %s",Temp0.c_str());
 301             wxLogMessage( "%s", LogBuf.c_str() );
 302             */
 303             //-------------------------------------------------------------------------------------
 304         }
 305     }
 306 }
 307
 308 //----------------------------------------------------------------------------------------
 309 void DBTree::OnRightSelect(wxTreeEvent& WXUNUSED(event))
 310 {
 311     int i;
 312     Temp0.Empty();
 313     // Get the Information that we need
 314     wxTreeItemId itemId = GetSelection();
 315     DBTreeData *item = (DBTreeData *)GetItemData(itemId);
 316     if ( item != NULL )
 317     {
 318         int Treffer = 0;
 319         Temp1.Printf("%s",item->m_desc.c_str());
 320         //--------------------------------------------------------------------------------------
 321         if (!wxStrcmp("Root",Temp1))
 322         {
 323             PopupMenu(popupMenu1,TreePos.x,TreePos.y);
 324             Treffer++;
 325         }
 326         for (i=0;i<ct_BrowserDB->numTables;i++)
 327         {
 328             Temp2.Printf("TN(%s",(ct_BrowserDB->pTableInf+i)->tableName);
 329             if (!wxStrcmp(Temp2,Temp1))
 330             {
 331                 PopupMenu(popupMenu2,TreePos.x,TreePos.y);
 332                 Treffer++;
 333             }
 334         }
 335         //--------------------------------------------------------------------------------------
 336         if (Treffer == 0)
 337         {
 338             //-------------------------------------------------------------------------------------
 339             /*
 340             Temp0.Printf(_("Item '%s': %sselected, %sexpanded, %sbold,"
 341             "%u children (%u immediately under this item)."),
 342             item->m_desc.c_str(),
 343             bool2String(IsSelected(itemId)),
 344             bool2String(IsExpanded(itemId)),
 345             bool2String(IsBold(itemId)),
 346             GetChildrenCount(itemId),
 347             GetChildrenCount(itemId));
 348             LogBuf.Printf("-I-> DBTree::OnSelChanged - %s",Temp0.c_str());
 349             wxLogMessage( "%s", LogBuf.c_str() );
 350             */
 351             //-------------------------------------------------------------------------------------
 352         }
 353     }
 354 }
 355
 356 //----------------------------------------------------------------------------------------
 357 void DBTree::OnDBGrid(wxCommandEvent& event)
 358 {
 359     int i;
 360     // Get the Information that we need
 361     wxTreeItemId itemId = GetSelection();
 362     DBTreeData *item = (DBTreeData *)GetItemData(itemId);
 363     if ( item != NULL )
 364     {
 365         Temp1.Printf("%s",item->m_desc.c_str());
 366         for (i=0;i<ct_BrowserDB->numTables;i++)
 367         {
 368             Temp2.Printf("TN(%s",(ct_BrowserDB->pTableInf+i)->tableName);
 369             if (!wxStrcmp(Temp2,Temp1))
 370             {
 371                 // Temp0.Printf("(%d) Here is where a GridCtrl for >%s< will be called! ",i,(ct_BrowserDB->pTableInf+i)->tableName);
 372                 pDoc->OnChosenTbl(1,(ct_BrowserDB->pTableInf+i)->tableName);
 373                 // wxMessageBox(Temp0);
 374             }
 375         }
 376     }
 377 }
 378
 379 //----------------------------------------------------------------------------------------
 380 void DBTree::OnDBClass(wxCommandEvent& event)
 381 {
 382     // int i;
 383     // Get the Information that we need
 384     wxTreeItemId itemId = GetSelection();
 385     DBTreeData *item = (DBTreeData *)GetItemData(itemId);
 386     if ( item != NULL )
 387     {
 388         Temp0.Printf(_("Here is where a wxDB Class for >%s< will be made! "),s_DSN.c_str());
 389         wxMessageBox(Temp0);
 390     }
 391 }
 392
 393 //----------------------------------------------------------------------------------------
 394 void DBTree::OnTableClass(wxCommandEvent& event)
 395 {
 396     int i;
 397     // Get the Information that we need
 398     wxTreeItemId itemId = GetSelection();
 399     DBTreeData *item = (DBTreeData *)GetItemData(itemId);
 400     if ( item != NULL )
 401     {
 402         Temp1.Printf("%s",item->m_desc.c_str());
 403         for (i=0;i<ct_BrowserDB->numTables;i++)
 404         {
 405             Temp2.Printf("TN(%s",(ct_BrowserDB->pTableInf+i)->tableName);
 406             if (!wxStrcmp(Temp2,Temp1))
 407             {
 408                 Temp0.Printf(_("(%d) Here is where a wxTable Class for >%s< will be made! "),i,(ct_BrowserDB->pTableInf+i)->tableName);
 409                 wxMessageBox(Temp0);
 410             }
 411         }
 412     }
 413 }
 414
 415 //----------------------------------------------------------------------------------------
 416 void DBTree::OnTableClassAll(wxCommandEvent& event)
 417 {
 418     // int i;
 419     // Get the Information that we need
 420     wxTreeItemId itemId = GetSelection();
 421     DBTreeData *item = (DBTreeData *)GetItemData(itemId);
 422     if ( item != NULL )
 423     {
 424         Temp0.Printf(_("Here is where all wxTable Classes in >%s< will be made! "),s_DSN.c_str());
 425         wxMessageBox(Temp0);
 426     }
 427 }
 428
 429 //----------------------------------------------------------------------------------------
 430 void DBTree::OnMouseMove(wxMouseEvent &event)
 431 {
 432     TreePos = event.GetPosition();
 433 }
 434 //----------------------------------------------------------------------------------------