mis insignias en corel

INSIGNIA UNSA-AREQUIPA

INSIGNIA UNA-PUNO

INSIGNIA SPORTING CRISTAL

INSIGNIA POLITECNICO LOS ANDES-JULIACA

INSIGNIA INA 21 AZANGARO

INSIGNIA IEP CESAR VALLEJO AZANGARO

INSIGNIA ESCUELA DE MUJERES 852 AZANGARO

INSIGNIA 72001 AZANGARO

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
if thisform.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 en registro 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)
with thisform
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()
if rtrim(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 BOTON ANTERIOR (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 BOTON ELIMINAR 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
.txtDni.value= ""
.txtNombre.value= ""
.txtDireccion.value= ""
.combo1.value= ""
.combo2.value= ""
.txtDni.setfocus
.txtDni.value= dni
.txtNombre.value= nombre
.txtDireccion.value= direccion
.combo1.value= sexo
.combo2.value= categoria
.txtDni.setfocus
endwith
· DOS CLIC EN BOTON EXAMINAR (CLIC)
browse
· DOS CLIC EN BOTON SALIR (CLIC)
Thisform.release

CREANDO FORMULARIO DE CALCULAR SUELDO


· DOS CLIC EN FORMULARIO (ACTIVATE)
with thisform
set defa to E:\SQLFOX10
close table all
use sueldo
go bottom
.txtContador.value= Contador
.txtDni.value=Dni
.txtHtrab.value= Htrab
.txtSbruto.value= Sbruto
.txtEssalud.value= Essalud
.txtFonavi.value=Fonavi
.txtNeto.value= Neto
endwith
· DOS CLIC EN EL BOTON GUARDAR (CLIC)
with thisform
use sueldo
insert into sueldo(contador,dni,htrab,sbruto,essalud,fonavi,neto)values ;
(.txtContador.value,.txtDni.value,.txtHtrab.value,.txtSbruto.value,.txtEssalud.value;
.txtFonavi.value,.txtNeto.value)
=messagebox("ESTE REGISTRO FUE GUARDADO")
endwith
· DOS CLIC EN BOTON ELIMINAR (CLIC)
Close database
Open database ("E:\SQLFOX10\datos1")
Use sueldo
Delete from sueldo
· DOS CLIC EN BOTON ELIMINAR (CLIC)
SELECT sueldos
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
.txtContador.enabled=.t.
.txtDni.enabled=.t.
.txtHtrab.enabled=.t.
.txtSbruto.enabled=.t.
.txtEssalud.enabled=.t.
.txtFonavi.enabled=.t.
.txtNeto.enabled=.t.
.txtContador.value= ""
.txtDni.value=""
.txtHtrab.value= ""
.txtSbruto.value= ""
.txtEssalud.value= ""
.txtFonavi.value=""
.txtNeto.value= ""
.txtcontador.value=""
.combo1.value=""
.txtContador.setfocus
.txtContador.value=contador
.txtDni.value=Dni
.txtHtrab.value=Htrab
.txtSbruto.value=Sbruto
.txtEssalud.value=Essalud
.txtFonavi.value=Fonavi
.txtNeto.value= Neto
endwith
· DOS CLIC EN BOTON EXAMINAR (CLIC)
browse
· DOS CLIC EN BOTON SALIR (CLIC)
Thisform.release
· DOS CLIC EN BOTON CALCULAR
f = 0
e = 0
n = 0
d = 0
h = val(.txtHtrab.value)
c = .combo1.value
do case
case c = "A"
b = h*100
f = b * 0.10
e = b * 0.15
case c = "B"
b = h*80
f = b * 0.10
e = b * 0.15
case c = "C"
b = h*60
f = b * 0.10
e = b * 0.15
case c = "D"
b = h*40
f = b * 0.10
e = b * 0.15
otherwise
=messagebox("la categoria no existe")
.combo1.setfocus
endcase
d = f + e
n = b - d
.txtSbruto.value = b
.txtEssalud.value = e
.txtFonavi.value = f
.txtNeto.value = n
Endwith
· 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 BOTON ANTERIOR (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