Aplicacion con usuarios y contraseñas

Juan Carlos
22 de Diciembre del 2004
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.

jomismo
22 de Diciembre del 2004
Ja te pase la respuesta en otro foro

;)

noe meza
22 de Diciembre del 2004
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