Interezante

MANUAL TECNICO

CLUB KArZO’s
Zamora, Michoacán.

Productoras Generales:
Erika Guadalupe Amezcua Sánchez
Y
Dania Marcela Rios Chávez.

Este programa fue elaborado gracias al programa VisualFoxPRO y a las ideas de nuestras productoras generales.

El formulario principal tiene un cuadro de texto, un botón para ingresar al CLUB KArZO’s y un botón de salida, enseguida se explicará elcontenido de su código:
• Este codigo se encuentra en el formulario de bienvenida
select tablausuario
thisform.refresh()
thisform.label1.visible=.f.
thisform.text1.visible=.f.
thisform.command1.visible=.f.
thisform.text1.setfocus
thisform.label3.visible=.f.
• El siguiente código es del botónlocalizado como buscar
buscar=alltrim(upper(thisform.text1.value))
if !empty (buscar)
select tablausuario
go top
locate for nombre=buscar
if found()
thisform.text1.value=nombre
do form principal.scx
thisform.refresh()
else
messagebox ("NO ESTA REGISTRADO ESE NOMBRE",16)desea=messagebox ("DESEA REGISTRARSE?",292)
if desea=6 then
do form formulario1.scx.
endif
endif
else
messagebox("DEBES COLOCAR UN NOMBRE")
endif
• El siguiente código es del botón localizado como salir
thisform.release

En el cuadro de texto tecleas tu nombre para verificar siestas en la lista de CLUB KArZO’s si no estas registrado, entraras a uno de los formularios en donde podrás registrarte gratuitamente.

Ya dentro de CLUB KArZO’s tendrás acceso a cualquier CLUB.

En el formulario para registrarte tenemos varios botones los cuales son:
Buscar en el cual podrás buscar tu información personal y si deseas poder cambiar información sin ningún problema. Existenvarios cuadros de texto en los cuales podrás ingresar tu información personal. Hay un botón de registrar por si no estas registrado poder registrarte para que puedas disfrutar de CLUB KArZO’s. Se encuentran también un botón de guardar el cual guarda tu información, uno de vista previa y uno de impresión, varios botones para buscarte de entre todos nuestros usuarios y un botón de salida.• En el formulario se encuentra el siguiente código
select tablausuario
go top
thisform.text1.setfocus
thisform.text2.value=nombre
thisform.text3.value=apellido
thisform.text4.value=direccion
thisform.text5.value=edad
thisform.text6.value=telefono
thisform.combo2.additem("MASCULINO")
thisform.combo2.additem ("FEMENINO")
thisform.combo2.value=sexo
thisform.refresh()
• El siguiente código es del botón localizado como buscar
buscar=alltrim(upper(thisform.text1.value))
if !empty (buscar)
select tablausuario
go top
locate for nombre=buscar
if found()thisform.text2.value=nombre
thisform.text3.value=apellido
thisform.text4.value=direccion
thisform.text5.value=edad
thisform.text6.value=telefono
thisform.combo2.value=sexo
thisform.refresh()
else
messagebox ("NO ESTA REGISTRADO ESE NOMBRE",16)
messagebox("REGISTRATE Y FORMA PARTE DE NOSOTROS",32)
endif
else
messagebox ("DEBES DE COLOCAR UN NOMBRE",64)
endif
• Este código se encuentra como el botón de registrar
thisform.text1.setfocus
use tablausuario order usuario
go top
nom=alltrim(upper(thisform.text2.value))
ape=alltrim(upper(thisform.text3.value))...