Aplicaciones n capas en visual.net

APLICACIONES N-CAPAS EN VISUAL NET
INTRODUCCIÓN:
La realización de Sistemas de Información se ha venido desarrollando en base a
técnicas de programación, principalmente; la programación estructurada, luego en
combinación utilizando la programación por eventos, actualmente se pudiera decir que
se ha llegado una madurez con la potencialidad de la programación orientada a objetos
por la ventaja en la reutilización de código. En adición a ellas, se cuenta actualmente
con la programación en n capas que hace uso de la programación orientada a objetos;
la cual consiste en separar el código fuente según el rol, responsabilidad y
funcionalidad; por ende, el desarrollo es más rápido, y resulta más fácil el darle
mantenimiento al Sistema. En este artículo detallamos la programación en N capas; y
se presenta un ejemplo en Visual Basic .Net, para que sirva de referencia y la
explicación sea más didáctica.

DEFINICIÓN:
El desarrollo de una aplicación N-Capas es básicamente un estilo de programación en
el cual se separan lógicamente cada uno de los elementos de la aplicación, esto es,
cada una de las capas en la que estará formada nuestra aplicación.
La programación por capas es un estilo de programación en el que el objetivo
primordial es la separación de la lógica de negocios de la lógica de diseño.

FUNDAMENTACIÓN TEÓRICA:
Programación en N capas:
El estilo arquitectural en n capas se basa en una distribución jerárquica de los roles y
las responsabilidades para proporcionar una división efectiva de los problemas a
resolver. Los roles indican el tipo y la forma de la interacción con otras capas y las
responsabilidades la funcionalidad que implementan.
Cuanto más se aumenta el proceso operativo de la empresa, las necesidades de
proceso crecen hasta desbordar las máquinas. Es por ello que se separa la estructura
de un programa en varias capas.

En adición a lo citado, podemos decir que actualmente la programación por capas es
un estilo de programación en la que el objetivo principal es separar la lógica de
negocios de la lógica de diseño, un ejemplo básico de esto es separar la capa de
datos de la capa de negocios y ésta a su vez de la capa de presentación al usuario.
El diseño que actualmente más se utiliza es el diseño en tres capas; sin embargo, la
programación puede desglosarse en más capas.
TIPOS DE CAPAS:

Capa de presentación:
Es la responsable de la presentación visual de la aplicación.
La capa de presentación enviará mensajes a los objetos de esta capa de negocios o
intermedia, la cual o bien responderá entonces directamente o mantendrá un diálogo
con la capa de la base de datos, la cual proporcionará los datos que se mandarían
como respuesta a la capa de presentación.
Podemos decir que es la que se presenta al usuario, llamada también formulario o
interfaz de presentación, esta captura los datos del usuario en el formulario e invoca a
la capa de negocio, trasmitiéndole los requerimientos del usuario, ya sea de
almacenaje, edición, o de recuperación de la información para la consulta respectiva.

Capa de negocio:
Es la responsable del procesamiento que tiene lugar en la aplicación. Es en esta capa
donde se reciben los requerimientos del usuario y se envían las respuestas tras el
proceso, a requerimiento de la capa de presentación. Se denomina capa de negocio o
lógica del negocio, es aquí donde se establecen todas las reglas que deben cumplirse.
Esta capa intermedia es la que conlleva capacidad de mantenimiento y de
reutilización.
Esta capa interactúa con la capa de presentación para recibir las solicitudes y
presentar los resultados, y con la capa de datos, para solicitar al manejador de base
de datos que realice una operación de almacenamiento, edición, eliminación, consulta
de datos u otra.

Capa de datos:
Esta capa se encarga de acceder a los datos, se debe usar la capa de datos para
almacenar y recuperar toda la información de sincronización del Sistema.
Es aquí donde se implementa las conexiones al servidor y la base de datos propiamente
dicha, se invoca a los procedimientos almacenados los cuales reciben solicitudes de
almacenamiento o recuperación de información desde la capa de negocio.
Todas estas capas pueden residir en un único ordenador (no debería ser lo usual), pero es
lo más frecuente.
En sistemas complejos se llega a tener varios ordenadores sobre los cuales reside la capa
de datos, y otra serie de ordenadores sobre los cuales reside la base de datos.

Capas y Niveles:
Es importante distinguir los conceptos de “Capas” (Layers) y “Niveles” (Tiers). Las
capas se ocupan de la división lógica de componentes y funcionalidad y no tienen en
cuenta la localización física de componentes en diferentes servidores o en diferentes
lugares. Por el contrario, los Niveles se ocupan de la distribución
física de componentes y funcionalidad en servidores separados. Teniendo en cuenta
topología de redes y localizaciones remotas.
Las arquitecturas de N niveles facilitan la presencia de sistemas distribuidos en los que
se pueden dividir los servicios y aumentar la escalabilidad y mantenimiento de los
mismos.

EJEMPLOS:
 Capa de negocios:
Imports CapaEntidad, CapaDatos
DATO: La línea anterior invoca a las capas: Entidad y de Datos.
Public Class ClaseNegocios
Private ObjetoCliente As New CapaEntidad.ClaseEntidad
Private ObjetoDatos As Datos.ClaseDatos
DATO: Se declaran los Miembros objetos; ObjetoCliente, y ObjetoDatos que van a acceder a las
capas Capa Entidad y Capa Datos respectivamente.
Sub New()
ObjetoDatos = New Datos.ClaseDatos
End Sub
DATO: Se instancia el Objeto ObjetDatos para poder acceder a la capa de Datos.
Function MostrarClientes() As DataSet
Return ObjetoDatos.Retornar(“MuestraClientes”)
End Function
Sub Insertar(ByVal IdCliente As String, ByVal Compañia
As String, ByVal Contacto As String, ByVal Pais
As String)
ObjetoCliente.IdCliente = IdCliente
ObjetoCliente.Compañia = Compañía
ObjetoCliente.Contacto = Contacto

ObjetoCliente.Pais = Pais
ObjetoDatos.ProcesaSMP(“AgregarCliente”, Objeto-
Cliente)
End Sub
DATO: Los datos ingresados en la capa de presentación se enviarán como parámetros a la
capa de negocios los cuales se guardarán en los objetos.
ObjetoCliente.Idcliente, ObjetoCliente.Compañia,
ObjetoCliente.Contacto,
ObjetoCliente.País, respectivamente, para poder ingresar el cliente respectivo.
Sub Modificar(ByVal IdCliente As String, ByVal Compañia
As String, ByVal Contacto As String, ByVal Pais
As String)
ObjetoCliente.Compañia = Compañia
ObjetoCliente.Contacto = Contacto
ObjetoCliente.Pais = Pais
ObjetoDatos.ProcesaSMP(“EditarCliente”, ObjetoCliente)
End Sub
DATO: Los datos ingresados en la capa de presentación se enviarán como parámetros a la
capa de negocios los cuales se guardarán en los objetos.
ObjetoCliente.Idcliente, ObjetoCliente.Compañia
ObjetoCliente.Contacto,
ObjetoCliente.Pais, respectivamente, para poder
modificar el cliente respectivo.

Sub Eliminar(ByVal IdCliente As String)
ObjetoDatos.ProcesaSMP1(“SuprimirCliente”, ObjetoCliente)
End Sub
End Class
DATO: El dato respecto al IdCliente en la capa de Presentación se enviará ‘como parámetro a
la capa de negocios para la eliminación del cliente respectivo.
 Capa de entidad
Public Class ClaseEntidad
Miembros o Atributos
Private sidCliente As String
Private sCompañia As String
Private sContacto As String
Private sPais As String
Propiedades
Property IdCliente() As String
Get
Return Me.sidCliente
End Get
Set(ByVal value As String)

Me.sidCliente = value
End Set
End Property
Property Compañia() As String
Get
Return Me.sCompañia
End Get
Me.sCompañia = value
End Set
End Property
Property Contacto() As String
Get
Return Me.sContacto
End Get
Me.sContacto = value
End Set
End Property
Property Pais() As String
Get
Return Me.sPais
End Get
Me.sPais = value
End Set
End Property
End Class

DATO: en esta capa se guardan y devuelven los valores enviados por la capa de negocios.
 Capa de datos:
Imports CapaEntidad, Microsoft.ApplicationBlocks.
Data
DATO: La línea anterior invoca a la capa entidad, y a la librería SQLHELPER ‘que es una
utilidad de .Net para optimizar líneas de código.
Public Class ClaseDatos
Private Conexion As String = “Server=pc01sqlexpre
ss;Database=FACTURAS;integrated security=sspi;”
DATO: Mediante esta línea se crea la variable Conexion que tendrá la ruta al servidor y el
nombre de la base de datos respectiva en este caso facturas.
Sub ProcesaSMP(ByVal Smp As String, ByVal ObjetoCliente
As Entidad.Clientes)
SqlHelper.ExecuteNonQuery(Conexion, Smp, ObjetoCliente.
IdCliente, _
ObjetoCliente.Compañia, ObjetoCliente.Contacto,
ObjetoCliente.Pais)
End Sub

DATO: Este Procedimiento hace uso de la librería SqlHelper, los parametros enviados
por la capa de negocios en el objeto objetocliente, mediante el cual el procedimiento
almacenado AgregarCliente o EditarCliente permitirá que la capa de datos por medio de
los storeprocedure ingrese el cliente o modifique los datos del cliente respectivo.
Sub ProcesaSMP1(ByVal Smp As String, ByVal ObjetoCliente
As Entidad.Clientes)
SqlHelper.ExecuteNonQuery(Conexion, Smp, ObjetoCliente.
IdCliente)
End Sub
DATO: Este Procedimiento hace uso de la librería SqlHelper, los parámetros enviado por
lacapa de negocios en el objeto cliente el cual mediante el procedimiento almacenado
Suprimir-Cliente eliminará al cliente respectivo.
Function Retornar(ByVal SmP As String) As DataSet
Return SqlHelper.ExecuteDataset(Conexion, SmP)
End Function
End Class
DATO: Esta función retorna los datos en un dataset (tabla temporal en memoria) para
que se muestren los datos. en los textbox definidos en la capa de presentación.

 Capa de presentación
Imports CapaNegocio
DATO: La línea anterior invoca a la capa de negocios.
Public Class Form1
Miembros
Private NroRegistro As Integer, Posactual As Integer,
Eproceso As Boolean
Private ObjetoCliente As New CapaNegocio.Clasenegocios
Private Ds As New DataSet
Private dc As DataColumn()
Private Sub Desplazar(ByVal sender As System.
Object, ByVal e As System.EventArgs) Handles
cmbInicio.Click, cmbAnterior.Click, cmbSiguiente.
Click, cmbUltimo.Click
Dim Index As Integer = CInt(sender.Tag)
Select Case Index
Case 0
Posactual = 0
Case 1
If (Posactual > 0) Then Posactual -= 1
Case 2
If (Posactual < NroRegistro - 1) Then Posactual += 1
Case 3
Posactual = NroRegistro - 1
End Select
VisualizaRegistro(Posactual)
End Sub

DATO: En este procedimiento se programa el menú de opciones para que se desplace el usuario en
el formulario.
Private Sub Form1_Load(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Me.Load
Ds = ObjetoCliente.MostrarClientes
NroRegistro = Ds.Tables(0).Rows.Count
Posactual = 0
VisualizaRegistro(Posactual)
ActivarBotones(True)
ActivarCajas(True)
End Sub
DATO: Este procedimiento es el que se ejecuta primero al correr la aplicación se contabiliza el
número de registros, llama a los procedimientos VisualizarRegistro, para que muestre al primer
registro, además de activar los botones y las cajas de edición.
Sub VisualizaRegistro(ByVal Posact As Integer)
txtIdCliente.Text = Ds.Tables(0).Rows(Posact)(0).
ToString
txtCompañia.Text = Ds.Tables(0).Rows(Posact)(1).
ToString
txtContacto.Text = Ds.Tables(0).Rows(Posact)(2).
ToString
txtPais.Text = Ds.Tables(0).Rows(Posact)(3).To-
String
End Sub

DATO: Muestra los campos de registros según donde se encuentra el cursor o puntero de
registro.
Private Sub cmbNuevo_Click(ByVal sender As System.
cmbNuevo.Click
Eproceso = True
ActivarBotones(False)
ActivarCajas(False)
BorrarcCajas()
End Sub
DATO: Desactiva las cajas al igual que los botones hasta ingresar un nuevo registro.
Private Sub cmbEditar_Click(ByVal sender As System.
cmbEditar.Click
ActivarBotones(False)
ActivarCajas(False)
Eproceso = False
End Sub
DATO: Desactiva las cajas al igual que los botones hasta ingresar un nuevo registro, hasta pulsar o
dar click en el botón grabar.

Private Sub cmbGrabar_Click(ByVal sender As System.
cmbGrabar.Click
If Eproceso Then
ObjetoCliente.Insertar(txtIdCliente.Text, txtCompañia.
Text, txtContacto.Text, txtPais.Text)
Else
ObjetoCliente.Modificar(txtIdCliente.Text, txtCompañia.
Text, txtContacto.Text, txtPais.Text)
End If
Ds.Clear()
Form1_Load(sender, e)
End Sub
DATO: Dependiendo del valor del proceso se insertará un nuevo cliente o se modificará datos
del cliente, es decir con una sola rutina se controla ya sea el ingreso ‘o edición de los datos del
cliente.
Sub BorrarcCajas()
Dim Obj As Object
For Each Obj In Me.Controls
If TypeOf Obj Is TextBox Then
Obj.Clear()
End If
Next
End Sub

DATO: Para poder ingresar nuevos registros se borrará los textbox respectivos.
Sub ActivarBotones(ByVal Estado As Boolean)
Dim Obj As Object
If TypeOf Obj Is Button Then
Obj.Enabled = Estado
End If
Next
cmbGrabar.Enabled = Not Estado
End Sub
DATO: Para poder navegar adelante, atrás, etc., se activan el botones excepto, el de grabar.
Sub ActivarCajas(ByVal Estado As Boolean)
Dim Obj As Object
If TypeOf Obj Is TextBox Then
Obj.ReadOnly = Estado
End If
Next
End Sub
DATO: Se activan los textbox, para poder ingresar o editar los textbox

Private Sub cmbEliminar_Click(ByVal sender As System.
cmbEliminar.Click
If MessageBox.Show(“Esta Seguro”, “Confirme”,
MessageBoxButtons.YesNo, MessageBoxIcon.
Question) = Windows.Forms.DialogResult.Yes Then
ObjetoCliente.Eliminar(txtIdCliente.Text)
Form1_Load(sender, e)
End If
End Sub
End Class
DATO: Toma el registro activo y mediante el idcliente, envía el parámetro a la capa de Negocios para
que esta a su vez lo envíe a la capa de datos para la eliminación del registro respectivo.
Procedimientos almacenados que son invocados por la capa de datos.
USE FACTURAS
GO
--Script MuestraCliente
IF Exists(SELECT * FROM sysobjects
WHERE Name=’MuestraCliente’ AND
Type=’P’)
DROP PROCEDURE AgregarCliente
GO

CREATE PROCEDURE MuestraCliente
AS
SELECT * FROM CLIENTES
GO
-- Script de Mantenimiento
-- Procedimiento almacenado: AgregarCliente
WHERE Name=’AgregarCliente’ AND Type=’P’)
DROP PROCEDURE AgregarCliente
GO
CREATE PROCEDURE AgregarCliente
@IdCliente CHAR(5), @Compañia VARCHAR(40),
@Contacto VARCHAR(40), @Pais VARCHAR(15)
AS
INSERT CLIENTES VALUES(@IdCliente,@
Compañia,@Contacto,@Pais)
GO
-- Procedimiento Almacenado EditarCliente
WHERE Name=’EditarCliente’ AND Type=’P’)
DROP PROCEDURE EditarCliente
GO

CREATE PROCEDURE EditarCliente
@IdCliente CHAR(5), @Compañia VARCHAR(40),
@Contacto VARCHAR(40), @Pais VARCHAR(15)
AS
UPDATE CLIENTES SET Compañia = @Compañia,
Contacto = @Contacto, Pais = @Pais
WHERE IdCliente = @IdCliente
GO
-- Procedimiento Almacenado: SuprimirCliente
WHERE Name=’SuprimirCliente’ AND Type =’P’)
DROP PROCEDURE SuprimirCliente
GO
CREATE PROCEDURE SuprimirCliente
@IdCliente CHAR(5)
AS
DELETE FROM CLIENTES WHERE IdCliente=@
IdCliente
GO

RESUMEN:
Los paradigmas en el desarrollo de programas han venido evolucionando a través de
los años y actualmente contamos con una de las técnicas que brinda mayor facilidad a
los programadores, nos referimos a la Programación Orientada a Objetos en N capas,
ya que permite dividir el trabajo en varias capas modulares.
Actualmente, la más utilizada en cuanto a este estilo es la programación en tres capas
que se divide en:
1) Capa de presentación, la cual interactúa con el usuario.
2) La capa de negocios, donde se establecen las reglas del negocio que deben
cumplirse.
3) La capa de datos en la cual se define la conexión con el servidor y la base de datos,
es en esta capa en donde se invoca a los procedimientos almacenados o comandos
SQL, a fin de que se realicen las operaciones correspondientes
en la base de datos; sin embargo, si es conveniente podemos dividir la estructura del
código fuente en más capas.

SUMMARY:
The paradigms in the development of programs have been evolving over the years and
we currently have one of the techniques that gives greater ease to programmers, we
refer to Object Oriented Programming in N layers, as it allows to divide the work in
several modular layers.
Currently, the most used in this style is the programming in three layers that is divided
into:
1) Presentation layer, which interacts with the user.
2) The business layer, which establishes the business rules that must be met.
3) The data layer in which the connection to the server and the database is defined is in
this layer where the stored procedures or SQL commands are invoked, in order to
perform the corresponding operations
in the database; however, if it is convenient we can split the structure of the source code
into more layers.

RECOMENDACIONES:
No exceder en el número de creación de capas, es posible que exista perdida de
eficiencia.
Se recomienda usar la programación con 3 capas, porque es la más convencional y la
programación es más ordenada y segura.
Es importante separar bien estas capas, ya que por ejemplo el negocio no podría tener
acceso directamente sin pasar primero por la capa acceso a datos, al igual que la capa
presentación no puede hacer ningún tipo de cálculo importante de la aplicación o
acceder directamente a base de datos.
CONCLUSIONES:
• El estilo de programación en N capas se basa en segmentar un proyecto en varias
partes para realizar una programación independiente en cada una de ellas.
• Facilita la reutilización de capas.
• Permite una mejor estandarización.
• El trabajo por parte de los analistas es complejo, pero al final se crea una
arquitectura más fácil de comprender y de implementar.

• En cuanto a la seguridad este estilo de programación es más fiable.
• Se puede elaborar componentes para cada capa, avanzando el desarrollo de
manera independiente y por ende el global del Sistema puede desarrollarse más
rápido.
• Ayuda mucho al programador de aplicaciones para dar mantenimiento al Sistema,
dado que el problema que pudiera suscitarse es visto en la capa respectiva.
• Por ende, los costos de mantenimiento tienden a ser menores.
• Dado los vertiginosos cambios en la dinámica de los negocios este estilo de
programación provee que el Sistema sea escalable.
APRECIACIÓN DEL EQUIPO:
• Facilidad para desarrollar en múltiples plataformas (web, escritorio, móvil).
• Se reduce la complejidad o Facilidad para distribuir el desarrollo del software.

Aplicaciones n capas en visual.net

Más contenido relacionado

La actualidad más candente (20)

Similar a Aplicaciones n capas en visual.net (20)

Más de Lisbeth Ocaña Bueno (20)

Último (6)

Aplicaciones n capas en visual.net