Дописать...

[Nice42ru]

procedure TForm1.Button2Click(Sender: TObject);
var
ok:Boolean;
begin
if MySQLClient.Connect then
MySQLResult:= MySQLClient.Query('select * from accounts where login='''+login.Text+''' and password='''+password.Text+'''', True, OK)
end;
end.

Помогите дописать! Тут выполняется запрос на выделение нужно сделать следующее:
Если значение в login.text и в password.text не соответсвует значениям в базе программа выполнит ShowMessage('Неверный Логин/Пароль') а если значение соответвует значению в базе то программа выполнит ShowMessage('Доступ разрешён!')

Очень прошу помочь!

[Stilet]

Ну скажем так. После всего этого нужно запрос выполнить:

MySQLClient.Open;

Или как в этом компоненте правильно
и если оно вернет пустую таблицу

if MySQLClient.Eof then

нет такого аккаунта.
При этом не забывай чтоб эти поля были уникальны (по крайней мере логин)

[Nice42ru]

procedure TForm1.Button2Click(Sender: TObject);
var
ok:Boolean;
begin
if MySQLClient.Connect then
MySQLResult:= MySQLClient.Query('select * from accounts where login='''+login.Text+''' and password='''+password.Text+'''', True, OK)
else
if MySQLClient.Eof then
ShowMessage('нет такого аккаунта');
end;
end.

Так? чтото я вообще запутался!

и такая ошибка:

[Ошибка] Unit1.pas(57): Undeclared identifier: 'Eof'

[Nice42ru]

Ту проблему решил!!! Теперь надо правельно составить все операторы!!! помогите в этом!

procedure TForm1.Button2Click(Sender: TObject);
var
ok:Boolean;
begin
if MySQLClient.Connect then
MySQLResult:= MySQLClient.Query('select * from accounts where login='''+login.Text+''' and password='''+password.Text+'''', True, OK)

if MySQLResult.Eof then
ShowMessage('нет такого аккаунта');

end.

[Stilet]

О каких операторах речь идет?

[Nice42ru]

Последняя просьба!!!
Помогите обьединить эти две кнопки в одну

procedure TForm1.Button2Click(Sender: TObject);
var
ok:Boolean;
begin
if MySQLClient.Connect then
MySQLResult:= MySQLClient.Query('select * from accounts where login='''+login.Text+''' and password='''+password.Text+'''', True, OK)
else
ShowMessage('Ошибка');

ShowMessage('Ок');
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
if (MySQLResult.FieldValueByName('login') = login.text) And (MySQLResult.FieldValueByName('password') = password.Text) then
showmessage('Auth OK!') else showmessage('Auth No!')
end;

end.