[Hobbit_88]

Подскажите пожалуйста как при создании нового пользователя, можно было бы его с помощью переключателй checkbox настроить права доступа к базе. Заранее признателен.

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

Какая база?

[Hobbit_88]

База Access+ADO

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

Для управления правами надо пользовать ADOX. Вот бессовестно выдраный с одного из форумов примерчик, который выводит всех пользователей всех групп.

Код:

Cat:=CreateOleObject('ADOX.Catalog');
Cat.ActiveConnection:=ADOConnection1.ConnectionObject; 
for j:=0 to Cat.Users.Count - 1 do 
if UpperCase(Cat.Users[j].Name) = UpperCase(iduser) then
for i:=0 to Cat.Users[j].Groups.Count - 1 do showmessage(showmessage(Cat.Users[j].Groups[i].name);

[Hobbit_88]

Можешь рассказать подробнее об этом методе.