Varias Tablas
Publicado por Edwin (31 intervenciones) el 22/08/2010 06:31:43
Hola amigos, estoy trabajando en un proyecto que me asignaron en la universidad, el proyecto consiste en un sistema de matricula y notas.
El problema que actualmente me tiene parado es que en un form estoy trabajando con tres tablas:
Tabla registro (aki almaceno todos los datos de los alumnos)
Tabma materias (aki registro las materias que se imparten, ejm Español(ESPCBT1)
Tabla notas(aki registro las notas, para ello tengo tres campos que me ayuden a coordinar de manera eficiente losdatos, dichos campos son:
* rne (llave del alumno)
* cod_mat (codigo de la materia en la que se kiere registrar notas)
* año (lo utilizo para organizar por años las notas)
el codigo que stoy utilizando es el siguiente,
Evento click del combo año
SELECT 3
SET ORDER TO AÑO
SET ORDER TO COD_MAT
SET FILTER TO COD_MAT=THISFORM.TXTCOD_MAT.VALUE
SET FILTER TO RNE=THISFORM.TXTRNE.VALUE
SEEK (ALLTRIM(THISFORM.CMBAÑO.Value))
IF FOUND()
WAIT WINDOW "Ya hay notas este año"time 1
THISFORM.TXTIPARCIAL.Value=NOTA1
THISFORM.TXTIIPARCIAL.Value=NOTA2
THISFORM.TXTIIIPARCIAL.Value=NOTA3
THISFORM.TXTIVPARCIAL.Value=NOTA4
THISFORM.TXTPROMEDIO.Value=PROM
THISFORM.TXTOBSERV.Value=OBSERV
THISFORM.TXTREC1.Value=REC1
THISFORM.TXTREC2.Value=REC2
thisform.btnguardar.Enabled=.f.
thisform.btnmodificar.Enabled=.t.
thisform.btneliminar.Enabled=.t.
thisform.btnimprimir.Enabled=.t.
thisform.btncancelar.Enabled=.t.
thisform.refresh
ELSE
WAIT window"No hay matricula para este año"time 1
THISFORM.TXTIPARCIAL.SETFOCUS
THISFORM.TXTIPARCIAL.Value=""
THISFORM.TXTIIPARCIAL.Value=""
THISFORM.TXTIIIPARCIAL.Value=""
THISFORM.TXTIVPARCIAL.Value=""
THISFORM.TXTPROMEDIO.Value=""
THISFORM.TXTOBSERV.Value=""
THISFORM.TXTREC1.Value=""
THISFORM.TXTREC2.Value=""
thisform.btnguardar.Enabled=.t.
thisform.btnmodificar.Enabled=.f.
thisform.btneliminar.Enabled=.f.
thisform.btnimprimir.Enabled=.f.
thisform.btncancelar.Enabled=.t.
thisform.Refresh
ENDIF
si alguien sabe como ayudarme de antemano agradezco su colaboracion, tambien puedo enviar el form para que vean detenidamente lo que estoy haciendo.
El problema que actualmente me tiene parado es que en un form estoy trabajando con tres tablas:
Tabla registro (aki almaceno todos los datos de los alumnos)
Tabma materias (aki registro las materias que se imparten, ejm Español(ESPCBT1)
Tabla notas(aki registro las notas, para ello tengo tres campos que me ayuden a coordinar de manera eficiente losdatos, dichos campos son:
* rne (llave del alumno)
* cod_mat (codigo de la materia en la que se kiere registrar notas)
* año (lo utilizo para organizar por años las notas)
el codigo que stoy utilizando es el siguiente,
Evento click del combo año
SELECT 3
SET ORDER TO AÑO
SET ORDER TO COD_MAT
SET FILTER TO COD_MAT=THISFORM.TXTCOD_MAT.VALUE
SET FILTER TO RNE=THISFORM.TXTRNE.VALUE
SEEK (ALLTRIM(THISFORM.CMBAÑO.Value))
IF FOUND()
WAIT WINDOW "Ya hay notas este año"time 1
THISFORM.TXTIPARCIAL.Value=NOTA1
THISFORM.TXTIIPARCIAL.Value=NOTA2
THISFORM.TXTIIIPARCIAL.Value=NOTA3
THISFORM.TXTIVPARCIAL.Value=NOTA4
THISFORM.TXTPROMEDIO.Value=PROM
THISFORM.TXTOBSERV.Value=OBSERV
THISFORM.TXTREC1.Value=REC1
THISFORM.TXTREC2.Value=REC2
thisform.btnguardar.Enabled=.f.
thisform.btnmodificar.Enabled=.t.
thisform.btneliminar.Enabled=.t.
thisform.btnimprimir.Enabled=.t.
thisform.btncancelar.Enabled=.t.
thisform.refresh
ELSE
WAIT window"No hay matricula para este año"time 1
THISFORM.TXTIPARCIAL.SETFOCUS
THISFORM.TXTIPARCIAL.Value=""
THISFORM.TXTIIPARCIAL.Value=""
THISFORM.TXTIIIPARCIAL.Value=""
THISFORM.TXTIVPARCIAL.Value=""
THISFORM.TXTPROMEDIO.Value=""
THISFORM.TXTOBSERV.Value=""
THISFORM.TXTREC1.Value=""
THISFORM.TXTREC2.Value=""
thisform.btnguardar.Enabled=.t.
thisform.btnmodificar.Enabled=.f.
thisform.btneliminar.Enabled=.f.
thisform.btnimprimir.Enabled=.f.
thisform.btncancelar.Enabled=.t.
thisform.Refresh
ENDIF
si alguien sabe como ayudarme de antemano agradezco su colaboracion, tambien puedo enviar el form para que vean detenidamente lo que estoy haciendo.
Valora esta pregunta


0