gui-Win32/SRC/DbPreferencesDialog.cpp

   1 //---------------------------------------------------------------------------
   2
   3 #include <vcl.h>
   4 #pragma hdrstop
   5
   6 #include "DBAccess.hpp"
   7
   8 #include "DbPreferencesDialog.h"
   9 //---------------------------------------------------------------------------
  10 #pragma package(smart_init)
  11 #pragma link "DBAccess"
  12 #pragma link "MyAccess"
  13 #pragma resource "*.dfm"
  14 TDatabasePreferences *DatabasePreferences;
  15 //---------------------------------------------------------------------------
  16 __fastcall TDatabasePreferences::TDatabasePreferences(TComponent* Owner)
  17         : TForm(Owner)
  18 {
  19 }
  20 //---------------------------------------------------------------------------
  21 void __fastcall TDatabasePreferences::cbDefaultPortClick(TObject *Sender)
  22 {
  23         if ( cbDefaultPort->Checked == TRUE ) {
  24                 ebPort->Text = "3306";
  25                 ebPort->Enabled = FALSE;
  26                 }
  27              else
  28                 ebPort->Enabled = TRUE;
  29 }
  30 //---------------------------------------------------------------------------
  31 void __fastcall TDatabasePreferences::cbDefaultUserClick(TObject *Sender)
  32 {
  33         if ( cbDefaultUser->Checked == TRUE ) {
  34                 ebUsername->Text = "mediabase";
  35                 ebUsername->Enabled = FALSE;
  36                 ebPassword->Text = "mediabase";
  37                 ebPassword->Enabled = FALSE;
  38                 }
  39                 else {
  40                   ebUsername->Enabled = TRUE;
  41                   ebPassword->Enabled = TRUE;
  42                 };
  43 }
  44 //---------------------------------------------------------------------------
  45 void __fastcall TDatabasePreferences::Button2Click(TObject *Sender)
  46 {
  47         this->Close();
  48 }
  49 //---------------------------------------------------------------------------
  50
  51
  52
  53 void __fastcall TDatabasePreferences::TestConnectionClick(TObject *Sender)
  54 {
  55 bool debug;
  56
  57         MySQLTest->Username = this->ebUsername->Text;
  58         MySQLTest->Password = this->ebPassword->Text;
  59         MySQLTest->Port = this->ebPort->Text.ToInt();
  60
  61         debug = MySQLTest->Connected;
  62
  63         MySQLTest->Connect();
  64
  65
  66 }
  67 //---------------------------------------------------------------------------
  68