Crear login en visual basic
Enviado por Stella • 31 de Octubre de 2018 • 614 Palabras (3 Páginas) • 421 Visitas
...
frmMenuPrincipal.Show()
frmMenuPrincipal.lblUsuario.Text = "Usuario: " & nuevoUsuario.Usuario
Me.Close()
Else
MsgBox("Su contraseña esta vencida." & vbCrLf & "Cambie su contraseña.", MsgBoxStyle.Information, "Mensaje de SGCP_PROVEEMA")
accionFormularioPreguntas = "CAMBIAR"
frmCambioContraseña.Show()
Me.Close()
End If
End If
Else
numeroIntentos += 1 'Se aumenta la variable de el numero de inetentos
MsgBox("Usuario o contraseña incorrecta.", MsgBoxStyle.Critical, "Mensaje de SGCP_PROVEEMA")
'Si se sobrepasa el numero de intentos permitidos se notifica mediante un mensaje
If numeroIntentos = nuevoUsuario.IntentosPermitidos Then
'Se bloquea el usuario
If nuevoUsuario.cambiarEstadoUsuario(idUsuarios, "Bloqueado") Then
MsgBox("Ha superado el número de intentos permitidos." & vbCrLf & "Su usuario ha sido bloqueado." & vbCrLf & "Si desea desbloquearse notifique al administrador.", MsgBoxStyle.Information, "Mensaje de SGCP_PROVEEMA")
Dim res As MsgBoxResult
res = MsgBox("Desea desbloquearse usted mismo.", MsgBoxStyle.YesNo, "Mensaje de SGCP_PROVEEMA")
If res = MsgBoxResult.Yes Then
frmOlvidoContraseña.Show()
Me.Close()
End If
Else
MsgBox("Error al tratar de bloquear el usuario.", MsgBoxStyle.Information, "Mensaje de SGCP_PROVEEMA")
End If
End If
limpiarLogin()
End If
Else 'Si el usuario no existe.
MsgBox("Usuario o contraseña incorrecta.", MsgBoxStyle.Critical, "Mensaje de SGCP_PROVEEMA")
limpiarLogin()
End If
End If
End Sub
Private Sub ChbContraseña_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChbContraseña.CheckedChanged
If ChbContraseña.CheckState = CheckState.Checked Then
TxtContraseña.UseSystemPasswordChar = False
ElseIf ChbContraseña.CheckState = CheckState.Unchecked Then
TxtContraseña.UseSystemPasswordChar = True
End If
End Sub
Private Sub TxtUsuario_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtUsuario.KeyPress
SoloLetras(e) 'Llamado a la funcion SoloLetras se le pasa como parametro (e) donde esta almacenada la tecla que se presiona
SinEspacios(e)
If Asc(e.KeyChar) = 13 Then TxtContraseña.Focus()
End Sub
Private Sub TxtContraseña_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtContraseña.KeyPress
SinEspacios(e) 'Llamado a la funcion SinEspacios se le pasa como parametro (e) donde esta almacenada la tecla que se presiona
If Asc(e.KeyChar) = 13 Then BtnAceptar.Focus()
End Sub
Public Sub limpiarLogin()
TxtUsuario.Text = ""
TxtContraseña.Text = ""
TxtUsuario.Focus()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSalir.Click
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnMinimizar.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles Me.Load
'Dim miColor1 As Color = Color.FromArgb(0, 102, 204)
'btnMinimizar.BackColor = miColor1
'btnSalir.BackColor = miColor1
misParametros = New Parametros()
misParametros.iniciar()
TxtContraseña.MaxLength = misParametros.tamañoMaximoContraseña
TxtUsuario.Focus()
TxtUsuario.SelectAll()
End Sub
Private Sub LblRecuperarContraseña_MouseHover(sender As Object, e As EventArgs) Handles LblRecuperarContraseña.MouseHover
LblRecuperarContraseña.BackColor
...