IStation.IsAllowed

Синтаксис

IsAllowed: Boolean;

Описание

Метод IsAllowed возвращает значение, определяющее возможность произвести какое-либо действие с рабочей станцией.

Комментарии

Если метод возвращает значение True, то действие будет проведено, в противном случае - нет.

Пример

Для выполнения предполагается наличие формы с расположенной на ней кнопкой «Button1».

Sub Button1OnClick(Sender: Object; Args: IEventArgs);

Var

MB: IMetabase;

Sec: IMetabaseSecurity;

m_User: IMetabaseUser;

St: IStations;

Station: IStation;

s: Boolean;

Begin

MB := MetabaseClass.Active;

Sec := MB.Security;

m_User := Sec.ResolveName("ADMIN") As IMetabaseUser;

St := m_User.Stations;

Station := St.Item(0);

s := Station.IsAllowed;

End Sub Button1OnClick;

При нажатии на кнопку в переменной «s» будет храниться значение, определяющее возможность произвести какое-либо действие с первой рабочей станцией из коллекции пользователя «ADMIN».

См. также:

IStation