Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Права на пункты меню (ADP+SQL)  [new]
Леонид
Member

Откуда:
Сообщений: 14
Не поделится ли кто плодотворной дебютной идеей как по-возможности проще (для администрирования) раздать права пользователям и группам пользователей на пункты иерхического меню приложения (ADP + SQL). Может есть ссылка на пример?
20 окт 02, 13:57    [66535]     Ответить | Цитировать Сообщить модератору
 Re: Права на пункты меню (ADP+SQL)  [new]
SergSV
Member

Откуда:
Сообщений: 11
Привет !
Была такая проблемма, но ведь ADP человеческим способом не дает ее решить и я сделал так.
создал ХП
-------
CREATE PROCEDURE dbo.who 

@who char(30) OUTPUT
AS
SELECT @who=CURRENT_USER
GO
-------

в глобальном модуле процедура ADP проекта создал проц-дуру

********
Public Sub Who()

Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command

Dim CodeStr As String

Set cnn = New ADODB.Connection
Set cmd = New ADODB.Command

Set cnn = CurrentProject.Connection
Set cmd.ActiveConnection = cnn

With cmd
.CommandText = "dbo.who"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@Who", adChar, adParamOutput, 30)
.Execute
CurrentUser = Trim(.Parameters("@Who"))
End With

Set cmd = Nothing
cnn.Close
Set cnn = Nothing
End Sub
********

вызов которой на открытие первой формы поставил
+++++++++
Private Sub Form_Open(Cancel As Integer)

....
Who
....
End Sub
++++++++++

а в других формочках на открытие
.........
btnStop.Enabled = IIf(CurrentUser = "dbo" Or CurrentUser = "NameDOMAIN/nachalnik", True, False)
.........

и сё! ;-)

Удачи!
25 окт 02, 18:07    [69101]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить