Форма подключения к MySQL

[Ezhikoff]

Доброго времени суток. Прошу в помощи в реализации формы для подключения к MySQL.
Дано:
Удаленный локальный сервер с MySQL.
Необходимо:
Создать форму для подключения к базе данных, то есть пользователь должен заполнить форму: Адрес хоста с MySql, login и пароль для подключения, затем нажать кнопочку "Подключиться" и редактировать базу или совершать поиск данных. Огромная просьба написать какие компоненты использовать и код для кнопочки подключения. Классически было бы реализовать это в меню настройки программы с возможностью сохранения настроек. Сам клиент для подключения к базе я сделал на ADO, но как я понял если сервер поменяет ip то моя программка уже не подключиться к базе. Или подскажите, как это делают нормальные люди.

[Stilet]

Или подскажите, как это делают нормальные люди.

Так как ты и делают. То что введено: Логин и IP можно запоминать в реестре или в INI файле рядом с программой.

какие компоненты использовать

ADO вполне подойдет.

код для кнопочки подключения

Как пользователи заведены в базу? Ролями или некой таблицей с юзерами и паролями?

[Ezhikoff]

В MySQL созданы 2 пользователя с правами редактирования базы

[Stilet]

Т.е. это роли?
Тогда не сильно парься. Используй ADOConnection. К нему подключай остальные Query или Table. Создай форму с тремя Эдитами и кнопкой. По клику на кнопке заполни свойства ADOConnection соответственно как требует Мускул и активируй его.
Если пароль примется СУБД, то Коннектор даст активацию и остальным компонентам (ну в смысле позволит им работать). Именно для такого случая он и создан.

[Ezhikoff]

Да я примерно так и представляю. Но затык в коде кнопки, если бы Вы мне дали примерчик, то я думаю все получится, видел примеры реализованные с другими компонентами, но мозгов не хватает. Последний раз открывал Delphi в начале 2000 года, все забыл напрочь, а тут понадобилось срочно.

Вот я так понял похожий пример сделанный на LAZARUS.

procedure TFormTryMySQL.ConnectButtonClick(Sender: TObject);
begin
  // Check if we have an active connection. If so, let's close it.
  if MySQLConnection1.Connected then CloseConnection(Sender);
  // Set the connection parameters.
  MySQLConnection1.HostName := HostEdit.Text;
  MySQLConnection1.UserName := UserEdit.Text;
  MySQLConnection1.Password := PasswdEdit.Text;
  MySQLConnection1.DatabaseName := 'mysql'; // MySQL is allways there!
  ShowString('Opening a connection to server: ' + HostEdit.Text);
  MySQLConnection1.Open;
  // First lets get a list of available databases.
  if MySQLConnection1.Connected then begin
    ShowString('Connected to server: ' + HostEdit.Text);
    ShowString('Retrieving list of available databases.');
    SQLQuery1.SQL.Text := 'show databases';
    SQLQuery1.Open;
    while not SQLQuery1.EOF do begin
      DatabaseComboBox.Items.Add(SQLQuery1.Fields[0].AsString);
      SQLQuery1.Next;
    end;
    SQLQuery1.Close;
    ShowString('List of databases received!');
  end;
end;

[Stilet]

У мну Лазарь. Я на Делфи уже не пишу, так что примеров нет.
Максимум что могу посоветорвать поискать в инете примеры с этим компонентом. Ну и есть статьи описания.

[Ezhikoff]

Ок, будем искать с перламутровыми пуговицами