Topic: Окно подсоединения к БД MySQL
Согласно примера повесила на главную форму скрипт для автоматического подсоединения к БД
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
MySQL := TMyConnection.Create(Form1);
MySQL.Options.UseUnicode := True;
MySQL.Server := '127.0.0.1'; // ip address of MySQL server
MySQL.Port := 3306;
MySQL.Username := 'root';
MySQL.Password := '****';
MySQL.Database := 'pk_adi';
MySQL.LoginPromt := False;
try
MySQL.Connect;
except
ShowMessage('Невозможно подсоединиться к базе данных MySQL');
end;
if MySQL.Connected then
begin
UpdateDatabase(''); // вызываем автозаполение ComboBox-ов
Main1.Show;
end;
end;Но встроенная форма Connect всё равно появляется.... Что я ещё не учла?
Yana
