visual foxpro

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

No hay comentarios:

Publicar un comentario