1 //----------------------------------------------------------------------------------------
3 // Purpose: Tree with Table and Views, branches show Field information
4 // Author: Mark Johnson
8 // Copyright: (c) Mark Johnson, Berlin Germany
9 // Licence: wxWindows license
10 //----------------------------------------------------------------------------------------
11 //-- all #ifdefs that the whole Project needs. -------------------------------------------
12 //----------------------------------------------------------------------------------------
14 #pragma implementation
17 //----------------------------------------------------------------------------------------
18 // For compilers that support precompilation, includes "wx/wx.h".
19 #include "wx/wxprec.h"
20 //----------------------------------------------------------------------------------------
24 //----------------------------------------------------------------------------------------
28 //----------------------------------------------------------------------------------------
31 //----------------------------------------------------------------------------------------
32 //-- all #includes that every .cpp needs --- 19990807.mj10777 ----------------
33 //----------------------------------------------------------------------------------------
34 #include "std.h" // sorgsam Pflegen !
36 //----------------------------------------------------------------------------------------
37 //-- Global functions --------------------------------------------------------------------
38 //----------------------------------------------------------------------------------------
39 static inline const char *bool2String(bool b
)
41 return b
? "" : "not ";
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
)
54 //----------------------------------------------------------------------------------------
55 // DBTree implementation
56 //----------------------------------------------------------------------------------------
57 IMPLEMENT_DYNAMIC_CLASS(DBTree
, wxTreeCtrl
)
59 //----------------------------------------------------------------------------------------
60 DBTree::DBTree(wxWindow
*parent
) : wxTreeCtrl(parent
)
64 //----------------------------------------------------------------------------------------
65 DBTree::DBTree(wxWindow
*parent
, const wxWindowID id
,const wxPoint
& pos
, const wxSize
& size
, long style
)
66 : wxTreeCtrl(parent
, id
, pos
, size
, style
)
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"
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
);
99 //----------------------------------------------------------------------------------------
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
;
112 delete p_imageListNormal
;
113 if (popupMenu1
) // If the DSN has no Tables, then no delete should be done !
115 if (popupMenu1
) // If the DSN has no Tables, then no delete should be done !
119 //----------------------------------------------------------------------------------------
120 #undef TREE_EVENT_HANDLER
122 //----------------------------------------------------------------------------------------
123 int DBTree::OnPopulate()
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
))
134 ct_BrowserDB
= (pDoc
->db_Br
+i_Which
)->OnGetCatalog(FALSE
);
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
++)
142 TableType
= 0; // TABLE = 1 ; VIEW = 2 ; 0 We are not interested in
143 if (!wxStrcmp((ct_BrowserDB
->pTableInf
+x
)->tableType
,"TABLE")) // only TABLES
145 if (!wxStrcmp((ct_BrowserDB
->pTableInf
+x
)->tableType
,"VIEW")) // and VIEWS
147 if (TableType
) // only TABLES or Views
149 Temp1
.Printf("TN(%s",(ct_BrowserDB
->pTableInf
+x
)->tableName
);
151 (ct_BrowserDB
->pTableInf
+x
)->pColInf
= (pDoc
->db_Br
+i_Which
)->OnGetColumns((ct_BrowserDB
->pTableInf
+x
)->tableName
,(ct_BrowserDB
->pTableInf
+x
)->numCols
,FALSE
);
153 if ((ct_BrowserDB
->pTableInf
+x
)->pColInf
)
155 if (TableType
== 1) // Table
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
));
161 if (TableType
== 2) // View
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
));
167 for (y
=0;y
<(ct_BrowserDB
->pTableInf
+x
)->numCols
;y
++)
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
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
;
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"));
183 if (((ct_BrowserDB
->pTableInf
+x
)->pColInf
+y
)->FkCol
!= 0) // Foreign Key
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"));
191 Docu
= AppendItem(Folder
,((ct_BrowserDB
->pTableInf
+x
)->pColInf
+y
)->colName
,TreeIc_COL
,TreeIc_COL
,new DBTreeData(Temp1
));
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
++)
197 if (((ct_BrowserDB
->pTableInf
+x
)->pColInf
+y
)->sqlDataType
== (pDoc
->db_Br
+i_Which
)->i_SqlTyp
[i
])
199 SQL_TYPE
.Printf("%s(%d) ; ",(pDoc
->db_Br
+i_Which
)->s_SqlTyp
[i
].c_str(),(pDoc
->db_Br
+i_Which
)->i_SqlTyp
[i
]);
201 } // for (i=1;i<=i_SqlTyp[0];i++)
203 for (i
=1;i
<=(pDoc
->db_Br
+i_Which
)->i_dbTyp
[0];i
++)
205 if (((ct_BrowserDB
->pTableInf
+x
)->pColInf
+y
)->dbDataType
== (pDoc
->db_Br
+i_Which
)->i_dbTyp
[i
])
207 DB_TYPE
.Printf("%s(%d)",(pDoc
->db_Br
+i_Which
)->s_dbTyp
[i
].c_str(),(pDoc
->db_Br
+i_Which
)->i_dbTyp
[i
]);
209 } // for (i=1;i<=i_dbTyp[0];i++)
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)
219 Folder
= AppendItem(Root
,Temp0
,TreeIc_FolderClosed
,TreeIc_FolderOpen
, new DBTreeData(Temp1
));
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);
227 } // if ((ct_BrowserDB->pTableInf+x)->tableType == "TABLE" or VIEW)
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)
233 wxLogMessage(_("\n-E-> DBTree::OnPopulate() : Invalid Catalog Pointer : Failed"));
235 Temp0
.Printf(_("-I-> DBTree::OnPopulate() - %6d Tables have been read. - Time needed : %ld ms"),z
,sw
.Time());
237 pDoc
->p_MainFrame
->SetStatusText(Temp0
, 0);
238 } // if((pDoc->db_Br+i_Which)->Initialize(FALSE))
241 wxLogMessage(_("\n-E-> DBTree::OnPopulate() : A valid Pointer could not be created : Failed"));
244 //---------------------------------------------------------------------------------------
246 //---------------------------------------------------------------------------------------
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"));
253 popupMenu2
= new wxMenu("");
254 popupMenu2
->Append(DATA_SHOW
, _("Show Data"));
255 popupMenu2
->AppendSeparator();
256 popupMenu2
->Append(DATA_TABLE
, _("Make wxTable.cpp/h "));
257 //---------------------------------------------------------------------------------------
259 } // DBTree::OnPopulate()
261 //----------------------------------------------------------------------------------------
262 void DBTree::OnSelChanged(wxTreeEvent
& WXUNUSED(event
))
266 pDoc
->p_MainFrame
->SetStatusText(Temp0
,0);
267 // Get the Information that we need
268 wxTreeItemId itemId
= GetSelection();
269 DBTreeData
*item
= (DBTreeData
*)GetItemData(itemId
);
273 Temp1
.Printf("%s",item
->m_desc
.c_str());
274 //-------------------------------------------------------------------------------------
275 if (Temp1
.Contains("ODBC-"))
277 Temp1
= Temp1
.Mid(5,wxSTRING_MAXLEN
);
278 for (i
=0;i
<pDoc
->i_DSN
;i
++)
280 if (Temp1
== (pDoc
->p_DSN
+i
)->Dsn
)
282 // pDoc->OnChosenDSN(i);
287 //--------------------------------------------------------------------------------------
290 //-------------------------------------------------------------------------------------
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() );
303 //-------------------------------------------------------------------------------------
308 //----------------------------------------------------------------------------------------
309 void DBTree::OnRightSelect(wxTreeEvent
& WXUNUSED(event
))
313 // Get the Information that we need
314 wxTreeItemId itemId
= GetSelection();
315 DBTreeData
*item
= (DBTreeData
*)GetItemData(itemId
);
319 Temp1
.Printf("%s",item
->m_desc
.c_str());
320 //--------------------------------------------------------------------------------------
321 if (!wxStrcmp("Root",Temp1
))
323 PopupMenu(popupMenu1
,TreePos
.x
,TreePos
.y
);
326 for (i
=0;i
<ct_BrowserDB
->numTables
;i
++)
328 Temp2
.Printf("TN(%s",(ct_BrowserDB
->pTableInf
+i
)->tableName
);
329 if (!wxStrcmp(Temp2
,Temp1
))
331 PopupMenu(popupMenu2
,TreePos
.x
,TreePos
.y
);
335 //--------------------------------------------------------------------------------------
338 //-------------------------------------------------------------------------------------
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() );
351 //-------------------------------------------------------------------------------------
356 //----------------------------------------------------------------------------------------
357 void DBTree::OnDBGrid(wxCommandEvent
& event
)
360 // Get the Information that we need
361 wxTreeItemId itemId
= GetSelection();
362 DBTreeData
*item
= (DBTreeData
*)GetItemData(itemId
);
365 Temp1
.Printf("%s",item
->m_desc
.c_str());
366 for (i
=0;i
<ct_BrowserDB
->numTables
;i
++)
368 Temp2
.Printf("TN(%s",(ct_BrowserDB
->pTableInf
+i
)->tableName
);
369 if (!wxStrcmp(Temp2
,Temp1
))
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);
379 //----------------------------------------------------------------------------------------
380 void DBTree::OnDBClass(wxCommandEvent
& event
)
383 // Get the Information that we need
384 wxTreeItemId itemId
= GetSelection();
385 DBTreeData
*item
= (DBTreeData
*)GetItemData(itemId
);
388 Temp0
.Printf(_("Here is where a wxDB Class for >%s< will be made! "),s_DSN
.c_str());
393 //----------------------------------------------------------------------------------------
394 void DBTree::OnTableClass(wxCommandEvent
& event
)
397 // Get the Information that we need
398 wxTreeItemId itemId
= GetSelection();
399 DBTreeData
*item
= (DBTreeData
*)GetItemData(itemId
);
402 Temp1
.Printf("%s",item
->m_desc
.c_str());
403 for (i
=0;i
<ct_BrowserDB
->numTables
;i
++)
405 Temp2
.Printf("TN(%s",(ct_BrowserDB
->pTableInf
+i
)->tableName
);
406 if (!wxStrcmp(Temp2
,Temp1
))
408 Temp0
.Printf(_("(%d) Here is where a wxTable Class for >%s< will be made! "),i
,(ct_BrowserDB
->pTableInf
+i
)->tableName
);
415 //----------------------------------------------------------------------------------------
416 void DBTree::OnTableClassAll(wxCommandEvent
& event
)
419 // Get the Information that we need
420 wxTreeItemId itemId
= GetSelection();
421 DBTreeData
*item
= (DBTreeData
*)GetItemData(itemId
);
424 Temp0
.Printf(_("Here is where all wxTable Classes in >%s< will be made! "),s_DSN
.c_str());
429 //----------------------------------------------------------------------------------------
430 void DBTree::OnMouseMove(wxMouseEvent
&event
)
432 TreePos
= event
.GetPosition();
434 //----------------------------------------------------------------------------------------