|
Использование ролей MSSQL для программного управления видимостью и доступностью элементов клиентского приложения.
Добавляем пользователя к роли базы данных
проверяем если член роли то форма или контрол - доступны.
if cnn.Execute("SELECT CAST(IS_MEMBER('KA_Admin') + IS_MEMBER('db_owner') AS
Bit)").Fields(0)=1 then
или
me.Adminbutton.enabled = cnn.Execute("SELECT CAST(IS_MEMBER('KA_Admin') + IS_MEMBER('db_owner') AS
Bit)").Fields(0)=1
Идея Леонида Волосатова (Latuk)
| |