Imports Entidades 'Improtamos la clase Entidades
Public Class LoginForm1
    Public ConecX As String 'Creación de la variable para el string de conexión
    Dim ObjUsuarioL As New Logica.UsuarioL 'agregamos nuestro objeto UsuarioL para obtener los metodos que usaremos
    Dim ObjUsuarioE As New Entidades.UsuarioE 'Creación del Objeto en Entidades
    Dim xCont As Integer 'Será nuestro contador de Intentos de sesión

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        ValidarUsuario()
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
    Private Sub ValidarUsuario()
        'Sera nuestro string de conexión con la base de datos
        'Data source: es el nombre de nuestro servidor SQL
        'Initial catalog: es el nombre de nuestra base de datos
        'User id: es el usuario de inicio de sesión en el Sql Server
        'Password: es la contraseña utilizada para el inicio de sesión del sql server

        'Este línea de conexión puede ser creado en un Módulo a parte como variable global, 
        'pero como solo tendremos un formulario y esto es un ejemplo lo dejaremos así
        ConecX = "data source = DALOWOS\LINK; initial catalog = Prueba_BD; user id = sa; password =dalowos"

        'Creación de las variables locales
        Dim xUsuario As String
        Dim xPassword As String
        Dim xExiste As Boolean ' esta variable como indicador de la existencia del usuario en la base de datos


        xExiste = False
        xUsuario = ""
        xPassword = ""

        ObjUsuarioE.iNombreUsuario = UsernameTextBox.Text ' Asignamos el valor del texto Usuario a nuestra Entidad
        ObjUsuarioE.iContraseña = PasswordTextBox.Text ' Asignamos el valor del texto Contraseña a nuestra Entidad
        xExiste = ObjUsuarioL.ValidarContraseña(ConecX, ObjUsuarioE) 'Enviamos el objeto ObjUsuario a nuestra capa de lógica

        If xExiste = True Then
            MsgBox("la contraseña es correcta, bienvenido la Sistema", MsgBoxStyle.OkOnly)
        Else
            MsgBox("Usuario y/o Contraseña incorrecta", MsgBoxStyle.Critical, "Informe de Error")
            If xCont = 3 Then 'En caso llegar al tercer intento te saldrá el siguiente mensaje de error y te expulsará del sistema
                MsgBox("Exedió el número de intentos", MsgBoxStyle.Critical, "Informe de Error")
                Me.Close()
            End If
            xCont += 1 'Aquí sumaremos +1 cada vez que el usuario se equivoca al ingresar
        End If
    End Sub

    Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Inicamos variables
        'Contador en 1
        xCont = 1
    End Sub
End Class
