|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ищу помощи в создании авторизации
Код:
procedure TForm9.Button1Click(Sender: TObject); begin adoquery1.SQL.Clear; adoquery1.SQL.Add('SELECT pass FROM avtor WHERE login='+#39+DBlookupComboBox1.Text+#39); adoquery1.Open; if adoquery1.IsEmpty then showmessage('Пользователь '+DBlookupComboBox1.Text+' не найден!') else if adoquery1.FieldByName ('pass').Value <> Edit2.Text then showmessage('Пароль не верный!') else Form3.show; Form9.Visible :=false; end; вот так эта "красота" выглядит - проблема только в том что работать не могу заставить)))) когда запускаю приложение выбираю пользователя в DBlookupComboBox и ввожу пароль выдает ошибку DBLookupComboBox1: Field 'login' not found. - Как?? |