SQL авторизация в Delphi

[Nice42ru]

Пытаюсь сделать авторизацию из Delphi.
Пользователь вводит логин пароль, если правильно, то проблем нет, а если не правильно, то выскакивает ошибка?
Как такое можно осуществить?

[mihali4]

ТADOConnection
ТDatabase
ТIBDatabase
...
У всех есть свойство LoginPrompt и соответствующие параметры.

[Nice42ru]

Нет, я не про конект к базе с её логином и паролем, а в базе есть таблица accounts в ней есть столбик login и password (тут значение в md5 хеше) на форме есть Edit1-логин Edit2-пароль и button1 - войти
когда жмём войти идёт коннект в базу и сверяется со значениями в таблице, если всё верно то пустит а если нет выдаст ошибку: Неправельный логин/пароль.

[ОДИНОЧЕСТВО В СЕТИ]

....
qry1.sql('select * from accounts where login='+quotedstr(edt1.text));
....

if qry1.fieldbyname('password').asString=edt2.text then showmessage('Welcome!!!')
else showmessage('yankee go home!');

[psycho-coder]

ОДИНОЧЕСТВО В СЕТИ

тут значение в md5 хеше

Тебе нужно сначала зашифровать пароль и его сравнивать по коду ОДИНОЧЕСТВО В СЕТИ
Во вложении функция хеширования по алгоритму md5

[Nice42ru]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

....
qry1.sql('select * from accounts where login='+quotedstr(edt1.text));
....

if qry1.fieldbyname('password').asString=edt2.text then showmessage('Welcome!!!')
else showmessage('yankee go home!');

Это как я понимаю без md5 шифрования, для начала хотябы я научусь так, что надо вешать на форуму или какие компоненты добавить и куда этот код вешать?

[ОДИНОЧЕСТВО В СЕТИ]

Дуйте в раздел БД Delphi там литература в самом верху вот с нее и начните!

[Nice42ru]

Пролистал две книги нечего похожего не нашёл, может вы подскажете решение?

[Nice42ru]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

....
qry1.sql('select * from accounts where login='+quotedstr(edt1.text));
....

if qry1.fieldbyname('password').asString=edt2.text then showmessage('Welcome!!!')
else showmessage('yankee go home!');

Помогите пожалуйсто данный код переделать под мои компоненты я его переделал вот так:

procedure TForm1.Button1Click(Sender: TObject);
begin

MySQL.ExecSQL('select * from accounts where login='+quotedstr(edit1.text));

if MySQL.ExecSQL.fieldbyname('password').asString=edt2.text then showmessage('Welcome!!!')
else showmessage('yankee go home!');

end;

Но увы вылазиет ошибка

[Ошибка] Unit1.pas(490): Not enough actual parameters
[Ошибка] Unit1.pas(496): Statement expected but end of file found


Как исправить это всё? Коннект я настроил! С базой соединение есть!

[Nice42ru]

Может кто-нибуть помочь или нет я уже час над этим бьюсь!