SeguridadInformatica.es

Red social sobre seguridad informática

Información

Visual .Net

Programacion en capas

Sitio web: http://www.seguridadinformatica.es/groups/group/visualnet
Ubicación: Lima
Miembros: 4
Última actividad: 5 Mar

"EL BUEN PROGRAMADOR ESCRIBE CÓDIGO ENTENDIBLE PARA LOS HUMANOS LOS DEMÁS ESCRIBEN CÓDIGO PARA QUE SOLO ENTIENDA LA MÁQUINA"
Este lema pues lo aprendi de un profesor que me ayudo bastante tanto en mi desarrollo personal como profesional al cual le dedico este bolg .
saludos h. ccochi.

PROGRAMACION:
Es el conjunto de las instrucciones que ejecuta el hardware de una computador para realizar una tarea determinada. Por lo tanto, la programación es una de las principales áreas dentro de la informática.

PROGRAMACION EN CAPAS
Esto es interesante pues muy pocas instituciones de esducción superior (Institutos e inclusive universidades ) no enseñan esto y mal acostumbran a los principiantes a crear proyectos donde se siempre la programación se hace en un botón pero bueno basta de mucho bla,bla,bla y vamos a l tema.

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; un ejemplo básico de esto consiste en separar la capa de datos de la capa de presentación al usuario.

CAPA DE PRESENTACIÓN : También demonida capa de usuario es la capa la cual el usuario ingresa los datos (formularios) luego esta peticion se ira a la capa de negocio
CAPA DE NEGOCIO: Recibe las peticiones del usuario y se envían las respuestas tras el proceso, se demonima capa de negocio porque es aquí donde se establecen todas las reglas que deben cumplirse
CAPA DE DATOS: es donde residen los datos y es la encargada de acceder a los mismos. Está formada por uno o más gestores de bases de datos que realizan todo el almacenamiento de datos, reciben solicitudes de almacenamiento o recuperación de información desde la capa de negocio.
NOTA: Las capas pueden estar en una sola maquina o en maquinas diferentes

Una solución de tres capas (presentación, lógica del negocio, datos) que residen en un solo ordenador (Presentación+lógica+datos). Se dice que la arquitectura de la solución es de tres capas y un nivel.
Una solución de tres capas (presentación, lógica del negocio, datos) que residen en dos ordenadores (presentación+lógica, lógica+datos). Se dice que la arquitectura de la solución es de tres capas y dos niveles.
Una solución de tres capas (presentación, lógica del negocio, datos) que residen en tres ordenadores (presentación, lógica, datos). La arquitectura que la define es: solución de tres capas y tres niveles.
Pasos para crear un proyecto en 3 capas en visual Studio .net 2008

Archivo / Nuevo / Proyecto / Ingrese Nombre proyecto y seleccione la ubicacion donde desea que se cree el proyecto luego cabiamos el nombre de aplicacion creada por defecto le colocamos em nombre "CAPA DE PRESENTACION" / Aceptar y listo
Luego ya creado el proyecto le damos click derecho /Agregar proyecto / Agrega una libreria de clase Llamada "CAPA NEGOCIO"
Nuevamente le damos click derecho al proyecto / Agregar proyecto / Agregar una libreria de clase llamada "CAPA DATOS" y listo


CREAR UN FORMULARIO EN LA CAPA DE PRESENTACION

CREAR UNA CLASE EN LA CAPA DE NEGOCIOS

CREAR UNA CLASE EN LA CAPA DE DATOS

CREAR UN FORMULARIO EN LA CAPA DE PRESENTACION : En este caso agregaremos un local para una empresa

'En la capa de Presentacion o del usuario

Public

Class Formlocal
#Region

" INSTANCIADO DE LA CAPA DE NEGOCIO "

Dim objl As New CapaNegocios.Clslocal

#End Region
#Region

" LEER EL APP CONFIG " ' Este leera del archivo config el cual contiene la cadena de conexion a la base de datos sql server 2005

Dim cn As String = System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
#End

Region
#Region

"PROCEDIMIENTO AGREGAR LOCAL"

Sub AgregarLocal()

If Me.txtlocal.Text.Length <= 0 Then

Me.txtlocal.Focus()

Else
objl.IdEmpresa =

Me.ComboBox1.SelectedValue
objl.Local =

Me.txtlocal.Text
objl.Direccion = txtdireccion.Text

objl.Distrito =

Me.txtdistrito.Text

If objl.AgregarLocal(cn) = True Then
MsgBox(

"Agregado satisfactoriamente......!")
Limpiar()


Else
MsgBox(

"No se pudo agregar")

End If

End If

End Sub
#End

Region
End class



En la capa de negocio crearemos una la clase llamada Clslocal

Imports

System.Data
Imports

System.Data.SqlClient
Public

Class Clslocal
#Region

"PROPIEDADES DEL OBJETO LOCAL"

Dim cn As String

Private _IdLocal As Int32

Public Property IdLocal() As Int32

Get

Return _IdLocal

End Get

Set(ByVal value As Int32)
_IdLocal = value


End Set

End Property

Private _IdEmpresa As Int32

Public Property IdEmpresa() As Int32

Get

Return _IdEmpresa

End Get

Set(ByVal value As Int32)
_IdEmpresa = value


End Set

End Property

Private _Local As String

Public Property Local() As String

Get

Return _Local

End Get

Set(ByVal value As String)
_Local = value


End Set

End Property

Private _Distrito As String

Public Property Distrito() As String

Get

Return _Distrito

End Get

Set(ByVal value As String)
_Distrito = value


End Set

End Property

Private _Direccion As String

Public Property Direccion() As String

Get

Return _Direccion

End Get

Set(ByVal value As String)
_Direccion = value


End Set

End Property

Private _Telefono As String

Public Property Telefono() As String

Get

Return _Telefono

End Get

Set(ByVal value As String)
_Telefono = value


End Set

End Property

#End Region
' Ahora crearemos una funcion agregar en la Clslocal

#Region

"METODOS Y FUNCIONES DEL OBJETO LOCAL"
#Region

" AGREGAR LOCAL "

Function AgregarLocal(ByVal conex As String) As Boolean

Try

Dim exec As New CapaDatos.Clsdatos

Dim param As SqlParameter() = New SqlParameter(4) {}
param(0) =

New SqlParameter("@idempresa", SqlDbType.Int)
param(0).Value = IdEmpresa

param(1) =

New SqlParameter("@local", SqlDbType.VarChar, 200)
param(1).Value = Local

param(2) =

New SqlParameter("@direccion", SqlDbType.VarChar, 200)
param(2).Value = Direccion

param(3) =

New SqlParameter("@distrito", SqlDbType.VarChar, 50)
param(3).Value = Distrito

param(4) =

New SqlParameter("@telefono", SqlDbType.VarChar, 50)
param(4).Value = Telefono

exec.ExecuteNonQuery(conex, CommandType.StoredProcedure,

"AgregarLocal", param) ' Agregar Local es el nombre del store

Return True

Catch ex As Exception

End Try

Return False

End Function
#End

Region
Bueno ahora el la CAPA DE DATOS crearemos una clase llamada Clsdatos

Imports

System.Data
Imports

System.Data.SqlClient
Public

Class Prueba

' PRIMERO CREAMOS UNA FUNCION EL CUAL EJECUTARA


Public Function EjecutaComando(ByVal conex As SqlConnection, ByVal tipocomando As CommandType, _

ByVal nomcomando As String, ByVal parametros() As SqlParameter) As Boolean

Dim cmd As SqlCommand = New SqlCommand

'Agregamos la conexion,tipo de comando, el nombre
cmd.Connection = conex

cmd.CommandType = tipocomando

cmd.CommandText = nomcomando


Dim cerrarcn As Boolean = False

If conex Is Nothing Then Return False

Try

If conex.State = ConnectionState.Closed Then
conex.Open()

cerrarcn =

True

End If

If Not parametros Is Nothing Then

For Each lprm In parametros
cmd.Parameters.Add(lprm)


Next

End If
cmd.ExecuteNonQuery()


Return True

Finally

If cerrarcn Then

If Not conex Is Nothing AndAlso conex.State = ConnectionState.Open Then conex.Close()

End If

If Not cmd Is Nothing Then cmd.Parameters.Clear()

End Try

Return False

End Function


Public Function DevuelveDataSet(ByVal conex As SqlConnection, ByVal tipocomando As CommandType, _

ByVal nomcomando As String, ByVal parametros() As SqlParameter) As DataSet

Dim cmd As SqlCommand = New SqlCommand
cmd.Connection = conex

cmd.CommandType = tipocomando

cmd.CommandText = nomcomando


Dim ds As New DataSet

Dim cerrarcn As Boolean = False

try

If conex.State = ConnectionState.Closed Then
conex.Open()

cerrarcn =

True

End If

If Not parametros Is Nothing Then

For Each lprm In parametros
cmd.Parameters.Add(lprm)


Next

End If

Dim da As New SqlDataAdapter(cmd)
da.Fill(ds)


Finally

If cerrarcn Then

If Not conex Is Nothing AndAlso conex.State = ConnectionState.Open Then conex.Close()

End If

If Not cmd Is Nothing Then cmd.Parameters.Clear()

End Try

Return ds

End Function



End

Class


Copie este codigo y peguelo en la su clase Clsdatos de su proyect
Por favor enviame comentarios a mi correo

orlando_aguirreh@hotmail.com

Foro de discusión

Comenzar una discusión

Aún no se han añadido discusiones. Añade una.

Comenzar una discusión

Comentarios

Comentar

¡Necesitas ser un miembro de Visual .Net para añadir comentarios!

 

Miembros (4)

Orlando Aguirre Haro raul raul alonso Tera Rock
 
 
 

Última actividad

Hace 5 horas
Hace 6 horas
SCRAMMER OUT ha agregado una discusión al grupo Scammers
  Hola a todos y todas...  Recientemente he podido experimentar el encuentro con el "elemento" del que abajo pongo sus fotos.  Este "·bombón" está registrado en la página de encuentros EASYFLIRT con el pseudónimo de hrtofgod01 y contacta con mujeres…
Hace 6 horas
Hace 6 horas
Hace 7 horas
SCRAMMER OUT ha agregado una discusión
Hola a todos y todas...  Recientemente he podido experimentar el encuentro con el "elemento" del que abajo pongo sus fotos.  Este "·bombón" está registrado en la página de encuentros EASYFLIRT con el pseudónimo de hrtofgod01 y contacta con mujeres d…
Hace 7 horas
Hace 8 horas
Hace 9 horas

Diseño web

Más info

Otras redes sociales

Estas son nuestras otras redes sociales, creadas por nuestra empresa:

© 2010   Creado por SICV - webmaster

Emblemas  |  Reportar un problema  |  Términos de servicio

Inicia sesión para chatear