Login Cap 6- Mostrar y Editar Perfil de Usuario, Cambiar contraseña, validaciones- Arquitectura en Capas, POO, C#, VB.Net y SQL Server

INTRODUCCIÓN:

Hola, bienvenido al último capítulo del tutorial “Login Completo” en C#, Visual Basic, SQL Server, WinForms, Programación Orientada a Objetos (POO) y Arquitectura en Capas, con buenas prácticas y estrategias (Nivel intermedio).

En este tutorial aprenderá: Como permitir al usuario, pueda editar su perfil y cambiar de contraseña, evitar insertar datos duplicados, agregar seguridad al momento de editar los datos.

PRE-TUTORIAL:

Base de Datos

En el capítulo 2, se creó la base de datos mi compañía, una tabla usuarios, algunos campos. Para este tutorial, editaremos estos campos.

create database MyCompany
use MyCompany
create table Users(
UserID int identity(1,1) primary key,
LoginName nvarchar (100) unique not null,
Password nvarchar (100) not null,
FirstName nvarchar(100) not null,
LastName nvarchar(100) not null,
Position nvarchar (100) not null,
Email nvarchar(150)not null
)

IMPORTANTE:

El campo LoginName es único (Unique), por lo tanto no se podrá registrar nombres de usuario duplicados. De hacerlo, como resultado se tendrá un error, ese error será capturado desde la capa de dominio.

TUTORIAL:

Paso 1: Codificar- Capa de Acceso a Datos

En el objeto de acceso a datos del Usuario (UserDao), agregamos un nuevo método para editar los campos de la tabla Usuarios.

UserDao.cs / .vb

public void editProfile(int id,string userName, string password, string name, string lastName, string mail)
{
    using (var connection = GetConnection())
    {
        connection.Open();
        using (var command = new SqlCommand())
        {
            command.Connection = connection;
            command.CommandText = "update Users set LoginName=@userName, Password=@pass, FirstName=@name, LastName=@lastName, Email=@mail where UserID=@id";
            command.Parameters.AddWithValue("@userName", userName);
            command.Parameters.AddWithValue("@pass", password);
            command.Parameters.AddWithValue("@name", name);
            command.Parameters.AddWithValue("@lastName", lastName);
            command.Parameters.AddWithValue("@mail", mail);
            command.Parameters.AddWithValue("@id", id);
            command.CommandType = CommandType.Text;
            command.ExecuteNonQuery();
        }
    }
}

Imports System.Data.SqlClient
Imports Common

Public Class UserDao
    Inherits ConnectionToSql

    Public Sub editProfile(id, user, pass, name, lastName, mail)
        Using connection = GetConnection()
            connection.Open()
            Using command = New SqlCommand()
                command.Connection = connection
                command.CommandText = "update Users set LoginName=@user, Password=@pass, FirstName=@name, LastName=@lastName, Email=@mail where UserID=@id"
                command.Parameters.AddWithValue("@user", user)
                command.Parameters.AddWithValue("@pass", pass)
                command.Parameters.AddWithValue("@name", name)
                command.Parameters.AddWithValue("@lastName", lastName)
                command.Parameters.AddWithValue("@mail", mail)
                command.Parameters.AddWithValue("@id", id)
                command.CommandType = CommandType.Text
                command.ExecuteNonQuery()
            End Using
        End Using

    End Sub
End Class

Ya comenté en algunos videos la importancia de usar USING, La declaración using garantiza que se llame a Dispose una vez termine de ejecutarse los códigos dentro del bloque using, incluso si ocurre una excepción. Para entender mejor, una vez que termine de ejecutarse el método requestUserPassword, se desechará los objetos sqlConnection y sqlCommand, es por ello que no es necesario, cerrar la conexión o limpiar los parámetros de sqlCommand.
Importante….Tener muy en cuenta

Paso 2: Codificar- Capa de Dominio / Negocio

En la clase modelo de usuario (UserModel.vb), creamos los atributos del usuario y el constructor con parámetros para inicializar los atributos, también creamos un constructor sin parámetros (Es necesario, porque se invoco desde muchos formularios mediante constructor sin parámetros-> dim userModel as new UserModel()), también puedes inicializar los atributos por propiedades (get – set), es decision tuya.
Creamos un método para editar el perfil de usuario e invocar el método editar perfil de la capa de acceso a datos.

UserModel.cs / .vb

UserDao userDao = new UserDao();

//Attributes
private int idUser;
private string loginName;
private string password;
private string firstName;
private string lastName;
private string position;
private string email;

//Constructors
public UserModel(int idUser, string loginName, string password, string firstName, string lastName, string position, string email)
{
    this.idUser = idUser;
    this.loginName = loginName;
    this.password = password;
    this.firstName = firstName;
    this.lastName = lastName;
    this.position = position;
    this.email = email;
}

public UserModel() {

}

//Methods
public string editUserProfile()
{
    try
    {
        userDao.editProfile(idUser, loginName, password, firstName, lastName, email);
        LoginUser(loginName, password);
        return "Your profile has been successfully updated";
    }
    catch (Exception ex)
    {
        return "Username is already registered, try another";
    }
}

Imports DataAccess
Imports Common

Public Class UserModel

    Dim userDao As New UserDao()

    'Attributes'
    Private idUser
    Private loginName
    Private password
    Private firstName
    Private lastName
    Private position
    Private email

    'Constructors'
    Public Sub New(idUser As Object, loginName As Object, password As Object, firstName As Object, lastName As Object, position As Object, email As Object)
        Me.idUser = idUser
        Me.loginName = loginName
        Me.password = password
        Me.firstName = firstName
        Me.lastName = lastName
        Me.position = position
        Me.email = email
    End Sub

    Public Sub New()

    End Sub

    'Methods'
    Public Function editUserProfile() As String
        Try
            userDao.editProfile(idUser, loginName, password, firstName, lastName, email)
            Login(loginName, password)'Invocamos el metodo login para actualizar los datos del usuario en la interfaz gráfica'
            Return "Your profile has been successfully updated"
        Catch ex As Exception
            Return "Username is already registered, try another"
        End Try
    End Function

    Public Function Login(user As String, pass As String) As Boolean
        Return userDao.Login(user, pass)
    End Function

Paso Final: Codificar- Capa de Presentación

Agregamos un nuevo formulario para mostrar y editar los datos del usuario, de la siguiente manera.

FormUserProfile.cs / vb [Diseño]

La propiedad VISIBLE del panel de edición debe estar establecida en FALSO, para mantenerlo oculta al ejecutar la aplicación y solamente mostrarlo cuando el usuario decida editar sus datos.

Una vez diseñado el formulario, codificamos de la siguiente manera:

FormUserProfile.cs / .vb [Código]

private void FormUserProfile_Load(object sender, EventArgs e)
{
    loadUserData();
    initializePassEditControls();
}

private void loadUserData()
{
    //View
    lblUser.Text = UserCache.LoginName;
    lblName.Text = UserCache.FirstName;
    lblLastName.Text = UserCache.LastName;
    lblMail.Text = UserCache.Email;
    lblPosition.Text = UserCache.Position;

    //Edit Panel
    txtUsername.Text = UserCache.LoginName;
    txtFirstName.Text = UserCache.FirstName;
    txtLastName.Text = UserCache.LastName;
    txtEmail.Text = UserCache.Email;
    txtPassword.Text = UserCache.Password;
    txtConfirmPass.Text = UserCache.Password;
    txtCurrentPassword.Text = "";
}

private void initializePassEditControls()
{
    LinkEditPass.Text = "Edit";
    txtPassword.UseSystemPasswordChar = true;
    txtPassword.Enabled = false;
    txtConfirmPass.UseSystemPasswordChar = true;
    txtConfirmPass.Enabled = false;
}

private void reset()
{
    loadUserData();
    initializePassEditControls();
}
private void linkEdit_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
{
    Panel1.Visible = true;
    loadUserData();
}
private void LinkEditPass_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
{
    if (LinkEditPass.Text == "Edit")
    {
        LinkEditPass.Text = "Cancel";
        txtPassword.Enabled = true;
        txtPassword.Text = "";
        txtConfirmPass.Enabled = true;
        txtConfirmPass.Text = "";
    }
    else if (LinkEditPass.Text == "Cancel")
    {
        initializePassEditControls();
        txtPassword.Text = UserCache.Password;
        txtConfirmPass.Text = UserCache.Password;
    }
}

private void btnSave_Click(object sender, EventArgs e)
{
    if (txtPassword.Text.Length >= 5)
    {
        if (txtPassword.Text == txtConfirmPass.Text)
        {
            if (txtCurrentPassword.Text == UserCache.Password)
            {
                var userModel = new UserModel(
                    idUser: UserCache.IdUser,
                    loginName: txtUsername.Text,
                    password: txtPassword.Text,
                    firstName: txtFirstName.Text,
                    lastName: txtLastName.Text,
                    position: null,
                    email: txtEmail.Text);
                var result = userModel.editUserProfile();
                MessageBox.Show(result);
                reset();
                Panel1.Visible = false;
            }
            else
                MessageBox.Show("Icorrect current password, try again");
        }
        else
            MessageBox.Show("The password do not match, try again");
    }
    else
        MessageBox.Show("The password must have a minimum of 5 characters");
}

Imports Common
Imports Domain

Public Class FormEditUserProfile
    Private Sub FormEditUserProfile_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        loadUserData()
        initializeControlsEditPass()
    End Sub

    Private Sub loadUserData()
        'View
        lblUser.Text = ActiveUser.loginName
        lblName.Text = ActiveUser.firstName
        lblLastName.Text = ActiveUser.lastName
        lblMail.Text = ActiveUser.email
        lblPosition.Text = ActiveUser.position

        'Edit
        txtUsername.Text = ActiveUser.loginName
        txtFirstName.Text = ActiveUser.firstName
        txtLastName.Text = ActiveUser.lastName
        txtEmail.Text = ActiveUser.email
        txtPassword.Text = ActiveUser.password
        txtConfirmPass.Text = ActiveUser.password
    End Sub

    Private Sub initializeControlsEditPass()
        LinkEditPass.Text = "Edit"
        txtPassword.UseSystemPasswordChar = True
        txtPassword.Enabled = False
        txtConfirmPass.UseSystemPasswordChar = True
        txtConfirmPass.Enabled = False
        txtCurrentPassword.Text = ""
    End Sub

    Private Sub reset()
        loadUserData()
        initializeControlsEditPass()
    End Sub

    Private Sub LinkEditPass_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkEditPass.LinkClicked
        If LinkEditPass.Text = "Edit" Then
            LinkEditPass.Text = "Cancel"
            txtPassword.Enabled = True
            txtPassword.Text = ""
            txtConfirmPass.Enabled = True
            txtConfirmPass.Text = ""

        ElseIf LinkEditPass.Text = "Cancel" Then
            initializeControlsEditPass()
            txtPassword.Text = ActiveUser.password
            txtConfirmPass.Text = ActiveUser.password
        End If
    End Sub

    Private Sub linkEdit_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles linkEdit.LinkClicked
        Panel1.Visible = True
        loadUserData()
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        If txtPassword.Text = txtConfirmPass.Text Then
            If txtCurrentPassword.Text = ActiveUser.password Then

                Dim userModel As New UserModel(idUser:=ActiveUser.idUser,
                                               loginName:=txtUsername.Text,
                                               password:=txtPassword.Text,
                                               firstName:=txtFirstName.Text,
                                               lastName:=txtLastName.Text,
                                               position:=Nothing,
                                               email:=txtEmail.Text)
                Dim result = userModel.editUserProfile()
                MessageBox.Show(result)
                reset()
                Panel1.Visible = False
            Else
                MessageBox.Show("Incorrect current password")
            End If
        Else
            MessageBox.Show("The passwords do not match, try again")
        End If
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Panel1.Visible = False
        reset()
    End Sub
End Class

Finalmente invocamos el formulario perfil de usuario desde cualquier botón, label o linklabel en el menu principal.

Dim formUserProfile As New FormEditUserProfile()
formUserProfile.Show()

Puede ver este tutorial en YouTube

C#

VB.Net

DESCARGAS:

Descargar Proyecto Login Completo + CRUD

La descarga del proyecto (No es gratis) incluye las funciones realizadas en los 6 capítulos del proyecto LOGIN COMPLETO EN C# o LOGIN COMPLETO EN VB.NET, sin embargo, el proyecto tiene un código fuente totalmente modernizado y optimizado, además de incluir CRUD completo con manejo de imágenes, validación de datos duplicados, entre otros. Todo ello con SQL Server, WinForm, Programación Orientada a Objetos (POO) y Arquitectura en Capas, con buenas prácticas y estrategias, tanto de nivel intermedio o avanzado. Puedes descargar las versiones de demostración y obtener los proyectos desde lo botones a continuación:

C# (C-Sharp)

Full Login Nivel Intermedio

Full Login Nivel Avanzado

VB.NET (Visual Basic)