acessar itens de um menu conforme nível de acesso


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: acessar itens de um menu conforme nível de acesso

lu_sandman

CAMPINAS
SP - BRASIL

ENUNCIADA !

Postada em 25/05/2006 15:05 hs

valeu galera.. era isso mesmo que eu estava precisando... agora deu pra clarear um pouco a idéia e resto pode deixar comigo... valew mesmo...

abraços,

Luciano

Cavalheiro

PRESIDENTE PRUDENTE
SP - BRASIL

Postada em 26/05/2006 13:47 hs

cara o principio é bem simples... cada um tem um jeito mas na logica é assim - vc no cadastro do usuario cria um campo "permissão" e da qtas opções vc quiser e no login vc joga esse valor numa variavel.

no load do seu form vc chama uma função que verica o tipo de permissão e habilita os menus...

eu trabalho com 3 tipos de permissão, mas vc decide o melhor jeito

Public Sub Permissao()
select case vPermissao

' Administrador - permissão total

case "1"

menu1.enable=false

menu2.enable=true

menu3.enable=false

menu4.enable=true

'Master - permissão media

case "2"

menu1.enable=false

menu2.enable=true

menu3.enable=false

menu4.enable=true

' User - permissão baixa

case "3"

menu1.enable=false

menu2.enable=true

menu3.enable=false

menu4.enable=false

end select

End Sub

patricio
não registrado

ENUNCIADA !

Postada em 26/05/2006 18:30 hs

eu jah fiz exatamente isso soh q em java

Marcelo Amaral

SANTO ANDRÉ
SP - BRASIL

ENUNCIADA !

Postada em 28/05/2006 01:00 hs

Pessoal Tenta assim é mais facil a manutenção e mais profissional

Crie duas Tabelas com esse campos

Tabela com nome do Menu

IDMenu Número Código do Menu

NomedoMenuVideo Texto Nome do Menu no Vídeo

NomedoMenu Texto Nome do Menu

Tabela de Permissão

IDSenha Número Código do Usuário

IDMenu Número Código do Menu

Public Function NivelMenu(IntCodUsuario As Integer)
Dim i As Integer, dbMenu As Recordset
For i = 0 To frmPrincipal.Count - 1

If Left(frmPrincipal(i).Name, 3) = "Mnu" Then 'Coloque todos os menu com inicial Mnu

Set dbMenu = db.OpenRecordset("SELECT UsysMenuUsuario.IDSenha, UsysMenu.NomedoMenu FROM UsysMenu INNER JOIN UsysMenuUsuario ON UsysMenu.IDMenu = UsysMenuUsuario.IDMenu WHERE (((UsysMenuUsuario.IDSenha)=" & IntCodUsuario & ") AND ((UsysMenu.NomedoMenu)='" & frmPrincipal(i).Name & "'));", dbOpenDynaset)

            If Not dbMenu.EOF And Not dbMenu.BOF Then
                frmPrincipal(i).Enabled = True
            Else
                frmPrincipal(i).Enabled = False
            End If
            dbMenu.Close
        End If
    Next i
End Function

depois é só chamar a função assim

Call NivelMenu(dbSenha!IdSenha)

Marcelo Amaral

TÓPICO EDITADO

Página(s): 2/2 « ANTERIOR

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR