Variables de Sesion

[gama_jack]

jaja creo q llege un poco tarde pero yo tengo un proceso parecido en uno de mis programas donde almacena el usuario y el pass en una base de datos y de ahi lo arrastra para saber si el usuario tiene privilegios o no, solo lo q hago es declarar una variable a nivel modulo para que cada vez que se abra un formulario revise esta variable y de acurdo a su valor habilita opciones o no aqui te dejo el codigo oara q lo cheques

este es el de el formulario principal o sea el de acceso:

txtusuario.Text = txtusuario.Text.ToUpper
BindingContext(DataSet11, "usuarios").Position = 0
Do Until txtusuario.Text = lblusuario.Text
If BindingContext(DataSet11, "usuarios").Position = BindingContext(DataSet11, "usuarios").Count - 1 Then
MessageBox.Show("Usuario inexistente")
txtusuario.Text = ""
txtpass.Text = ""
txtusuario.Focus()
Exit Sub
End If
BindingContext(DataSet11, "usuarios").Position += 1
Loop
If txtusuario.Text = lblusuario.Text And txtpass.Text = lblpass.Text And lbltipo.Text = "ADMINISTRADOR" Then
tipousuario = True
primario.Show()
Me.Hide()

como podras ver utilizo tres campos en base de datos y las mando a llamar con un bucle, este bucle compara el texto escrito por el usuario con unas etiquetas ocultas asi, cuando verifica que todos los datos son iguales da acceso al usuario


esta es mi variable en un modulo:

Module Module1
Public tipousuario As Boolean

y este es mi formulario que restringe la entrada:

Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
If tipousuario = False Then
Button2.Enabled = False
Button5.Enabled = False
ElseIf tipousuario = True Then
Button2.Enabled = True
Button5.Enabled = True
End If
End Sub


espero te sirva

Exito!!!