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