FoxPro/Visual FoxPro - programar botones aceptar y cancelar

Hola gente... estoy tratando de aprender sobre foxpro pero estoy en problemas... necesito dar de alta a una de mis tablas que se llama ciudades.... esto es lo que hice pero no funciona... y lo que tengo que hacer es completar los campos y con dos botones: aceptar y cancelar.. confirmar o anular el alta...
como tengo que hacer???
muchas gracias!!!
aa... y tampoco me anda el Salir..

ahi va mi programita:
opcion=0
DEFINE WINDOW uno FROM 10,10 TO 100,70
ACTIVATE WINDOW uno
USE ciudades
STORE SPACE(30) TO N
STORE SPACE(10) TO CP
STORE SPACE(2) TO clave
DO WHILE .t.
@ 1,1 say "ingrese nombre_<fin>salir" get N picture "@!"
READ
IF N = "fin"
EXIT
ENDIF
@ 3,1 say "Codigo Postal " get CP picture "@!"
@ 4,1 say "Clave Provincia " get clave picture "xx"
READ
@20,1 get opcion function "*H Aceptar;Cancelar" size 3,12,2
READ

DO case
CASE opcion=1
APPEND BLANK
replace nombre WITH N
replace Codigo Postal WITH CP
replace Clave provincia WITH clave

CASE opcion=2
STORE SPACE(30) TO N
STORE SPACE(10) TO CP
STORE SPACE(2) TO clave
ENDCASE
CLEAR
ENDDO
CLOSE DATABASES
DEACTIVATE WINDOW uno

Melisa:
En qué versión de fox pretendes hacer eso?. Parece Fox 2.5 ó 2.6

tengo foxpro 9.0
lo de salir con fin ya lo pude hacer....
y los de los botones no.... se me desaparecen los datos que cargo y los botones no hacen nada!

Melisa, ese programa es de foxpro 2.6 y lo estas haciendo en vfp 9.0, sabes es un desperdicio tener vfp9.0 y estar haciendo eso, deberias de reorientarte y hacerlo en vfp9.0, te saldra mas facil!!!!!.

es que me lo enseñaron asi..se solo hacerlo de esa manera y bien basico.... =(

La version de vfp9 tiene proyectos en donde es más facil programar, por ejemplo ahi puedes crear un "formulario" y en ese formulario tienes muchos objetos para tu pantalla, por ejemplo los botones ceptar y Cancelar.

Para llamar las tablas bien puedes usar el DataEnvironment del form o llamar las tablas desde el LOAD o INIT del propio formulario.

Una vez que tus tablas estén invocadas desde el formulario, solo debes hacer algo asi:

Evento Click del boton Aceptar:
Select ciudades
set order to codigo
seek thisform.text1.value
if found()
replace ciudad with thisform.text2.value
replace fecha with date()
else
local cod
select ciudades
go bott
cod=ciudades.codigo+1
append blank
replace codigo with cod
replace ciudad with thisform.text2.value
replace fecha with date()
endif

En fin, es un ejemplo sencillo de cómo guardar un validar un dato y guardarlo según sea el caso.

Suerte&#9658;

Me pueden orientar sobre algunos pdf donde pueda leer sobre esto? gracias!

Fundamentalmente la ayuda de Visual Fox
En https://sites.google.com/site/archivosvfp/ tienes varios trabajos que puedes leer.
"El humilde manual de un aprendiz" sin ser más que eso, tiene la virtud de mostrar cuestiones básicas que otros dan por sabidas.
PortalFox ha sido por años el mayor centro de ayuda.
https://groups.google.com/forum/?fromgroups#!forum/publicesvfoxpro tienes un foro un poco más activo que este y con profesionales muy capacitados.

muchas gracias!