algoritmo

REPÚBLICA BOLIVARIANA D E VENEZUELA
MINISTERIO DEL PODER POPULAR PARA LA EDUCACIÓN
U.E.N. “NICOLÁS MEZA”
MATERIA: ALGORITMO Y PROGRAMACIÓN











Elaborada Por:
Lic. RamónCarvajal







Santa Elena de Uairén, 11/06/2013
-Se crea la tabla con el comando CREATE Y EL NOMBRE DE LA TABLA ES USUARIO
Ejemplo: Create Usuario y Presione Enter.Gráfico No. 1









Nombre del Formulario: estudiantes.scx
Create Form estudiantes.scx























Gráfico No.2Para crear el formulario se utiliza el comando CREATE FORM ESTUDIANTES.

CÓDIGO DEL BOTON REGISTRAR:
SET SAFETY OFF
SET TALK OFF
USE USUARIO
INDEX ON CI TO ORDEN
CLAVE=ALLTRIM(THISFORM.TEXT1.Value)
SEEK CLAVE
IF FOUND()
WAIT windows("Registro ya Existe Presione Cualquier Tecla Para Continuar ")
ELSE
APPEND BLANKreplace ci WITH thisform.text1.value
replace nombres WITH thisform.text2.value
replace apellidosWITH thisform.text3.value
replace direccion WITH thisform.text4.value
replace grado WITH thisform.COMBO1.value
replace seccion WITH thisform.COMBO2.value
replace edadWITH VAL(thisform.COMBO3.value)
replace fechanac WITH CTOD(thisform.text5.value)
replace foto WITH ruta
ENDIF
return

CODIGO DEL BOTON LIMPIAR:THISFORM.TEXT1.Value=""
THISFORM.TEXT2.Value=""
THISFORM.TEXT3.Value=""
THISFORM.TEXT4.Value=""
THISFORM.COMBO1.Value=""
THISFORM.COMBO2.Value=""
THISFORM.COMBO3.Value=""
THISFORM.TEXT5.Value=""THISFORM.IMAGE1.PICTURE=""


CODIGO DEL BOTON CANCELAR:
THISFORM.RELEASE

CODIGO DEL BOTON OBTENER FOTO:
ruta =GETFILE()
thisform.image1.picture=ruta

CODIGO DEL FORMULARIO:
PROCEDIMIENTO...