Salu2 a todos...
Necesito ayuda con esto please el Ingreso normal que tengo es este:
If txtUsuario.Text = "XXXXXX" And txtContraseña.Text = "123456" Then
MDIPadre.Show
MDIPadre.Caption = txtUsuario.Text & " BIENVENIDO"
Unload Me
Else
MsgBox "Eres un Intruso, "Mensaje"
End If
Y lo que quiero es tener a 3 usuarios con sus contraseñas respectivas, sin usar una BD Como lo puedo hacer?...
Gracias de antemano...
Pues el mismo codigo, pero tres veces ....
...es decir, algo así
Select Case txtUsuario.Text
Case "USER 1"
If txtContraseña.text = "123456" Then
MDIPadre.Show
MDIPadre.Caption = txtUsuario.Text & " BIENVENIDO"
Unload Me
Else
MsgBox "Eres un Intruso, Mensaje"
Exit Sub
Case "USER 2"
If txtContraseña.text = "123456" Then
MDIPadre.Show
MDIPadre.Caption = txtUsuario.Text & " BIENVENIDO"
Unload Me
Else
MsgBox "Eres un Intruso, Mensaje"
Exit Sub
Case "USER 3"
If txtContraseña.text = "123456" Then
MDIPadre.Show
MDIPadre.Caption = txtUsuario.Text & " BIENVENIDO"
Unload Me
Else
MsgBox "Eres un Intruso, Mensaje"
Exit Sub
Case Else
MsgBox "Eres un Intruso, Mensaje"
End Select
yo metería un array con las contraseñas...
const NUSUARIOS=3 'nº de usuarios
dim pass as variant
dim user as variant
dim validar as boolean
en el load pones
user=array("nick1","nick1","nick1")
pass=array("contraseña1","contraseña2","contraseña3")
validar=false
luego al identificarte
dim i as integer 'auxiliar
while i<NUSUARIOS and not validar
if txtuser.text =user[i] and txtpass.text=user[i]
validar=true
end if
i=i+1
wend
if validar then
'bienvenido
else
'ande vas piltrafilla
end if
si vana abrir formularios diferentes los puedes cargar desde la colección form con la i o en el if del while... xD
Nota: la putada de visual es que comprueba toda la condición y entonces jode todos los bucles while de comprobación y queda un código horroroso... xD
Hey man muchas gracias eso si me sirvio
Salu2...