Login Personalizado Vb.net con BD Sql Server

Pequeña Aplicacion en la cual usaremos una tabla Sql para hacer un login o verificacion de datos y asi acceder a otro formulario haciendo uso del VB.NET.

Crearemos 3 clases:

Funciones, Datos y Conexion.

Y el formulario con la interfaz

Empecemos

Abrimos Sql Server y creamos una Base de Datos ala cual le pondremos el nombre de "Proyecto".Luego creamos una tabla ala que llamaremos "Login_Proyecto" e ingresamos los atributos como vemos aca y guardamos.
Si no sabes como crear una base de datos puedes ver un tutorial aca
 

 Luego creamos un Store Procedure.
¿Como lo hacemos?

Clase Conexion

Imports System.Data.Sql  
 Imports System.Data.SqlClient  
 Imports System.Configuration  
 Public Class Conexion  
   Public Shared con As New SqlConnection  
   Public Shared Function Conectado()  
     Try  
       con = New SqlConnection("Server=(local);Database=Proyecto;Trusted_Connection=True")  
       con.Open()  
       Return True  
     Catch ex As Exception  
       MsgBox(ex.Message)  
       Return False  
     End Try  
   End Function  
   Public Shared Function Desconectado()  
     Try  
       If con.State = ConnectionState.Open Then  
         con.Close()  
         Return True  
       Else  
         Return False  
       End If  
     Catch ex As Exception  
       MsgBox(ex.Message)  
       Return False  
     End Try  
   End Function  
 End Class  

Clase Datos

   Public Class Datos  
   Dim usuario As String  
   Dim password As String  
   Public Property nomusuario()  
     Get  
       Return usuario  
     End Get  
     Set(ByVal value)  
       usuario = value  
     End Set  
   End Property  
   Public Property passusuario()  
     Get  
       Return password  
     End Get  
     Set(ByVal value)  
       password = value  
     End Set  
   End Property  
   Public Sub New(ByVal usuario As String, ByVal password As String)  
     nomusuario = usuario  
     passusuario = password  
   End Sub  
   Public Sub New()  
   End Sub  
 End Class  

Clase Funciones

   Public Class Funciones  
   Inherits Conexion  
   Dim cmd As New SqlCommand  
   Public Function Validar(ByVal dat As Datos) As Boolean  
     Try  
       Conectado()  
       cmd = New SqlCommand("Logearse")  
       cmd.CommandType = CommandType.StoredProcedure  
       cmd.Connection = con  
       cmd.Parameters.AddWithValue("@usuario", dat.nomusuario)  
       cmd.Parameters.AddWithValue("@contraseña", dat.passusuario)  
       Dim dr As SqlDataReader  
       dr = cmd.ExecuteReader  
       If dr.HasRows = True Then  
         Return True  
       Else  
         Return False  
       End If  
     Catch ex As Exception  
       MsgBox(ex.Message)  
       Return False  
     Finally  
       Desconectado()  
     End Try  
   End Function 
   End Class 

Agregamos a la Solucion un formulario el cual lleva el nombre de "FormLogin"
Y le agregamos:

• 2 textbox  alos que llamaremos ( UsernameTextBox y PasswordTextBox )
• 2 botones alos que llamaremos ( BOTONOK y BOTONCANCEL)
• 2 labels

Form Login

 Imports System.Data.SqlClient  
 Public Class FormLogin  
   Private Sub BOTONOK_Click(sender As System.Object, e As System.EventArgs) Handles BOTONOK.Click  
     Try  
       Dim dts As New Datos  
       Dim func As New Funciones  
       dts.nomusuario = UsernameTextBox.Text  
       dts.passusuario = PasswordTextBox.Text  
       If func.Validar(dts) = True Then  
         Me.Hide()  
         FormPrincipal.Show()  
       ElseIf func.Validar(dts) = False And UsernameTextBox.Text.Length = 0 And PasswordTextBox.Text.Length = 0 Then  
         MessageBox.Show("Todos los campos estan vacios",  
         "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)  
         UsernameTextBox.Clear()  
         PasswordTextBox.Clear()  
         UsernameTextBox.Focus()  
       ElseIf func.Validar(dts) = False And UsernameTextBox.Text.Length = 0 Or PasswordTextBox.Text.Length = 0 Then  
         MessageBox.Show("Debes completar todos los campos",   
         "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)  
         UsernameTextBox.Clear()  
         PasswordTextBox.Clear()  
         UsernameTextBox.Focus()  
      Else  
         MessageBox.Show("Error verifique su Username y Password",   
         "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Error)  
         UsernameTextBox.Clear()  
         PasswordTextBox.Clear()  
         UsernameTextBox.Focus()  
       End If  
     Catch ex As Exception  
       MsgBox(ex.Message)  
     End Try  
   End Sub  
   Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click  
     Me.Close()  
   End Sub  
   Private Sub BOTONCANCEL_Click(sender As System.Object, e As System.EventArgs) Handles BOTONCANCEL.Click  
     Me.Close()  
   End Sub
   End Class