| Más

Últimos miembros

DilanLonAndresNICOLASRolando RuizMARTIN PERALES SOCOLAJuan

Crear login con base de datos

diseñan el formulario:
recuerden que estos ejercicios se desarrollan en capas Cliente-servidor
si no sabes como es esto, pues te recomiendo que visites los siguientes videos para aprender mas de ello

sin mas preambulos pasamos a desarrollar el login



en la capa datos BD_login crean la siguiente Funcion:



Public Function BD_Verificar_Acceso(ByVal Usuario As String, _
               ByVal Contraseña As String) As Boolean
 
        Dim Cn As New SqlConnection
        Dim Cmd As New SqlCommand()
 
        Try
            Cn.ConnectionString = Cadena_Conexion()
 
            With Cmd
                .CommandText = "Sp_Loginusuarios"
                .Connection = Cn
                .CommandTimeout = 20
                .CommandType = CommandType.StoredProcedure
                .Parameters.AddWithValue("@Usuario", Usuario)
                .Parameters.AddWithValue("@Contraseña", Contraseña)
            End With
 
            Cn.Open()
            BD_Verificar_Acceso = IIf(Cmd.ExecuteScalar = 1, True, False)
            Cmd.Parameters.Clear()
            Cmd.Dispose()
            Cmd = Nothing
            Cn.Close()
            Cn = Nothing
        Catch ex As Exception
            MsgBox("Error : " & ex.Message, MsgBoxStyle.Critical, "Ayuda del Sistema")
            If Cn.State = ConnectionState.Open Then Cn.Close()
            Cmd.Dispose()
            Cmd = Nothing
            Cn.Close()
            Cn = Nothing
            BD_Verificar_Acceso = False
        End Try
        Return BD_Verificar_Acceso
    End Function
____________"""""""""""""""""""""""""""""____________________________________""""""""""""""""""""

Ahora en la capa Negocio RN_login crean lo siguiente:

Public Function RN_Verificar_Acceso(ByVal Usuario As String, ByVal Clave As String) As Boolean
        Dim Acceso_Autorizado As New BD_LOGIN
        Return Acceso_Autorizado.BD_Verificar_Acceso(Usuario, Clave)
    End Function

______________________________________________________________

ahora pasan a la capa cliente, y le hacen doble clic al formulario para escribir el siguiente procedimiento:

Sub Acceso_sistema()
        Dim objusu As New RN_LOGIN
        Static veces As Integer = 0
        Dim tusu, tpas As String
 
        tusu = Trim(Txt_usu.Text)
        tpas = Trim(Txt_clave.Text)
        If Not Valida_Controles() Then Exit Sub
        If objusu.RN_Verificar_Acceso(tusu, tpas) Then
 
            Me.Hide()
            Txt_clave.Text = ""
            Txt_usu.Text = ""
            Form2.Show()
            'Dim xmenuprincipal As New Frm_principal
            'xmenuprincipal.ShowDialog()
        Else
            veces = veces + 1
            Txt_usu.Text = ""
            Txt_clave.Text = ""
            Lblmensaje.Text = "Intento Nro:" & veces & "Error Usuario y Contraseña no validos"
            Txt_usu.Focus()
        End If
        If veces = 3 Then
            MessageBox.Show("Ud ha sobrepasado los intentos permitidos." & vbCrLf & "El sistema se cerrara")
            Application.Exit()
        End If
 
    End Sub
_____________________________________________________________________________

debajo del endsub crean la siguiente funcion de validacion:

Function Valida_Controles() As Boolean
        'Validacion de Cajas de Texto
        If Txt_usu.Text.Trim = "" Then Lblmensaje.Text = "Por Favor ingrese el Usuario" : Exit Function
        If Txt_clave.Text.Trim = "" Then Lblmensaje.Text = "Por Favor ingrese el Contraseña" : Exit Function
        Return True
    End Function
___________________________________________________________________________

una vez desarrollado todo ello, nos faltaria llamar a la funcion: para eso le dan doble clic al boton aceptar y escriben el siguiente codigo:

call acceso_sistema
____________________
y listo eso es todo, queridos seguidores, ya pueden ejecutarlo:
 

© 2020 Multiservicios Erwin