Nuestro Personal Docente

BASE DE DATOS I
SISTEMA PARA CONTROL DE CALIFICACIONES
Guía para el desarrollo del proyecto final de la materia
1.- Diseñe en Visual FoxPro las siguientes tablas(vea figuras 1 y 2):

Figura No. 1. Estructura de la tabla ALUMNOS.DBF, la cual es creada para almacenar los datos personales
de los alumnos registrados en el sistema.

Figura No. 2. Estructura de la tabla CALIF.DBF, la cual escreada para almacenar las calificaciones de los
alumnos registrados en el sistema.

2.- Cree un archivo de comandos llamado CONTROL.PRG. Este archivo tiene por
objeto implementar el programa principal del sistema de control de calificaicones.
SET PROCEDURE TO procs
SET TALK OFF
SET SAFETY OFF
SET DATE BRITISH
SELECT 1
USE alumno
INDEX ON nocta TAG cuentas
INDEX ON nombre TAG nombresSELECT 2
USE calif
INDEX ON nocta TAG cuentas
INDEX ON materia TAG materias
Op=0
DO WHILE Op#10
CLEAR
@ 05,15 SAY "Menú de opciones para el Sistema de control escolar"
@ 07,15 SAY "[1] Añadir alumnos"
@ 08,15 SAY "[2] Añadir calificaciones"
@ 09,15 SAY "[3] Modificar/borrar datos personales de alumnos"
@ 10,15 SAY "[4] Modificar/borrar calificaciones de alumnos"
@ 11,15 SAY "[5] Listadode alumnos con promedio aprobatorio"
@ 12,15 SAY "[6] Listado de alumnos con promedio reaprobatorio"
@ 13,15 SAY "[7] Promedio de calificaciones por grupos de edad"
@ 14,15 SAY "[8] Promedio de calificaciones por semestre"
@ 15,15 SAY "[9] Boleta de calificaciones de alumno"
@ 16,15 SAY "[10] Salida del sistema"
@ 18,15 SAY "Opción -->" GET Op
READ
DO CASE
CASE Op=1
DO altaal
CASE Op=2DO altacal
CASE Op=3
DO modalu
CASE Op=4
DO modcal
CASE Op=5
DO proapr
CASE Op=6
DO prorep
CASE Op=7
DO proged
CASE Op=8
DO prosem
CASE Op=9
DO boleta
ENDCASE
ENDDO
WAIT WINDOW "Termina la ejecución del sistema..."

3.- Cree un archivo de comandos llamado PROCS.PRG. Este archivo tiene por
objeto almacenar todos los procedimientos necesarios para implementar el sistema
decontrol de calificaciones.

** Este procedimiento añade los datos personales de un alumno a la tabla
** ALUMNO.DBF
PROCEDURE altaal
SELECT 1
SET ORDER TO cuentas
STORE 0
TO nc,cod
STORE SPACE(20)
TO no,ap
STORE SPACE(25)
TO do
STORE SPACE(10)
TO te
STORE DATE()
TO fn
STORE 'S'
TO con,gra
DO WHILE UPPER(con)='S'
CLEAR
@ 08,15 SAY "REGISTRO DE NUEVOS ALUMNOS"
@ 09,15 SAY "Tecleelos datos personales del alumno a registrar"
@ 11,15 SAY "No. de cuenta ...." GET nc
READ
SEEK(nc)
IF FOUND() THEN
WAIT WINDOW "Este número de cuenta ya fue registrado previamente..."
ELSE
@ 12,15 SAY "Nombre ...." GET no
@ 13,15 SAY "Apellido ...." GET ap
@ 14,15 SAY "Domicilio ...." GET do
@ 15,15 SAY "Código postal ...." GET cod
@ 16,15 SAY "Teléfono ...." GET te
@ 17,15 SAY "Fechade nacimiento ...." GET fn
READ
alre='S'
@ 19,15 SAY "Desea dar de alta este registro (S/N)? " GET alre
READ
IF UPPER(alre)='S' THEN
APPEND BLANK
REPLACE nocta WITH nc, nombre WITH no, apellido WITH ap,domicilio WITH do
REPLACE cp WITH cod, tel WITH te,fechan WITH fn
STORE 0
TO cod
STORE SPACE(20)
TO no,ap
STORE SPACE(25)
TO do
STORE SPACE(10)
TO te
STORE DATE()
TO fn
WAIT WINDOW"El registro ha sido dado de alta..."
ELSE
WAIT WINDOW "El registro no fue dado de alta..."
ENDIF
ENDIF
@ 21,15 SAY "Desea agregar más registros(S/N)?" GET con
READ
ENDDO
RETURN
** Este procedimiento añade los datos de calificaiones a la tabla
** CALIF.DBF, siempre y cuando ya exista registrado en la tabla ALUMNO.DBF
** el número de cuenta del que se darán de alta las calificacionesPROCEDURE altacal
STORE 0
TO nc,ca,se
STORE SPACE(20)
TO ma
STORE 'S'
TO con,gra
DO WHILE UPPER(con)='S'
CLEAR
SELECT 1
SET ORDER TO cuentas
@ 08,15 SAY "REGISTRO DE CALIFICACIONES DE ALUMNOS"
@ 09,15 SAY "Teclee los datos del alumno al que se le capturarán sus calificaciones"
@ 11,15 SAY "No. de cuenta ...." GET nc
READ
SEEK(nc)
IF !FOUND() THEN
WAIT WINDOW "Este número de...