powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Права на пункты меню (ADP+SQL)
2 сообщений из 2, страница 1 из 1
Права на пункты меню (ADP+SQL)
    #32060027
Леонид
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не поделится ли кто плодотворной дебютной идеей как по-возможности проще (для администрирования) раздать права пользователям и группам пользователей на пункты иерхического меню приложения (ADP + SQL). Может есть ссылка на пример?
...
Рейтинг: 0 / 0
Права на пункты меню (ADP+SQL)
    #32062048
SergSV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет !
Была такая проблемма, но ведь ADP человеческим способом не дает ее решить и я сделал так.
создал ХП
-------
Код: plaintext
1.
2.
3.
4.
CREATE PROCEDURE dbo.who 
@who char(30 ) OUTPUT
AS
SELECT  @who=CURRENT_USER
GO
-------

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

********
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
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
********

вызов которой на открытие первой формы поставил
+++++++++
Код: plaintext
1.
2.
3.
4.
Private Sub Form_Open(Cancel As Integer)
....
Who
....
End Sub
++++++++++

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

и сё! ;-)

Удачи!
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Права на пункты меню (ADP+SQL)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]