[4sasha4]

Нужна авторизация программы через mysql

Есть форма два edit и кнопка входа. Нужно что бы при вводе данных логин и пароль все проверялось по базе и тогда пускало в form2. (пароль в md5)

Как все это сделать ?

P.s к базе подключаюсь через вкладку ADO

[NumLock]

Код:

procedure TForm1.ButtonLoginClick(Sender: TObject);
begin
  ADOQuery1.SQL.Text:='select Password from Users where UserName=:UserName';
  ADOQuery1.Parameters.ParamByName('UserName').Value:=EditUserName.Text;
  ADOQuery1.Open;
  if EditPassword.Text=ADOQuery1.FieldByName('Password').AsString then
  begin
    { do it }
  end;
end;

[4sasha4]

Все получилось, кароче я сделал и оно перекидает на form2 после входа, а вот как сделать что бы на второй форме отображался ид пользователя, логин и т.д?

[Mrak]

Код:

ADOQuery1.close;
  ADOQuery1.sql.text:='SELECT SUBSTRING_INDEX(USER(),"@",1);';
  try
    ADOQuery1.Open;
  except
    begin
      progressbar1.State:=pbsError;
      messageDlg('Ошибка SQL', mtError, [mbOK], 0);
      Exit;
    end;
  end;

Логин текущего юзера без хоста
С хостом запрос =

Код:

'SELECT USER();'

Когда-то сказал спасибо за это уважаемому M.A.D.M.A.N ))

[4sasha4]

Не получаеться. в базе есть:
id
login
password
email
reg_date

Нужно чтобы отображалося : login, id , email , reg_date

[Mrak]

aa, ну тогда запрос

Код:

adoquery1.sql.text:='SELECT * FROM имя твоей таблицы';

обращение

Код:

логин_юзeра1:=adoquery1.fieldbyname('login').asstring;

[4sasha4]

Сообщение от Mrak

aa, ну тогда запрос

Код:

adoquery1.sql.text:='SELECT * FROM имя твоей таблицы';

обращение

Код:

логин_юзeра1:=adoquery1.fieldbyname('login').asstring;

никак не могу разобраться.
давай так я сделал кнопку обновить база у меня reg->users (там id, login и т.д)
Нужно что бы все это отображалося в label1.text и label2.text и т.д

[Mrak]

ОК.

Код:

adoquery1.sql.text:='SELECT * FROM reg.users  WHERE id = 1';

обращение

Код:

label1.caption:=adoquery1.fieldbyname('login').asstring;

выведется логин у которого id = 1

[Mrak]

Прога запускаеться только не получает ид!

а есть в базе такое поле?
попробуй поставь не id, че-нибудь другое