[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'