Como realizar programas en Visual FoxPro

GLOSARIO

• Append: Agrega uno o más registros nuevos al final de una tabla. 

• Blank: Agrega un registro en blanco al final de la tabla activa. Visual FoxPro no abre ninguna ventana de edición cuando usted ejecuta APPEND BLANK. 

• Créate: Crea una nueva tabla de Visual FoxPro. 

• Do while: Ejecuta un conjunto de comandos dentro de un bucle condicional. 

• Endif: Ejecuta condicionalmente un conjunto de comandos dependiendo del resultado de una expresión lógica. 

• Eof() :Determina si el puntero de registro está situado o no más allá del último registro de la tabla actual o especificada. 

• Go top: Coloca el puntero de registro en el número de registro especificado de una tabla. 

• Locate: Busca secuencialmente en la tabla el primer registro que coincida con la expresión lógica especificada. 

• Pack: Borra definitivamente todos los registros marcados para eliminar de la tabla actual y reduce el tamaño de un archivo memo asociado a la tabla. 

• Quit: Termina la sesión actual de Visual FoxPro y devuelve el control al sistema operativo. 

• SET SCOREBOARD: se utiliza en combinación con el comando SET STATUS para determinar dónde se muestran mensajes informativos en la pantalla. 

• Set talk off: Determina si Visual FoxPro muestra o no los resultados de los comandos. 

• Skip: Mueve el puntero de registro hacia adelante o hacia atrás en una tabla. 

• Store: Almacena datos en una variable, en una matriz o en un elemento de matriz. 

• Use: Abre una tabla y sus archivos de índice asociados, o una vista SQL. 

• Wait: Muestra un mensaje y detiene la ejecución de Microsoft Visual FoxPro hasta que el usuario presione una tecla o haga clic con el mouse (ratón). 

Visual FoxPro

es un lenguaje de programación procedural, orientado a objetos que posee un Sistema Gestor de Bases de datos o Database Management System (DBMS) y Sistema administrador de bases de datos relacionales, producido por Microsoft.

PASO I

Primeramente debes abrir visual FoxPro. Seguido de esto se abrirá una ventana de comandos en el cual deberas crear una ventana en la cual programar.




En este caso se llamara 'Intento1' y se trata del ingreso de empleados de x empresa. En el cuadro que aparesca deveras empesar a programar, dependiendo de lo que el usuario desee:

INGRESO

use empleados
store 0 to c
store "s" to seguir
do while seguir <> "n"
clear
@ 2,30 say "Programa de Ingreso"
@ 4,10 say "Expediente" get c
read
locate for expediente = c
if eof ()
append blank
replace expediente with c
@ 7,2 say "Empleado" get nombre
@ 9,2 say "Edad" get edad
@ 11,2 say "Puesto" get puesto
@ 13,2 say "Salario" get salario
@ 15,2 say "Fecha Actual" get fecha
read
@ 20,5 say "Desea seguir s/n" get seguir
read
endif
enddo
clear

PASO II

En el paso dos debes realizar una tabla que registre las variables que deseas ingresar. Al escribir el "create" has creado la tabla donde se registraran los ingresos; y lo siguiente a realizar es modificar la tabla, en este espacio solamente debes escribir en orden el nombre que le colocaste a las variables.

 

PASO III

En este paso debes realizar la consulta general, Que se refiere a la consulta de todos los trabajadores ingresados.


CONSULTA GENERAL

use empleados
store 1 to fila
go top
clear
do while.not. eof()
@ fila,2 say expediente pict "999"
@ fila,5 say nombre
@ fila,25 say edad pict "999"
@ fila,33 say puesto
@ fila,45 say salario pict "999"
@ fila,55 say fecha
fila =fila+1
if fila>22
read
wait
clear
fila=1
endif
skip
enddo

PASO IV

Así mismo con la consulta general hay una individual que es la que se refiere a consultar uno por uno de los empleados ingresados.

CONSULTA INDIVIDUAL

set talk off

set scoreboar off

store 0 to c

store "s" to seguir

use empleados

do while seguir <> "n"

clear

@ 1,30 say "Ingrese expediente a consultar" get c

Read

Locate for expediente = c

If eof ()

Clear

@ 10,10 say "Expediente no existente"

else

@ 2,8 say nombre

@ 4,8 say edad

@ 6,8 say puesto

@ 8,8 say salario

@ 10,8 say fecha

read

endif

@ 20,1 say "Desea seguir s/n" get seguir

read

enddo

PASO V

En este espacio debes realizar la modificación, que es en la cual puedes editar la información de lo que hayas ingresado.

MODIFICACIÓN

set talk off

set scoreboard off

store 0 to c

store "s" to seguir

use empleados

do while seguir <> "n"

clear

@ 2,30 say "Expediente a modificar" get c

read

locate for expediente = c

if eof ()

clear

@ 1,50 say "Expediente no existe"

else

@ 2,8 say "nombre" get nombre

@ 4,8 say "edad" get edad

@ 6,8 say "puesto" get puesto

@ 8,8 say "salario" get salario

@ 10,8 say "fecha" get fecha

read

endif

@ 20,1 say "Desea seguir s/n" get seguir

read

enddo

PASO VI

Como paso VI realizar una eliminación, dicha se conformara al ingresar el numero de expediente que al seleccionarlo solo se elimine el ingreso del empleado.

ELIMINACIÓN 

set talk off 

set scoreboard off

use empleados

store 0 to c

store "s" to seguir

do while seguir <> "n"

clear

@ 2,30 say "Eliminacion"

@ 4,20 say "Expediente a eliminar" get c

read

locate for expediente = c

if eof ()

clear

@ 10,10 say "Expediente no existente"

else

delete

pack

endif

@ 14,20 say "Desea seguir s/n" get seguir

read

enddo

PASO VII

Como paso final solo se deberá hacer el menú o bien la apariencia para dirigirse a los programas deseados.

MENÚ

store 0 to fila

do while fila <> 24

fila = fila+1

enddo

do while .t.

set color to r/w

clear

@ 2,30 say "menu"

@ 4,30 prompt "Ingreso"

@ 6,30 prompt "Consulta general"

@ 8,30 prompt "Consulta individual"

@ 10,30 prompt "Modificacion"

@ 12,30 prompt "Eliminacion"

@ 14,30 prompt "Salir a fox"

@ 16,30 prompt "Salir del sistema"

menu to op

do case

case op=1

do intento1

read

clear

case op=2

do consulta1

read

clear

case op =3

do consulta2

read

case op =4

do modificacion

read

clear

case op = 5

do eliminacion

read

clear

case op =6

exit

read

clear

case op =7

quit 

read

clear

endcase

enddo

clear

En la ventana de los comandos deberán ir cada uno de los nombres de cada uno de los formularios que abrió, Dependiendo también de las veces que compilo sus programas.

Al finalizar con las programaciones eh irlas compilando la apariencia dependiendo de la paciencia y creatividadde como lo desee deberá quedar por ejemplo de la siguiente manera.

                            

MENÚ

INGRESO

 

CONSULTA GENERAL

CONSULTA INDIVIDUAL

MODIFICACIÓN

ELIMINACIÓN