/mysql-5.5.25a/libmysqld/examples/builder-sample/emb_samples.cpp
C++ | 300 lines | 242 code | 23 blank | 35 comment | 32 complexity | 0658d0cf1c8c5bba460e2ce800387ec1 MD5 | raw file
Possible License(s): GPL-2.0, BSD-3-Clause
- // Copyright (c) 2002, 2004, 2007 MySQL AB
- // Use is subject to license terms.
- //
- // This program is free software; you can redistribute it and/or modify
- // it under the terms of the GNU General Public License as published by
- // the Free Software Foundation; version 2 of the License.
- //
- // This program is distributed in the hope that it will be useful,
- // but WITHOUT ANY WARRANTY; without even the implied warranty of
- // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- // GNU General Public License for more details.
- //
- // You should have received a copy of the GNU General Public License
- // along with this program; if not, write to the Free Software
- // Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
- #include "emb_samples.h"
- #include <winsock2.h>
- #include <mysql.h>
- #include <stdarg.h>
- #include <stdio.h>
- #include <stdlib.h>
- #include <string.h>
- #include <deque.h>
- bool b_new_line = false;
- const char *server_groups[] = {
- "", "embedded", "server", NULL
- };
- MYSQL *MySQL;
- deque<string> fill_rows(MYSQL_RES *res);
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- #pragma resource "*.dfm"
- TForm1 *Form1;
- //---------------------------------------------------------------------------
- deque<string> fill_rows(MYSQL_RES *res)
- {
- MYSQL_ROW row;
- deque<string> rows;
- while ((row=mysql_fetch_row(res)) != 0)
- {
- mysql_field_seek(res,0);
- for (unsigned int i=0 ; i < mysql_num_fields(res); i++)
- rows.push_back(row[i]);
- }
- return rows;
- }
- //---------------------------------------------------------------------------
- __fastcall TForm1::TForm1(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::Timer1Timer(TObject *Sender)
- {
- if (is_server_started)
- {
- ToggleButton->Caption = "Quit";
- Timer1->Enabled = false;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::FormCreate(TObject *Sender)
- {
- is_server_started = false;
- computer_ip(); /* get the computer name and IP number */
- /* init the tree database screen */
- db_root = DBView->Items->Add(NULL, db_root_caption.UpperCase());
- db_root->ImageIndex = 0;
- }
- //---------------------------------------------------------------------------
- /* button which handle the init of mysql server or quit the app */
- void __fastcall TForm1::ToggleButtonClick(TObject *Sender)
- {
- if (!is_server_started)
- {
- mysql_server_init(NULL, NULL, (char **)server_groups) ;
- connect_server();
- get_dbs();
- }
- else
- {
- mysql_server_end();
- Close();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::computer_ip(void)
- {
- WORD wVersionRequested;
- WSADATA WSAData;
- wVersionRequested = MAKEWORD(1,1);
- WSAStartup(wVersionRequested,&WSAData);
- hostent *P;
- char s[128];
- in_addr in;
- char *P2;
- gethostname(s, 128);
- P = gethostbyname(s);
- db_root_caption = P->h_name;
- in.S_un.S_un_b.s_b1 = P->h_addr_list[0][0];
- in.S_un.S_un_b.s_b2 = P->h_addr_list[0][1];
- in.S_un.S_un_b.s_b3 = P->h_addr_list[0][2];
- in.S_un.S_un_b.s_b4 = P->h_addr_list[0][3];
- P2 = inet_ntoa(in);
- db_root_caption += " ( " + (AnsiString)P2 + " )";
- }
- //---------------------------------------------------------------------------
- bool __fastcall TForm1::connect_server()
- {
- bool ret_value = false;
- MySQL = mysql_init(MySQL);
- if (!MySQL)
- return ret_value;
- if (mysql_real_connect(MySQL, NULL, NULL, NULL, NULL, 0, NULL, 0))
- {
- ret_value = true;
- is_server_started = true;
- }
- MySQL->reconnect= 1;
- return ret_value;
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::FormDestroy(TObject *Sender)
- {
- if (is_server_started)
- mysql_server_end();
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::DBViewClick(TObject *Sender)
- {
- if (DBView->Selected != db_root && DBView->Selected != NULL)
- {
- get_tables(DBView->Selected->Text);
- clean_desc_grid();
- }
- }
- //---------------------------------------------------------------------------
- bool __fastcall TForm1::get_tables(String db_name)
- {
- MYSQL_RES *res;
- AnsiString s_cmd;
- TableView->Items->Clear();
- s_cmd = "use ";
- s_cmd+= db_name.c_str();
- if (mysql_query(MySQL, s_cmd.c_str()) ||
- !(res=mysql_list_tables(MySQL,"%")))
- return false;
- tables_node = TableView->Items->Add(NULL, db_name.c_str());
- tables_node->ImageIndex = 1;
- tables_node->SelectedIndex = 1;
- deque<string> rows = fill_rows(res);
- mysql_free_result(res);
- fill_tree(rows,tables_tree,tables_node,TableView,2);
- return true;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TForm1::get_dbs(void)
- {
- MYSQL_RES *res;
- if (!is_server_started)
- return false;
- if (!(res=mysql_list_dbs(MySQL,"%")))
- return false;
- deque<string> rows = fill_rows(res);
- mysql_free_result(res);
- fill_tree(rows,MySQLDbs,db_root,DBView,1);
- info_server->Text = mysql_get_server_info(MySQL);
- return true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::fill_tree(deque<string> rows,
- TTreeNode *root,
- TTreeNode *child,
- TTreeView *View,
- int image_index)
- {
- deque<string>::iterator r;
- for(r = rows.begin(); r != rows.end() ; r++)
- {
- root = View->Items->AddChild(child, (*r).c_str());
- root->ImageIndex = image_index;
- root->SelectedIndex = image_index;
- }
- child->Expanded = true;
- }
- //---------------------------------------------------------------------------
- bool __fastcall TForm1::get_desc_table(String table_name)
- {
- MYSQL_RES *res, *res1;
- MYSQL_ROW row;
- AnsiString use_db, show_cols, show_desc;
- unsigned int num_fields;
- int fields_control = 0, grid_row = 1, fields_number;
- b_new_line= true;
- clean_desc_grid();
- use_db = "use ";
- use_db+= DBView->Selected->Text.c_str();
- show_desc = "desc ";
- show_cols = "show full columns from ";
- show_cols+= table_name.c_str();
- show_desc+= table_name.c_str();
- if (mysql_query(MySQL, use_db.c_str() ))
- return false;
- if (mysql_query(MySQL, show_cols.c_str() ) ||
- !(res1=mysql_store_result(MySQL)))
- {
- if (mysql_query(MySQL, show_desc.c_str() ) ||
- !(res1=mysql_store_result(MySQL)))
- return false ;
- }
- mysql_fetch_row(res1);
- mysql_field_seek(res1,0);
- fields_number = (mysql_num_fields(res1) - 2);
- mysql_free_result(res1);
- if (mysql_query(MySQL, show_cols.c_str() ) ||
- !(res=mysql_store_result(MySQL)))
- {
- if (mysql_query(MySQL, show_desc.c_str() ) ||
- !(res=mysql_store_result(MySQL)))
- return false ;
- }
- titles_grid();
- while ((row=mysql_fetch_row(res)) != 0)
- {
- mysql_field_seek(res,0);
- for (num_fields=0 ; num_fields < mysql_num_fields(res); num_fields++)
- {
- if (fields_control <= fields_number )
- {
- desc_table_grid->Cells[fields_control][grid_row] = row[num_fields];
- fields_control++;
- }
- else
- {
- desc_table_grid->Cells[(fields_control)][grid_row] = row[num_fields];
- fields_control = 0;
- grid_row++ ;
- desc_table_grid->RowCount++;
- }
- }
- }
- desc_table_grid->RowCount--;
- mysql_free_result(res);
- return true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::TableViewClick(TObject *Sender)
- {
- if (DBView->Selected != db_root && DBView->Selected != NULL)
- if (DBView->Selected != tables_tree)
- get_desc_table(TableView->Selected->Text);
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::clean_desc_grid(void)
- {
- desc_table_grid->RowCount= 2;
- desc_table_grid->Cells[0][1] = "";
- desc_table_grid->Cells[1][1] = "";
- desc_table_grid->Cells[2][1] = "";
- desc_table_grid->Cells[3][1] = "";
- desc_table_grid->Cells[4][1] = "";
- desc_table_grid->Cells[5][1] = "";
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::titles_grid(void)
- {
- desc_table_grid->Cells[0][0] = "Field";
- desc_table_grid->Cells[1][0] = "Type";
- desc_table_grid->Cells[2][0] = "Null";
- desc_table_grid->Cells[3][0] = "Key";
- desc_table_grid->Cells[4][0] = "Default";
- desc_table_grid->Cells[5][0] = "Extra";
- desc_table_grid->Cells[6][0] = "Privileges";
- }