]>
git.saurik.com Git - wxWidgets.git/blob - demos/dbbrowse/dbtree.cpp
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 ( " %1 0s %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 %6 d (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() - %6 d Tables have been read. - Time needed : %l d 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 //----------------------------------------------------------------------------------------