Proyecto Final
MENU
@0,0 clear
clear all
release all
use agenda
resp="0"
do while resp!="6"
@12,5 say "Proyecto Final"
@3,1 clear
@5,20 say "Programadores: J. Manuel S., Yesenia, Damaris, Viridiana"
@8,35 say "Menu General"
@10,19 say "1.- Añadir Registros"
@10,47 say "2.- Consultar Registros"
@13,19 say "3.- Modificar Registros"
@13,47 say "4.- Eliminar Registros"
@16,19 say "5.-Impresión de Reportes"
@16,47 say "6.- Salida del Programa"
resp=" "
do while .NOT. resp$'1,2,3,4,5,6'
@22,28 say "Opcion Elegida ==>" get resp
read
enddo
do case
case resp="1"
do altas
case resp="2"
do consultas
case resp="3"
do modificar
case resp="4"
do bajas
case resp="5"
do impresion
endcase
enddo
@24,35 say "Pulse una Tecla Para Salir..."
wait
clear
close databases
close all
return
ALTAS
@8,100 say "Altas de Registros"
resp1="S"
do while resp1="S"
nom=space(25)
dir=space(35)
tel=space(15)
sexo=space(19)
ed=00
store "N" to resp2
do while resp2="N"
append blank
@10,90 say "Nombre" get nom
@11,90 say "Dirección" get dir
@12,90 say "Telefono" get tel
@13,90 say "Sexo" get sexo
@14,90 say "Edad" get ed
read
@17,90 say "Datos Correctos [S/N]?" get resp2
read
enddo
@19,90 say "Desea Añadir Otro Registro [S/N]?" get resp1
read
enddo
return
CONSULTAS
use agenda
index on nom tag nom
nom= space (25)
dir= space (35)
tel= space (15)
sexo= space (1)
edad= 00
resp1="s"
do while resp1="s"
@6,100 say "consultas"
@7,100 say "Programadores:Zaira ,Alicia,Jesica y Diana"
no=space (15)
@8,100 say "¿De quien quieres informacion:?" get no
read
if seek (no)
@ 10,90 say " Nombre=>" get nom
@ 11,90 say " Direccion=>" get dir
@ 12,90 say " Telefono=> " get tel
@ 13,90 say " Sexo=>" get sexo
@ 14,90 say " Edad=>" get edad
else
@16,100 say " Error: No se encontro la persona"
EndIf
@ 17,100 say "¿Buscas a alguien mas[S/N]?" get resp1
read
Enddo
BAJAS
use agenda
index on nom tag nom
nom= space (25)
dir= space (35)
tel= space (15)
sexo= space (1)
edad= 00
resp1="s"
do while resp1="s"
@6,100 say "consultas"
@7,100 say "Programadores:Zaira ,Alicia,Jesica y Diana"
no=space (15)
@8,100 say "¿De quien quieres informacion:?" get no
read
if seek (no)
@ 10,90 say " Nombre=>" get nom
@ 11,90 say " Direccion=>" get dir
@ 12,90 say " Telefono=> " get tel
@ 13,90 say " Sexo=>" get sexo
@ 14,90 say " Edad=>" get edad
else
@16,100 say " Error: No se encontro la persona"
EndIf
@ 17,100 say "¿Buscas a alguien mas[S/N]?" get resp1
read
Enddo
IMPRESION
use agenda
index on nom tag agenda
resp1="s"
do while resp1="s"
go top
@0,0
clear
@1,30 say "programadores:Viviana,Dulce,Alejandro,Natalia;Benjamin"
@3,26say "impresion de registros..."
buscar=0
@7,22 say "1)imprimir todos los registros"
@9,22 say "2)imprimir un solo registro especifico"
@12,22 say"¿Que desea hacer?"get buscar
read
if buscar=1
list to printer
else if buscar =2
go top
buscar =0
@13,15 say "introdusca el No.registro a imprimir:" get buscar
read
go buscar
@15,25 say "nombre"
@15,33 get nom
@17,25 say "direccion"
@17,33 get dir
@19,25 say "telefono"
@19,33 get tel
@21,25 say "sexo"
@21,33 get sexo
@23,25 say "edad"
@23,33 get edad
clear gets
resp=" "
@25,25 say "¿es la persona a imprimir [s/n]:" get resp1
read
resp2=" "
if resp2="s"
display to printer
endif
endif
resp1="s"
@27,25 say "¿desea hacer otra impresion?[s/n]:"
read
enddo
go top
return
Biblioteca
MENU
@0,0 clear
clear all
release all
use biblioteca
resp="0"
do while resp!="6"
@12,5 say "Biblioteca"
@3,1 clear
@5,20 say "Programadores: J. Manuel S., Yesenia, Damaris, Viridiana"
@8,35 say "Menu General"
@10,19 say "1.- Añadir Libros"
@10,47 say "2.- Consultar Libros"
@13,19 say "3.- Modificar Libros"
@13,47 say "4.- Eliminar Libros"
@16,19 say "5.-Impresión de Reportes"
@16,47 say "6.- Salida del Programa"
resp=" "
do while .NOT. resp$'1,2,3,4,5,6'
@22,28 say "Opcion Elegida ==>" get resp
read
enddo
do case
case resp="1"
do altas_biblio
case resp="2"
do consultas_biblio
case resp="3"
do modificar_biblio
case resp="4"
do bajas_biblio
case resp="5"
do impresion_biblio
endcase
enddo
@24,35 say "Pulse una Tecla Para Salir..."
wait
clear
close databases
close all
return
ALTAS
@8,100 say "Altas de Libros"
resp1="S"
do while resp1="S"
cve_libro=space(10)
titulo=space(35)
autor=space(30)
editorial=space(35)
edicion=(30)
store "N" to resp2
do while resp2="N"
append blank
@10,90 say "Clave del Libro" get cve_libro
@11,90 say "Titulo" get titulo
@12,90 say "Autor" get autor
@13,90 say "Editorial" get editorial
@14,90 say "Edicion" get edicion
read
@17,90 say "Datos Correctos [S/N]?" get resp2
read
enddo
@19,90 say "Desea Añadir Otro Libro [S/N]?" get resp1
read
enddo
return
CONSULTAS
use Biblioteca
index on cve_libro tag biblioteca
cve_libro= space (25)
Titulo= space (35)
autor= space (30)
editorial= space (30)
edicion= 00
resp1="s"
do while resp1="s"
@6,100 say "Consultas de Libros"
no=space (15)
@8,100 say "¿De que libro quieres informacion:?" get cve_libro
read
if seek (no)
@ 10,90 say " Clave del Libro=>" get cve_libro
@ 11,90 say " Titulo=>" get Titulo
@ 12,90 say " Autor=> " get autor
@ 13,90 say " Editorial=>" get editorial
@ 14,90 say " Edicion=>" get edicion
else
@16,100 say " Error: No se encontro la persona"
EndIf
@ 17,100 say "¿Buscas algun libro mas[S/N]?" get resp1
read
Enddo
MODIFICAR
use biblioteca
index on cve_libro tag biblioteca
resp1="s"
vcve_libro=space(15)
vtitulo=space(2)
vautor=space(20)
veditorial=space(13)
vedicion=space(1)
do while resp1="s"
@5,90 say "Clave del Libro a Buscar:" get cve_libro
read
seek vcve_libro
@5,90 say "Menu de Modificaciones"
@8,90 say "1.-Clave del Libro:" +vcve_libro
@9,90 say "2.-Titulo:" +vtitulo
@10,90 say "3.-Autor:" +vautor
@11,90 say "4.-Editorial:" +veditorial
@12,90 say "5.-Edicion:" +vEdicion
@14,90 say "6.-Ninguno"
resp=" "
do while .NOT. resp$'1,2,3,4,5,6'
@22,28 say "¿Que Libro Desea Modificar?" get resp
read
enddo
do case
case resp='1'
@8,101 get vcve_libro
read
replace cve_libro with vcve_libro
case resp='2'
@9,99 get vtitulo
read
replace titulo with vtitulo
case resp='3'
@10,103 get vautor
read
replace autor with vautor
case resp='4'
@11,101 get veditorial
read
replace editorial with veditorial
case resp='5'
@12,99 get vedicion
read
replace edicion with vedicion
endcase
@23,90 say "Desea Modificar Otro Libro [S/N]?" get resp1
read
enddo
return
BAJAS
use biblioteca
index on cve_libro tag biblioteca
@8,100 say "Eliminar Libros"
@9,100 say "Programadores: J.Manuel Salazar, Damaris, Viridiana y Yesenia"
resp="S"
do while resp="S"
cve=space(30)
@10,90 say "Clave del Libro que Desea Eliminar:" get cve_libro
read
seek cve
@12,90 say cve_libro
@13,90 say Titulo
@15,90 say "1. Marcar"
@16,90 say "2. Eliminar Definitivamente"
@17,90 say "3. Ninguno"
resp=" "
do while .NOT. resp$'1,2,3'
@18,90 say "Opcion:" get resp
read
do case
case resp='1'
delete
case resp='2'
pack
endcase
enddo
@22,90 say "Desea Eliminar Otro Libro [S/N]?" get resp
read
enddo
return
IMPRESION
use biblioteca
index on cve_libro tag biblioteca
resp1="s"
do while resp1="s"
go top
@0,0
clear
@3,26say "Impresion de Registros..."
buscar=0
@7,22 say "1)Imprimir Todos los Registros de Libros"
@9,22 say "2)imprimir un Solo Registro de Libro Especifico"
@12,22 say"¿Que desea hacer?"get buscar
read
if buscar=1
list to printer
else if buscar =2
go top
buscar =0
@13,15 say "Introduzca la Clave del Libro a Imprimir:" get buscar
read
go buscar
@15,25 say "Clave del Libro"
@15,33 get cve_libro
@17,25 say "Autor"
@17,33 get autor
@19,25 say "Editorial"
@19,33 get editorial
@21,25 say "Edicion"
@21,33 get edicion
clear gets
resp=" "
@25,25 say "¿Es el Libro a Imprimir [s/n]:" get resp1
read
resp2=" "
if resp2="s"
display to printer
endif
endif
resp1="s"
@27,25 say "¿Desea Hacer Otra Impresion?[s/n]:"
read
enddo
go top
return
