Базы данных в Delphi

[Masip]

Здравствуйте! Есть БД сделанная в Access, которая содержит одну таблицу(userName) и 3 поля(id, name, pass). Подскажите как создать программу аутентификации по БД?

[Grag]

Можно примерно так:

procedure TFrmControl.btnOkClick(Sender: TObject);
begin
  cdsUsers.Filtered:=false;
  cdsUsers.Filter:='([Логин]='+''''+edLog.Text+''''+') and ([Пароль]='+''''+
                                                          edPsw.Text+''''+')';
  cdsUsers.Filtered:=true;
  if not cdsUsers.IsEmpty
    then
      begin //санкционированный вход пользователя
        UserStat:=cdsUsers.FieldByName('Статус').AsString[1];
        UserLog:=edLog.Text;
        cdsEvents.Append;//запись в журнал событий
        cdsEvents.FieldByName('Дата').AsString:=DateToStr(Date);
        cdsEvents.FieldByName('Время').AsString:=TimeToStr(Time);
        cdsEvents.FieldByName('Логин').AsString:=UserLog;
        cdsEvents.FieldByName('Статус').AsString:=UserStat;
        cdsEvents.FieldByName('Событие').AsString:=
                                        'Санкционированный вход пользователя';
        cdsEvents.Post
      end
    else
      begin //попытка несанкционированного входа
        MessageDlg('Неверный логин или пароль...',mtError,[mbOk],0);
        edLog.Text:='';
        edPsw.Text:='';
        Dec(Fora);
        if Fora=0
          then
            begin
              cdsEvents.Append; //запись в журнал событий
              cdsEvents.FieldByName('Дата').AsString:=DateToStr(Date);
              cdsEvents.FieldByName('Время').AsString:=TimeToStr(Time);
              cdsEvents.FieldByName('Логин').AsString:=edLog.Text;
              cdsEvents.FieldByName('Событие').AsString:=
                                      'Попытка несанкционированного входа...';
              cdsEvents.Post;
              Application.Terminate
            end
          else
            begin
              edLog.SetFocus;
              Exit
            end
      end;
  cdsUsers.Filtered:=false;
  FrmMain.Visible:=true;
  FrmControl.Visible:=false
end;

[Masip]

а что такое csEvents???

[Grag]

cdsEvents - это моя таблица журнала событий. В ней я фиксирую все события, связанные с изменениями в базе данных... Для Вас это не важно, можете на нее не обращать внимания. Просто я выдернул процедуру из своей рабочей программы... Там же есть комментарий - //запись в журнал событий.

[Masip]

Понятно что не чего не понятно!задумку вашу понял!
а можно поподробней с использованием ADOQuery?у меня не получается выполнить запрос который проверял бы наличе юзера в БД!и не знаю как сделатЬ!

[RUSt88]

поиском обычным по полю

могу реализовать за вознаграждение

[Masip]

а кто нить может кодом даром поделиться?

[Masip]

Всем спасибо!все работает!вот что получилось:
with DataModule1 do
begin
Query.Active:=false;
Query.SQL.Clear;
sql:= 'SELECT * FROM userName WHERE (name=:login and pass= : password)';
Query.SQL.Text:=sql;
Query.Parameters.ParamByName('login ').Value:= login;
Query.Parameters.ParamByName('passw ord').Value:=password;
Query.Active:=True;
Query.Open;
if (Query.FieldByName('name').Value = login) and
(Query.FieldByName('pass').Value = password) then
ShowMessage('Вы вошли!')
else
ShowMessage( 'Неправильно введено имя пользователя или пароль.' );
end;