Access + ADO + Delphi = Поиск по базе

[vicvtor]

Есть таблица со списком логинов-паролей пользователей компом. Моя програмка при запуске просит у пользователя авторизироваться, чтоб получить дальнейшие привилегии. Помогите осуществить поиск по базе введенного логина и сверки пароля.

Использую DBGrid+ADOTable+DataSource

Желательно исходник с комментариями для дальнейшего обсуждения.

ПС: Поиск по форуму и гуглу ничего полезного и толкового новичку в работе с СУБД не дал, просьбы туда не посылать.

[maladoy]

а что сложного? сформируйте запросик в sql что то типа "select * from tabl where (login= login and password=pass) и если sql.count<>0 то рулите правами а если нет то очистите все в текстбоксах!!!

[vicvtor]

не знаю mySQL((

[maladoy]

давайте название таблицы с паролями

[vicvtor]

Имя базы base.mdb, в ней таблица Users, состоящая из колонок id,User,Login,Password,Rules. При входе в прогу читаются вводимые пользователем log и pas, далее идел поиск в базе по колонке Login строки log, если такая запись есть, то сверяется пароль, иначе пользователя просят зарегистрироваться)

[maladoy]

кинь на форму adoquery
в событии onclick кнопки

query.Close;
  query.SQL.Clear;
  query.SQL.Add('select rules from users where (login=@log and password=@pas)');
  query.Active:=True;
  query.Open ;

дальше

if query.sql.count=0   then showmessage('неправильный логин или пароль');

[Sm1Le]

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

кинь на форму adoquery
в событии onclick кнопки

query.Close;
  query.SQL.Clear;
  query.SQL.Add(select rules from users where (login='+''''+log+'''' +and password='+''''+pas+''''));
  query.Active:=True;
  query.Open ;

Более правильно было бы через Параметры ...

[maladoy]

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

Более правильно было бы через Параметры ...

объясните пожалуйста!!! я послушаю с превеликим удовольствием!!!!

[vicvtor]

Немного поболтпв с фЁдОром сделал так....

if form4.ADOQuery1.Locate('login; password', VarArrayOf([log, pas]),[])
then showmessage('Неправильно')

и в свойстве sql для adoquery прописал

select * from users

и поставил active в true. Работает. Теперь возник немного другой вопрос, как мне туда добавить еще незарегистрированных пользователей, посредством все тех же sql запросов?

[Sm1Le]

  query.SQL.Add(select rules from users where (login='+''''+log+'''' +and password='+''''+pas+''''));

Form1.ADOQuery1.SQL.TEXT:='select rules from users where  login=:log and password=:pas)';
Form1.ADOQuery1.Parametrs.ParamByName('log').values:='лялялял';
Form1.ADOQuery1.Parametrs.ParamByName('pas').values:='Трулялялял';
Form1.ADOAuery1.Open;

-что то типа такого !