[starcon]

Очень нужно такую процедуру применить .

Есть таблица в ДБ, в ней есть столбцы
1.Имя
2.Пароль
3.Тип доступа (Администратор,Оператор, Пользователь)

Суть такая , клиент логиница и в зависимости от типа доступа ,активируются некоторые button.

Можно примерчик.

Спасибо

[ApxaHGe1]

Код:

Adoquery.sql text:='select privilegue from db where username ="123"';
Adoquery.open;
Priv:=ADODataSet1.Fields[0].AsString;
If priv='adm' then
Begin

End;

[starcon]

Завтра Попробую

[starcon]

Можно описать более подробнее алгоритм .
У меня ругается на

Код:

Priv:=ADODataSet1.Fields[0].AsString;

Понимаю ,что надо объявить переменную

[ApxaHGe1]

Опечатка была
Вот

Код:

Priv:=ADOQuery1.Fields[0].AsString

[starcon]

Всё равно не работает
Undeclared identifier: 'Priv'

[ApxaHGe1]

Var
Priv:string;

[starcon]

Код:

Var
Priv:string;
begin
form8.ADOQuery1.sql.text:='select privilegue from pol where name ="123"';
form8.ADOQuery1.open;
Priv:=ADODataSet1.Fields[0].AsString;
If priv='Администратор' then
Begin

End;
end;

Пользователь 123 есть в базе
Столбы
1.privilegue (Администратор, Пользователь)
2.name (123, 234)
Таблица pol

Ругается на
List index out of bounds (0)

[Страдалецъ]

1. Вы считаете, что запрос у вас всегда будет возвращать результат, но это не так, поэтому надо проверять сначала есть ли там что-то, а уже потом пробовать обращаться к данным:

Код:

form8.ADOQuery1.sql.text:='select privilegue from pol where name ="123"';
form8.ADOQuery1.open;
if form8.ADOQuery1.isEmpty then Exit;

2. Обращаться к полю таблицы по индексу можно, но только в том случае, если у вас структура этой таблицы будет 100% нерушима. А вот в процессе разработки это лучше делать по имени поля:

Код:

Priv := ADODataSet1.FieldByName('privilegue').AsString;

или так:

Код:

Priv := ADODataSet1.FieldByName('privilegue').Value;

или так:

Код:

Priv := ADODataSet1['privilegue']; 

каждый из вариантов удобен по своему

[Страдалецъ]

Ну и еще момент. Вы уверены, что строку в запросе вам надо брать в двойные кавычки? Разные базы данных по разному хотят видеть строку.

[starcon]

Спасибо .
Только на двойные кавычки не ругается, на одинарные ругается.

Перепробовал все Ваши варианты
Ошибка одна
ADODataSet1:Field'privilegue' not found

что то я делаю не так

[Alegun]

Да всё нормально работает, может просто невнимательность (видимо пропустили 5й пост), вот пример

[Страдалецъ]

Вот я сразу и не обратил внимание, у вас вообще чехарда с источниками.
Запрос вы делаете через Adoquery, а вот данные вы пытаетесь получить уже через ADODataSet1, я и написал в примере ADODataSet1.
Разберитесь уж сами что и откуда вы берете.