demos/dbbrowse/doc.cpp

   1 //----------------------------------------------------------------------------------------
   2 // Name:        Doc.cpp
   3 // Purpose:     Holds information for DBBrowser - (a do-it-yourself document)
   4 // Author:      Mark Johnson, mj10777@gmx.net
   5 // Modified by: 19990808.mj10777
   6 // BJO        : Bart A.M. JOURQUIN
   7 // Created:     19990808
   8 // Copyright:   (c) Mark Johnson
   9 // Licence:     wxWindows license
  10 // RCS-ID:      $Id$
  11 //----------------------------------------------------------------------------------------
  12 //-- all #ifdefs that the whole Project needs. -------------------------------------------
  13 //----------------------------------------------------------------------------------------
  14 #ifdef __GNUG__
  15 #pragma implementation
  16 #pragma interface
  17 #endif
  18 //----------------------------------------------------------------------------------------
  19 // For compilers that support precompilation, includes "wx/wx.h".
  20 #include "wx/wxprec.h"
  21 //----------------------------------------------------------------------------------------
  22 #ifdef __BORLANDC__
  23 #pragma hdrstop
  24 #endif
  25 //----------------------------------------------------------------------------------------
  26 #ifndef WX_PRECOMP
  27 #include "wx/wx.h"
  28 #endif
  29 //----------------------------------------------------------------------------------------
  30 //-- all #includes that every .cpp needs             ----19990807.mj10777 ----------------
  31 //----------------------------------------------------------------------------------------
  32 #include "std.h"       // sorgsam Pflegen !
  33 //----------------------------------------------------------------------------------------
  34 //-- Some Global Vars for all Files (extern in ?.h needed) -------------------------------
  35 // Global structure for holding ODBC connection information
  36 struct DbStuff DbConnectInf;
  37 //----------------------------------------------------------------------------------------
  38 wxConfigBase   *p_ProgramCfg;       // All Config and Path information
  39 wxLogTextCtrl  *p_LogBook;          // All Log messages
  40 wxString        LogBuf;             // String for all Logs
  41 //----------------------------------------------------------------------------------------
  42 mjDoc::mjDoc()
  43 {
  44  db_Br          = NULL;
  45  p_DSN          = NULL;
  46  i_DSN          = 0;
  47  p_Splitter     = NULL;
  48  p_MainFrame    = NULL;
  49  p_PgmCtrl      = NULL;               // Is not active
  50  p_DBTree       = NULL;
  51  p_DBGrid       = NULL;
  52  p_LogWin       = NULL;
  53  p_TabArea      = NULL;
  54  p_PageArea     = NULL;
  55  i_TabNr        = 0;
  56  i_PageNr       = 0;
  57  s_BColour = "WHEAT";
  58  ft_Doc = new wxFont(wxSystemSettings::GetSystemFont(wxSYS_SYSTEM_FONT));
  59 }
  60 //----------------------------------------------------------------------------------------
  61 mjDoc::~mjDoc()
  62 {
  63  // ----------------------------------------------------------
  64  // -E-> The Tree Controls take to long to close : Why ??
  65  // ----------------------------------------------------------
  66  // wxMessageBox("-I-> end Doc");
  67  p_TabArea->Show(FALSE);    // Deactivate the Window
  68  p_PageArea->Show(FALSE);    // Deactivate the Window
  69  p_PgmCtrl = NULL;
  70  delete p_PgmCtrl;
  71  delete [] p_DSN;
  72  delete p_DBTree;
  73  p_TabArea  = NULL; delete p_TabArea;
  74  p_PageArea = NULL; delete p_PageArea;
  75  p_Splitter = NULL;
  76  delete p_Splitter;
  77  delete [] db_Br;
  78  //  wxMessageBox("~mjDoc");
  79 }
  80 //----------------------------------------------------------------------------------------
  81 bool mjDoc::OnNewDocument()
  82 {
  83  //---------------------------------------------------------------------------------------
  84  if (!OnInitView())
  85  {
  86   return FALSE;
  87  }
  88  p_PgmCtrl->OnPopulate();
  89  //---------------------------------------------------------------------------------------
  90  return TRUE;
  91 }
  92 //----------------------------------------------------------------------------------------
  93 bool mjDoc::OnInitView()
  94 {
  95  Sash = p_ProgramCfg->Read("/MainFrame/Sash", 200);
  96  // wxMessageBox("OnInitView() - Begin ","-I->mjDoc::OnInitView");
  97  //---------------------------------------------------------------------------------------
  98  // create "workplace" window
  99  //---------------------------------------------------------------------------------------
 100  p_TabArea = new wxTabbedWindow(); // Init the Pointer
 101  p_TabArea->Create(p_Splitter, -1);
 102  //---------------------------------------------------------------------------------------
 103  p_PgmCtrl = new PgmCtrl(p_TabArea, TREE_CTRL_PGM,wxDefaultPosition, wxDefaultSize,
 104                          wxTR_HAS_BUTTONS | wxSUNKEN_BORDER);
 105  p_PgmCtrl->i_TabArt = 0; // 0 = Tab ; 1 = Page
 106  p_PgmCtrl->i_ViewNr = p_TabArea->GetTabCount()-1;
 107  //---------------------------------------------------------------------------------------
 108  wxBitmap *p_FolderClose = new wxBitmap("PgmCtrl"); //, wxBITMAP_TYPE_BMP_RESOURCE); // BJO20000115
 109  //---------------------------------------------------------------------------------------
 110  p_TabArea->AddTab(p_PgmCtrl,"PgmCtrl",p_FolderClose);
 111  //---------------------------------------------------------------------------------------
 112  // now create "output" window
 113  //---------------------------------------------------------------------------------------
 114  p_PageArea = new wxPaggedWindow();  // Init the Pointer
 115  p_PageArea->Create(p_Splitter, -1);
 116  //---------------------------------------------------------------------------------------
 117  p_LogWin = new wxTextCtrl(p_PageArea,-1,wxEmptyString,
 118       wxDefaultPosition, wxDefaultSize,wxTE_MULTILINE );
 119  //wxFont* ft_Temp = new wxFont(10,wxSWISS,wxNORMAL,wxBOLD,FALSE,"Comic Sans MS");
 120  wxFont* ft_Temp = new wxFont(wxSystemSettings::GetSystemFont(wxSYS_SYSTEM_FONT));
 121  p_LogWin->SetFont(* ft_Temp);
 122  // Don't forget ! This is always : i_TabArt = 0 ; i_ViewNr = 1;
 123  //---------------------------------------------------------------------------------------
 124  p_LogBook = new wxLogTextCtrl(p_LogWin); // make p_LogWin the LogBook
 125  p_LogBook->SetActiveTarget(p_LogBook);
 126  p_LogBook->SetTimestamp( NULL );
 127  //---------------------------------------------------------------------------------------
 128  p_PageArea->AddTab(p_LogWin,_("LogBook"), "what is this?" );
 129  i_TabNr  = p_TabArea->GetTabCount()-1;  // Add one when a new AddTab is done;
 130  i_PageNr = p_PageArea->GetTabCount()-1; // Add one when a new AddTab is done;
 131  //---------------------------------------------------------------------------------------
 132  p_PgmCtrl->pDoc = this;
 133  p_TabArea->SetActiveTab(i_PageNr);
 134  //---------------------------------------------------------------------------------------
 135  p_Splitter->Initialize(p_TabArea);
 136  p_Splitter->SplitHorizontally(p_TabArea,p_PageArea,Sash);
 137  //---------------------------------------------------------------------------------------
 138  if (!OnInitODBC())
 139    return FALSE;
 140  //---------------------------------------------------------------------------------------
 141  Temp0.Printf("-I-> mjDoc::OnInitView() - End - %d DSN's found",i_DSN);
 142  p_MainFrame->SetStatusText(Temp0, 0);
 143  wxLogMessage(Temp0);
 144  return TRUE;
 145 }
 146 //----------------------------------------------------------------------------------------
 147 bool mjDoc::OnInitODBC()
 148 {
 149  char Dsn[SQL_MAX_DSN_LENGTH + 1];
 150  char DsDesc[255]; // BJO20002501 instead of 512
 151  Temp0 = "";
 152  i_DSN = 0;       // Counter
 153  int i = 0;
 154  //---------------------------------------------------------------------------------------
 155  // Initialize the ODBC Environment for Database Operations
 156
 157  if (SQLAllocEnv(&DbConnectInf.Henv) != SQL_SUCCESS)
 158  {
 159   return FALSE;
 160  }
 161  //---------------------------------------------------------------------------------------
 162  const char sep = 3; // separator character used in string between DSN ans DsDesc
 163  wxStringList s_SortDSNList, s_SortDsDescList;
 164  // BJO-20000127
 165  // In order to have same sort result on both Dsn and DsDesc, create a 'keyed' string.
 166  // The key will be removed after sorting
 167  wxString KeyString;
 168  //---------------------------------------------------------------------------------------
 169  while(GetDataSource(DbConnectInf.Henv, Dsn, sizeof(Dsn), DsDesc, sizeof(DsDesc)))
 170  {
 171   i_DSN++;   // How many Dsn have we ?
 172   KeyString.Printf("%s%c%s",Dsn, sep, DsDesc);
 173   s_SortDSNList.Add(Dsn);
 174   s_SortDsDescList.Add(KeyString);
 175  }
 176  s_SortDSNList.Sort();     //BJO
 177  s_SortDsDescList.Sort();  //BJO
 178
 179  char ** s_SortDSN = s_SortDSNList.ListToArray();        //BJO
 180  char ** s_SortDsDesc = s_SortDsDescList.ListToArray();  //BJO
 181  //---------------------------------------------------------------------------------------
 182  // Allocate n ODBC-DSN objects to hold the information
 183  p_DSN = new DSN[i_DSN];  //BJO
 184  for (i=0;i<i_DSN;i++)
 185  {
 186   KeyString = s_SortDsDesc[i];
 187   KeyString = KeyString.AfterFirst(sep);
 188   strcpy(s_SortDsDesc[i],KeyString.c_str());
 189   (p_DSN+i)->Dsn = s_SortDSN[i];
 190   (p_DSN+i)->Drv = s_SortDsDesc[i];
 191   (p_DSN+i)->Usr = "";
 192   (p_DSN+i)->Pas = "";
 193   Temp0.Printf("%02d) Dsn(%s) DsDesc(%s)",i,(p_DSN+i)->Dsn.c_str(),(p_DSN+i)->Drv.c_str());
 194   wxLogMessage(Temp0);
 195  }
 196  i = 0;
 197  //---------------------------------------------------------------------------------------
 198  // Allocate n wxDatabase objects to hold the column information
 199  db_Br = new BrowserDB[i_DSN];
 200  for (i=0;i<i_DSN;i++)
 201  {
 202   (db_Br+i)->p_LogWindow = p_LogWin;
 203   (db_Br+i)->ODBCSource  = (p_DSN+i)->Dsn;
 204   (db_Br+i)->UserName    = (p_DSN+i)->Usr;
 205   (db_Br+i)->Password    = (p_DSN+i)->Pas;
 206   (db_Br+i)->pDoc        = this;
 207   (db_Br+i)->i_Which     = i;
 208  }
 209  if (SQLFreeEnv(&DbConnectInf.Henv) != SQL_SUCCESS) // BJO20000125
 210  {
 211   // Error freeing environment handle
 212  }
 213  delete [] s_SortDSN;
 214  delete [] s_SortDsDesc;
 215  //---------------------------------------------------------------------------------------
 216  if (!i_DSN)
 217  {
 218   wxMessageBox(_("No Dataset names found in ODBC!\n" \
 219       "           Program will exit!\n\n" \
 220       "                       Ciao"),"-E-> Fatal situation");
 221   return FALSE;
 222  }
 223  //---------------------------------------------------------------------------------------
 224  return TRUE;
 225 }
 226 //----------------------------------------------------------------------------------------
 227 bool mjDoc::OnChosenDSN(int Which)
 228 {
 229  // wxLogMessage("OnChosenDSN(%d) - Begin",Which);
 230  //---------------------------------------------------------------------------------------
 231  if (p_DBTree != NULL)
 232  {
 233   p_TabArea->Show(FALSE);    // Deactivate the Window
 234   p_TabArea->RemoveTab(p_DBTree->i_ViewNr);
 235   p_TabArea->Show(TRUE);     // Activate the Window
 236   OnChosenTbl(77,"");
 237  }
 238  //-------------------------
 239  p_TabArea->Show(FALSE);    // Deactivate the Window
 240  p_DBTree = new DBTree(p_TabArea, TREE_CTRL_DB,wxDefaultPosition, wxDefaultSize,
 241    wxTR_HAS_BUTTONS | wxSUNKEN_BORDER);
 242  p_TabArea->AddTab(p_DBTree,(p_DSN+Which)->Dsn," ? ");
 243  p_DBTree->i_ViewNr = p_TabArea->GetTabCount()-1;
 244  p_TabArea->Show(TRUE);    // Deactivate the Window
 245  p_DBTree->i_Which  = Which;
 246  p_DBTree->s_DSN    = (p_DSN+Which)->Dsn;
 247  p_DBTree->i_TabArt = 0;
 248  p_DBTree->pDoc     = this;
 249  p_DBTree->OnPopulate();
 250  p_TabArea->SetActiveTab(p_DBTree->i_ViewNr);
 251  //---------------------------------------------------------------------------------------
 252  // wxLogMessage("OnChosenDSN(%d) - End",Which);
 253  return TRUE;
 254 }
 255 //----------------------------------------------------------------------------------------
 256 bool mjDoc::OnChosenTbl(int Tab,wxString Table)
 257 {
 258  // wxLogMessage("OnChosenTbl(%d,%s)",Tab,Table.c_str());
 259  //-------------------------
 260  if (p_DBGrid != NULL)
 261  {
 262   if (p_DBGrid->i_TabArt == 0)
 263   {
 264    p_TabArea->Show(FALSE);    // Deactivate the Window
 265    p_TabArea->RemoveTab(p_DBGrid->i_ViewNr);
 266    p_TabArea->Show(TRUE);     // Activate the Window
 267   }
 268   if (p_DBGrid->i_TabArt == 1)
 269   {
 270    p_PageArea->Show(FALSE);   // Deactivate the Window
 271    p_PageArea->RemoveTab(p_DBGrid->i_ViewNr);
 272    p_PageArea->Show(TRUE);    // Activate the Window
 273   }
 274   p_DBGrid = NULL;
 275   delete p_DBGrid;
 276  }
 277  if (Tab == 77)               // Delete only
 278   return TRUE;
 279  //-------------------------
 280  if (Tab == 0)  // Tabview
 281  {
 282   p_TabArea->Show(FALSE);    // Deactivate the Window
 283   p_DBGrid = new DBGrid(p_TabArea,GRID_CTRL_DB,wxDefaultPosition, wxDefaultSize,
 284                                                wxSUNKEN_BORDER);
 285   p_TabArea->AddTab(p_DBGrid, Table, "");
 286   p_DBGrid->i_ViewNr = p_TabArea->GetTabCount()-1;
 287   p_DBGrid->pDoc       = this;
 288   p_DBGrid->db_Br      = db_Br;
 289   p_DBGrid->OnTableView(Table);
 290   p_TabArea->SetActiveTab(p_DBGrid->i_ViewNr);
 291   p_TabArea->Show(TRUE);     // Activate the Window
 292  }
 293  if (Tab == 1)  // Pageview
 294  {
 295   p_PageArea->Show(FALSE);   // Deactivate the Window
 296   p_DBGrid = new DBGrid(p_PageArea,GRID_CTRL_DB,wxDefaultPosition, wxDefaultSize,
 297                                                 wxSUNKEN_BORDER);
 298   p_PageArea->AddTab(p_DBGrid, Table, "");
 299   p_DBGrid->i_ViewNr = p_PageArea->GetTabCount()-1;
 300   p_DBGrid->pDoc       = this;
 301   p_DBGrid->db_Br      = db_Br;
 302   p_DBGrid->i_Which    = p_DBTree->i_Which;
 303   p_PageArea->Show(TRUE);    // Activate the Window
 304   p_DBGrid->OnTableView(Table);
 305   p_PageArea->SetActiveTab(p_DBGrid->i_ViewNr);
 306  }
 307  p_DBGrid->i_TabArt = Tab;
 308  //--------------------------
 309  return TRUE;;
 310 }
 311 //----------------------------------------------------------------------------------------
 312 void mjDoc::OnLeer(wxString Aufrufer)
 313 {
 314  // Temp0.Printf(_("\nmjDoc::OnLeer(%s) : auch diese funktion steht eines Tages zur Verfügung !"),Aufrufer.c_str());
 315  Temp0.Printf(_("\nmjDoc::OnLeer(%s) : even this function will one day be available !"),Aufrufer.c_str());
 316  wxLogMessage(Temp0);  Temp0.Empty();
 317  return;
 318 }
 319 //----------------------------------------------------------------------------------------
 320 BEGIN_EVENT_TABLE(DocSplitterWindow, wxSplitterWindow)
 321 END_EVENT_TABLE()
 322 //----------------------------------------------------------------------------------------
 323 DocSplitterWindow::DocSplitterWindow(wxWindow *parent, wxWindowID id) : wxSplitterWindow(parent, id)
 324 { // Define a constructor for my p_Splitter
 325 }
 326 //----------------------------------------------------------------------------------------