| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
netkiller
Зарегистрирован: 21.04.2008
Сообщения: 16
|
 Добавлено: Вт 15 Июл 2008 13:07 Заголовок сообщения: Роли пользователя |
 |
|
Нужна помощь.
Необходимо получить количество и наименования ролей у пользователя который вошел в систему. Приложение разрабатывается на делфи. |
|
| Вернуться к началу |
|
 |
RuslanG
Зарегистрирован: 10.07.2005
Сообщения: 171
Откуда: ИНТЕГРО
|
| Добавлено: Ср 23 Июл 2008 15:28 Заголовок сообщения: |
|
|
| Код: | procedure TTestForm.UserRolesButtonClick(Sender: TObject);
procedure AddToMemoRole(anActiveDb: IIngeoDb; anUser: IIngeoUser);
var
i: Integer;
aRoleId: String;
aRole: IIngeoRole;
aRoleName: String;
begin
Memo.Lines.Add('Входит в группы:');
for i := VarArrayLowBound(anUser.RoleIDs, 1) to VarArrayHighBound(anUser.RoleIDs, 1) do begin
aRoleId := anUser.RoleIDs[i];
aRole := anActiveDb.Roles.RoleFromID(aRoleId);
aRoleName := aRole.Name;
Memo.Lines.Add(aRoleName);
end;
end;
var
i: Integer;
anActiveDb: IIngeoDb;
aLogonUserId: String;
anUser: IIngeoUser;
begin
// Объект управления информацией активной БД ИнГЕО
anActiveDb := FIngeo.ActiveDb;
// Идентификатор пользователя, учетная запись которого
// в данный момент используется для доступа к базе данных.
aLogonUserId := anActiveDb.LogonUserID;
// Получение пользователя по идентификатору
anUser := anActiveDb.Users.UserFromID(aLogonUserId);
// Вывод в Memo информации о пользователе
Memo.Lines.Add(Format('Пользователь: %s', [anUser.Name]));
Memo.Lines.Add(Format('Полное имя: %s', [anUser.FullName]));
Memo.Lines.Add(Format('Описание: %s', [anUser.Description]));
// Вывод в Memo информации о ролях пользователя
AddToMemoRole(anActiveDb, anUser);
end; |
_________________
С уважением, Руслан Гадеев
Видео уроки ИнГео
Документация ИнГео
Обновления ИнГео
Интегропедия |
|
| Вернуться к началу |
|
|
netkiller
Зарегистрирован: 21.04.2008
Сообщения: 16
|
| Добавлено: Чт 24 Июл 2008 15:10 Заголовок сообщения: |
|
|
| Большое спасибо |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
