4.2.2. Creación de la Base de Datos

En esta parte del proyecto, se implementa el diseño de la base de datos. Además, de trabajar con los diferentes tipos de objetos que ofrece Microsoft SQL Server: tablas, vistas, procedimientos almacenados, disparadores, etc.

Creación de Procedimientos Almacenados Un procedimiento almacenado de SQL Server es similar a un procedimiento de otro lenguaje de programación y él crearlos representa las principales ventajas: * Permiten una ejecución más rápida y pueden reducir el tráfico de red. * Pueden utilizarse como mecanismo de seguridad, ya que es posible conceder permisos a los usuarios para ejecutar un procedimiento almacenado. La creación de los siguientes procedimientos almacenados representa las operaciones o métodos que realiza cada clase en el Diagrama de clases.

A continuación se muestra un procedimiento almacenado del sistema: 1. Procedimiento Almacenado que permite insertar una fila en la tabla TblMatricula, especificando cada uno de los parámetros de entrada. CREATE PROCEDURE proced_Insert_Matric @CodMatricula nchar(10), @Fecha smalldatetime, @Seccion nchar (3), @Turno nchar (10), @Saldo smallmoney, @CodTupa nchar(2), @CodAlumno nchar(6) AS IF NOT EXISTS(SELECT IdMatricula FROM TblMatricula WHERE IdMatricula =@CodMatricula) BEGIN BEGIN TRANSACTION INSERT INTO TblMatricula (IdMatricula, Fecha, Seccion, Turno, Saldo, IdTupa, IdAlumno) VALUES(@CodMatricula,@Fecha,@Seccion,@Turno,@Saldo,@CodTupa,@CodAlumno) END ELSE Return -2 IF @@Error <> 0 BEGIN ROLLBACK TRANSACTION RETURN -1 END COMMIT TRANSACTION RETURN 0 GO

Creación de desencadenantes Un desencadenador es una clase especial de procedimiento almacenado que actúa automáticamente cuando un usuario intenta una instrucción especifica de modificación de datos en una tabla. En SQL Server se creó varios desencadenadores, como el que se muestra: 1. Disparador en la tabla TblMatricula para eliminar una matricula mientras no exista inscripción de cursos en esa matricula: CREATE TRIGGER DEL_MATRICULA ON dbo.TblMatricula FOR DELETE AS IF EXISTS (SELECT * FROM TblInscripcion, Deleted WHERE TblInscripcion.IdMatricula=Deleted.Idmatricula) BEGIN ROLLBACK END ELSE DELETE TblDocumentoPago FROM TblDocumentoPago, Deleted WHERE TblDocumentoPago.IdMatricula=Deleted.IdMatricula

Creación de vistas Una vista suele utilizarse para simplificar y personalizar la percepción de la base de datos para cada usuario. Además, puede emplearse como mecanismo de seguridad, ya que permite a los usuarios tener acceso a los datos por medio de la vista. A continuación se presentan una vistas creadas en SQL Server:

1. Mostrar todos las asignaturas: código, nombre y tipo: CREATE VIEW vCursos AS SELECT A.IdAsignatura AS Codigo, A.Nombre AS Nom, TipoCurso = case A.Tipo WHEN 'E' THEN 'CURSO ELEMENTAL' WHEN 'A' THEN 'ACTIVIDAD' END FROM TblAsignatura A

4.3. IMPLEMENTACION DE LA APLICACIÓN

Como parte de la implementación del sistema, existe el proceso de decisión relacionado con la interfaz a utilizar. En este proyecto se ha seleccionado el lenguaje de programación Visual Basic 6.0 que soporta la abstracción, la encapsulación, el polimorfismo y la reutilización del código. Los objetos de Visual Basic están encapsulados, es decir, contienen sus propias propiedades, métodos y eventos. La mayoría de los lenguajes orientados a objetos proporcionan polimorfismo mediante la herencia. Visual Basic utiliza la técnica de interfaz múltiple del modelo de objetos componente que permite que los programas evolucionen con el tiempo, agregando nueva funcionalidad sin afectar al código existente.

4.3.1. Creación de Clases

El diagrama de clases se usa para generar una estructura base del código en el lenguaje escogido. Para la creación de clases, básicamente se ha ejecutado los siguientes pasos: 1. Crear un módulo de clase y establecer sus propiedades. 2. Agregar las propiedades de la clase. 3. Agregar los métodos. Siguiendo lo expuesto, se muestran algunas de las clases Creadas:

'CLASE MATRICULA '************************************************************ 'Propiedades o Atributos Public codMat As String Public fecha As Date Public Sec As String Public Turno As String Public saldo As Currency Public codTupa As String Public CUA As String

'Métodos '----------------------------------------------------------------------------------------- Public Function AddMatricula(CUM As String, fecha As Date, _ Sec As String, Turno As String, saldo As Currency, codTupa As String, CUA As String) 'codigo End Function Public Function CostoMatricula(CUA) As Currency 'codigo End Function Public Function DeudaAnterior(CUA as string) As Currency 'codigo End Function

'CLASE INSCRIPCIONDECURSO '************************************************************ 'Propiedades o atributos Public CodInscrip As String Public codMat As String Public CUC As String Public Cond As String

'Métodos '----------------------------------------------------------------------------------------- Public Function AddInscripcion(CodInscrip As String, _ codMat As String, CUC As String, Cond As String) As Integer 'codigo End Function Public Function AddNota(CodInscrip As String, NotaProm As String) As Integer 'codigo End Function Public Function DelInscripcion(codInscripcion As String) As Integer 'codigo End Function