开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > MySQL数据库 > 查看源码
main.cpp
资源名称：mysql-4.1.16-win-src.zip　[点击查看]
上传用户：romrleung
上传日期：2022-05-23
资源大小：18897k
文件大小：68k
源码类别：

MySQL数据库

开发平台：

Visual C++

main.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "main.h"
  6. #include "initsetup.h"
  7. #include "db.h"
  9. //---------------------------------------------------------------------------
  10. #pragma package(smart_init)
  11. #pragma resource "*.dfm"
  12. #include <shellapi.h>
  13. #include <registry.hpp>
  14. #include <winsvc.h>
  15. #include <winsock.h>
  16. #include <shlobj.h>
  17. #include <IniFiles.hpp>
  18. #include <dir.h>
  19. #include <stdio.h>
  20. #include <stdlib.h>
  21. #include <string.h>
  22. #include <deque.h>
  23. #include <vector.h>
  24. #include <fstream.h>
  25. #include <iostream.h>
  26. #include <iterator.h>
  27. #include <sstream.h>
  28. #include "mysql.h"
  29. #include <Printers.hpp>
  31. TForm1 *Form1;
  32. bool i_start, NT;
  33. bool IsForce = false;
  34. bool IsVariables = false;
  35. bool IsProcess  = false ;
  36. bool IsDatabases = false;
  37. bool new_line = 0;
  38. bool ya = true;
  39. bool yy = true;
  40. bool rinit = false;
  41. AnsiString vpath;
  42. AnsiString vip;
  43. MYSQL_RES *res_1;
  44. static unsigned long q = 0;
  45. bool preport = false;
  46. bool treport = false;
  47. bool ereport = false;
  48. AnsiString mainroot;
  49. bool IsMySQLNode = false;
  50. MYSQL *MySQL;
  51. //---------------------------------------------------------------------------
  52. __fastcall TForm1::TForm1(TComponent* Owner)
  53.         : TForm(Owner)
  54. {
  55. }
  56. //---------------------------------------------------------------------------
  57. void __fastcall TForm1::FormCreate(TObject *Sender)
  58. {
  59.   i_start = true;
  60.   IsConnect = false;
  61.  if (ParamCount() > 0){
  62.    if (ParamStr(1) == "-h" || ParamStr(1) == "h" ) {
  63.      ShowHelp();  Application->Terminate();  }
  64.    else if (ParamStr(1) == "-w" || ParamStr(1) == "w") {
  65.      i_start = false;  ContinueLoad();   }
  66.   }
  67.  else {
  68.    ContinueLoad();  Hide(); GetServerOptions(); }
  69. }
  70. //---------------------------------------------------------------------------
  71. void __fastcall TForm1::DrawItem(TMessage& Msg)
  72. {
  73.    IconDrawItem((LPDRAWITEMSTRUCT)Msg.LParam);
  74.    TForm::Dispatch(&Msg);
  75. }
  76. //---------------------------------------------------------------------------
  77. void __fastcall TForm1::MyNotify(TMessage& Msg)
  78. {
  79.  POINT MousePos;
  81.  switch(Msg.LParam) {
  82.   case WM_RBUTTONUP:
  83.     if (GetCursorPos(&MousePos)){
  84.        PopupMenu1->PopupComponent = Form1; SetForegroundWindow(Handle);
  85.        PopupMenu1->Popup(MousePos.x, MousePos.y);}
  86.     else  Show();
  87.     break;
  88.   case WM_LBUTTONUP:
  89.     if (GetCursorPos(&MousePos)){
  90.        PopupMenu1->PopupComponent = Form1; SetForegroundWindow(Handle);
  91.        PopupMenu1->Popup(MousePos.x, MousePos.y); }
  93.     ToggleState();
  94.      break;
  95.   default:
  96.      break; }
  98.  TForm::Dispatch(&Msg);
  99. }
  100. //---------------------------------------------------------------------------
  101. bool __fastcall TForm1::TrayMessage(DWORD dwMessage)
  102. {
  103.  NOTIFYICONDATA tnd;
  104.  PSTR pszTip;
  106.  pszTip = TipText();
  108.  tnd.cbSize          = sizeof(NOTIFYICONDATA);
  109.  tnd.hWnd            = Handle;
  110.  tnd.uID             = IDC_MYICON;
  111.  tnd.uFlags          = NIF_MESSAGE | NIF_ICON | NIF_TIP;
  112.  tnd.uCallbackMessage = MYWM_NOTIFY;
  114.  if (dwMessage == NIM_MODIFY){
  115.    tnd.hIcon = IconHandle();
  116.    if (pszTip)lstrcpyn(tnd.szTip, pszTip, sizeof(tnd.szTip));
  117.    else tnd.szTip[0] = ''; }
  118.  else { tnd.hIcon = NULL; tnd.szTip[0] = ''; }
  120.  return (Shell_NotifyIcon(dwMessage, &tnd));
  121. }
  122. //---------------------------------------------------------------------------
  123. HANDLE __fastcall TForm1::IconHandle(void)
  124. {
  126.  if (!NT){
  127.    if (MySQLSignal()){Image3->Visible = false; Image2->Visible = true;
  128.           return (Image2->Picture->Icon->Handle); }
  129.    else              {Image2->Visible = false; Image3->Visible = true;
  130.           return (Image3->Picture->Icon->Handle); }
  131.     }
  132.  else   {
  133.    if (TheServiceStatus()){Image3->Visible = false; Image2->Visible = true;
  134.           return (Image2->Picture->Icon->Handle); }
  136.    else if (MySQLSignal()){Image3->Visible = false; Image2->Visible = true;
  137.           return (Image2->Picture->Icon->Handle); }
  138.    else                   {Image2->Visible = false; Image3->Visible = true;
  139.           return (Image3->Picture->Icon->Handle); }
  140.     }
  142. }
  143. //---------------------------------------------------------------------------
  144. void __fastcall TForm1::ToggleState(void)
  145. {
  147.  TrayMessage(NIM_MODIFY);
  148.  if (!NT){
  149.    if (MySQLSignal()){SSW9->Caption = "ShutDown the Server";
  150.                      Image3->Visible = false; Image2->Visible = true; }
  151.    else              {SSW9->Caption = "Start the Server";
  152.                      Image2->Visible = false; Image3->Visible = true; }
  153.          }
  154.  else    {
  155.    if (TheServiceStart()) {
  156.       Standa->Enabled = false;
  157.       if (TheServiceStatus()) {RService->Enabled = false;
  158.                      StopS->Enabled = true;
  159.                      StopS->Caption = "Stop the Service";
  160.                      Image3->Visible = false;
  161.                      Image2->Visible = true; }
  162.       else                    {RService->Enabled = true;
  163.                      StopS->Enabled = true;
  164.                      RService->Caption = "Remove the Service";
  165.                      StopS->Caption = "Start the Service";
  166.                      Image2->Visible = false;
  167.                      Image3->Visible = true; }
  168.                           }
  169.     else                  {
  170.        Standa->Enabled = true;
  171.        StopS->Enabled = false;
  172.        if (MySQLSignal()) {
  173.                      RService->Enabled = false;
  174.                      Standa->Caption = "ShutDown the Server Standalone";
  175.                      Image3->Visible = false;
  176.                      Image2->Visible = true; }
  178.        else               {
  179.                      RService->Enabled = true;
  180.                      RService->Caption = "Install the Service";
  181.                      Standa->Caption = "Start the Server Standalone";
  182.                      Image2->Visible = false;
  183.                      Image3->Visible = true; }
  185.                            }
  188.           }
  190. }
  191. //---------------------------------------------------------------------------
  192. PSTR __fastcall TForm1::TipText(void)
  193. {
  194.   char* status = StatusLine->SimpleText.c_str();
  195.   return status;
  197. }
  198. //---------------------------------------------------------------------------
  199. void __fastcall TForm1::WMQueryEndSession(TWMQueryEndSession &msg)
  200. {
  203.   if (!NT) {
  205.     if (MySQLSignal()){
  206.                         StatusLine->SimpleText = "Shutdown in progress.....";
  207.                         Show(); Shutd();  msg.Result = 1; }
  208.     else              {
  209.                         StatusLine->SimpleText = "The Server already is down......";
  210.                         Show();  msg.Result = 1;  Close(); }
  211.            }
  212.   else     {
  214.     Show();
  215.     if                 (!TheServiceStart())  { if (MySQLSignal()) Shutd();   }
  216.                         msg.Result = 1;
  217.            }
  219. }
  221. //---------------------------------------------------------------------------
  222. LRESULT IconDrawItem(LPDRAWITEMSTRUCT lpdi)
  223. {
  224.    HICON hIcon;
  226.    hIcon = (HICON)LoadImage(g_hinst, MAKEINTRESOURCE(lpdi->CtlID), IMAGE_ICON,
  227. 16, 16, 0);
  228.    if (!hIcon)
  229.     return(false);
  231.    DrawIconEx(lpdi->hDC, lpdi->rcItem.left, lpdi->rcItem.top, hIcon,
  232. 16, 16, 0, NULL, DI_NORMAL);
  234.    return(true);
  235. }
  236. //---------------------------------------------------------------------------
  237. AnsiString __fastcall TForm1::TheComputer()
  238. {
  239.   AnsiString theword;
  240.   DWORD dwSize = MAX_COMPUTERNAME_LENGTH + 1;
  241.   char szBuf[MAX_COMPUTERNAME_LENGTH + 1];
  242.   szBuf[0] = '';
  244.   GetComputerName(szBuf, &dwSize);
  245.   theword = (AnsiString) szBuf;
  246.   delete [] szBuf;
  247.   return theword;
  249. }
  250. //---------------------------------------------------------------------------
  251. AnsiString __fastcall TForm1::TheOS()
  252. {
  253.   AnsiString theword;
  254.   OSVERSIONINFO info;
  255.   info.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
  256.   GetVersionEx(&info);
  258.   switch (info.dwPlatformId)
  259.     {
  260.       case VER_PLATFORM_WIN32s:
  261.         NT = false;
  262.         theword = "Win32s detected";
  263.         break;
  264.       case VER_PLATFORM_WIN32_WINDOWS:
  265.         NT = false;
  266.         theword = "Win 95 or Win 98 detected";
  267.         break;
  268.       case VER_PLATFORM_WIN32_NT:
  269.         NT = true;
  270.         theword = "Windows NT detected";
  271.         break;
  272.      }
  273.      return theword;
  274. }
  275. ///---------------------------------------------------------------------------
  276. AnsiString __fastcall TForm1::TheUser()
  277. {
  278.   AnsiString theword;
  279.   DWORD dwSize = 0;
  281.   GetUserName(NULL, &dwSize);
  283.   char *szBuf = new char[dwSize];
  284.   szBuf[0] = '';
  286.   GetUserName(szBuf, &dwSize);
  287.   theword = (AnsiString) szBuf;
  288.   delete [] szBuf;
  289.   return theword;
  291. }
  292. //---------------------------------------------------------------------------
  293. void __fastcall TForm1::TakeIP(void)
  294. {
  295.   WORD wVersionRequested;
  296.   WSADATA WSAData;
  297.   wVersionRequested = MAKEWORD(1,1);
  298.   WSAStartup(wVersionRequested,&WSAData);
  300.   hostent *P;
  301.   char s[128];
  302.   in_addr in;
  303.   char *P2;
  304.   gethostname(s, 128);
  305.   P = gethostbyname(s);
  307.   Memo2->Lines->Clear();
  308.   Memo2->Lines->Add((AnsiString)P->h_name);
  309.   mainroot = P->h_name;
  310.   in.S_un.S_un_b.s_b1 = P->h_addr_list[0][0];
  311.   in.S_un.S_un_b.s_b2 = P->h_addr_list[0][1];
  312.   in.S_un.S_un_b.s_b3 = P->h_addr_list[0][2];
  313.   in.S_un.S_un_b.s_b4 = P->h_addr_list[0][3];
  314.   P2 = inet_ntoa(in);
  315.   vip = P2;
  316.   mainroot += " ( " + (AnsiString)P2 + " )";
  317.   Memo2->Lines->Add(P2);
  319. }
  320. //---------------------------------------------------------------------------
  321. void __fastcall TForm1::GetmemStatus(void)
  322. {
  323.   MEMORYSTATUS ms;
  324.   ms.dwLength = sizeof(MEMORYSTATUS);
  325.   GlobalMemoryStatus(&ms);
  327.   Edit2->Text = AnsiString((double)ms.dwTotalPhys / 1024000.0) + " MB RAM";
  328. }
  330. //---------------------------------------------------------------------------
  331. void __fastcall TForm1::ShowHelp(void)
  332. {
  333.    Application->MessageBox("Usage: WinMySQLadmin.EXE [OPTIONS]nn-w    Run the tool without start the Server.n-h        Shows this message and exit ", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  334. }
  335. //---------------------------------------------------------------------------
  336. void __fastcall TForm1::ContinueLoad(void)
  337. {
  338.  OS->Text = TheOS();
  339.  Localhost->Text = TheComputer();
  340.  Localuser->Text = TheUser();
  341.  GetmemStatus();
  342.  ClearBox();
  343.  TakeIP();
  344.  MyODBC();
  347.  IsMyIniUp();
  349.  if (!NT) { WinNT->Enabled = false; NtVer->Enabled = false; Win9->Enabled  = true; }
  350.  else     { WinNT->Enabled = true;   Win9->Enabled  = false;   }
  352.  if (i_start)
  353.    {
  354.      // NT never is started from the prompt
  355.      if ((!NT) && (!MySQLSignal())) mysqldstart();
  356.       {
  357.        TrayMessage(NIM_MODIFY);
  358.        SeekErrFile();
  359.       }
  360.    }
  361.   Hide();
  363. }
  365. //---------------------------------------------------------------------------
  366. void __fastcall TForm1::MyODBC(void)
  367. {
  369.   TRegistry *Registry = new TRegistry();
  370.   Memo3->Lines->Clear();
  372.   try
  373.    {
  374.      Registry->RootKey = HKEY_LOCAL_MACHINE;
  375.      // the basic data of myodbc
  376.      if (Registry->OpenKey("Software\ODBC\ODBCINST.INI\MySQL", false))
  377.        {
  378.          Memo3->Lines->Add("Driver Versiont" + Registry->ReadString("DriverODBCVer"));
  379.          Memo3->Lines->Add("Drivertt" + Registry->ReadString("Driver"));
  380.          Memo3->Lines->Add("API Leveltt" + Registry->ReadString("APILevel"));
  381.          Memo3->Lines->Add("Setuptt" + Registry->ReadString("Setup"));
  382.          Memo3->Lines->Add("SQL Levelt" + Registry->ReadString("SQLLevel"));
  383.        }
  384.       else
  385.          Memo3->Lines->Add("Not Found");
  387.    }
  388.   catch (...)
  389.    {
  390.     delete Registry;
  391.    }
  392.    Memo3->Enabled = false;
  393. }
  394. //---------------------------------------------------------------------------
  396. void __fastcall TForm1::IsMyIniUp(void)
  397. {
  398.   // we see if the my.ini is Up
  399.  AnsiString asFileName = FileSearch("my.ini", TheWinDir());
  400.  if (asFileName.IsEmpty())
  401.    {
  402.      IsForce = true;
  403.      i_start = false;
  404.      QuickSearch();
  405.    }
  406.  else
  407.    {
  408.      Memo1->Enabled = true;
  409.      Memo1->Lines->Clear();
  410.      FillMyIni();
  411.      GetBaseDir();
  412.    }
  413. }
  414. //---------------------------------------------------------------------------
  415. void __fastcall TForm1::QuickSearch(void)
  416. {
  417.  AnsiString asFileName = FileSearch("mysql.exe", "c:/mysql/bin");
  418.  if (!asFileName.IsEmpty())
  419.   BaseDir->Text = "c:/mysql";
  420. }
  421. //---------------------------------------------------------------------------
  422. AnsiString __fastcall TForm1::TheWinDir()
  423. {
  424.   AnsiString WinDir;
  425.   UINT       BufferSize = GetWindowsDirectory(NULL,0);
  426.   WinDir.SetLength(BufferSize+1);
  427.   GetWindowsDirectory(WinDir.c_str(),BufferSize);
  428.   char* dirw = WinDir.c_str();
  429.   return dirw ;
  431. }
  432. //---------------------------------------------------------------------------
  433. void __fastcall TForm1::FillMyIni(void)
  434. {
  435.  Memo1->Lines->LoadFromFile(TheWinDir() + "\my.ini");
  437. }
  438. //---------------------------------------------------------------------------
  439. void __fastcall TForm1::GetBaseDir(void)
  440. {
  442.  char drive[_MAX_DRIVE];
  443.  char dir[_MAX_DIR];
  444.  char file[_MAX_FNAME];
  445.  char ext[_MAX_EXT];
  448.  TIniFile *pIniFile = new
  449.  TIniFile(TheWinDir() + "\my.ini");
  451.  BaseDir->Text = pIniFile->ReadString("mysqld","basedir","")  ;
  452.  AnsiString lx = pIniFile->ReadString("WinMySQLadmin","Server","")  ;
  453.  _splitpath((lx).c_str(),drive,dir,file,ext);
  454.  AnsiString lw = (AnsiString) file + ext;
  456.  if ( lw == "mysqld-shareware.exe") {ShareVer->Checked = true;}
  457.  if ( lw == "mysqld.exe") {MysqldVer->Checked = true;}
  458.  if ( lw == "mysqld-opt.exe") {OptVer->Checked = true;}
  459.  if ( lw == "mysqld-nt.exe") {NtVer->Checked = true;}
  461.  delete pIniFile;
  463. }
  464. //---------------------------------------------------------------------------
  465. void __fastcall TForm1::Showme1Click(TObject *Sender)
  466. {
  467.  if(Showme1->Caption == "Show me")  {  TrayMessage(NIM_DELETE);
  468.        Showme1->Caption = "Hide me";  Show();  }
  469.   else  { TrayMessage(NIM_ADD);  TrayMessage(NIM_MODIFY);
  470.        Showme1->Caption = "Show me";  Hide();  }
  471. }
  472. //---------------------------------------------------------------------------
  473. bool __fastcall TForm1::MySQLSignal()
  474. {
  475.   HANDLE hEventShutdown;
  476.   hEventShutdown=OpenEvent(EVENT_MODIFY_STATE, 0, "MySqlShutdown");
  478.   if(hEventShutdown)
  479.     {
  480.       CloseHandle(hEventShutdown);
  481.       return true;
  482.     }
  483.   else
  484.     {
  485.      CloseHandle(hEventShutdown);
  486.      return false;
  487.     }
  489. }
  491. //---------------------------------------------------------------------------
  492. bool __fastcall TForm1::mysqldstart()
  493. {
  494.     memset(&pi, 0, sizeof(pi));
  495.     memset(&si, 0, sizeof(si));
  496.     si.cb = sizeof(si);
  497.     si.dwFlags |= STARTF_USESHOWWINDOW;
  498.     si.wShowWindow |= SW_SHOWNORMAL;
  501.     TIniFile *pIniFile = new
  502.     TIniFile(TheWinDir() + "\my.ini");
  504.     if (NT)
  505.      vpath =   pIniFile->ReadString("WinMySQLadmin","Server","") + " --standalone" ;
  506.     else
  507.       vpath =   pIniFile->ReadString("WinMySQLadmin","Server","") + "" ;
  509.     if ( ! CreateProcess(0,vpath.c_str(), 0, 0, 0, 0, 0, 0, &si,&pi))
  510.      {
  511.        TrayMessage(NIM_MODIFY);
  512.        return false;
  513.      }
  514.     else
  515.       {
  516.         TrayMessage(NIM_MODIFY);
  517.         return true;
  519.       }
  521. }
  523. //---------------------------------------------------------------------------
  524. bool __fastcall TForm1::SeekErrFile()
  525. {
  526.   Memo4->Enabled = true;
  527.   Memo4->Lines->Clear();
  528.   AnsiString asFileName = FileSearch("mysql.err", BaseDir->Text + "/data");
  529.   if (!asFileName.IsEmpty())
  530.    {
  531.      FName = BaseDir->Text + "/data/mysql.err";
  532.      ifstream in((FName).c_str());
  533.      in.seekg(0, ios::end);
  534.      string s, line;
  535.      deque<string> v;
  536.      deque<string> lines;
  537.      streampos sp = in.tellg();
  538.      if (sp <= 1000)
  539.       in.seekg(0, ios::beg);
  540.     else
  541.      {
  542.       in.seekg(0, ios::beg);
  543.       in.seekg((sp - 1000));
  544.      }
  546.      do {
  547.           lines.push_back(line);
  548.      }while (getline(in, line));
  551.      if( lines.size() <= 15)
  552.       {
  553.         deque<string>::reverse_iterator r;
  554.         for(r = lines.rbegin(); r != lines.rend() ; r++)
  555.          {
  556.           if (ereport)
  557.            Memo5->Lines->Add((*r).c_str());
  558.            Memo4->Lines->Add((*r).c_str());
  560.          }
  561.       }
  562.      else
  563.       {
  564.         int k = 0;
  565.         deque<string>::reverse_iterator r;
  566.         for(r = lines.rbegin(); r != lines.rend(); r++)
  567.          {
  568.            if (ereport)
  569.            Memo5->Lines->Add((*r).c_str());
  570.            Memo4->Lines->Add((*r).c_str());
  571.            if (++k >= 15) { break;}
  572.          }
  573.       }
  574.       in.close();
  575.       return true;
  576.    }
  577.   else
  578.     return false;
  580. }
  582. //---------------------------------------------------------------------------
  583. void __fastcall TForm1::Timer1Timer(TObject *Sender)
  584. {
  585.  Showme1->Caption = "Show me";
  586.   TrayMessage(NIM_ADD);
  587.   TrayMessage(NIM_MODIFY);
  588.   Hide();
  589.   if (IsForce) {Form2->Show();}
  590.   Timer1->Enabled = false;
  591. }
  592. //---------------------------------------------------------------------------
  593. void __fastcall TForm1::GetServerFile()
  594. {
  596.   AnsiString FileName;
  598.  if(!NT) {
  599.    FileName =  FileSearch("mysqld-opt.exe", ExtractFilePath(Application->ExeName));
  600.    if (FileName.IsEmpty())  FileName =  FileSearch("mysqld.exe", ExtractFilePath(Application->ExeName));
  601.    if (FileName.IsEmpty())    FileName =  FileSearch("mysqld-shareware.exe", ExtractFilePath(Application->ExeName));
  603.    if (!FileName.IsEmpty()){
  604.       if ( FileName == "mysqld-opt.exe") {OptVer->Checked = true;}
  605.       if ( FileName == "mysqld.exe") {MysqldVer->Checked= true;}
  606.       if ( FileName == "mysqld-shareware.exe") {ShareVer->Checked= true;} }
  608.   }
  609.  else {
  611.    FileName =  FileSearch("mysqld-nt.exe", ExtractFilePath(Application->ExeName));
  612.    if (FileName.IsEmpty())  FileName =  FileSearch("mysqld.exe", ExtractFilePath(Application->ExeName));
  613.    if (FileName.IsEmpty())  FileName =  FileSearch("mysqld-shareware.exe", ExtractFilePath(Application->ExeName));
  615.    if (!FileName.IsEmpty()) {
  616.       if ( FileName == "mysqld-nt.exe") {NtVer->Checked = true;}
  617.       if ( FileName == "mysqld.exe") {MysqldVer->Checked= true;}
  618.       if ( FileName == "mysqld-shareware.exe") {ShareVer->Checked= true;} }
  620.      }
  621. }
  622. //---------------------------------------------------------------------------
  623. void __fastcall TForm1::CreateMyIniFile(void)
  624. {
  625.   char szFileName[6];
  626.   int iFileHandle;
  627.   AnsiString jk;
  629.   Memo1->Enabled = true;
  630.   Memo1->Lines->Clear();
  631.   strcpy(szFileName,"\my.ini");
  632.   iFileHandle = FileCreate(TheWinDir() + szFileName );
  634.   jk = "#This File was made using the WinMySQLadmin 1.0 Tooln" ;
  635.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  637.   jk = "#" + Now() + "nn" ;
  638.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  640.   jk = "#Uncomment or Add only the keys that you know how works.n" ;
  641.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  643.   jk = "#Read the MySQL Manual for instructionsnn" ;
  644.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  647.   jk = "[mysqld]nn" ;
  648.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  650.    jk = "basedir=" + TheDir() + "n";
  651.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  653.     jk = "#bind-address=" + vip + "n" ;
  654.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  656.     jk = "#datadir=" + TheDir() + "/datan" ;
  657.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  659.     jk = "#language=" + TheDir() + "/share/your language directoryn" ;
  660.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  662.     jk = "#delay-key-write-for-all-tablesn" ;
  663.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  665.     jk = "#log-long-formatn" ;
  666.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  668.     jk = "#slow query log=#n" ;
  669.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  671.     jk = "#tmpdir=#n" ;
  672.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  674.     jk = "#ansin" ;
  675.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  677.     jk = "#newn" ;
  678.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  680.     jk = "#port=3306n" ;
  681.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  683.     jk = "#safen" ;
  684.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  686.     jk = "#skip-name-resolven" ;
  687.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  689.     jk = "#skip-networkingn" ;
  690.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  692.     jk = "#skip-newn" ;
  693.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  695.     jk = "#skip-host-cachen" ;
  696.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  698.     jk = "#set-variable = key_buffer=16Mn" ;
  699.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  701.     jk = "#set-variable = max_allowed_packet=1Mn" ;
  702.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  704.     jk = "#set-variable = thread_stack=128Kn" ;
  705.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  707.     jk = "#set-variable = flush_time=1800nn" ;
  708.     FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  710.   jk = "[mysqldump]nn" ;
  711.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  713.   jk = "#quickn" ;
  714.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  716.   jk = "#set-variable = max_allowed_packet=16Mnn" ;
  717.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  719.   jk = "[mysql]nn" ;
  720.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  722.   jk = "#no-auto-rehashnn" ;
  723.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  725.   jk = "[isamchk]nn" ;
  726.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  728.   jk = "#set-variable= key=16Mnn" ;
  729.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  731.   jk = "[WinMySQLadmin]nn" ;
  732.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  735.   if (ShareVer->Checked) { jk = "Server=" + TheDir() + "/bin/mysqld-shareware.exenn";}
  736.   if (MysqldVer->Checked) {jk = "Server=" + TheDir() + "/bin/mysqld.exenn";}
  737.   if (OptVer->Checked) {jk = "Server=" + TheDir() + "/bin/mysqld-opt.exenn";}
  738.   if (NtVer->Checked) {jk = "Server=" + TheDir() + "/bin/mysqld-nt.exenn";}
  739.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  741.   jk = "user=" + Form2->Edit1->Text + "n" ;
  742.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  744.   jk = "password=" + Form2->Edit2->Text + "n" ;
  745.   FileWrite(iFileHandle, (jk).c_str(), (jk).Length());
  747.   FileClose(iFileHandle);
  748.   FillMyIni();
  750. }
  752. //---------------------------------------------------------------------------
  753. bool __fastcall TForm1::CreatingShortCut()
  754. {
  755.   // Where is The Start Menu in this Machine ?
  756.   LPITEMIDLIST  pidl;
  757.   LPMALLOC      pShellMalloc;
  758.   char          szDir[MAX_PATH + 16];
  759.   AnsiString file;
  760.   AnsiString jk = "\WinMySQLadmin.lnk" ;
  762.   if(SUCCEEDED(SHGetMalloc(&pShellMalloc)))
  763.    {
  764.      if(SUCCEEDED(SHGetSpecialFolderLocation(NULL,
  765.           CSIDL_STARTUP, &pidl)))
  766.       {
  767.         if(!SHGetPathFromIDList(pidl, szDir))
  768.           {
  769.             pShellMalloc->Release();
  770.             pShellMalloc->Free(pidl);
  771.             return false;
  772.            }
  774.           pShellMalloc->Free(pidl);
  775.        }
  777.         pShellMalloc->Release();
  778.         StrCat(szDir, jk.c_str());
  779.     }
  781.  // the create
  783.  IShellLink* pLink;
  784.  IPersistFile* pPersistFile;
  786.  if(SUCCEEDED(CoInitialize(NULL)))
  787.    {
  788.      if(SUCCEEDED(CoCreateInstance(CLSID_ShellLink, NULL,
  789.                      CLSCTX_INPROC_SERVER,
  790.                      IID_IShellLink, (void **) &pLink)))
  791.        {
  793.          pLink->SetPath((ExtractFilePath(Application->ExeName) + "WinMySQLadmin.exe").c_str());
  794.          pLink->SetDescription("WinMySQLadmin Tool");
  795.          pLink->SetShowCmd(SW_SHOW);
  797.             if(SUCCEEDED(pLink->QueryInterface(IID_IPersistFile,
  798.                                                (void **)&pPersistFile)))
  799.             {
  801.                 WideString strShortCutLocation(szDir);
  802.                 pPersistFile->Save(strShortCutLocation.c_bstr(), TRUE);
  803.                 pPersistFile->Release();
  804.             }
  805.                pLink->Release();
  806.         }
  808.         CoUninitialize();
  809.     }
  812.   return true;
  813. }
  815. //---------------------------------------------------------------------------
  816. AnsiString __fastcall TForm1::TheDir()
  817. {
  818.  AnsiString buffer;
  819.  char s[_MAX_PATH + 1];
  821.  StrCopy(s, ( BaseDir->Text).c_str()) ;
  823.  for (int i = 0; s[i] != NULL; i++)
  824.   if (s[i] != '\')
  825.     buffer += s[i];
  826.   else
  827.     buffer += "/";
  829.  return buffer;
  831. }
  833. //---------------------------------------------------------------------------
  834. void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
  835. {
  836.  Application->HelpCommand(HELP_FINDER,0);
  837. }
  838. //---------------------------------------------------------------------------
  840. void __fastcall TForm1::Timer2Timer(TObject *Sender)
  841. {
  842.  ToggleState();
  844. }
  845. //---------------------------------------------------------------------------
  846. bool __fastcall TForm1::TheServiceStart()
  847. {
  848.   bool thatok;
  849.   char *SERVICE_NAME = "MySql";
  850.   SC_HANDLE myService, scm;
  851.   scm = OpenSCManager(0, 0, SC_MANAGER_ALL_ACCESS | GENERIC_WRITE);
  852.   if (scm)
  853.    {
  854.      myService = OpenService(scm, SERVICE_NAME, SERVICE_ALL_ACCESS);
  855.      if (myService)
  856.       thatok = true;
  857.      else
  858.       thatok = false;
  859.    }
  860.    CloseServiceHandle(myService);
  861.    CloseServiceHandle(scm);
  862.    return thatok;
  863. }
  865. //---------------------------------------------------------------------------
  866. bool __fastcall TForm1::TheServicePause()
  867. {
  869.   bool thatok;
  870.   char *SERVICE_NAME = "MySql";
  871.   SC_HANDLE myService, scm;
  872.   scm = OpenSCManager(0, 0, SC_MANAGER_ALL_ACCESS);
  874.   if (scm)
  875.     {
  876.        myService = OpenService(scm, SERVICE_NAME, SERVICE_ALL_ACCESS);
  877.        if (myService)
  878.          {
  879.            // stop the service
  880.            if (IsConnect)
  881.             {
  882.                mysql_kill(MySQL,mysql_thread_id(MySQL));
  883.                StatusLine->SimpleText = "";
  884.                q = 0;
  885.             }
  888.             SERVICE_STATUS ss;
  889.             thatok = ControlService(myService,
  890.                             SERVICE_CONTROL_STOP,
  891.                             &ss);
  893.          }
  894.        else
  895.        thatok = false;
  896.     }
  897.    else
  898.       thatok = false;
  900.    CloseServiceHandle(myService);
  901.    CloseServiceHandle(scm);
  902.    return thatok;
  903. }
  904. //---------------------------------------------------------------------------
  905. bool __fastcall TForm1::TheServiceResume()
  906. {
  908.   bool thatok;
  909.   char *SERVICE_NAME = "MySql";
  910.   SC_HANDLE myService, scm;
  911.   scm = OpenSCManager(0, 0, SC_MANAGER_ALL_ACCESS);
  913.   if (scm)
  914.     {
  915.        myService = OpenService(scm, SERVICE_NAME, SERVICE_ALL_ACCESS);
  916.        if (myService)
  917.          {
  918.            // start the service
  920.             thatok = StartService(myService, 0, NULL);
  921.          }
  922.        else
  923.         thatok = false;
  924.     }
  925.    else
  926.       thatok = false;
  928.    CloseServiceHandle(myService);
  929.    CloseServiceHandle(scm);
  930.    return thatok;
  931. }
  932. //---------------------------------------------------------------------------
  933. bool __fastcall TForm1::TheServiceStatus()
  934. {
  935.   bool thatok;
  936.   bool k;
  937.   char *SERVICE_NAME = "MySql";
  938.   SC_HANDLE myService, scm;
  939.   SERVICE_STATUS ss;
  940.   DWORD dwState = 0xFFFFFFFF;
  941.   scm = OpenSCManager(0, 0, SC_MANAGER_ALL_ACCESS);
  943.   if (scm)
  944.     {
  945.        myService = OpenService(scm, SERVICE_NAME, SERVICE_ALL_ACCESS);
  946.        if (myService)
  947.          {
  948.            memset(&ss, 0, sizeof(ss));
  949.            k = QueryServiceStatus(myService,&ss);
  950.            if (k)
  951.              {
  952.                dwState = ss.dwCurrentState;
  953.                if (dwState == SERVICE_RUNNING)
  954.                  thatok = true;
  955.              }
  956.            else
  957.             thatok = false;
  958.          }
  959.        else
  960.         thatok = false;
  961.     }
  962.    else
  963.       thatok = false;
  965.    CloseServiceHandle(myService);
  966.    CloseServiceHandle(scm);
  967.    return thatok;
  968. }
  969. //---------------------------------------------------------------------------
  970. bool __fastcall TForm1::TheServiceCreate()
  972. {
  973.   bool thatok;
  974.   char *SERVICE_NAME = "MySql";
  975.   char *szFullPath = vpath.c_str();
  976.   SC_HANDLE myService, scm;
  977.   scm = OpenSCManager(0, 0, SC_MANAGER_ALL_ACCESS);
  979.   if (scm)
  980.    {  myService = CreateService(
  981. scm,
  982. SERVICE_NAME,
  983. SERVICE_NAME,
  984. SERVICE_ALL_ACCESS,
  985. SERVICE_WIN32_OWN_PROCESS,
  986. SERVICE_AUTO_START ,
  987. SERVICE_ERROR_NORMAL,
  988. szFullPath,
  989. NULL,
  990. NULL,
  991. NULL,
  992. NULL,
  993. NULL);
  995.      if (myService)
  996.        thatok = true;
  997.      else
  998.        thatok = false;
  1000.   }
  1002.    CloseServiceHandle(myService);
  1003.    CloseServiceHandle(scm);
  1004.    return thatok;
  1006. }
  1007. //---------------------------------------------------------------------------
  1009. void __fastcall TForm1::Swin9Click(TObject *Sender)
  1010. {
  1011.  if(Application->MessageBox("Shutdown this tool", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1012.   Close();
  1013. }
  1014. //---------------------------------------------------------------------------
  1016. void __fastcall TForm1::SSW9Click(TObject *Sender)
  1017. {
  1018.  if (MySQLSignal())
  1019.     {
  1020.       if(Application->MessageBox("Shutdown the MySQL Server ", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1021.         {
  1023.           if (Shutd())
  1024.             {
  1025.               IsConnect = false;
  1026.               IsVariables = false;
  1027.               IsProcess = false;
  1028.               IsDatabases = false;
  1029.               ya = false;
  1030.               ClearBox();
  1031.               Sleep(500);
  1032.               TrayMessage(NIM_MODIFY);
  1034.             }
  1035.           else
  1036.               Application->MessageBox("Fails to Shutdown the Server", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1037.         }
  1038.     }
  1039.    else
  1040.      {
  1041.        if(Application->MessageBox("Start the MySQL Server ", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1042.         {
  1043.           if (mysqldstart())
  1044.             {
  1045.               TrayMessage(NIM_MODIFY);
  1046.               ya = true;
  1047.             }
  1048.            else
  1049.              Application->MessageBox("Fails to Start the Server", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1051.         }
  1052.      }
  1053. }
  1054. //---------------------------------------------------------------------------
  1056. void __fastcall TForm1::ShutDownBoth1Click(TObject *Sender)
  1057. {
  1058.   if (MySQLSignal())
  1059.   {
  1060.     if(Application->MessageBox("Shutdown the MySQL Server and this tool ", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1061.      {
  1063.        if (Shutd())
  1064.         Close();
  1065.        else
  1066.          {
  1067.            Application->MessageBox("Fails to Shutdown the Server", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1069.          }
  1070.      }
  1071.    }
  1072.  else
  1073.     if(Application->MessageBox("Shutdown this tool ", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1074.     Close();
  1075. }
  1076. //---------------------------------------------------------------------------
  1078. void __fastcall TForm1::ShutDownthisTool1Click(TObject *Sender)
  1079. {
  1080.  if(Application->MessageBox("Shutdown this tool ", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1081.    Close();
  1082. }
  1083. //---------------------------------------------------------------------------
  1085. void __fastcall TForm1::StopSClick(TObject *Sender)
  1086. {
  1087.   AnsiString theWarning;
  1088.   theWarning = "Are you sure to stop the Service ?nnAll the connections will be loss !" ;
  1089.   if (TheServiceStatus())
  1090.     {
  1091.       if(Application->MessageBox(theWarning.c_str(), "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1092.         {
  1093.           if (TheServicePause())
  1094.             {
  1095.               TrayMessage(NIM_MODIFY);
  1096.               IsConnect = false;
  1097.               IsVariables = false;
  1098.               IsProcess = false;
  1099.               IsDatabases = false;
  1100.               ya = false;
  1101.               ClearBox();
  1103.             }
  1104.           else
  1105.              Application->MessageBox("Fails to stop the Service", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1107.         }
  1108.     }
  1109.    else
  1110.      {
  1111.        if(Application->MessageBox("Start the Service Manager for the MySQL Server ", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1112.          {
  1113.            if (TheServiceResume())
  1114.              {
  1115.                ya = true;
  1116.                TrayMessage(NIM_MODIFY);
  1117.              }
  1118.            else
  1119.                Application->MessageBox("Fails to start the Service", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1120.          }
  1121.      }
  1122. }
  1123. //---------------------------------------------------------------------------
  1125. void __fastcall TForm1::RServiceClick(TObject *Sender)
  1126. {
  1127.  if (TheServiceStart())
  1128.     {
  1129.       if(Application->MessageBox("Remove the MySQL Server service ", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1130.        {
  1131.          if (!TheServiceRemove())
  1132.          Application->MessageBox("Fails to Remove The MySQL Server Service", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1133.        }
  1134.     }
  1135.   else
  1136.     {
  1137.       if(Application->MessageBox("Install the MySQL Server service ", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1138.        {
  1139.          if (!TheServerPath())
  1140.            Application->MessageBox("Please create first the my.ini setup", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1141.          else
  1142.            {
  1143.              if (!TheServiceCreate())
  1144.               Application->MessageBox("Fails to Install The MySQL Server Service", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1145.            }
  1147.        }
  1148.     }
  1149. }
  1150. //---------------------------------------------------------------------------
  1152. void __fastcall TForm1::StandaClick(TObject *Sender)
  1153. {
  1154.   if (MySQLSignal())
  1155.     {
  1156.       if(Application->MessageBox("Shutdown the MySQL Server ", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1157.         {
  1158.           if (Shutd())
  1159.            {
  1160.              IsConnect = false;
  1161.              IsVariables = false;
  1162.              IsProcess = false;
  1163.              IsDatabases = false;
  1164.              ya = false;
  1165.              ClearBox();
  1166.              Sleep(500);
  1167.              TrayMessage(NIM_MODIFY);
  1169.             }
  1170.           else
  1171.             Application->MessageBox("Fails to Shutdown the Server", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1172.         }
  1173.     }
  1174.    else
  1175.      {
  1176.        if(Application->MessageBox("Start the MySQL Server ", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1177.         {
  1178.           if (mysqldstart())
  1179.             {
  1180.               StatusLine->SimpleText = "";
  1181.               TrayMessage(NIM_MODIFY);
  1183.             }
  1184.           else
  1185.           Application->MessageBox("Fails to Start the Server", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1186.         }
  1187.      }
  1188. }
  1189. //---------------------------------------------------------------------------
  1190. bool __fastcall TForm1::Shutd()
  1191. {
  1192.   // from Irena
  1193.   HANDLE hEventShutdown;
  1194.   hEventShutdown=OpenEvent(EVENT_MODIFY_STATE, 0, "MySqlShutdown");
  1196.   if (IsConnect)
  1197.    {
  1198.      mysql_kill(MySQL,mysql_thread_id(MySQL));
  1199.      mysql_shutdown(MySQL, SHUTDOWN_DEFAULT);      StatusLine->SimpleText = "";
  1201.    }
  1203.    q = 0;
  1206.   if(hEventShutdown)
  1207.    {
  1208.     SetEvent(hEventShutdown);
  1209.     CloseHandle(hEventShutdown);
  1210.     TrayMessage(NIM_MODIFY);
  1211.     IsConnect = false;
  1212.     return true;
  1213.    }
  1214.   else
  1215.    {
  1216.      TrayMessage(NIM_MODIFY);
  1217.      return false;
  1218.    }
  1220. }
  1221. //---------------------------------------------------------------------------
  1222. void __fastcall TForm1::ClearBox(void)
  1223. {
  1224.  
  1225.  st22->Text = "";
  1226.  st23->Text = "";
  1227.  st24->Text = "";
  1228.  st25->Text = "";
  1229.  st26->Text = "";
  1230.  st27->Text = "";
  1231.  st28->Text = "";
  1232.  st29->Text = "";
  1233.  Edit3->Text = "";
  1234.  Edit4->Text = "";
  1235.  Edit5->Text = "";
  1236.  Edit6->Text = "";
  1238. }
  1239. //---------------------------------------------------------------------------
  1240. bool __fastcall TForm1::TheServiceRemove()
  1241. {
  1242.   bool thatok;
  1243.   char *SERVICE_NAME = "MySql";
  1244.   SC_HANDLE myService, scm;
  1245.   scm = OpenSCManager(0, 0, SC_MANAGER_ALL_ACCESS);
  1246.   if (scm)
  1247.     {
  1248.       myService = OpenService(scm, SERVICE_NAME, SERVICE_ALL_ACCESS);
  1249.        if (myService)
  1250.          {
  1251.            if(DeleteService(myService))
  1252.              {
  1253.                CloseServiceHandle(myService);
  1254.                CloseServiceHandle(scm);
  1255.                thatok = true;
  1256.              }
  1257.            else
  1258.              {
  1259.                 CloseServiceHandle(myService);
  1260.                 CloseServiceHandle(scm);
  1261.                 thatok = false;
  1262.               }
  1264.           }
  1265.        else
  1266.           {
  1267.             CloseServiceHandle(myService);
  1268.             CloseServiceHandle(scm);
  1269.             thatok = false;
  1270.           }
  1271.     }
  1272.   else
  1273.      {
  1274.       thatok = false;
  1275.       CloseServiceHandle(scm);
  1276.      }
  1278.    return thatok;
  1280. }
  1281. //---------------------------------------------------------------------------
  1282. bool __fastcall TForm1::TheServerPath()
  1283. {
  1285.  TIniFile *pIniFile = new
  1286.  TIniFile(TheWinDir() + "\my.ini");
  1288.  vpath = pIniFile->ReadString("WinMySQLadmin","Server","")  ;
  1289.  delete pIniFile;
  1290.  if (vpath.IsEmpty())
  1291.    return false;
  1292.  else
  1293.    return true;
  1295. }
  1296. //---------------------------------------------------------------------------
  1298. void __fastcall TForm1::Button5Click(TObject *Sender)
  1299. {
  1300.  if (!SeekErrFile())
  1301.   Application->MessageBox("Fails to find mysql.err", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  1302. }
  1303. //---------------------------------------------------------------------------
  1304. void __fastcall TForm1::IsMySQLInit(void)
  1305. {
  1306.   AnsiString theCommand;
  1307.   char *host = NULL,*password=0,*user=0 ;
  1308.   TIniFile *pIniFile = new
  1309.   TIniFile(TheWinDir() + "\my.ini");
  1311.   AnsiString MyUser = pIniFile->ReadString("WinMySQLadmin","user","")  ;
  1312.   AnsiString MyPass = pIniFile->ReadString("WinMySQLadmin","password","")  ;
  1314.   delete pIniFile;
  1317.  if (!MyUser.IsEmpty() && MyUser.Length() && !MyPass.IsEmpty() && MyPass.Length())
  1318.    {
  1319.      if (!IsConnect)
  1320.       {
  1322.        MySQL = mysql_init(MySQL);
  1323.        if (mysql_real_connect(MySQL, "localhost",(MyUser).c_str(), (MyPass).c_str() , 0, 0, NULL, 0))
  1324.         IsConnect = true;
  1325.        else
  1326.         {
  1327.          if(mysql_real_connect(MySQL,host,user,password , 0, 0, NULL, 0))
  1328.           {
  1329.             IsConnect = true;
  1330.             theCommand = "GRANT ALL PRIVILEGES ON *.* TO ";
  1331.             theCommand +=  "'" + MyUser + "' @localhost IDENTIFIED BY ";
  1332.             theCommand +=  "'" + MyPass + "' with GRANT OPTION";
  1333.             char* los = theCommand.c_str();
  1334.             if(!mysql_query(MySQL, los ))
  1335.              StatusLine->SimpleText = " ";
  1336.           }
  1338.         }
  1340.       }
  1342.   }
  1343.  else
  1344.   {
  1345.    if (!IsConnect)
  1346.     {
  1347.       MySQL = mysql_init(MySQL);
  1348.       if(mysql_real_connect(MySQL,host,user,password , 0, 0, NULL, 0))
  1349.       IsConnect = true;
  1350.     }
  1351.   }
  1352. }
  1354. //---------------------------------------------------------------------------
  1356. void __fastcall TForm1::Timer3Timer(TObject *Sender)
  1357. {
  1358.    if ((NT) && TheServiceStatus()) {IsMySQLInit(); }
  1360.   if ((NT) && !TheServiceStatus() && MySQLSignal()) {IsMySQLInit(); }
  1362.   if (!(NT) && MySQLSignal()) {IsMySQLInit(); }
  1364.   if (IsConnect)
  1365.    {
  1366.      GetServerStatus();
  1367.      if (!IsMySQLNode)
  1368.      GetMainRoot();
  1369.      Extended->Enabled = true;
  1370.      if (!IsProcess && !GetProcess())
  1371.       StatusLine->SimpleText = "";
  1372.      if (!IsVariables && !GetVariables())
  1373.         StatusLine->SimpleText = "";
  1374.      Timer3->Interval = 10000;
  1375.    }
  1376.   else
  1377.     Extended->Enabled = false;
  1378. }
  1379. //---------------------------------------------------------------------------
  1380. void __fastcall TForm1::GetServerStatus(void)
  1381. {
  1383.   GetExtendedStatus();
  1384.   Edit3->Text = mysql_get_server_info(MySQL);
  1385.   Edit4->Text = mysql_get_host_info(MySQL);
  1386.   Edit5->Text = mysql_get_client_info();
  1387.   Edit6->Text = mysql_get_proto_info(MySQL);
  1390. }
  1392. //---------------------------------------------------------------------------
  1393. bool __fastcall TForm1::GetProcess()
  1394. {
  1395.   MYSQL_RES *res;
  1396.   MYSQL_ROW row;
  1397.   unsigned int i;
  1398.   int k = 0;
  1399.   int therow = 1;
  1400.   new_line=1;
  1402.    StringGrid2->RowCount= 2;
  1404.    if (!(res=mysql_list_processes(MySQL)))
  1405.       {
  1406.         return false;
  1407.       }
  1409.       while ((row=mysql_fetch_row(res)) != 0)
  1410.        {
  1411.          mysql_field_seek(res,0);
  1412.          StringGrid2->Cells[0][0] = "PID";
  1413.          StringGrid2->Cells[1][0] = "User";
  1414.          StringGrid2->Cells[2][0] = "Host";
  1415.          StringGrid2->Cells[3][0] = "DB";
  1416.          StringGrid2->Cells[4][0] = "Command";
  1417.          StringGrid2->Cells[5][0] = "Time";
  1418.          StringGrid2->Cells[6][0] = "State";
  1419.          StringGrid2->Cells[7][0] = "Info";
  1420.          for (i=0 ; i < mysql_num_fields(res); i++)
  1421.           {
  1423.              if (k <= 6 )
  1424.               {
  1425.                StringGrid2->Cells[k][therow] = row[i];
  1426.                k++;
  1427.               }
  1428.              else
  1429.                {
  1431.                  StringGrid2->Cells[(k)][therow] = row[i];
  1432.                  k = 0;
  1433.                  therow++ ;
  1434.                  StringGrid2->RowCount++;
  1436.                }
  1438.           }
  1440.        }
  1442.       StringGrid2->RowCount--;
  1443.       mysql_free_result(res);
  1444.       StringGrid5->RowCount--;
  1445.       IsProcess = true;
  1446.       return true;
  1448. }
  1449. //---------------------------------------------------------------------------
  1450. bool __fastcall TForm1::GetVariables()
  1451. {
  1452.   MYSQL_RES *res;
  1453.   MYSQL_ROW row;
  1454.   unsigned int i;
  1455.   int k = 1;
  1456.   new_line=1;
  1457.   bool left = true;
  1458.   AnsiString report;
  1459.   StringGrid1->RowCount = 2;
  1460.    if (mysql_query(MySQL,"show variables") ||
  1461.   !(res=mysql_store_result(MySQL)))
  1462.       {
  1463.         return false;
  1464.       }
  1466.       while ((row=mysql_fetch_row(res)) != 0)
  1467.        {
  1468.          mysql_field_seek(res,0);
  1470.          StringGrid1->Cells[0][0] = "Variable Name";
  1471.          StringGrid1->Cells[1][0] = "Value";
  1474.          for (i=0 ; i < mysql_num_fields(res); i++)
  1475.           {
  1477.              if (left)
  1478.               {
  1479.                  if (treport)
  1480.                  report = GetString(row[i]);
  1481.                  StringGrid1->Cells[0][k++] = row[i];
  1482.                  left = false;
  1483.               }
  1484.              else
  1485.                {
  1486.                  if (treport)
  1487.                   Memo5->Lines->Add(report + row[i]);
  1488.                  StringGrid1->RowCount++;
  1489.                  StringGrid1->Cells[1][--k] = row[i];
  1490.                  k++;
  1491.                  left = true;
  1492.                }
  1494.           }
  1496.        }
  1498.     StringGrid1->RowCount--;
  1499.     mysql_free_result(res);
  1500.     IsVariables = true;
  1501.     return true;
  1502. }
  1503. //---------------------------------------------------------------------------
  1504. bool __fastcall TForm1::nice_time(AnsiString buff)
  1505. {
  1507.   unsigned long sec;
  1508.   unsigned long tmp;
  1509.   AnsiString  mytime;
  1511.   sec = StrToInt(buff);
  1513.   if (sec >= 3600L*24)
  1514.   {
  1515.     tmp=sec/(3600L*24);
  1516.     sec-=3600L*24*tmp;
  1518.     mytime = IntToStr(tmp);
  1519.     if (tmp > 1)
  1520.       mytime+= " days ";
  1521.     else
  1522.       mytime+= " day ";
  1524.   }
  1526.   if (sec >= 3600L)
  1527.   {
  1528.     tmp=sec/3600L;
  1529.     sec-=3600L*tmp;
  1530.      mytime += IntToStr(tmp);
  1531.     if (tmp > 1)
  1532.       mytime+= " hours ";
  1533.     else
  1534.       mytime+= " hour ";
  1535.   }
  1536.   if (sec >= 60)
  1537.   {
  1538.     tmp=sec/60;
  1539.     sec-=60*tmp;
  1540.     mytime += IntToStr(tmp);
  1541.     mytime+= " min ";
  1543.   }
  1544.   mytime += IntToStr(sec);
  1545.   mytime+= " sec ";
  1546.   st29->Text = mytime ;
  1547.  return true;
  1548. }
  1549. //---------------------------------------------------------------------------
  1550. void __fastcall TForm1::Button11Click(TObject *Sender)
  1551. {
  1552.   if (IsConnect)
  1553.   {
  1554.     if (GetVariables())
  1555.      StatusLine->SimpleText = "";
  1556.    }
  1557. }
  1558. //---------------------------------------------------------------------------
  1560. void __fastcall TForm1::Button10Click(TObject *Sender)
  1561. {
  1562.  if (IsConnect)
  1563.   {
  1564.     if (GetProcess())
  1565.      StatusLine->SimpleText = "";
  1566.    }
  1567. }
  1568. //---------------------------------------------------------------------------
  1570. void __fastcall TForm1::Button6Click(TObject *Sender)
  1571. {
  1572.   if (IsConnect)
  1573.    {
  1574.     if (mysql_refresh(MySQL,REFRESH_HOSTS))
  1575.        StatusLine->SimpleText = "";
  1576.    }
  1577. }
  1578. //---------------------------------------------------------------------------
  1580. void __fastcall TForm1::Button7Click(TObject *Sender)
  1581. {
  1582.   if (IsConnect)
  1583.   {
  1584.     if (mysql_refresh(MySQL,REFRESH_LOG))
  1585.      StatusLine->SimpleText = "";
  1586.   }
  1587. }
  1588. //---------------------------------------------------------------------------
  1590. void __fastcall TForm1::Button8Click(TObject *Sender)
  1591. {
  1592.   if (IsConnect)
  1593.   {
  1594.     if (mysql_refresh(MySQL,REFRESH_TABLES))
  1595.       StatusLine->SimpleText = "";
  1596.    }
  1597. }
  1598. //---------------------------------------------------------------------------
  1600. void __fastcall TForm1::Button2Click(TObject *Sender)
  1601. {
  1602.  Memo1->Enabled = true;
  1603.   Memo1->Lines->Clear();
  1604.   AnsiString asFileName = FileSearch("my.ini", TheWinDir());
  1605.   if (asFileName.IsEmpty())
  1606.    Application->MessageBox("Don't found my.ini file on the Win Directory", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  1607.   else
  1608.    FillMyIni();
  1609. }
  1610. //---------------------------------------------------------------------------
  1612. void __fastcall TForm1::Button3Click(TObject *Sender)
  1613. {
  1614.  TIniFile *pIniFile = new
  1615.  TIniFile(TheWinDir() + "\my.ini");
  1617.  if (!Memo1->GetTextLen())
  1618.    Application->MessageBox("The Memo Box is Empty", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  1619.  else
  1620.   {
  1621.    if(Application->MessageBox("Are you sure to write the modifications into My.ini file.", "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1622.     {
  1623.       Memo1->Lines->SaveToFile(TheWinDir() + "\my.ini");
  1625.       Memo1->Lines->Clear();
  1626.       Memo1->Enabled = true;
  1627.       Memo1->Lines->Clear();
  1628.       if (NtVer->Checked)
  1629.        pIniFile->WriteString("WinMySQLadmin","Server",TheDir() + "/bin/mysqld-nt.exe");
  1630.       if (MysqldVer->Checked == true)
  1631.        pIniFile->WriteString("WinMySQLadmin","Server", TheDir() + "/bin/mysqld.exe");
  1632.       if (ShareVer->Checked)
  1633.        pIniFile->WriteString("WinMySQLadmin","Server",TheDir() + "/bin/mysqld-shareware.exe");
  1634.       if (OptVer->Checked)
  1635.        pIniFile->WriteString("WinMySQLadmin","Server", TheDir() + "/bin/mysqld-opt.exe");
  1636.       FillMyIni();
  1637.       Application->MessageBox("My.ini was modificated", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  1638.     }
  1640.   }
  1641.   delete pIniFile;
  1642.   Memo1->Lines->Clear();
  1643.   FillMyIni();
  1645. }
  1646. //---------------------------------------------------------------------------
  1648. void __fastcall TForm1::Button1Click(TObject *Sender)
  1649. {
  1650.   if(CreatingShortCut())
  1651.    Application->MessageBox("The ShortCut on Start Menu was created", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  1652.  else
  1653.    Application->MessageBox("Fails the Operation of Create the ShortCut", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  1654. }
  1655. //---------------------------------------------------------------------------
  1657. void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
  1658. {
  1659.  BROWSEINFO    info;
  1660.   char          szDir[MAX_PATH];
  1661.   char          szDisplayName[MAX_PATH];
  1662.   LPITEMIDLIST  pidl;
  1663.   LPMALLOC      pShellMalloc;
  1666.  if(SHGetMalloc(&pShellMalloc) == NO_ERROR)
  1667.     {
  1669.       memset(&info, 0x00,sizeof(info));
  1670.       info.hwndOwner = Handle;
  1671.       info.pidlRoot  = 0;
  1672.       info.pszDisplayName = szDisplayName;
  1673.       info.lpszTitle = "Search MySQL Base Directory";
  1674.       info.ulFlags   = BIF_RETURNONLYFSDIRS;
  1675.       info.lpfn = 0;
  1677.       pidl = SHBrowseForFolder(&info);
  1679.       if(pidl)
  1680.         {
  1682.           if(SHGetPathFromIDList(pidl, szDir)) {BaseDir->Text = szDir; }
  1684.             pShellMalloc->Free(pidl);
  1685.         }
  1686.         pShellMalloc->Release();
  1687.     }
  1688. }
  1689. //---------------------------------------------------------------------------
  1691. void __fastcall TForm1::Button4Click(TObject *Sender)
  1692. {
  1693.  if (IsConnect)
  1694.   {
  1695.     Memo3->Lines->Add(mysql_stat(MySQL));
  1696.   }
  1697. }
  1698. //---------------------------------------------------------------------------
  1701. void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
  1702. {
  1703.   if(Showme1->Caption == "Show me")  {  TrayMessage(NIM_DELETE);
  1704.        Showme1->Caption = "Hide me";  Show();  }
  1705.   else  { TrayMessage(NIM_ADD);  TrayMessage(NIM_MODIFY);
  1706.        Showme1->Caption = "Show me";  Hide();  }
  1707. }
  1708. //---------------------------------------------------------------------------
  1710. void __fastcall TForm1::ExtendedClick(TObject *Sender)
  1711. {
  1712. if (ya)
  1713.  {
  1714.  Extended->Caption = "Start Extended Server Status";
  1715.  ya = false;
  1716.  ClearBox();
  1717.  }
  1718. else
  1719.  {
  1720.  Extended->Caption = "Stop Extended Server Status";
  1721.  ya = true;
  1722.  }
  1723. }
  1724. //---------------------------------------------------------------------------
  1725. void __fastcall TForm1::GetServerOptions(void)
  1726. {
  1727. AnsiString FileName;
  1728. FileName =  FileSearch("mysqld-opt.exe", ExtractFilePath(Application->ExeName));
  1729. if (FileName.IsEmpty()) {OptVer->Enabled = false; }
  1731. FileName =  FileSearch("mysqld-shareware.exe", ExtractFilePath(Application->ExeName));
  1732. if (FileName.IsEmpty()) {ShareVer->Enabled = false; }
  1734. FileName =  FileSearch("mysqld.exe", ExtractFilePath(Application->ExeName));
  1735. if (FileName.IsEmpty()) {MysqldVer->Enabled = false; }
  1737. FileName =  FileSearch("mysqld-nt.exe", ExtractFilePath(Application->ExeName));
  1738. if (FileName.IsEmpty()) {NtVer->Enabled = false; }
  1740. }
  1741. //---------------------------------------------------------------------------
  1742. void __fastcall TForm1::GetReportServer(void)
  1743. {
  1745.   AnsiString strspace;
  1746.   Memo5->Lines->Clear();
  1747.   Memo5->Lines->Add("This Report was made using the WinMySQLadmin 1.0 Tool");
  1748.   Memo5->Lines->Add("");
  1749.   Memo5->Lines->Add(Now());
  1750.   Memo5->Lines->Add("");
  1752.    preport = true;
  1753.    Memo5->Lines->Add("");
  1754.    Memo5->Lines->Add("Server Status Values");
  1755.    Memo5->Lines->Add("");
  1756.    Memo5->Lines->Add(GetString("Server Info") + mysql_get_server_info(MySQL));
  1757.    Memo5->Lines->Add(GetString("Host Info") + mysql_get_host_info(MySQL));
  1758.    Memo5->Lines->Add(GetString("Client Info") + mysql_get_client_info());
  1759.    Memo5->Lines->Add(GetString("Proto Info") + mysql_get_proto_info(MySQL));
  1760.    GetExtendedStatus();
  1761.    preport = false;
  1762.    treport = true;
  1763.    Memo5->Lines->Add("");
  1764.    Memo5->Lines->Add("Variables Values");
  1765.    Memo5->Lines->Add("");
  1766.    GetVariables();
  1767.    treport = false;
  1768.    ereport = true;
  1769.    Memo5->Lines->Add("");
  1770.    Memo5->Lines->Add("Last Lines from Err File");
  1771.    Memo5->Lines->Add("");
  1772.    SeekErrFile();
  1773.    ereport = false;
  1775. }
  1777. void __fastcall TForm1::SpeedButton4Click(TObject *Sender)
  1778. {
  1779.  if(IsConnect)
  1780.   GetReportServer();
  1781.  else
  1782.   Application->MessageBox("The Server must be connected", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1783. }
  1784. //---------------------------------------------------------------------------
  1786. void __fastcall TForm1::SpeedButton5Click(TObject *Sender)
  1787. {
  1788.   AnsiString PathName;
  1789.   SaveFileDialog->FileName = PathName;
  1790.   if (SaveFileDialog->Execute() ){
  1791.     PathName= SaveFileDialog->FileName;
  1792.     Caption = ExtractFileName(PathName);
  1793.     Memo5->Lines->SaveToFile(PathName);
  1794.     Memo5->Modified = false;
  1795.   }
  1796. }
  1797. //---------------------------------------------------------------------------
  1798. String  __fastcall TForm1::GetString(String k)
  1799. {
  1800.   int i = 35 - k.Length();
  1801.   for (int y = 1 ; y <= i ;y++ )
  1802.      k+= " ";
  1803.    return k ;
  1804. }
  1805. //---------------------------------------------------------------------------
  1806. void __fastcall TForm1::SpeedButton6Click(TObject *Sender)
  1807. {
  1808.  PrinterSetupDialog1->Execute();
  1809. }
  1810. //---------------------------------------------------------------------------
  1812. void __fastcall TForm1::SpeedButton7Click(TObject *Sender)
  1813. {
  1814.   AnsiString PathName;
  1815.   if (PrintDialog1->Execute()){
  1816.     try {
  1817.         Memo5->Print(PathName);
  1818.     }
  1819.     catch(...){
  1820.         Printer()->EndDoc();
  1821.         throw;
  1822.     }
  1823.   }
  1824. }
  1825. //---------------------------------------------------------------------------
  1827. void __fastcall TForm1::SpeedButton8Click(TObject *Sender)
  1828. {
  1829.  Memo5->CutToClipboard();
  1830. }
  1831. //---------------------------------------------------------------------------
  1833. void __fastcall TForm1::SpeedButton9Click(TObject *Sender)
  1834. {
  1835.   Memo5->CopyToClipboard();
  1836. }
  1837. //---------------------------------------------------------------------------
  1839. void __fastcall TForm1::SpeedButton10Click(TObject *Sender)
  1840. {
  1842.  Memo5->PasteFromClipboard();
  1843. }
  1844. //---------------------------------------------------------------------------
  1846. void __fastcall TForm1::SpeedButton11Click(TObject *Sender)
  1847. {
  1848.  Memo5->ClearSelection();
  1849. }
  1850. //---------------------------------------------------------------------------
  1852. void __fastcall TForm1::SpeedButton12Click(TObject *Sender)
  1853. {
  1854.  Memo5->SelectAll();
  1855. }
  1856. //---------------------------------------------------------------------------
  1857. bool __fastcall TForm1::GetMainRoot()
  1858. {
  1860.  MYSQL_RES *res;
  1861.  MYSQL_ROW row;
  1862.  unsigned int i;
  1863.  AnsiString command;
  1865.  CleanGrid();
  1866.  CleanGridI();
  1867.  TakeIP();
  1869.  MySQLNode = DBView->Items->Add(NULL, mainroot.UpperCase());
  1870.  MySQLNode->ImageIndex = 0;
  1872.  if (!(res=mysql_list_dbs(MySQL,"%")))  { return false; }
  1873.    while ((row=mysql_fetch_row(res)) != 0) {
  1874.      mysql_field_seek(res,0);
  1876.      for (i=0 ; i < mysql_num_fields(res); i++)
  1877.       {
  1878.         MySQLDbs = DBView->Items->AddChild(MySQLNode, row[i]);
  1879.         MySQLDbs->ImageIndex = 1;
  1880.         MySQLDbs->SelectedIndex = 1;
  1883.       }
  1885.    }
  1887.    mysql_free_result(res);
  1888.    MySQLNode->Expanded = true;
  1893.  IsMySQLNode = true;
  1894.  return true;
  1896. }
  1897. //---------------------------------------------------------------------------
  1898. void __fastcall TForm1::DeleteDatabaseSClick(TObject *Sender)
  1899. {
  1900.  AnsiString alert;
  1901.  if (IsConnect)
  1902.   {
  1903.    if(DBView->Selected == MySQLNode )
  1904.     Application->MessageBox("Invalid database row selected.", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1905.    else if ( DBView->Selected == NULL )
  1906.     Application->MessageBox("Invalid database row selected.", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1907.    else
  1908.     {
  1909.      if (DBView->Selected->Text.UpperCase() == "MYSQL")
  1910.       Application->MessageBox("You cann't use this tool to drop the MySQL Database.", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1911.      else {
  1912.        alert = "Are you sure to drop the < ";
  1913.        alert+= DBView->Selected->Text.c_str();
  1914.        alert+= " > database.";
  1915.       if(Application->MessageBox(alert.c_str(), "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  1916.        {
  1917.          char* lese = DBView->Selected->Text.c_str();
  1918.         if (!mysql_drop_db(MySQL, lese ))
  1919.           {
  1920.             DBView->Items->Clear();
  1921.             GetMainRoot();
  1922.            }
  1923.          else
  1924.            Application->MessageBox("Fails to drop the Database.", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1925.         }
  1926.       }
  1927.    }
  1928.   }
  1929.  else
  1930.    Application->MessageBox("The Server must be connected", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  1931. }
  1932. //---------------------------------------------------------------------------
  1933.  bool __fastcall TForm1::IsDatabase(String Name)
  1934. {
  1935.   MYSQL_RES *res;
  1936.   MYSQL_ROW row;
  1937.   unsigned int i;
  1938.   AnsiString command;
  1941.   CleanTree();
  1942.   command = "use ";
  1943.   command+= Name.c_str();
  1944.   char* das = command.c_str();
  1945.   char* lis = Name.c_str();
  1946.   if (mysql_query(MySQL, das ) ||
  1947.   !(res=mysql_list_tables(MySQL,"%")))
  1948.   return false;
  1950.   MySQLNodeT = TableView->Items->Add(NULL, lis);
  1951.   MySQLNodeT->ImageIndex = 1;
  1952.   MySQLNodeT->SelectedIndex = 1;
  1953.   while ((row=mysql_fetch_row(res)) != 0) {
  1954.   mysql_field_seek(res,0);
  1956.   for (i=0 ; i < mysql_num_fields(res); i++)
  1957.    {
  1959.      MySQLTbs = TableView->Items->AddChild(MySQLNodeT, row[i]);
  1960.      MySQLTbs->ImageIndex = 2;
  1961.      MySQLTbs->SelectedIndex = 2;
  1962.    }
  1963.    MySQLNodeT->Expanded = true;
  1964.   }
  1965.   mysql_free_result(res);
  1966.   return true;
  1967. }
  1968. //---------------------------------------------------------------------------
  1971. void __fastcall TForm1::DBViewClick(TObject *Sender)
  1972. {
  1974.  if (IsConnect)
  1975.   {
  1976.     if (DBView->Selected != MySQLNode && DBView->Selected != NULL  )
  1977.      {
  1978.        IsDatabase(DBView->Selected->Text);
  1980.      }
  1981.     else
  1982.      {
  1983.       CleanTree();
  1984.      }
  1985.   }
  1986. }
  1987. //---------------------------------------------------------------------------
  1988. void __fastcall TForm1::TableViewClick(TObject *Sender)
  1989. {
  1990.  if (IsConnect)
  1991.   {
  1992.     if (DBView->Selected != MySQLNodeT )
  1993.      {
  1994.        IsTable(TableView->Selected->Text);
  1995.        IsIndex(TableView->Selected->Text);
  1997.      }
  1998.     else
  1999.      {
  2000.       CleanGrid();
  2001.       CleanGridI();
  2003.      }
  2004.   }
  2005. }
  2006. //---------------------------------------------------------------------------
  2007.  bool __fastcall TForm1::IsTable(String Name)
  2008. {
  2009.  MYSQL_RES *res;
  2010.  MYSQL_ROW row;
  2011.  unsigned int i;
  2012.  int k = 0;
  2013.  int therow = 1;
  2014.  new_line=1;
  2015.  AnsiString command;
  2016.  AnsiString commandt;
  2018.  CleanGrid();
  2019.  CleanGridI();
  2020.  command = "use ";
  2021.  command+= DBView->Selected->Text.c_str();
  2022.  char* las = command.c_str();
  2024.  commandt = "desc ";
  2025.  commandt+= Name.c_str();
  2026.  char* les = commandt.c_str();
  2028.  if (mysql_query(MySQL, las ))
  2029.  return false;
  2031.  if (mysql_query(MySQL, les ) ||
  2032.  !(res=mysql_store_result(MySQL)))
  2033.  return false ;
  2035.  StringGrid4->Cells[0][0] = "Field";
  2036.  StringGrid4->Cells[1][0] = "Type";
  2037.  StringGrid4->Cells[2][0] = "Null";
  2038.  StringGrid4->Cells[3][0] = "Key";
  2039.  StringGrid4->Cells[4][0] = "Default";
  2040.  StringGrid4->Cells[5][0] = "Extra";
  2041.  StringGrid4->Cells[6][0] = "Previleges";
  2044.  int thecounter;
  2045.  String u = GetNumberServer();
  2046.  if ( u == "3.22")
  2047.   {
  2048.    StringGrid3->ColCount = 7;
  2049.    thecounter = 4;
  2050.   }
  2051.  else
  2052.   thecounter = 5;
  2054.  while ((row=mysql_fetch_row(res)) != 0)
  2055.  {
  2056.    mysql_field_seek(res,0);
  2058.    for (i=0 ; i < mysql_num_fields(res); i++)
  2059.     {
  2060.      if (k <= thecounter )
  2061.      {
  2062.        StringGrid4->Cells[k][therow] = row[i];
  2063.        k++;
  2064.      }
  2065.      else
  2066.      {
  2067.        StringGrid4->Cells[(k)][therow] = row[i];
  2068.        k = 0;
  2069.        therow++ ;
  2070.        StringGrid4->RowCount++;
  2071.       }
  2072.     }
  2074.  }
  2075.  StringGrid4->RowCount--;
  2076.  mysql_free_result(res);
  2077.  return true;
  2078. }
  2079. //---------------------------------------------------------------------------
  2080. void __fastcall TForm1::TableViewChange(TObject *Sender, TTreeNode *Node)
  2081. {
  2082. if (IsConnect)
  2083.   {
  2084.     if (DBView->Selected != MySQLNodeT )
  2085.      {
  2086.        IsTable(TableView->Selected->Text);
  2087.        IsIndex(TableView->Selected->Text);
  2089.      }
  2090.     else
  2091.      {
  2092.       CleanGrid();
  2093.       CleanGridI();
  2095.      }
  2096.   }
  2097. }
  2098. //---------------------------------------------------------------------------
  2099. void __fastcall TForm1::DBViewChange(TObject *Sender, TTreeNode *Node)
  2100. {
  2101.  if (IsConnect)
  2102.   {
  2103.     if (DBView->Selected != MySQLNode )
  2104.      {
  2105.        IsDatabase(DBView->Selected->Text);
  2107.      }
  2108.     else
  2109.      {
  2110.       CleanTree();
  2111.      }
  2112.   }
  2114. }
  2115. //---------------------------------------------------------------------------
  2116. void __fastcall TForm1::RefreshSClick(TObject *Sender)
  2117. {
  2118.  MYSQL_RES *res;
  2119.  MYSQL_ROW row;
  2120.  unsigned int i;
  2121.  AnsiString command;
  2123.  if (IsConnect)
  2124.   {
  2125.    IsMySQLNode = false;
  2126.    CleanTree();
  2127.    DBView->Items->Clear();
  2129.    TakeIP();
  2131.    MySQLNode = DBView->Items->Add(NULL, mainroot.UpperCase());
  2132.    MySQLNode->ImageIndex = 0;
  2134.    if (!(res=mysql_list_dbs(MySQL,"%")))  { /*do nothing;*/ }
  2135.     while ((row=mysql_fetch_row(res)) != 0) {
  2136.     mysql_field_seek(res,0);
  2138.      for (i=0 ; i < mysql_num_fields(res); i++)
  2139.       {
  2140.         MySQLDbs = DBView->Items->AddChild(MySQLNode, row[i]);
  2141.         MySQLDbs->ImageIndex = 1;
  2142.         MySQLDbs->SelectedIndex = 1;
  2144.       }
  2146.    }
  2148.    mysql_free_result(res);
  2150.  IsMySQLNode = true;
  2152.  MySQLNode->Expanded = true;
  2154.   }
  2155. }
  2156. //---------------------------------------------------------------------------
  2158. void __fastcall TForm1::CreateDatabaseSClick(TObject *Sender)
  2159. {
  2161.  if (IsConnect)
  2162.   {
  2163.    dbfrm->Show();
  2165.   }
  2166.  else
  2167.   ShowMessage("Precisa estar conectado");
  2168. }
  2169. //---------------------------------------------------------------------------
  2170. void __fastcall TForm1::CleanTree(void)
  2171. {
  2172.   StringGrid4->RowCount= 2;
  2173.   StringGrid4->Cells[0][1] = "";
  2174.   StringGrid4->Cells[1][1] = "";
  2175.   StringGrid4->Cells[2][1] = "";
  2176.   StringGrid4->Cells[3][1] = "";
  2177.   StringGrid4->Cells[4][1] = "";
  2178.   StringGrid4->Cells[5][1]  = "";
  2179.   TableView->Items->Clear();
  2181. }
  2182. //---------------------------------------------------------------------------
  2183. void __fastcall TForm1::CleanGrid(void)
  2184. {
  2185.   StringGrid4->RowCount= 2;
  2186.   StringGrid4->Cells[0][1] = "";
  2187.   StringGrid4->Cells[1][1] = "";
  2188.   StringGrid4->Cells[2][1] = "";
  2189.   StringGrid4->Cells[3][1] = "";
  2190.   StringGrid4->Cells[4][1] = "";
  2191.   StringGrid4->Cells[5][1]  = "";
  2192. }
  2193. //---------------------------------------------------------------------------
  2194. bool __fastcall TForm1::CreatingDB()
  2195. {
  2197.  if (mysql_create_db(MySQL, dbfrm->Edit1->Text.c_str()))
  2198.   return true;
  2199.  else
  2200.   return false;
  2201. }
  2202. //---------------------------------------------------------------------------
  2203. void __fastcall TForm1::OutRefresh(void)
  2204. {
  2205.  RefreshSClick(dbfrm->SpeedButton1);
  2206. }
  2207. //---------------------------------------------------------------------------
  2208. void __fastcall TForm1::FlushHosts1Click(TObject *Sender)
  2209. {
  2210.    if (IsConnect)
  2211.    {
  2212.     if (mysql_refresh(MySQL,REFRESH_HOSTS))
  2213.        StatusLine->SimpleText = "";
  2214.    }
  2215. }
  2216. //---------------------------------------------------------------------------
  2218. void __fastcall TForm1::FlushLogs1Click(TObject *Sender)
  2219. {
  2220.    if (IsConnect)
  2221.   {
  2222.     if (mysql_refresh(MySQL,REFRESH_LOG))
  2223.      StatusLine->SimpleText = "";
  2224.   }
  2225. }
  2226. //---------------------------------------------------------------------------
  2228. void __fastcall TForm1::FlushTables1Click(TObject *Sender)
  2229. {
  2230.   if (IsConnect)
  2231.   {
  2232.     if (mysql_refresh(MySQL,REFRESH_TABLES))
  2233.       StatusLine->SimpleText = "";
  2234.    }
  2235. }
  2236. //---------------------------------------------------------------------------
  2237. //---------------------------------------------------------------------------
  2238.  bool __fastcall TForm1::IsIndex(String Name)
  2239. {
  2240.  MYSQL_RES *res;
  2241.  MYSQL_ROW row;
  2242.  unsigned int i;
  2243.  int k = 0;
  2244.  int therow = 1;
  2245.  new_line=1;
  2246.  AnsiString command;
  2247.  AnsiString commandt;
  2248.  i = 0;
  2249.  CleanGridI();
  2250.  command = "use ";
  2251.  command+= DBView->Selected->Text.c_str();
  2252.  char* las = command.c_str();
  2254.  commandt = "show index from ";
  2255.  commandt+= Name.c_str();
  2256.  char* les = commandt.c_str();
  2258.  if (mysql_query(MySQL, las ))
  2259.  return false;
  2261.  if (mysql_query(MySQL, les ) ||
  2262.  !(res=mysql_store_result(MySQL)))
  2263.  return false ;
  2265.  StringGrid3->RowCount= 2;
  2266.  StringGrid3->Cells[0][0] = "Table";
  2267.  StringGrid3->Cells[1][0] = "Non_unique";
  2268.  StringGrid3->Cells[2][0] = "Key_name";
  2269.  StringGrid3->Cells[3][0] = "Seq_in_index";
  2270.  StringGrid3->Cells[4][0] = "Col_name";
  2271.  StringGrid3->Cells[5][0] = "Collation";
  2272.  StringGrid3->Cells[6][0] = "Card.";
  2273.  StringGrid3->Cells[7][0] = "Sub_part";
  2274.  StringGrid3->Cells[8][0] = "Packed";
  2275.  StringGrid3->Cells[9][0] = "Comment";
  2277.  int thecounter;
  2278.  String u = GetNumberServer();
  2280.  if ( u == "3.22")
  2281.   {
  2282.    StringGrid3->ColCount = 8;
  2283.    thecounter = 6;
  2284.   }
  2285.  else
  2286.   thecounter = 8;
  2287.  while ((row=mysql_fetch_row(res)) != 0)
  2288.  {
  2289.    mysql_field_seek(res,0);
  2291.    for (i=0 ; i < mysql_num_fields(res); i++)
  2292.     {
  2293.      if (k <= thecounter )
  2294.      {
  2295.        StringGrid3->Cells[k][therow] = row[i];
  2296.        k++;
  2297.      }
  2298.      else
  2299.      {
  2300.        StringGrid3->Cells[(k)][therow] = row[i];
  2301.        k = 0;
  2302.        therow++ ;
  2303.        StringGrid3->RowCount++;
  2304.       }
  2305.     }
  2307.  }
  2308.  if (i)
  2309.  StringGrid3->RowCount--;
  2310.  mysql_free_result(res);
  2311.  return true;
  2312. }
  2313. //---------------------------------------------------------------------------
  2314. void __fastcall TForm1::CleanGridI(void)
  2315. {
  2316.   StringGrid3->RowCount= 2;
  2317.   StringGrid3->Cells[0][1] = "";
  2318.   StringGrid3->Cells[1][1] = "";
  2319.   StringGrid3->Cells[2][1] = "";
  2320.   StringGrid3->Cells[3][1] = "";
  2321.   StringGrid3->Cells[4][1] = "";
  2322.   StringGrid3->Cells[5][1]  = "";
  2323.   StringGrid3->Cells[6][1]  = "";
  2324.   StringGrid3->Cells[7][1]  = "";
  2325. }
  2326. //---------------------------------------------------------------------------
  2327. bool __fastcall TForm1::CreatingTable(String TheTable)
  2328. {
  2330.  if (!mysql_query(MySQL, TheTable.c_str()))
  2331.   return true;
  2332.  else
  2333.   return false;
  2334. }
  2335. //---------------------------------------------------------------------------
  2336. bool __fastcall TForm1::GetExtendedStatus()
  2337. {
  2338.   if (!ya && !preport)
  2339.    return true;
  2341.   MYSQL_RES *res;
  2342.   MYSQL_ROW row;
  2343.   unsigned int i;
  2344.   int k = 1;
  2345.   new_line=1;
  2346.   bool left = true;
  2347.   bool open_tables = false;
  2348.   bool open_files = false;
  2349.   bool uptime = false;
  2350.   bool running_threads = false;
  2351.   bool open_streams = false;
  2352.   bool slow_queries = false;
  2353.   bool opened_tables = false;
  2354.   bool questions = false;
  2356.   AnsiString report;
  2357.   if (yy)
  2358.   StringGrid5->RowCount = 2;
  2360.    if (mysql_query(MySQL,"show status") ||
  2361.   !(res=mysql_store_result(MySQL)))
  2362.       {
  2363.         return false;
  2364.       }
  2366.       while ((row=mysql_fetch_row(res)) != 0)
  2367.        {
  2368.          mysql_field_seek(res,0);
  2370.          StringGrid5->Cells[0][0] = "Variable Name";
  2371.          StringGrid5->Cells[1][0] = "Value";
  2374.          for (i=0 ; i < mysql_num_fields(res); i++)
  2375.           {
  2377.              if (left)
  2378.               {
  2379.                  if (preport)
  2380.                  report = GetString(row[i]);
  2381.                  if ( (String) row[i] ==  "Open_tables")
  2382.                    open_tables = true;
  2383.                  else
  2384.                    open_tables = false;
  2385.                  if ( (String) row[i] ==  "Open_files")
  2386.                    open_files = true;
  2387.                  else
  2388.                    open_files = false;
  2389.                  if ((String) row[i] == "Uptime")
  2390.                    uptime = true;
  2391.                  else
  2392.                    uptime = false;
  2394.                  if ( (String) row[i] == "Opened_tables")
  2395.                     opened_tables = true;
  2396.                  else
  2397.                     opened_tables = false;
  2399.                  if ( (String) row[i] == "Threads_running" || (String) row[i] == "Running_threads")
  2400.                     running_threads = true;
  2401.                  else
  2402.                     running_threads = false;
  2404.                  if ( (String) row[i] == "Open_streams")
  2405.                     open_streams = true;
  2406.                  else
  2407.                     open_streams = false;
  2409.                  if ( (String) row[i] == "Slow_queries")
  2410.                     slow_queries = true;
  2411.                  else
  2412.                     slow_queries = false;
  2414.                  if ( (String) row[i] == "Questions")
  2415.                     questions = true;
  2416.                  else
  2417.                     questions = false;
  2419.                  if (yy)
  2420.                  StringGrid5->Cells[0][k++] = row[i];
  2422.                  left = false;
  2423.               }
  2424.              else
  2425.                {
  2426.                  if (preport)
  2427.                   Memo5->Lines->Add(report + row[i]);
  2428.                  if (open_tables)
  2429.                   st22->Text = row[i];
  2430.                  if (open_files)
  2431.                   st23->Text = row[i];
  2432.                  if (uptime)
  2433.                   nice_time(row[i]);
  2434.                  if (running_threads)
  2435.                   st27->Text = row[i];
  2436.                  if (open_streams)
  2437.                   st24->Text = row[i];
  2438.                  if (slow_queries)
  2439.                   st28->Text = row[i];
  2440.                  if (opened_tables)
  2441.                   st25->Text = row[i];
  2442.                  if (questions){
  2443.                    q++;
  2444.                    st26->Text = StrToInt64(row[i]) - q; }
  2446.                  if (yy){
  2447.                  StringGrid5->RowCount++;
  2448.                  StringGrid5->Cells[1][--k] = row[i];
  2449.                  k++; }
  2451.                  left = true;
  2452.                }
  2454.           }
  2456.        }
  2459.     if (rinit)
  2460.      StringGrid5->RowCount--;
  2461.     mysql_free_result(res);
  2462.     yy = false;
  2463.     return true;
  2464. }
  2465. //---------------------------------------------------------------------------
  2466. void __fastcall TForm1::SpeedButton13Click(TObject *Sender)
  2467. {
  2468.   yy = true;
  2469.  // rinit = true;
  2470. }
  2471. //---------------------------------------------------------------------------
  2472. String  __fastcall TForm1::GetNumberServer()
  2473. {
  2474.  String TheVersion;
  2476.  TheVersion  =  mysql_get_server_info(MySQL) ;
  2477.  TheVersion.SetLength(4);
  2478.  return TheVersion;
  2481. }
  2483. //---------------------------------------------------------------------------
  2484. void __fastcall TForm1::KillProcess1Click(TObject *Sender)
  2485. {
  2487.   if (IsConnect)
  2488.     KillPID();
  2489.   else
  2490.     Application->MessageBox("The Server must be connected", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  2491. }
  2492. //---------------------------------------------------------------------------
  2493. bool __fastcall TForm1::KillPID()
  2494. {
  2495.   String s  = "Are you sure to kill the process PID no. ";
  2496.   s+= StringGrid2->Cells[0][StringGrid2->Row];
  2497.   s+= " of the USER ";
  2498.   s+= StringGrid2->Cells[1][StringGrid2->Row];
  2499.   unsigned long  xx = mysql_thread_id(MySQL);
  2500.   unsigned long  yy = StrToInt(StringGrid2->Cells[0][StringGrid2->Row]);
  2501.   if ( xx != yy)
  2502.    {
  2503.      if(Application->MessageBox(s.c_str(), "WinMySQLadmin 1.0", MB_YESNOCANCEL | MB_ICONQUESTION ) == IDYES)
  2504.       {
  2505.         if (!mysql_kill(MySQL,yy))
  2506.          {
  2507.           GetProcess();
  2508.           return true;
  2509.          }
  2510.       }
  2511.     }
  2512.   else
  2513.    {
  2514.      Application->MessageBox("From here you can't kill the PID of this tool", "WinMySQLadmin 1.0", MB_OK | MB_ICONEXCLAMATION);
  2515.      return true;
  2516.    }
  2517.  return true;
  2518. }
  2519. void __fastcall TForm1::FlushThreads1Click(TObject *Sender)
  2520. {
  2521.  if (IsConnect)
  2522.   {
  2523.     if (mysql_refresh(MySQL,REFRESH_THREADS))
  2524.       StatusLine->SimpleText = "";
  2525.    }
  2526. }
  2527. //---------------------------------------------------------------------------