Problema con login vb.net!!!

[junior1920]

Hola amigos nuevamente aqui con un problema:
Estoy haciendo un modulo de control de acceso(usuario y clave)
ya cree el procedimiento o la función y quedo así:

Código SQL:

CREATE OR REPLACE FUNCTION user_acceso(_logacceso CHARACTER,_clave CHARACTER)
  RETURNS SETOF "public"."usuario" AS
$BODY$ 
DECLARE
_select usuario;
_user CHARACTER(15);
_clav CHARACTER(32);
BEGIN
SELECT INTO _user logacceso FROM usuario WHERE logacceso=_logacceso;
SELECT INTO _clav clave FROM usuario WHERE clave=_clave AND logacceso=_logacceso;
IF _user = _logacceso THEN
 IF _clav = _clave THEN
    FOR _select IN SELECT * FROM usuario WHERE logacceso=_logacceso AND clave=_clave
    loop
     RETURN NEXT _select;
    END loop;
 ELSE
    RAISE EXCEPTION 'Clave incorrecta';
    RETURN;
    ROLLBACK;
 END IF;
ELSE
RAISE EXCEPTION 'Usuario %',_logacceso||' no está registrado';-- || para concatenar
 RETURN;
 ROLLBACK;
END IF;
END;$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
 

Ahora esto lo estoy trabajando en 3 capas que son:
I.-CAPA ACCESODATOS
1.1.- CLASE:CategoriaAD

Código vb:

Imports Npgsql
Imports NpgsqlTypes
imports EntidadNegocio
Public Class UsuarioAD
    Public shared iduser as Integer
    Public Shared nombres As String
    Public Shared UserLogin As String
    Public Shared Acceso As Boolean
    Private conn As New NpgsqlConnection
    Private comando As New NpgsqlCommand
    #Region "Cadena de conexion"
    Public Sub New()
        Dim Objconexion As New conexion
        conn = Objconexion.abrir
        comando.Connection=conn
    End Sub
    #End Region
#Region "Función para el acceso"
    Public Function login(ByVal logacceso As String,Byval clave as String)'As List(Of UsuarioEN)
        Dim listuser As New List(Of UsuarioEN)
        Dim reader As NpgsqlDataReader
        Try
            conn.Close()
            conn.Open()
            comando.CommandType=CommandType.StoredProcedure
            comando.CommandText="user_acceso"
            Dim _logacceso As New NpgsqlParameter("_logacceso",NpgsqlTypes.NpgsqlDbType.Varchar)
            _logacceso.Value=logacceso
            _logacceso.Direction=ParameterDirection.Input
            comando.Parameters.Add(_logacceso)
            Dim _clave As New NpgsqlParameter("_clave",NpgsqlTypes.NpgsqlDbType.Varchar)
            _clave.Value=clave
            _clave.Direction=ParameterDirection.Input
            comando.Parameters.Add(_clave)
            reader=comando.ExecuteReader
            If(reader.Read)Then
            iduser=reader("idusuario").ToString()
            nombres=reader("nom_ape").ToString()
            UserLogin = reader("logacceso").ToString()
            Else
                exit function
            End If
        Catch ex as Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        Finally
            conn.Close()
            conn.ClearAllPools
        End Try
    End Function
    #End Region
End Class
 

II.- CAPA ENTIDADNEGOCIO
2.1.- CLASE: UsuarioEN

Código vb:

Public Class UsuarioEN
    Private gidusuario As Integer
    Private gnom_ape As String
    Private glogacceso As String
    Private gclave As String
    Private gtelef As String
    Private gcorreo As String
    '--------------------------
    Public Property idusuario() as Integer
        Get
            Return gidusuario
        End Get
        Set(ByVal value as Integer)
            gidusuario=value
        End Set
    End Property
    '--------------------------
    Public Property nom_ape() as String
        Get
            return gnom_ape
        End Get
        Set(ByVal value as String)
            gnom_ape=value
        End Set
    End Property
    '--------------------------
    Public Property logacceso() as String
        Get
            return glogacceso
        End Get
        Set(ByVal value as String)
            glogacceso=value
        End Set
    End Property
    '--------------------------
    Public Property clave() as String
        Get
            return gclave
        End Get
        Set(ByVal value as String)
            gclave=value
        End Set
    End Property
    '--------------------------
    Public Property telef() as String
        Get
            return gtelef
        End Get
        Set(ByVal value as String)
            gtelef=value
        End Set
    End Property
    '--------------------------
    Public Property correo() as String
        Get
            return gcorreo
        End Get
        Set(ByVal value as String)
            gcorreo=value
        End Set
    End Property    
End Class
 

III.- CAPA LOGICANEGOCIO
3.1.- CLASE: UsuarioLN

Código vb:

Imports AccessoDatos
imports EntidadNegocio
Public Class UsuarioLN
    Private ObjUsuarioAD As UsuarioAD
    Public Sub New()
        ObjUsuarioAD=New UsuarioAD
    End Sub
#Region "Establecer conexion con la función login"
    Public Function login(ByVal logacceso As String, ByVal clave As String) 'As List(Of UsuarioEN)
        return ObjUsuarioAD.login(logacceso,clave)
    End Function
    #End Region
    
End Class
 

IV.- CAPA PRESENTACION
4.1.- FORM: login

Código vb:

Imports System.Data
Imports EntidadNegocio
imports LogicaNegocio
Public Partial Class login
    Public shared iduser as Integer
    Public Shared nombres As String
    Public Shared UserLogin As String
    Public Shared Acceso As Boolean
    Private ObjUsuarioEN As UsuarioEN
    Private ObjUsuarioLN As UsuarioLN
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
 
    End Sub
    #Region "Evento click del boton aceptar"
    Sub BtnOKClick(sender As Object, e As EventArgs)
        ObjUsuarioEN=New UsuarioEN
        ObjUsuarioLN=New UsuarioLN
'       ObjUsuarioEN.logacceso=Ltrim(Rtrim(txtUSER_NAME.Text))
'       ObjUsuarioEN.clave=Ltrim(Rtrim(txtPASSWORD.Text))
'ObjUsuarioLN.login(Ltrim(Rtrim(txtUSER_NAME.Text)),Ltrim(Rtrim(txtPASSWORD.Text)))
         If(ObjUsuarioLN.login(Ltrim(Rtrim(txtUSER_NAME.Text)),Ltrim(Rtrim(txtPASSWORD.Text))))Then
                menuprincipal.show()
Else
        txtUSER_NAME.Focus
End If
End Sub
#End Region
End Class
 

Y es esta parte la cual quiero condicionar para que si los datos son verdaderos me llame el menuprincipal y si no que se mantenga el pulsor en el txt

Código vb:

If(ObjUsuarioLN.login(Ltrim(Rtrim(txtUSER_NAME.Text)),Ltrim(Rtrim(txtPASSWORD.Text))))Then
                menuprincipal.show()
Else
        txtUSER_NAME.Focus
End If
 

[junior1920]

Hola alguna idea como puedo hacer la condición para ver si los datos son correctos y luego pueda llamar al formulario menuprincipal

[MaLkAvIaN_NeT]

la función es la que tiene que retornarte un BIT, la cual tu puedes leer con un execute escalar, o con un simple select.

[junior1920]

Iniciado por MaLkAvIaN_NeT

la función es la que tiene que retornarte un BIT, la cual tu puedes leer con un execute escalar, o con un simple select.

Umm y como es que lo podría hacer por que solo quiero hacer la sentencia si se ejecuto correctamente el procedimiento llame al menuprincipal y si no quede ahi numas con un text en focus

[cristiantorres]

Es aplicacion windows o web.

No se si te eh entendido mal lo que quieres es que si se logea correctamente le muestre el menu en el mismo formulario o que te mande al formulario principal?

Porque eso seria lo ideal que tengas un formulario de login y si se logea correctamente te mande al formulario principal.

[junior1920]

Claro es una aplicación de windows y lo trabajo en capas, lo trabajo con function en postgres
y la función o procedure esta bien.
Ahora el problema esssss que cuando por ejemplo si lo dejo así el código en el formulario login:

Código vb:

Imports System.Data
Imports EntidadNegocio
imports LogicaNegocio
Public Partial Class login
    Public shared iduser as Integer
    Public Shared nombres As String
    Public Shared UserLogin As String
    Public Shared Acceso As Boolean
    Private ObjUsuarioEN As UsuarioEN
    Private ObjUsuarioLN As UsuarioLN
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
 
    End Sub
    #Region "Evento click del boton aceptar"
    Sub BtnOKClick(sender As Object, e As EventArgs)
        ObjUsuarioEN=New UsuarioEN
        ObjUsuarioLN=New UsuarioLN
'       ObjUsuarioEN.logacceso=Ltrim(Rtrim(txtUSER_NAME.Text))
'       ObjUsuarioEN.clave=Ltrim(Rtrim(txtPASSWORD.Text))
ObjUsuarioLN.login(Ltrim(Rtrim(txtUSER_NAME.Text)),Ltrim(Rtrim(txtPASSWORD.Text)))
menuprincipal.show()
End Sub
#End Region
End Class
 

Ingreso los datos y si esos datos los ingreso erroneamente me va a llamar al formulario menu; es por eso que le quiero hacer una condicional y estaba pensando algo así:

Código vb:

Imports System.Data
Imports EntidadNegocio
imports LogicaNegocio
Public Partial Class login
    Public shared iduser as Integer
    Public Shared nombres As String
    Public Shared UserLogin As String
    Public Shared Acceso As Boolean
    Private ObjUsuarioEN As UsuarioEN
    Private ObjUsuarioLN As UsuarioLN
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
 
    End Sub
    #Region "Evento click del boton aceptar"
    Sub BtnOKClick(sender As Object, e As EventArgs)
        ObjUsuarioEN=New UsuarioEN
        ObjUsuarioLN=New UsuarioLN
'       ObjUsuarioEN.logacceso=Ltrim(Rtrim(txtUSER_NAME.Text))
'       ObjUsuarioEN.clave=Ltrim(Rtrim(txtPASSWORD.Text))
'ObjUsuarioLN.login(Ltrim(Rtrim(txtUSER_NAME.Text)),Ltrim(Rtrim(txtPASSWORD.Text)))
         If(ObjUsuarioLN.login(Ltrim(Rtrim(txtUSER_NAME.Text)),Ltrim(Rtrim(txtPASSWORD.Text))))Then
                menuprincipal.show()
Else
        txtUSER_NAME.Focus
End If
End Sub
#End Region
End Class
 

pero no hace nada ya intente colocar Cobj,Cbool después del if pero no me valida
además quiero poder pasar la id del usuario, el nombre de usuario,etc es por eso que mi clase UsuarioAD tiene variables públicas:

Código vb:

Public shared iduser as Integer
    Public Shared nombres As String
    Public Shared UserLogin As String
 

esas las quiero hacer que pasen al formulario menuprincipal

[junior1920]

Alguien por favor que me pueda dar una idea de como hago la condición

[junior1920]

Aquaventus puedes indicarme que es lo que debo de hacer

[Aquaventus]

Hola junior1920!.
Simplemente no digas al usuario que la "contraseña incorrecta" por seguridad, solo dile "usuario o password incorrecto", para que no le hagas saber si ese usuario existe y que tenga la opcion de intentar contraseñas.
Por ejemplo puedes crear un procedure simple como este y acomodarlo a tu function que retorne el COUNT en tu postgress:

Código SQL:

CREATE PROCEDURE SP_LOGIN
@NICK AS VARCHAR(50),
@PWD AS VARCHAR(50)
AS
SELECT COUNT(*) FROM USUARIO
WHERE NICK = @NICK AND PWD = @PWD
 

Que te devuelve la cantidad si existe o no.
En tu capa datos ejecutas tu reader y jalas la cantidad que te manda si es > 0 es porque si existe sino no existe.

Código vb:

Public Function login(ByVal logacceso As String,Byval clave as String) As Int32
Dim resultado As Int32
...
resultado = Convert.ToInt32(reader(0).ToString())
return resultado
 

Y ya en tu capa presentacion :

Código vb:

#Region "Evento click del boton aceptar"
    Sub BtnOKClick(sender As Object, e As EventArgs)
 
        ObjUsuarioLN=New UsuarioLN
    If ObjUsuarioLN.login(txtUSER_NAME.Text.Trim(), txtPASSWORD.Text.Trim()) > 0 Then
                Dim miform As New menuprincipal()
                miform.Show()
Else
        MessageBox.Show("Usuario o contraseña incorrecta")
        txtUSER_NAME.Focus
End If
 

Saludos!.

[junior1920]

Aquaventus y como jalo las variables públicas que estan en UsuarioAD( me confundi al digitar y puse CategoriaAD)

Código vb:

Public shared iduser as Integer
Public Shared nombres As String
Public Shared UserLogin As String
.
.
.
iduser=reader("idusuario").ToString()
nombres=reader("nom_ape").ToString()
UserLogin = reader("logacceso").ToString()
.
.
.
 

[Aquaventus]

Al form que vas a abrir(menuprincipal) cuando pase por el login, creale su constructor :

Código vb:

Dim id, usuario, login As String
 
 
    Public Sub New(ByVal _id As String, ByVal _usuario As String, ByVal _login As String)
 
        id = _id
        usuario = _usuario
        login = _login
 
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
 
    End Sub
 

Y desde el Login solo lo llamas asi (iduser,nombres,UserLogin son las variables que declareaste):

Código vb:

Dim form As New menuprincipal(iduser, nombres,UserLogin)
        form.ShowDialog()
 

Saludos!.

[junior1920]

Iniciado por Aquaventus

Al form que vas a abrir(menuprincipal) cuando pase por el login, creale su constructor :

Código vb:

Dim id, usuario, login As String
 
 
    Public Sub New(ByVal _id As String, ByVal _usuario As String, ByVal _login As String)
 
        id = _id
        usuario = _usuario
        login = _login
 
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
 
    End Sub
 

Y desde el Login solo lo llamas asi (iduser,nombres,UserLogin son las variables que declareaste):

Código vb:

Dim form As New menuprincipal(iduser, nombres,UserLogin)
        form.ShowDialog()
 

Saludos!.

Aquaventus disculpa que te vuelva a molestar pero hice lo que indicastes pero la variables no toman ningún valor.
Otro punto es quie si le doy al formulario login (me.hide) no lo oculta por que hay un showdialog