VISUALFOXPRO n_n

TRABAJOS VISUAL FOXPRO POR: J.MANUEL, VICENTE, ANGEL Y ALEX.
1)FABRICA@0,0 clear
clear all
release all
use fem
resp="0"
do while resp!="6"
@2,35 say "Factory J.A.V.A."
@3,1 clear
@5,20 say "Programadores: J. Manuel, Angel, Vicente, Alejandro"
@8,40 say "MENU"
@10,19 say "1.- Crear Empleados"
@10,47 say "2.- Consultar Empleado"
@13,19 say "3.- Modificar Empleado"
@13,47 say "4.- Despedir Empleado"
@16,19 say "5.- Impresión de reportes"
@16,47 say "6.- Salida"
resp=" "
do while .NOT. resp$'1,2,3,4,5,6'
@20,28 say "Opción elegida==>" get resp
read
enddo
do case
case resp="1"
do crear
case resp="2"
do ver
case resp="3"
do recrear
case resp="4"
do despedir
case resp="5"
do ide
endcase
enddo
@24,35 say "Corriendo......Para salir ª_ª"
wait
clear
close databases
close all
return
2)CREAR@8,100 say "Creacion de Empledos"
resp1="s"
DO WHILE resp1="s"
clave=0000
nombre=space(25)
puesto=SPACE(15)
turno=SPACE(1)
horario=SPACE(15)
sueldo=SPACE(10)
sind=space(1)
STORE "n" to resp2
DO WHILE resp2="n"
APPEND BLANK
@10,90 say "Clave" get clave
@11,90 say "Nombre" get nombre
@12,90 say "Puesto" get puesto
@13,90 say "Turno" get turno
@14,90 say "Horario" get horario
@15,90 say "Sueldo" get sueldo
@16,90 say "Sind" get sind
READ
@18,90 say "Datos correctos[s/n]?"get resp2
READ
ENDDO
@19,90 say "Desea crear otro Empleado [s/n] ^_^?" get resp1
READ
ENDDO
RETURN
3)VER:@6,100 say "Ver Empleados"
resp1="s"
do while resp1="s"
m=space(15)
@8,80 say "Aquien buscas U_U ?" get m

read
store "N" to resp2
Do while resp2="N"
do case
case empty(m)
loop
case eof()
@19,100 say "ERROR: SE NOS PERDIO LA PERSONA T_T"
otherwise
= CURSORSETPROP('Buffering', 5, 'fem') && Activa el almacenamiento de tablas en búfer
@10,90 say "Clave =>" get clave
@11,90 say "Nombre =>" get nombre
@12,90 say "Puesto =>" get puesto
@13,90 say "Turno=>" get turno
@14,90 say "Horario=>" get horario
@15,90 say "Sueldo=>" get sueldo
@16,90 say "Sindicalisado=>" get sind
read
if upper(resp1) = "S"
= TABLEUPDATE(.T.) && Graba los cambios
= CURSORSETPROP('Buffering', 1, 'fem') && DesActiva el almacenamiento de tablas en búfer
else
=TABLEREVERT(.T.) && Descarta todos los cambios de la tabla
= CURSORSETPROP('Buffering', 1, 'fem') && DesActiva el almacenamiento de tablas en búfer
endif
@20,90 say "BUSCAS A OTRO PERDIDO XP?" get resp1
read
@19,100 say "Deseas salir[s/N]?" get resp2
read
endcase
enddo
enddo
return

4)RECREA:

@8,100 say "Recrear Empleados"
resp1="s"
do while .T.
@9,90 clear to 20,180
m=space(10)
@9,88 say "Empleado. o <ESC> para salir"
@9,99 get m
read

locate for nombre=m

do case
case lastkey()= 27
exit
case empty(m)
loop
case eof()
@20,93 say "!! No se encuentra >.< ¡¡"
otherwise
= CURSORSETPROP('Buffering', 5, 'fem') && Activa el almacenamiento de tablas en búfer
@10,90 say "Nombre" get nombre
@11,90 say "Clave" get clave
@12,90 say "Puesto" get puesto
@13,90 say "Turno" get turno
@14,90 say "Horario" get horario
@15,90 say "Sueldo" get sueldo
@16,90 say "Sind" get sind
read
@17,90 say "Desea guardar [s/n]?" get resp1
read
if upper(resp1) = "S"
= TABLEUPDATE(.T.) && Graba los cambios
= CURSORSETPROP('Buffering', 1, 'fem') && DesActiva el almacenamiento de tablas en búfer
else
=TABLEREVERT(.T.) && Descarta todos los cambios de la tabla
= CURSORSETPROP('Buffering', 1, 'fem') && DesActiva el almacenamiento de tablas en búfer
endif
endcase
enddo
return

5)DESPEDIR:

release all
@8,100 say "Despedir >_<"
resp1="s"
do while resp1="s"
store "n" to res
m=space[15]
@9,90 say "Empleado=>" get m
read
locate for nombre=m
@10,90 say "Clave=>" get clave
@11,90 say "Nombre=>" get nombre
@12,90 say "Puesto=>" get puesto
@13,90 say "Turno=>" get turno
@14,90 say "Horario=>" get horario
@15,90 say "Sueldo=>" get sueldo
@16,90 say "Sind=>" get sind
read
@16,90 say "Desea Despedirlo[s/n]?" get res
read
if res="s"
delete
pack
endif

@18,90 say "Desea despedir a otro empleado :S[s/n]?" get resp1
read
enddo
return

6)IDE:

clear
index on nombre tag fem
resp1="s"
do while resp1="s"
go top
@0,0 clear

@3,26 say "Impresion de Empleados"
buscar=0
@7,22 say "1)Imprimir todos los empleados"
@9,22 say "2)Imprimir unico empleado"
@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 el No. de registro" get buscar
read
go buscar
@15,25 say "Clave"
@15,33 get clave
@16,25 say "Nombre"
@16,33 get nombre
@17,25 say "Puesto"
@17,33 get puesto
@18,25 say "Turno"
@18,33 get turno
@19,25 say "Horario"
@19,33 get horario
@20,25 say "Sueldo"
@20,33 get sueldo
@21,25 say "Sind"
@21,33 get sind

clear gets
resp2=" "
@25,25 say "Es la persona a imprimir s/n?" get resp2
read

if resp2="s"
display to printer
endif
endif
resp1="s"
@27,25 say "Desea hacer otra impresion s/n?" get resp1
read
enddo
go top
return