FoxPro/Visual FoxPro - necesito crear una agenda

 
Vista:

necesito crear una agenda

Publicado por Mónica (2 intervenciones) el 30/07/2009 20:38:17
Hola mi nombre es Mónica
Necesito ayuda estoy haciendo un menu de opciones de una agenda

define windo principal from 1,1 to 30,100 title "Ventana de programación"system grow minimize zoom close
activate window principal
clear
@5,35 say "Agenda" font "castellar",16 color r+/w* style "b"
@1,1 to 20,80 pen 5 style "97"
ag=0
@10,8 get ag function "*th <Ingreso;<Consultar;<Modificar;<Eliminar;<Salir"size 2,10,2
read cycle
do case
case ag=1
do Ingreso
case ag=2
do Consultar
case ag=3
do Modificar
case ag=4
do Eliminar
case ar=5
do salir
deactivate window proyectofx

*wait "Digite una tecla para salir"
endcase
****************************************************************
y ya tengo el ingreso ahora me falta modificar, consultar y eliminar x fa ayudenme...

store 0 to tof,tca,tmo,fax
store space (25) to nom,ape,ciu,dir,ema
clear
use agenda
append blank
@2,25 say "Ingreso de datos en agenda"
@3,25 say "---------------------------"
@6,2 say "Nombre:"
@8,2 say "Apellido:"
@10,2 say "Telefono oficina:"
@12,2 say "Telefono casa:"
@14,2 say "Telefono movil:"
@16,2 say "Fax:"
@18,2 say "Ciudad:"
@20,2 say "Direccion:"
@22,2 say "Email:"
@6,18 get nom
@8,18 get ape
@10,18 get tof pict "9999999999999999"
@12,18 get tca pict "9999999999999999"
@14,18 get tmo pict "9999999999999999"
@16,18 get fax pict "9999999999999999"
@18,18 get ciu
@20,18 get dir
@22,18 get ema
read
replace nombre with nom
replace apellido with ape
replace telefono_oficina with tof
replace telefono_casa with tca
replace telefono_movil with tmo
replace fax with fax
replace ciudad with ciu
replace direccion with dir
replace email ema
browse
store 0 to b
@24,2 get b pict "@*th Continuar;<Salir;<Regresar" size 2,10,2
read cycle
do case
case b=1
do ingreso
case b=2
quit
endcase
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:necesito crear una agenda

Publicado por Gabriel (427 intervenciones) el 19/09/2009 01:16:59
Amiga Monica :

Lastima que ya no tengo a la mano los fuentes de mis programas en foxpro para D.O.S. como comprenderas ahora en Visual foxpro la codificacion ha variado notablemente.

No obstante encontre dias atras un link con cierta teorica con ejemplos practicos que te pueden servir de ayuda...

Aqui el link...

http://www.monografias.com/trabajos4/foxpro/foxpro.shtml

Espero haber contribuido en algo a resolver tus dudas...

Saludos,

Gabriel
(lima-Perú)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar