martes, 25 de junio de 2013

Escribir un programa orientado a objetos (II)

Esto es una continuación del artículo anterior sobre como Crear un primer programa orientado a objetos sencillo.

En este artículo aprenderemos a


§ Usar una clase en una aplicación.
§ Usar las herramientas de Microsoft Visual Studio .NET  para crear la definición de una clase

Uso la  clase CHospital en una aplicación


Como se ha dicho anteriormente una clase es una plantilla de un objeto. Por ejemplo un coche genérico es una clase, mientras que un coche concreto es un objeto (instancia de la clase).
Para poner los datos en los campos y propiedades, hay que crear una instancia de la clase en la memoria, esta acción se conoce como instanciación. Cuando se crea una instancia, se reserva una sección de memoria para mantener los campos del objeto. Si se crea otra instancia de la clase, se reserva otra sección de la memoria para sus campos.
Por ejemplo podemos tener n instancias de la clase coche y cada una de ellas representará un coche concreto con sus atributos particulares (propiedades) marca, modelo, color, etc.

Vamos a crear dos instancias de la clase
CHospital en el proyecto Hospital, y se mostrarán los datos de cada hospital, así que tendrán que crearse dos instancias por separado  de la clase CHospital. En lugar de crear una interfaz elegante, se escribirá sólo el suficiente código para ver si la clase está trabajando como se esperaba.
  

Driver de Pruebas


La creación de un pequeño programa  para probar una clase se llama Driver. Es una buena idea  probar  la clase un poco con el Driver antes de agregarla a un programa más amplio. Se utiliza el Driver para probar la clase sin la interferencia del resto del código del programa.

Crear una instancia de CHospital


1. En el Explorador de soluciones, hacer doble clic en Form1 para abrirlo en el Windows
Diseñador de formularios. Si Form1 se abre en el editor de código, seleccionar Ver Diseñador.

Crear un entorno visual similar al mostrado a continuación

Escribir un programa orientado a objetos



2. Agregar el siguiente código para el evento
SelectedIndexChanged del combo superior

Private Sub CboHospitales_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboHospitales.SelectedIndexChanged

        Dim Hospital1_grupo As CHospital
        Hospital1_grupo = New CHospital()

End Sub

3. Agregar el código siguiente para establecer las propiedades  del hospital inmediatamente después del código introducido en el paso 2:

Hospital1_grupo.Telefono = "914567894"
Hospital1_grupo.Direccion = "Recoletos 23"
Hospital1_grupo.NumSalas  = 28

Cuando se crea la instancia de CHospital , sus campos contienen los valores especificados en la definición de clase. Los campos de dirección y teléfono son una cadena vacía, el número de salas es 0. Tener en cuenta que no hay diferencia en el código del cliente si se utiliza un campo o una propiedad.

4. Agregar el código siguiente  para crear otra instancia de la clase
CHospital.

Dim Hospital2_grupo As CHospital = New CHospital()

Hospital2_grupo.Telefono = "912346578".
Hospital2_grupo.Direccion = "Bravo Murillo 324"
Hospital2_grupo.NumSalas = 12

En este caso, se utiliza una sintaxis diferente para declarar e inicializar una variable de la Clase CHospital. Visual Basic  permite la declaración y la inicialización en la misma declaración. La declaración e iniciación en la misma sentencia tiene las siguientes ventajas:

§  Los programadores tienen menos probabilidades de olvidarse de inicializar la  variable.
§  Cuando una clase define un constructor con parámetros, los campos se  pueden
inicializar al mismo tiempo.

Usar una instancia de la Clase CHospital


5. Agregar el código siguiente para mostrar algunos de los textos de los dos libros.

Dim Informe As String

Informe = "Hospital de " & Hospital1_grupo.Direccion & "Con Telefono" & Hospital1_grupo.Telefono & "Tiene" & Hospital1_grupo.NumSalas & "Salas"

MessageBox.Show(Informe)

Informe = "Hospital de " & Hospital2_grupo.Direccion & "Con Telefono" & Hospital2_grupo.Telefono & "Tiene" & Hospital2_grupo.NumSalas & "Salas"

MessageBox.Show(Informe)

En este fragmento de código se puede ver que hay dos instancias independientes de la clase  CHospital. Es posible hacer referencia a estas instancias utilizando las variables Hospital1_grupo  y Hospital2_grupo. El concepto orientado a objetos permite que cada instancia pueda ser referenciada por separado y se conoce como identidad. Esto no significa que haya que crear una variable para cada instancia. La creación de tantas variables es difícil de manejar si se necesitan cientos de instancias de una clase. Identidad significa que se puede hacer referencia a cada instancia por separado cuando sea necesario.

Al crear una instancia
CHospital, los campos de Hospital1_grupo  han cambiado y se ha llamado al método AltaMedicoHos.

 Más tarde se ha  recuperado el valor de la propiedad Direccion. El valor de la dirección se ha mantenido sin cambios después de llamar al método AltaMedicoHos.  El hecho de que el valor se mantuviera sin cambios demuestra el concepto de estado de los objetos, la idea de que los campos  conservan su valores entre llamadas a métodos.

Se puede  comparar la forma en como funciona el método AltaMedicoHos, un método tiene   las declaraciones de las variables. Después de que el método AltaMedicoHos termina, las variables salen de ámbito y se pierden sus valores.

6. Presionamos F5 para ejecutar el código. Al hacer clic en el botón Mostrar página. Los resultados se muestran aquí:

programa orientado a objetos



Al hacer clic en Aceptar y, a los títulos de los libros se muestran en un cuadro de mensaje, como se muestra aquí:

Hacer clic en Aceptar y, a continuación, cerrar la aplicación.
Hemos creado una clase,
CHospital, y dos instancias de la misma.


Cómo usar el visor de Clases


El entorno de programación permite obtener una vista del árbol de la estructura de clases del proyecto, los espacios de nombres y clases. La Vista de clases puede compartir la misma ventana que el Explorador de soluciones. En el menú Ver, hacer clic en Vista de clases para abrir la Vista de clases. La Vista de clases ampliado se muestra a continuación.



visor de clases


El nodo de más alto nivel representa el proyecto, Hospital. El siguiente nivel de nodos representa los espacios de nombres en el proyecto. Un proyecto puede contener varios espacios de nombres, en este caso, sólo hay uno. El espacio de nombres del proyecto consta de tres clases: la clase que hemos creado,
CHospital, otra que crearemos posteriormente CPersona y la clase para el formulario Windows Forms, frmPrincipal. La clase CHospital contiene cuatro campos privados, representados por bloques de color azul con un candado. La clase también contiene las cuatro respectivas propiedades. Representadas por una mano sosteniendo un formulario. Además, la clase contiene un método, AltaMedicoHos con dos parámetros objeto que devuelven un booleano. El método está representado por un bloque de color púrpura.
Todas las clases en Visual Basic son implícitamente un objeto de una clase base


Añadir el método UbicarPaciente  a la clase CHospital


1. Añadir el siguiente código a la clase CHospital:

Esto crea un array de códigos de Sala para el hospital y su propiedad para acceder a él.
Private m_salas() As String

Public Property Sala(ByVal i As Integer) As Integer
        Get
            Return m_salas(i)
        End Get
        Set(ByVal value As Integer)
            m_salas(i) = value
        End Set
    End Property

Public Function UbicarPaciente(ByVal Nom_Paciente As CPersona, ByVal Cod_Sala As CHospital, ByVal i As Integer) As Boolean

        Dim Reg As RDO.rdoResultset
        Dim strSQL As String

        Reg = Nothing

        On Error GoTo Errores_UbicarPaciente
        strSQL = "INSERT INTO dbo.tbPacSal (strId_PAC,strID_SAL) VALUES (" & Nom_Paciente.Codigo & "," & Cod_Sala.Sala(i) & ")"

        glbBaseDatos.Execute(strSQL)
        Reg.Close()

        Return True

Errores_UbicarPaciente:
        Return False
 End Function

Crear el programa Hospital


Ahora es el momento de escribir el código y probar la aplicación completa.

Conectar a la base de datos el combo box para mostrar el campo strNombre de TbHospital


Resumen


Para

Crear una instancia de una clase
Inicializar la variable usando la palabra new

Dim Hospital1 as New CHospital()

Establecer una propiedad de la instancia

Dim Hospital1 as New CHospital()
Hospital1.Salas = 25

Llamar a un método de la clase.

Dim Hospital1 as New CHospital()
Dim Num_Sala As String
Num_Sala = Hospital1.Sala(3)



lunes, 17 de junio de 2013

Escribir un programa orientado a objetos (I)


Se trata de una serie de artículos prácticos para crear un primer Programa Orientado a Objetos con Visual Basic .Net se comienza con un programa sencillo y se le van añadiendo complejidad con nuevos elementos.


Con este artículo aprenderemos a:



Decidir las clases que debe tener el programa.

Crear una clase con variables, propiedades y métodos.


Los bloques principales de un programa orientado a objetos son las clases, un objeto es una ocurrencia concreta de una clase (un coche concreto es una ocurrencia concreta de la clase coche genérica). Un objeto al ser concreto toma atributos concretos definidos en sus propiedades (en un coche sería el color, modelo, etc.) y métodos que son las acciones que tienen permitido hacer (en un coche los métodos serían acelerar, frenar, girar).


Diseñaremos e implementaremos las clases usando propiedades y métodos. A continuación, declararemos e inicializaremos las variables de las clases. Por último, implementaremos una solución llamando a los métodos, propiedades y a las variables de la clase.


Hospital: Un primer Programa Orientado a Objetos


En la construcción de un sistema de información para el control hospitalario se revelaron los siguientes conceptos:

- Hospital: con los datos, Nombre, Dirección y Teléfono

- Sala: con los datos, Número y Cantidad de camas

- Médico: con los datos, Identidad, Nombre y Especialidad

- Paciente: con los datos, Identidad, Nombre, Dirección y Fecha de nacimiento.

Por otra parte, las relaciones reveladas entre dichos conceptos son:

-Cada hospital tiene varias salas. Todas y cada una de ellas pertenecen a un hospital (y sólo a uno).

-Cada médico trabaja en un único hospital, todo hospital tiene al menos 10 médicos.

-Un paciente puede estar internado; si lo está, estará en una sala y sólo en una.

-La capacidad máxima de camas que puede tener una sala es de cinco pacientes.

-Cada paciente puede ser atendido por más de un médico (pero por lo menos por uno) y a su vez un médico puede atender a varios pacientes.

Se trata de implementar un programa que permita la gestión de un grupo de hospitales.

El programa tendría varias pestañas para añadir/cambiar/eliminar los datos correspondientes, la pestaña paciente sería la más compleja y sería de este tipo:

Escribir un programa orientado a objetos


lunes, 10 de junio de 2013

SQL Server: restaurar una base de datos a partir de una copia de seguridad

Esto es un pequeño manual de cómo hacer con SQL Server una copia de seguridad de una Base de Datos y cómo restaurarla sobre otra machacándola (si queremos que sea nueva, la creamos vacía y machacamos sobre ella).

Antes de nada hacemos una copia de seguridad de la Base de Datos que posteriomente restauraremos.

Hacer una copia de seguridad

En primer lugar elegimos la base de datos de la que realizaremos la copia de seguridad.
Sobre ella, botón derecho del ratón…-> Back Up.

restaurar una base de datos a partir de una copia de seguridad


jueves, 6 de junio de 2013

Curso de diseño de bases de datos relacionales

Con la última entrada se completa un curso básico de diseño de Bases de Datos relacionales, los primeros pasos son teóricos y los últimos son prácticos y se ejecutan en SQL Server.

El curso queda del siguiente modo:

1-     Explicación del modelo ER con un ejemplo práctico de cómo adaptar un enunciado para convertirlo en un modelo Entidad-Relacción.

2-     Cómo pasar del modelo ER a un modelo relacional para que sea más fácil adaptarlo a Bases de Datos Relacionales como SQL Server.

3-     Teoría de la normalización y formas normales explica cómo optimizar  y normalizar el diseño de la base de datos para evitar problemas de referencias entre otros, en Bases de Datos mal diseñadas.  Y se explican las diferentes formas normales. Continuando con el ejemplo sencillo del primer capítulo se expone cómo  adaptarlo a las formas normales.

4-     Finalmente se explica de forma práctica cómo crear las tablas y sus respectivas Claves y Foreing Keys a través de los menús de la aplicación SQL Management Studio de SQL Server o directamente a través de un script. 

Crear una tabla en SQL Server 2005

Esto es un pequeño manual de cómo crear en SQL Server  Tablas y asignarle las Claves y las Foreing Keys correspondientes, al final viene un script para crear una tabla mediante código.

Para generar la tabla.

Crear una tabla en SQL Server
 nombre y tipo de campo SQL Server
 Y luego elegimos del nombre de la tabla


nombre de tabla SQL Server
 Para poner claves.
Añadir claves a una tabla de SQL Server
 Elegimos el campo clave y pulsamos
elegir claves en una tabla de SQL Server
 Con lo que queda
campo clave SQL Server
 Si queremos que la clave sean varios campos, selecionamos los campos deseados y pulsamos.campo clave SQL Server

campo clave SQL Server

 Para crear una foreing Key simple.


foreing key SQL Server

foreing key SQL Server

 Nos abre el diálogo
foreing key SQL Server
 Pulsamos Add y luego el botón
 Con lo que sale
foreing key SQL Server

Pulsamos OK y ya tenemos nuestra Foreing Key, cerramos con close.
 Para crear una foreing Key complejo.

foreing key complejo SQL Server

Aparecen dos colunnas, si intentamos dar al OK nos da un mensaje de error del tipo


foreing key complejo SQL Server

Para evitar esto, hay que elegir la columna que se quiere relacionar y poner  <none> en las que no corresponda la relación


foreing key complejo SQL Server

Ahora si deja crear la relación.

Generación mediante scripts


Para generar las tablas, sus claves y foreing keys se puede hacer por código del siguiente modo:

USE [model]
GO
/****** Object:  Table [dbo].[tbAtiende]    Script Date: 08/30/2011 10:55:59 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[tbAtiende](
      [intID] [tinyint] IDENTITY(1,1) NOT NULL,
      [strID_MED] [char](5) NOT NULL,
      [strID_PAC] [char](5) NOT NULL,
 CONSTRAINT [PK_tbAtiende] PRIMARY KEY CLUSTERED
(
      [strID_MED] ASC,
      [strID_PAC] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]

GO

lunes, 3 de junio de 2013

Formas normales (ejemplo)

EJEMPLO SENCILLO


A Continuación un ejemplo sencillo de aplicación de las formas normales al diseño de una base de Datos relacional. Basado en el esquema de base de datos obtenido en el  punto anterior que era el siguiente:

Formas Normales (ejemplo)

Ahora vamos a continuar con el desarrollo del modelo adaptándolo para que cumpla las formas normales.

En Rojo la clave primaria.
En Azul las claves  ajenas


Paso a primera forma normal


Tabla: tbMedico (strId_MED, strId_HOS,  strNombre, strEspecialidad,)

Un médico puede pertenecer a varias especialidades o a varios hospitales por lo que
pasaría a descomponerse en :

tbMedico (strId_MED, strNombre)

tbMedHos(strId_MED, strId_HOS)

tbMedEsp(strId_MED, strEspecialidad)


Tabla: tbAtiende(strId_MED, strId_PAC)  está en 1FN

Tabla: tbPaciente(strId_PAC, strID_SAL, strId_HOS, strNombre, strDirección, dat_FecNacimiento)

Si consideramos que un paciente solo tiene una dirección válida y sólo puede tener asignada una sala, esta tabla estaría en 1FN.

Tabla: tbSala (strId_SAL, strId_HOS, intCamas,)  está en 1FN.

Tabla: tbHospital(strId_HOS, strNombre, strDireccion, strTelefono)

Para que el hospital pueda tener diversos números de teléfono se deja como:

tbHospital(strId_HOS, strNombre, strDireccion)

tbHospTel (strId_HOS, strTelefono)  No se contempla un listín telefónico por departamentos.

Paso a segunda forma Normal


En este ejemplo no se da ningún caso que esté en 1FN y no esté en 2FN por lo que podemos reordenar las claves dejándolo así.

tbMedico (strId_MED, strNombre)

tbMedEsp (strId_MED, strEspecialidad)

tbMedHos (strId_MED, strId_HOS)

tbAtiende (strId_MED, strId_PAC) 

 tbSala (strId_SAL, strId_HOS, intCamas,

tbPaciente (strId_PAC , strID_SAL, , strId_HOS, strNombre, strDirección, dat_FecNacimiento)

Que al tener sólo una clave primaria, está en 2FN.

tbHospital (strId_HOS, strNombre, strDireccion)

tbHospTel (strId_HOS, strTelefono) 

Paso a tercera forma Normal


El campo strEspecialidad de tbMedEsp depende transitivamente de strID_MED por tanto se sustituye por el código de la especialidad y se crea una nueva tabla tbEspecialidades

tbMedico (strId_MED, strNombre)

tbMedEsp (strId_MED, strId_ESP)

tbEspecialidades (strId_ESP, strEspecialidad)

Como en tbSala (strId_SAL, strId_HOS, intCamasstrID_HOS no depende de la Sala,
sacamos la relación a una tabla auxiliar. Quedando:
tbSala (strId_SAL, intCamas

tbSalaHos (strId_SAL, strId_HOS

Repitiendo la misma operación con tbPaciente nos queda

tbPaciente (strId_PAC , strNombre, strDirección, dat_FecNacimiento)

tbPacSala (strId_PAC , strID_SALCon esta información y la de tbSalaHos queda definido el hospital asignado al paciente.


Al no hacer claves complejas, llegados a este punto, también cumplen las FNCB formas normales por lo que finalmente tenemos:

Formas Normales (ejemplo)

Related Posts Plugin for WordPress, Blogger...