Разграничение прав на уровне приложения

@PunK_HS · Регистрация: 30.04.2011

Author24 — интернет-сервис помощи студентам

Доброго времени суток!

Стоит задача - разграничить права пользователей (по группам) на уровне приложения Delphi.
Решаю следующим образом:
1. В БД (Firebird 2.0) создана таблица:

SQL

CREATE TABLE PERMISSIONS (
    ID         D_TPKEY /* D_TPKEY = INTEGER NOT NULL */,
    ID_GROUP   D_TFKEY /* Группа */,
    FORM       D_CHAR50 /* Форма */,
    COMPONENT  D_CHAR50 /* Компонент */,
    PROPERTY   D_CHAR30 /* Свойство */,
    PRO_VALUE  D_CHAR30 /* Значение */
);

2. При запуске приложения запускается форма авторизации, при успешной авторизации в главную форму передается id группы пользователя.

Необходимо перебрать все компоненты в форме и при совпадении имени компонента в форме и таблице присвоить свойству каждого компонента (из таблицы PERMISSIONS) значение (из PERMISSIONS).

Компоненты формы перебираю следующим образом:

Delphi

procedure Tfrm_main.btn_testClick(Sender: TObject);
var
  i: integer;
  s: string;
  form_name: string;
begin
   for i := 0 to ComponentCount-1 do
       s := s + Components[i].Name + #13;     
end;

Как быть дальше?

@mss · 05.08.2013, 15:05

Если свойство не опубликовано, то никак.

@ArtProud · 05.08.2013, 15:27

PunK_HS,не до конца понял, что требуется сделать -
но для записи вспомогательной числовой информации
почти у всех Delphi-компонентов есть свойство Tag.

@PunK_HS · 05.08.2013, 15:42 **[ТС]**

Сообщение от ArtProud

PunK_HS,не до конца понял, что требуется сделать -
но для записи вспомогательной числовой информации
почти у всех Delphi-компонентов есть свойство Tag.

В таблице PERMISSIONS описаны все компоненты, для которых должен проверяться доступ

Пример:
имя_формы='Form_registration', имя_компонента='Button_do_something', свойство='Enabled', значение='False', id_группы=№.

Необходимо каждый раз при создании формы (путем передачи имени формы, списка доступных компонентов и номера группы) проверять значение свойства в таблице PERMISSIONS.
Например, если chk_box.Enabled = : True, то для этой группы этот компонент является доступным и так далее.

@ArtProud · 05.08.2013, 17:29

PunK_HS , похоже, как уже говорил mss что никак.
Как обходной вариант, если всего лишь несколько свойств у компонетов нужно менять,то можно
написать функцию, например как-то так:

Delphi

procedure SetProperty(aComponent:TComponent; aProperty,aPropertyValue: string);
begin
  If aProperty='Enabled' then
   aComponent.Enabled := (aPropertyValue = 'true')
 Else
   If aProperty='Caption' then
     aComponent.Caption:= aPropertyValue;
  //.... продолжение
end;

Только в этом случае по-моему еще нужно компоненты aComponent
приводить к какому-то определенному типу aComponent as TButton например

@PunK_HS · 05.08.2013, 20:10 **[ТС]**

Сообщение от mss

Если свойство не опубликовано, то никак.

Тогда подскажите, в какую сторону копать? Как обычно реализуется разграничение?

@mss · 05.08.2013, 20:59

Сообщение от PunK_HS

Как обычно реализуется разграничение?

Никаких "обычных" правил не существует - каждый разработчик городит свой огород.
Но конкретно в твоем огороде следует отчетливо понимать, что для обращения к свойству дельфийского объекта по известному имени свойства необходимо чтобы это свойство было объявлено как published - тогда оно будет зарегистрировано в RTTI-таблице и его чтение/запись станет возможна даже без знания фактического класса этого объекта.

http://docs.embarcadero.com/pr... riant.html

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.08.2013, 15:05	2
	Если свойство не опубликовано, то никак. 0

@ArtProud 36 / 36 / 7 Регистрация: 15.01.2013 Сообщений: 161
	05.08.2013, 15:27	3
	PunK_HS,не до конца понял, что требуется сделать - но для записи вспомогательной числовой информации почти у всех Delphi-компонентов есть свойство Tag. 0

@PunK_HS 2 / 2 / 2 Регистрация: 30.04.2011 Сообщений: 108
	05.08.2013, 15:42 [ТС]	4
	Сообщение от ArtProud PunK_HS,не до конца понял, что требуется сделать - но для записи вспомогательной числовой информации почти у всех Delphi-компонентов есть свойство Tag. В таблице PERMISSIONS описаны все компоненты, для которых должен проверяться доступ Пример: имя_формы='Form_registration', имя_компонента='Button_do_something', свойство='Enabled', значение='False', id_группы=№. Необходимо каждый раз при создании формы (путем передачи имени формы, списка доступных компонентов и номера группы) проверять значение свойства в таблице PERMISSIONS. Например, если chk_box.Enabled = : True, то для этой группы этот компонент является доступным и так далее. 0

@PunK_HS 2 / 2 / 2 Регистрация: 30.04.2011 Сообщений: 108
	05.08.2013, 20:10 [ТС]	6
	Сообщение от mss Если свойство не опубликовано, то никак. Тогда подскажите, в какую сторону копать? Как обычно реализуется разграничение? 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	05.08.2013, 20:59	7
	Сообщение от PunK_HS Как обычно реализуется разграничение? Никаких "обычных" правил не существует - каждый разработчик городит свой огород. Но конкретно в твоем огороде следует отчетливо понимать, что для обращения к свойству дельфийского объекта по известному имени свойства необходимо чтобы это свойство было объявлено как published - тогда оно будет зарегистрировано в RTTI-таблице и его чтение/запись станет возможна даже без знания фактического класса этого объекта. http://docs.embarcadero.com/pr... riant.html 1

Опции темы