Foxpro

MI PRIMER PROYECTO EN VISUAL FOXPRO 6.0

PROBLEMA APLICATIVO SQL

El siguiente problema es una aplicación de las instrucciones de SQL.
Paso 1.- Crear proyecto con el generador de proyectos
· Carpeta : D:\SQLFOX10
· Proyecto : Proy1
· Base de datos: datos1
· Tablas y relacionamiento.

Paso 2.- Creación de formularios.
Formulario de ingreso de contraseña

· 
Dos clic en boton aceptar(clic)
if thisform.text1.value="empleado" THEN
MESSAGEBOX ("La Clave correcta")
DO FORM inicio
else
messagebox("La Clave es Incorrecta")
THISFORM.REFRESH
endif
· Dos clic en el boton salir (clic)
thisform.release
· Dos clic en time1 (timer)
thisform.marquee.caption="BIENVENIDOS AL SISTEMA DE INGRESO Y CALCULOS DE SUELDO DE EMPLEADO"
thisform.marquee.left=thisform.marquee.left-100
ifthisform.marquee.left<=-500 thisform.marquee.left=200 endif

· Dos clic en time2 (timer)
if thisform.hora.caption !=time()
thisform.hora.caption =time()
endif

· Formulario 2
· 
Dos clic en form1 (activate)
set defa to E:\SQLFOX10
·Dos clic en ver relacionamiento de tablas (clic)
modify database
·Dos clic en administrador de categorias(clic)
do form categorias
·Dos clic enregistro de datos de empleado(clic)
do form empleados
·Dos clic en calculo de sueldo (clic
do form sueldos
·Dos clic en salir (clic)
Thisform.release

Formulario 3

· DOS CLIC EN FORMULARIO (ACTIVATE)
close database
open database ("E:\SQLFOX10\datos1")
· DOS CLIC EN EL BOTON MOSTRAR (CLIC)
select categoria.categoria,prehora from categoria

· DOS CLIC EN EL BOTON GRABAR (CLIC)
withthisform
use categoria
insert into categoria(categoria,prehora)values(.text1.value,val(.text2.value))
=messagebox("Este Registro fue Grabado")
endwith
· DOS CLIC EN EL BOTON TEXT1 (INTERACTIVE CHANGE)
with thisform
titulo='Resultado de Registro'
texto = 'Este Registro['+.text1.value+'] ya Existe.....desea Eliminarlo?'
tipo = 4+32+256
use categoria
go top
flag = 0
do while !eof()
ifrtrim(ltrim(.text1.value))=ltrim(rtrim(categoria))
.text2.value = prehora
flag = 1
endif
skip
enddo
if flag = 1
opcion = Messagebox(texto,tipo,titulo)
do case
case opcion = 6
delete from categoria where categoria = thisform .text1.value
wait window "eligio si....el registro['+.text1.value+']fue eliminado"
pack
.text1.value = ""
.text2.value = ""
.text1.setfocus
endcase
endif
endwith
·DOS CLIC EN EL BOTON SALIR (CLIC)
thisform.release
CREANDO FORMULARIOS DE INGRESO DE EMPLEADOS

· DOS CLIC EN EL BOTON PRIMERO(CLIC)
SELECT sueldo
GO TOP
MESSAGEBOX("ESTE ES EL PRIMER REGISTRO")
THISFORM.REFRESH
· DOS CLIC EN EL BOTON SIGUIENTE(CLIC)
SELECT sueldo
SKIP
IF EOF()
GO BOTTOM
MESSAGEBOX("ESTE ES EL PRIMER REGISTRO")
ENDIF
THISFORM.REFRESH
· DOS CLIC EN EL BOTONANTERIOR (CLIC)
SELECT sueldo
SKIP -1
IF BOF()
GO TOP
MESSAGEBOX("ESTE ES EL ULTIMO REGISTRO")
ENDIF

THISFORM.REFRESH
· DOS CLIC EN EL BOTON FINAL(CLIC)
SELECT sueldo
GO BOTTOM

MESSAGEBOX("ESTE ES EL ULTIMO REGISTRO...")
THISFORM.REFRESH

· DOS CLIC EN FORMULARIO (ACTIVATE)
with thisform
set defa to E:\SQLFOX10
close table all
use empleados
go bottom
.txtDni.value= dni.txtNombre.value= nombre
.txtDireccion.value= direccion
.combo1.value= sexo
.combo2.value= categoria
endwith
· DOS CLIC EN EL BOTON GUARDAR (CLIC)
with thisform
use empleados
insert into empleados(dni,nombre,direccion,sexo,categoria)values ;
(.txtDni.value,.txtNombre.value,.txtDireccion.value,.combo1.value,.combo2.value)
=messagebox("ESTE REGISTRO FUE GUARDADO")
endwith
· DOS CLIC EN BOTONELIMINAR TODOS LOS REGISTROS (CLIC)
Close database
Open database ("E:\SQLFOX10\datos1")
Use empleados
Delete fromempleados
· DOS CLIC EN BOTON ELIMINAR (CLIC)
SELECT empleados
MEN=MESSAGEBOX("ESTA SEGURO DESEA ELIMINAR",4+32+256,"ADVERTENCIA")
do case
case MEN=6
DELETE
PACK
go top
THISFORM.REFRESH
case MEN=7
thisform.refresh
endcase
· DOS CLIC EN BOTON NUEVO (CLIC)
with thisform...