AJUDA - Função pós login mySQL + VB.NET

[rogfranz]

Olá a todos!

Pessoal, já me disseram que é simples o que eu preciso!

mas como n tenho um graaande conhecimento preciso da ajuda de vocês!

Situação: Criei um painel de controle no meu sistema onde só os usuários que tiverem a palavra ADM no campo ADM da minha tabela poderam ter acesso.

Função: Após o login verificar se o usuário é ADM e então mudar o estado para visible no meu botão do painel de controle "visible"

Já quebrei a cabeça nem sei por onde começar hehehe =/ infelizmente falta conhecimento

Valeeeeu

[Tiago65]

Usa o regedit para cada usuario

Faz uma chave para ADM e uma chave para usuario simples

Depois cria uma variavel para ler essa chave e definir o que fica visible=true para o valor lido na chave

[HiperTecnologia]

Primeira pergunta, é página WebForm ou WinForm?

 

Se for WebForm, na hora de fazer o login, use Session para fazer a persistências das informações, consulte aqui: http://www.macoratti.net/aspn_pvw.htm

 

Agora se for WinForm, você cria uma variável global para cada informação e preenche quando fizer login.

 

Então no evento Load (tanto no WebForm quanto no WinForm) você verifica as permissões e faz as alterações.

 

Exemplo WEB:

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load   If Session("UserPemissao").toString = "ADM" Then      vButton.visible = true   Else      vButton.visible = false   End IfEnd Sub

Exemplo WinForm

Public Class Form1  Dim dt as DataTable  Dim UserPermissao as String = ""    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load	  dt = FazerLogin(txtEmail.text,txtSenha.text)	  If dt.rows.count > 0 then	     UserPermissao = dt.rows(0).item("UserPermissao").toString		 If UserPermissao = "ADM" Then		    vButton.visible = true		 Else		    vButton.visible = false		 End If	  Else		 'Usuário não existe, sair do sistema!	     Process.GetCurrentProcess.Kill()	  End If  End Sub  End Class

Att

 

Rafael