Bases de datos

UNIVERSIDAD CATÓLICA DE EL SALVADOR
FACULTAD DE CIENCIA ECONÓMICAS

ASIGNATURA:
GESTIÓN DE BASES DE DATOS I

PRESENTADO POR:

Marzo, 2011

ACTUALIZACIÓN
USE PROPIETARIO ORDER COD_PROPI
SET DECIMALS TO 2
DO WHILE .T.
CLEAR
STORE SPACE (4) TO VN_PROP
@2,90 SAY 'ACTUALIZAR LOS PROPIETARIOS' FONT 'ARIAL BLACK', 18 STYLE 'BS'
@6,20 SAY 'INGRESE EL CODIGO DEL PROPIETARIO: ' FONT'ARIAL BLACK', 10 STYLE 'BI' GET VN_PROP FONT 'ARIAL BLACK', 8 STYLE 'BI'
READ
IF LASTKEY () = 27
EXIT
ENDIF
IF EMPTY (VN_PROP)
WAIT WINDOW 'DATO VACIO'
LOOP
ENDIF
GO TOP
SEEK VN_PROP
READ
IF NOT FOUND ()
WAIT WINDOW 'CODIGO DEL PROPIETARIO NO EXISTE'
LOOP
ENDIF
STORE SPACE (30) TO N1, N2, A1, A2
STORE SPACE (1) TO SE
STORE DATE () TO FECNAC
@8,20 SAY'PRIMER NOMBRE: ' FONT 'ARIAL BLACK',10 STYLE 'BI' GET N1 FONT 'ARIAL BLACK',10 STYLE 'BI'
@10,20 SAY 'SEGUNDO NOMBRE: ' FONT 'ARIAL BLACK',10 STYLE 'BI' GET N2 FONT 'ARIAL BLACK',10 STYLE 'BI'
@12,20 SAY 'PRIMER APELLIDO: ' FONT 'ARIAL BLACK',10 STYLE 'BI' GET A1 FONT 'ARIAL BLACK',10 STYLE 'BI'
@14,20 SAY 'SEGUNDO APELLIDO: ' FONT 'ARIAL BLACK',10 STYLE 'BI' GET A2 FONT 'ARIAL BLACK',10STYLE 'BI'
@16,20 SAY 'SEXO: ' FONT 'ARIAL BLACK',10 STYLE 'BI' GET SE FONT 'ARIAL BLACK',10 STYLE 'BI'
READ
@18,20 SAY IIF(SE = 'M,F', 'MASCULINO' ,'FEMENINO')FONT 'ARIAL BLACK',10 STYLE 'BI'
@20,20 SAY 'FECHA DE NACIMIENTO: ' FONT 'ARIAL BLACK',10 STYLE 'BI' GET FECNAC
READ
RESPUESTA = MESSAGEBOX ("¿DESEA ACTUALIZAR EL REGISTRO?", 4+32)
DO CASE
CASE respuesta = 6
UPDATEpropietario SET nombre1 = N1, nombre2 = N2, apellido1 = A1, apellido2 = A2, sexo = SE, fec_nac = FECNAC WHERE cod_propi = (VN_PROP)
MESSAGEBOX("¿desea actualizar otro registro?", 4+32)
IF respuesta =6 then
LOOP
ELSE respuesta =7 then
exit
ENDIF
CASE respuesta = 7
EXIT
ENDCASE
ENDDO
2º se Ingresan los datos a modificar, después de ingresar todos los datos requeridos.
3ºpreguntara si se desea actualizar el registro.
1º se ingresa el código del Propietario al cual se le desea actualizar sus datos.

4º preguntara si se desea modificar otro registro si se le escribe que no saldrá del programa.

Si el código del Propietario no existe mostrara el siguiente mensaje

CONSULTA
USE propietario ORDER cod_propi
SET DECIMALS TO 2
DO WHILE .T.
CLEAR

STORE SPACE (4)TO VC_PROP
@3,80 say 'CONSULTA DE REGISTROS' FONT 'ARIAL BLACK', 18 STYLE 'BS'
@6,20 SAY 'INGRESO EL CODIGO DEL PROPIETARIO: ' FONT 'ARIAL BLACK', 10 STYLE 'BI' GET VC_PROP FONT 'ARIAL BLACK', 8 STYLE 'BI'
READ

IF LASTKEY () = 27
EXIT
ENDIF

IF EMPTY (VC_PROP)
WAIT WINDOW 'DATO VACIO'
LOOP
ENDIF
GO top
SEEK VC_PROP
read
IF NOT FOUND () then
WAIT WINDOW 'ELCODIGO DEL PROPIETARIO NO EXISTE'
LOOP
ELSE

STORE nombre1 TO n1
STORE nombre2 TO n2
STORE apellido1 TO a1
STORE apellido2 TO a2
STORE sexo TO se
STORE fec_nac TO fecnac

@8,20 SAY 'PRIMER NOMBRE: ' FONT 'ARIAL BLACK',10 STYLE 'BI'
@8,60 SAY n1 FONT 'ARIAL BLACK',10 STYLE 'BI'
@10,20 SAY 'SEGUNDO NOMBRE: ' FONT 'ARIAL BLACK',10 STYLE 'BI'
@10,60 SAY n2 FONT 'ARIAL BLACK',10STYLE 'BI'
@12,20 SAY 'PRIMER APELLIDO: ' FONT 'ARIAL BLACK',10 STYLE 'BI'
@12,60 SAY a1 FONT 'ARIAL BLACK',10 STYLE 'BI'
@14,20 SAY 'SEGUNDO APELLIDO: ' FONT 'ARIAL BLACK',10 STYLE 'BI'
@14,60 SAY a2 FONT 'ARIAL BLACK',10 STYLE 'BI'
@16,20 SAY 'SEXO: ' FONT 'ARIAL BLACK',10 STYLE 'BI'
@16,60 SAY se FONT 'ARIAL BLACK',10 STYLE 'BI'
@20,20 SAY 'FECHA DE NACIMIENTO: ' FONT 'ARIAL BLACK',10STYLE 'BI'
@20,60 SAY fecnac

ENDIF

READ

ENDDO

1º se ingresa el código del Propietario que se desea consultar.

Se mostrara la fecha de nacimiento solo que en este caso está definida la fecha del sistema.

Después de ingresar el código se devera dar enter.
2º se mostraran cada uno de los datos del Propietario seleccionado.

Si no existe el código del propietario se mostrara...