home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 January / Chip_2001-01_cd1.bin / tema / mysql / mysql-3.23.28g-win-source.exe / winmysqladmin / db.cpp next >
C/C++ Source or Header  |  2000-06-17  |  2KB  |  81 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "db.h"
  6. #include "main.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. Tdbfrm *dbfrm;
  11. //---------------------------------------------------------------------------
  12. __fastcall Tdbfrm::Tdbfrm(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. void __fastcall Tdbfrm::SpeedButton2Click(TObject *Sender)
  18. {
  19.   Close();
  20. }
  21. //---------------------------------------------------------------------------
  22. void __fastcall Tdbfrm::SpeedButton1Click(TObject *Sender)
  23. {
  24.  if (VerDBName())
  25.   {
  26.     if (!Form1->CreatingDB())
  27.      {
  28.       Form1->OutRefresh();
  29.       Edit1->Text = "";
  30.       Application->MessageBox("The database was created", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  31.      } 
  32.   }
  33.  
  34.  
  35.  
  36.  
  37.  
  38. }
  39. //---------------------------------------------------------------------------
  40. bool __fastcall Tdbfrm::VerDBName()
  41. {
  42.   String temp = Edit1->Text;
  43.  if (Edit1->Text.IsEmpty())
  44.   {
  45.    Application->MessageBox("The name of the Database is Empty", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  46.    return false;
  47.   }
  48.  
  49.  if (temp.Length() > 64)
  50.   {
  51.    Application->MessageBox("The name of the Database can't have more than 64 characters ", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  52.    return false;
  53.   }
  54.  
  55.  for (int j = 1; j <= temp.Length(); j++)
  56.   {
  57.     if (temp[j] == ' ')
  58.      {
  59.       Application->MessageBox("The name of the Database can't have blank spaces ", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  60.       return false;
  61.      }
  62.     else if (temp[j] == '/')
  63.      {
  64.       Application->MessageBox("The name of the Database can't have frontslash (/)", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  65.       return false;
  66.      }
  67.     else if (temp[j] == '\\')
  68.      {
  69.       Application->MessageBox("The name of the Database can't have backslash (\\)", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  70.       return false;
  71.      }
  72.     else if (temp[j] == '.')
  73.      {
  74.       Application->MessageBox("The name of the Database can't have periods", "WinMySQLadmin 1.0", MB_OK |MB_ICONINFORMATION);
  75.       return false;
  76.      }
  77.   }
  78.  return true;
  79. }
  80. //---------------------------------------------------------------------------
  81.