Разграничение прав пользователей в Firebird

[artemavd]

Добрый вечер! Каким образом можно разграничить права пользователей при работе с программой, которая работает на СУБД Firebird? Какие может настройки нужно прописать? Поделитесь информацией кто сталкивался с этой задачей.

[_Engine_]

Разграничить права на какие-то функции в программе или на доступ к таблицам БД?

[artemavd]

Да, на какие-то функции. С помощью чего это можно сделать?

[Mad_Cat]

с помощью доп поля admin в базе пользователей принимающего 2 значения н-р 0 и 1
и при входе считывать его и либо ограничивать пользователя либо нет! при большем количестве ролей значений делать больше)

[artemavd]

А как в программе буде работать это значение "0" или "1"? Вот это мне не понятно.

[_Engine_]

У большинства компонентов есть свойство Tag, в него пропиши 0 или 1
Ну допустим, чтобы ограничить доступ к пунктам меню:

for i := 0 to MainMenu1.Items.Count -1 do
  if MainMenu1.Items[i].Tag > MyUserRole then
   MainMenu1.Items[i].Enabled := false;

[Mad_Cat]

например
процедура вставки

case admin of
0: insert;{если разрешено вставляем}
else {недостаточно прав}
end;

и т.д и т.п можно еще в oncreate кнопки поотрубать---выбор большой)

[artemavd]

То есть если в свойстве Tag какого-либо компонента установить 0 или 1, то если зашел "не админ", то этот компонент не будет доступен?

[Mad_Cat]

если ты это пропишешь в коде то да) а если не пропишешь то нет)

[_Engine_]

Не совсем так, надо прописать процедуру проверки примерно такого типа:

procedure Check (const UserRole : Integer);
 var i : Integer;
begin
  for i := 0 to ComponentCount - 1 do
   if  Components[i] is TWinControl then     
     TWinControl(Components[i]).Enabled := Components[i].Tag <= UserRole;       
end;