como hacer login en .NET C# Visual estudio 2017

hola gente como están por ahí ,espero que bien . Bueno en es post publicare a como hacer un login en .NET .



Primeramente creamos nuestro base de datos en SQL SERVER 2017

CREATE database ejemplo
use ejemplo
CREATE TABLE [dbo].[Usuario](
 [Codigo] [smallint] IDENTITY(1,1) NOT NULL,
 [CodigoPersona] [smallint] NOT NULL,
 [Nombre] [varchar](20) NOT NULL,
 [Clave] [varchar](20) NOT NULL,
 [Vigencia] [bit] NOT NULL,
 [Tipo] [char](1) NOT NULL
 )

Procedimiento almacenado sesión
create procedure [dbo].[sesion]
@nombre varchar(20),
@clave varchar(24)
as
select Nombre,Clave,Tipo,Vigencia,Codigo
 from Usuario
 where Nombre=@nombre and Clave=@clave
GO


 Diseñamos nuestro formulario como en la imagen

CODIGO

Sub ingreso()
        Try
            Dim cmd As New SqlCommand("sesion", cn)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@nombre", SqlDbType.VarChar, 20).Value = UsernameTextBox.Text
            cmd.Parameters.Add("@clave", SqlDbType.VarChar, 24).Value = PasswordTextBox.Text
            Dim da As New SqlDataAdapter(cmd)
            Dim dt As New DataTable
            dt.Clear()
            da.Fill(dt)            ' si es asi es porque ma misma tiene datos
            If dt.Rows.Count <> 0 Then

                MessageBox.Show("Bienvenido" + "...", "Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Dim f1 As New MDIParent1
                Me.Hide()
                f1.Show()
            Else                ' si esta parte se ejecuta es porque el usuario no ha sido registrado o se escribieron datos incorrectos, y enviamos un mensaje informando                MessageBox.Show("Usuario invalido o su clave es incorrecta", "Error de usuario o clave", MessageBoxButtons.OK, MessageBoxIcon.Error)
                'limpiarmos los controles para que se escriba de nuevo
                UsernameTextBox.Clear()
                PasswordTextBox.Clear()
                'enviamos el foco a unos de los controles nuemante
                UsernameTextBox.Focus()

            End If
            cn.close

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try    End Sub

Codigo para button Aceptar

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

El resultado seria lo siguiente

Bueno eso seria todo deja tus dudas o sugerencias en los comentarios saludos.