Авторизация пользователя

[курбанниязов]

Здравствуйте, Уважаемые Форумчане!
Подскажите, пожалуйста, как правильно сделать форму авторизации.
Есть форма авторизации закинул на форма DBLookupCombobox и DBEdit и кнопку Батонном соединил с БД что делать дальше в нете нече такого небыло найдено что нада прописывать и где
В аксесе создал таблицу под именим Авторизация с поля Код,Пароль,Логин
Есть 2 пользователя Юзер и Админ мне нада также ограничен права доступа каждого пользователя как это реализовать:con fused:

[Stilet]

DBLookupCombobox свяжи с полем логинов. DBEdit вообще выкинь. Замени его обычным эдитом.
После вода в Эдит пароля просто считывай из поля пароля. Саму запись тебе не придется искать именно благодаря DBLookupCombobox-у. После выбора юзера он сам на нее перескочит. Тебе останется методом FieldByName прочитать пароль и сравнить его с введенным.

[курбанниязов]

Stilet я щас так сделал но он при воде любого пароля любых цифр он авторизуеться как сделать правильно(

procedure TForm21.Button1Click(Sender: TObject);
 begin
  DataModule1. AdoQuery1.SQL.Clear;
  DataModule1. AdoQuery1.SQL.Add('SELECT * FROM Авторизация WHERE Логин = ' + QuotedStr(DBLookupComboBox1.Text));
  DataModule1. AdoQuery1.Active := true;
  DataModule1. AdoQuery1.ExecSQL;
  DataModule1. AdoQuery1.First;
 if(DataModule1. AdoQuery1.FieldByName('Пароль').AsString = DBLookupComboBox1.Text) then
begin
   if(Length(DBLookupComboBox1.Text) = 0) or (Length(DBEdit1.Text) = 0) then

   ShowMessage('Успешная авторизация!') else
    if DBEdit1.Text = DataModule1.AdoQuery1.FieldByName('Пароль').AsString then
     begin
        DataModule1.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False;Jet OLEDB:Database Password='+QuotedStr('1111');
  DataModule1.ADOConnection1.Connected := true;
     end
  else
     ShowMessage('Неверно введен пароль!');
      try
        begin
          DataModule1.ADOQuery1.ExecSQL;
        //  ShowMessage('Успешная авторизация! ');
        end
        except
          ShowMessage('Ошибка записи!');
        end;

         form21.hide; form1.show;

end;  end;   end.

[xxbesoxx]

Сколько раз обсудили и это студенты нечего не читает. Смотрите суда http://programmersforum.ru/showthrea...11#post1362411 А диплом ваши какой цвет будет ? и зачем его ? Тест подтверждает что вы высшее образование программист ? :D но да ......... диплом рулить

[Stilet]

как сделать правильно уже дипломная зашита наднях

Правильнее будет выучить присягу

P.S. Читай мой пост внимательно. Тебе нужно запросить всю таблицу пользователей чтоб лукап отработал правильно.

[курбанниязов]

Stillet как сделать програмно правильно которым ты говорил
методом FieldByName прочитать пароль и сравнить его с введенным.
как сделать примерно сможете описать направить а нужное русло