Aplicacion con usuarios y contraseñas
Hola, tengo una aplicación ya finalizada pero ahora necesito que al ejecutarla me salga un formulario pidiendo usuario y contraseña, y que al entrar con un u otro usuario pueda ver pueda ver mas o menos datos de otro formulario.
Muchas gracias de antemano.
Muchas gracias de antemano.
hola es que tienes que crear un formulario mdi
es asi click en el icono editor de menus tienes que crear unas pestañas para que tengas los usuarios
una ves que lo as creado tienes que darle los privilegios en que me refiero cuando de dice privilegios un ejemplo
sopongamos que tienes un administrador y usuario y un contador
pues tienes 3 usuarios verdad pera cada una tienes que darle un privilegio distinto me entiendes
pero te voy a dar el algoritmo de la contraseña para que veas como es :
Select Case Combo1.ListIndex
Case 0
If LCase(txtcontraseña) = "noe" Then ' entre millas porque es un texto
MIDMENU.MNU(0).Enabled = True ' estos son los privilegios
MIDMENU.MNU(1).Enabled = True
MIDMENU.MNU(2).Enabled = True
MIDMENU.MNU(3).Enabled = True
Frmclave.Hide
MIDMENU.Show
Else
'x = Combo1.ListIndex 'borra el texbox clave
MsgBox "ADCESO DENEGADOOOO", vbOKOnly + vbInformation, "ALERTA MENSAJE INTELIGENTE DE LA COMPUTADORA "
' Label4.Caption = "ERROR USUARIO NO AUTORIZADO"
txtcontraseña.Text = ""
cont = cont + 1
If cont = 3 Then
Unload Me 'sierra ventana
End If
End If
Case 1
If LCase(txtcontraseña) = "noe" Then
MIDMENU.MNU(0).Enabled = False
MIDMENU.MNU(1).Enabled = False
MIDMENU.MNU(2).Enabled = True
MIDMENU.MNU(3).Enabled = True
pbar 'llama una funcion
Frmclave.Hide
MIDMENU.Show
Else
X = Combo1.ListIndex
MsgBox "ADCESO DENEGADOOOO", vbOKOnly + vbInformation, "ALERTA MENSAJE INTELIGENTE DE LA COMPUTADORA "
Combo1.ListIndex = 3
txtcontraseña.Text = ""
cont = cont + 1
If cont = 3 Then
Unload Me
End If
End If
Case 2
If LCase(txtcontraseña) = "noe" Then
MIDMENU.MNU(0).Enabled = True
MIDMENU.MNU(1).Enabled = False
MIDMENU.MNU(2).Enabled = False
MIDMENU.MNU(3).Enabled = True
pbar 'llama una funcion
Frmclave.Hide
MIDMENU.Show
Else
X = Combo1.ListIndex
' Label4.Caption = "Usuario y/o Contraseña Incorrecta"
MsgBox "ADCESO DENEGADOOOO INTENTE DESPUES", vbOKOnly + vbInformation, "ALERTA MENSAJE INTELIGENTE DE LA COMPUTADORA "
Combo1.ListIndex = 3
txtcontraseña.Text = ""
cont = cont + 1
If cont = 3 Then
Unload Me
End If
End If
End Select
End Sub
cualquier vida escribeme a mi correo espero que te sirva en algo
es asi click en el icono editor de menus tienes que crear unas pestañas para que tengas los usuarios
una ves que lo as creado tienes que darle los privilegios en que me refiero cuando de dice privilegios un ejemplo
sopongamos que tienes un administrador y usuario y un contador
pues tienes 3 usuarios verdad pera cada una tienes que darle un privilegio distinto me entiendes
pero te voy a dar el algoritmo de la contraseña para que veas como es :
Select Case Combo1.ListIndex
Case 0
If LCase(txtcontraseña) = "noe" Then ' entre millas porque es un texto
MIDMENU.MNU(0).Enabled = True ' estos son los privilegios
MIDMENU.MNU(1).Enabled = True
MIDMENU.MNU(2).Enabled = True
MIDMENU.MNU(3).Enabled = True
Frmclave.Hide
MIDMENU.Show
Else
'x = Combo1.ListIndex 'borra el texbox clave
MsgBox "ADCESO DENEGADOOOO", vbOKOnly + vbInformation, "ALERTA MENSAJE INTELIGENTE DE LA COMPUTADORA "
' Label4.Caption = "ERROR USUARIO NO AUTORIZADO"
txtcontraseña.Text = ""
cont = cont + 1
If cont = 3 Then
Unload Me 'sierra ventana
End If
End If
Case 1
If LCase(txtcontraseña) = "noe" Then
MIDMENU.MNU(0).Enabled = False
MIDMENU.MNU(1).Enabled = False
MIDMENU.MNU(2).Enabled = True
MIDMENU.MNU(3).Enabled = True
pbar 'llama una funcion
Frmclave.Hide
MIDMENU.Show
Else
X = Combo1.ListIndex
MsgBox "ADCESO DENEGADOOOO", vbOKOnly + vbInformation, "ALERTA MENSAJE INTELIGENTE DE LA COMPUTADORA "
Combo1.ListIndex = 3
txtcontraseña.Text = ""
cont = cont + 1
If cont = 3 Then
Unload Me
End If
End If
Case 2
If LCase(txtcontraseña) = "noe" Then
MIDMENU.MNU(0).Enabled = True
MIDMENU.MNU(1).Enabled = False
MIDMENU.MNU(2).Enabled = False
MIDMENU.MNU(3).Enabled = True
pbar 'llama una funcion
Frmclave.Hide
MIDMENU.Show
Else
X = Combo1.ListIndex
' Label4.Caption = "Usuario y/o Contraseña Incorrecta"
MsgBox "ADCESO DENEGADOOOO INTENTE DESPUES", vbOKOnly + vbInformation, "ALERTA MENSAJE INTELIGENTE DE LA COMPUTADORA "
Combo1.ListIndex = 3
txtcontraseña.Text = ""
cont = cont + 1
If cont = 3 Then
Unload Me
End If
End If
End Select
End Sub
cualquier vida escribeme a mi correo espero que te sirva en algo