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
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?
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
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
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
podrian habilitar el linck de descarga
ResponderEliminarEXCELENTE APORTE MI ESTIMADO ME AYUDO MUCHO
ResponderEliminarQué pasa con los link? Está vigente este sitio????
ResponderEliminareste video me funcionó perfectamente, quizás alguno de ustedes tambien les sirva, saludos https://www.youtube.com/watch?v=A4mQD5buqXM&t=14s
ResponderEliminarson una porqueria tus videos los link de descarga te manda a cualquier lado y bajan mugre
Eliminar