Visual Basic - Validando usuarios

Life is soft - evento anual de software empresarial
   
Vista:

Validando usuarios

Publicado por Alfredo (4 intervenciones) el 26/09/2009 13:02:39
Hola, tengo un par de dudas que igual son un poco tontas pero estoy aprendiendo y no logro encontrar solución "plausible".

Tenemos un campo Usuario y otro Contraseña y un botón Aceptar y otro cancelar.

Al pulsar aceptar debería aparecer un mensaje de estado diciendo "Comprobando datos..." y luego decirme si está o no correcto. El problema es que tarda nada en hacer la comprobación y ni siquiera se puede ver lo de Comprobando datos...

Por otro lado, alguna idea "sencilla" para implementar al menos 5 usuarios y contraseñas.

Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Validando usuarios

Publicado por juan carlos (518 intervenciones) el 26/09/2009 23:43:13
Hola Alfredo acerca de la comprobacion, nunca se te pondra Comprobando datos... porque lo que se supone que lee es un password e usuario que es demasiado rapido, te apareciera si comprobaras una base de datos extensa.
alguna otra duda mi mail es:
mega.juca@hotmail.es
acerca de los usuarios y contraseñas espero te sirva este codigo:
===================================================
Private Sub Command1_Click()
' entrada a un sistema para varios usuarios
' declarar las variables para los passwords e usuarios
Dim a, b, c, d,e, f, g, h, i, j As String

' declarar las variables para el password e usuario
Dim k As Boolean
Dim l As Boolean

' meter el contenido de los password a las variables
a = "pass1"
b = "pass2"
c = "pass3"
d = "pass4"
e = "pass5"

' ' meter el contenido de los usuarios a las variables
f = "user1"
g = "user2"
h = "user3"
i = "user4"
j = "user5"

' Cercionarse de que escriba la contraseña, si no es escrita detener
' el programa
If Text1 = "" Then MsgBox "Escribe la contraseña por favor", 32, "Falta la contraseña": Text1.SetFocus: Exit Sub

'hacer que el texto de password solo acepte las variables de los
'passwords, si es algunos de los passwords, poner la variable pass a true de lo
' contrario, poner la variabla a false
If (Text1 = a) Or (Text1 = b) Or (Text1 = c) Or (Text1 = d) Or (Text1 = e) Then
k = True
Else
k = False
End If

' Cercionarse de que escriba el usuario, si no es escrita detener
' el programa
If Text2 = "" Then MsgBox "Escribe el nombre de usuario por favor", 32, "Falta el usuario": Text2.SetFocus: Exit Sub

'hacer que el texto del usuario solo acepte las variables de los
'usuarios, si es algunos de los usuarios, poner la variable user a true de lo
' contrario, poner la variabla a false
If (Text2 = f) Or (Text2 = g) Or (Text2 = h) Or (Text2 = i) Or (Text2 = j) Then
l = True
Else
l = False
End If

' hacer el proceso de entrada
If (k = True) And (l = True) Then
MsgBox "Bienvenido al sistema"
ElseIf (k = False) Or (l = False) Then
MsgBox "Error de entrada", 32, "Error de entrada"
End If
End Sub
===================================================
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Validando usuarios

Publicado por Alfredo (4 intervenciones) el 26/09/2009 23:54:59
Ante todo gracias por la respueta.

Es una práctica y supongo que habría que generar algún tipo de Delay....

Respecto a los usuarios, mil gracias :D
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar