Access + ADO, проверка на соответствие (Login-Pass)

[nowmax]

Здравствуйте ув. Форумчане =)
собственно у меня такая проблемка
есть некая форма авторизации пользователя...
2 edit [edit1(Login),Edit2(Password)]
так же на форме присутствует Button1 =)
так вот... нужно чтобы при нажатии на Button1
производилась проверка на соответствие (Login-Pass) в бд
(Таблица называется ALP состоит из столбцов Login, Password)
что то типа:

procedure TForm3.Button1Click(Sender: TObject);
  var s1: string;
    begin
    datamodule5.adoquery1.close;
    datamodule5.adoquery1.sql.clear;
    s1:='select * from ALP where Login='''+edit1.text+'''';
    datamodule5.adoquery1.sql.add(s1);
    datamodule5.adoquery1.active:=true;
    datamodule5.adoquery1.open;
    if not datamodule5.adoquery1.isEmpty then 
    begin
    form1.ShowModal
    Edit1.Clear;
    Edit2.Clear;
    form3.Close;
    end
    else
    ShowMessage('Неправильно введены Login#Pass пожалуйста пройдите регистрацию')
        end;

собственно этот код проверяет только логин... а как сделать чтобы производилась проверка именно пары (Login-Password)???

[Stilet]

select * from ALP where Login='+QuotedStr(edit1.text)+' and pass='+QuotedStr(Edit2.text)

Примерно так

[Dark_Spirit]

дпопробуйте ля проверки использовать ADODataSet, в который передаётся 2 переменных(пользователь и пароль), и если возвращается набор не 0, значит пользователь и пароль верен.

dm1.ADODataSet12.Parameters.ParamByName('LPar').Value:=labelededit1.Text;
 dm1.ADODataSet12.Parameters.ParamByName('PPar').Value:=labelededit2.Text;

 dm1.adodataset12.open;
 if dm1.ADODataSet12.Recordset.RecordCount>0
  then
   <ваши действия>

вот commandtext для этой проверки:

      select * from <имя таблицы>
        where st_login=:LPar 
         and st_parol=:PPar

[nowmax]

примерно так уже пробовал )))) ща еще попробую )))
Dark_Spirit ща попробую =) спс

[nowmax]

сделал так...

procedure TForm3.Button1Click(Sender: TObject);
   var s1: string;
    begin
    datamodule5.adoquery1.close;
    datamodule5.adoquery1.sql.clear;
    s1:='select * from ALP where Login='+QuotedStr(edit1.text)+'and Password='+QuotedStr(Edit2.text);
    datamodule5.adoquery1.sql.add(s1);
    datamodule5.adoquery1.active:=true;
    datamodule5.adoquery1.open;
    if not datamodule5.adoquery1.isEmpty then
    begin
    form3.Visible:= false;
    Edit1.Clear;
    Edit2.Clear;
    form1.ShowModal ;
    end
    else
    ShowMessage('Неправильно введены Login#Pass пожалуйста пройдите регистрацию')
    end;

все робит вроде... =) просто до этого рамс был c апосрофами... всем спасибо =) вот что значит не правильно их расставлять )))
огромное спасибо тебе Stilet

[Stilet]

nowmax

Всегда пожалуйста