Visual FoxPro

PROGRAMAS


MENU
@0,0 clear
clear all
release all
use libreta
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 libreta
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 libreta
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 libreta
index on nom tag libreta
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