Visual Basic - controlar intentos permitidos, para ingresar al sistema

Life is soft - evento anual de software empresarial
   
Vista:

controlar intentos permitidos, para ingresar al sistema

Publicado por Tony (1 intervención) el 24/07/2017 14:46:45
Buenas a todos

con este codigo controlo la entrada al sitema:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad