Что делаем?
Пишем программу, которая открывает 2 форму, после успешного подключения к БД.
Пишем в Delphi FireMonkey HD Application
Исходные компоненты
1 форма – главная, откроется после успешного подключения
Чтобы она не появлялась сразу – пишем Visible False в объектном инспекторе
2 форма авторизационная
Открывается сразу, соответственно ей пишем Visible True
Также
SQLConnection, здесь нужно прописать
Driver – выбрать MySQL
DataBase – имя Вашей БД
HostName – имя Вашего хоста
Password
UserName
И последний компонент Button, назовем кнопку Connect
Какой код на кнопке Connect?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
procedure TForm2.ConnectClick(Sender: TObject); begin with sqlconnection1 do begin try Connected:=true; if connected=true then begin Form2.Visible:=false; Form1.Visible:=true; end; except showmessage('Error - couldn''t connect'); form2.Show; end; end; end; |
Также,чтобы закрывалось основное приложение в OnClose Формы 2 я добавил
1 2 3 4 |
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Application.MainForm.Close; end; |
В принципе всё, программа готова. Жмем Connect.
Исходники
P.S.
Поскольку база данных была MySQL, возможно понадобится добавить в Windows/System32 файл libmysql.dll, либо в папку с проектом.