[Ekler1]

Код:

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. - Как??

[Alegun]

Поробуйте в запросе после SELECT или звездочку (* - выбрать всё) или через запятую поле login добавить - основы SQL

SELECT (выбрать) специфицированные поля
FROM (из) специфицированной таблицы
WHERE (где) некоторое специфицированное условие является истинным

[Ekler1]

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

Поробуйте в запросе после SELECT или звездочку (* - выбрать всё) или через запятую поле login добавить - основы SQL

Пробывал через

Код:

adoquery1.SQL.Add('SELECT * FROM avtor WHERE login='+#39+DBlookupComboBox1.Text+#39);

тогда пишет "Пользователь не найден"

[Alegun]

К чему DBlookupComboBox1 подключен, к какому полю, вероятно, для ввода пароля на сравнение нужен обычный эдит

[Ekler1]

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

К чему DBlookupComboBox1 подключен, к какому полю, вероятно, для ввода пароля на сравнение нужен обычный эдит

Подключен к login!
Там изначально я ставил эдит но сейчас пытаюсь сделать чтоб не писать в ручную а через DBlookupComboBox выбирать имя пользователя которые в базе забиты.
Так можно сделать?

[Alegun]

Можно, но тогда нужно две квери пользовать, в одной результат для сравнения, в другой будут пароли под список

З.Ы. Наверное, непонятно объяснил, сейчас попробую пример собрать

[Ekler1]

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

Можно, но тогда нужно две квери пользовать, в одной результат для сравнения, в другой будут пароли под список

Не понимаю как так сделать(((

[Ekler1]

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

Можно, но тогда нужно две квери пользовать, в одной результат для сравнения, в другой будут пароли под список

З.Ы. Наверное, непонятно объяснил, сейчас попробую пример собрать

Сделал вот так

Код:

adoquery1.SQL.Add('SELECT * FROM avtor WHERE login'+DBlookupComboBox1.Text);

Заработало)))) только не могу понять теперь как сделать так что-бы если пароль не совпадает то форма закрывалась и не висела в процессах?

[Alegun]

Вот пример

[RedCatN1]

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

Сделал вот так

Код:

adoquery1.SQL.Add('SELECT * FROM avtor WHERE login'+DBlookupComboBox1.Text);

Заработало)))) только не могу понять теперь как сделать так что-бы если пароль не совпадает то форма закрывалась и не висела в процессах?

Вы имели ввиду приложение? Если да тогда нужно закрывать либо главную форму, либо делать Application.terminate

[Ekler1]

С этим вопросом разобрался) Не подскажите как сделать что-бы если пароль не верный, то приложение не закрывалось

[nixon232]

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

С этим вопросом разобрался) Не подскажите как сделать что-бы если пароль не верный, то приложение не закрывалось

Что за вопрос? Не закрывай его, оно и не будет закрываться...

[dimon753]

Просто люди любят усложнять себе жизнь)

[Ekler1]

Жизнь я себе не люблю усложнять, у меня в коде была строчка на закрытие приложения если пароль не правильный, я её убрал, и приложение скрывается и остается в процессах висеть(( вот что у меня не так(

[Alegun]

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

...у меня в коде была строчка на закрытие приложения если пароль не правильный, я её убрал, и приложение скрывается и остается в процессах висеть(( вот что у меня не так(

Тогда уберите ещё и Form9.Visible :=false; а лучше после else добавьте блок begin..end на две строки