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
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
0