Class // Module // Function??

[Fernando_net]

Hola a todos.

Estos días he estado probando y quisiera ver si voy bien con los pasos que estoy haciendo.

Imaginad que tengo una pantalla de login con dos textbox, uno para el usuario y otro para la contraseña. Además de tener un botón aceptar.

Bien, si quiero que la programación sea Orientada a Objetos, necesito tener una clase Login con sus respectivos Getters i Setters al respecto, uno para el campo "usuario" y otro para el campo "contraseña"

Actualmente estoy en la capa de presentación.

Cuando aprieto el botón aceptar hago lo siguiente:

Código vb:

Private Sub btn_login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_login.Click
        Dim logueo As New Clase_Login
 
        'Llamo a la clase Clase_Login y le paso los datos
        logueo.usuario = txt_usuario.Text
        logueo.contrasena = txt_contrasena.Text
End Sub
 

Ahora me voy a la Clase_Login. Yo entiendo que todavía estoy en la capa de presentación, ya que aun no he entrado en la capa negocio.

Entonces en la clase_Login tengo un metodo que se llama "Logueo", que sirve para que compruebe si os datos están bien introduidos.

Código vb:

Public Sub logueo(ByVal usuario As String, ByVal contrasena As String)
        'enviamos los datos a la capa de negocio
        Dim loguin As New Negocio_logueo
 
        If loguin.comprueba_logueo(usuario, contrasena) = False Then
            System.Windows.Forms.MessageBox.Show("Compruebe los datos, ha habido un error en la autenticación")
        Else
            'Si los datos son correctos, crearemos una nueva clase Menu_Principal, que es el formulario
            Dim mPrincipal As New Menu_Principal
 
            'accedemos al formulario y escondemos el actual
            mPrincipal.Show()
        End If
End Sub
 

Ahora si, accedemos a la capa de negocio para ver si tiene datos, si están vacios, etc...

Código vb:

Public Class Negocio_logueo
    'Esta capa mirará a ver si los datos que li pasamos de la clase Clase_Login son correctos i devolverá un valor
    Public Function comprueba_logueo(ByVal usuario As String, ByVal contrasena As String) As Boolean
        Dim erroneo As Boolean
 
        'si el usuario està vacio
        If usuario = "" Then
            erroneo = True
        Else
            If contrasena = "" Then
                erroneo = True
            Else
                'si el usuario tiene texto y la contrasena tiene texto, procedimos a conectarnos a la BBDD para el logueo del usuario
                 Dim conexion as new BBDD
 
                 'llamo al metodo loguin y le paso los parametros
                 BBDD.loguin(usuario , contrasena)
 
                 'si todo ha ido bien, no ha habido nada erroneo
                 erroneo = False
            End If
        End If
 
        return erronio
    End Function
End Class
 

Me falta diseñar la Capa de datos pero bueno, creo que la estructura la estoy haciendo bien. Como lo veis?

Saludos