controlar intentos permitidos, para ingresar al sistema
Publicado por Tony (5 intervenciones) el 24/07/2017 19:45:44
Buenas a todos
con este código controlo la entrada al sistema:
Necesito un código que me ayuda a controlar, que, si un usuario intenta entrar al sistema, y se equivocó en la contraseña por lo menos 3 veces, que muestre un mensaje similar a este:
Haz superado el número de intentos permitidos, no puede ingresar al sistema, y cierre el sistema.
Gracias
con este código controlo la entrada al sistema:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Try 'Controlador de errores
'Consulta para seleccionar el registro que cumpla con el criterio de datos.
Using ConexionX As New OleDbConnection(cadenaConexion)
'Abrimos la conexión a la Base de datos
ConexionX.Open()
'Creamos un comando del tipo SqlCommand y le pasamos la variable que contiene
'la consulta y la conexión
Dim ConsultaUsuario As String = "Select * From Tbla_Usuario Where Tipo_usuario =@Tipo_usuario and Nombre_usuario =@Nombre_usuario and Activar_desactivar_usuario = 'SI' "
Using comando As New OleDbCommand(ConsultaUsuario, ConexionX)
'Establecemos valores a los parámetros, en el mismo orden de los valores de la consulta
comando.Parameters.AddWithValue("@Tipo_usuario", cboTipoUsuario.Text)
comando.Parameters.AddWithValue("@Nombre_usuario", txtNombreUsuario.Text)
Dim lector As OleDbDataReader
lector = comando.ExecuteReader
If lector.Read = True Then
frmMenu.Show() 'Muestra el formulario de Menú Principal
Me.Hide() 'Oculta el formulario de Acceso es decir Login
If cboTipoUsuario.Text = "ADMINISTRADOR(A)" Then
frmMenu.ParámetrosToolStripMenuItem.Enabled = True
End If
Else
MsgBox("Nombre de Usuario O contraseña son inválidos ")
txtNombreUsuario.Clear()
txtContrasenaUsuario.Clear()
txtNombreUsuario.Focus()
End If
End Using
End Using
Catch ex As Exception
MsgBox("Error al intentar entrar al sistema")
MessageBox.Show(ex.Message) 'Muestra el Mensaje de Error
End Try
Necesito un código que me ayuda a controlar, que, si un usuario intenta entrar al sistema, y se equivocó en la contraseña por lo menos 3 veces, que muestre un mensaje similar a este:
Haz superado el número de intentos permitidos, no puede ingresar al sistema, y cierre el sistema.
Gracias
Valora esta pregunta
0
