Problema aplicativo sql
Descargar como DOCX, PDF0 recomendaciones49 vistas
El documento describe los pasos para crear una aplicación en SQL que permite el ingreso y cálculo de sueldos de empleados. Incluye la creación de proyecto, tablas, formularios de ingreso de contraseña, administración de categorías, registro de datos de empleados, y cálculo de sueldos. Explica cómo crear, guardar, eliminar y navegar entre registros; y realizar cálculos de sueldos brutos y descuentos basados en la categoría del empleado.
![·
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:SQLFOX10datos1")
· 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](https://image.slidesharecdn.com/problemaaplicativosql-161216151617/85/Problema-aplicativo-sql-2-320.jpg)
![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](https://image.slidesharecdn.com/problemaaplicativosql-161216151617/85/Problema-aplicativo-sql-3-320.jpg)
Problema aplicativo sql
- 1. 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
- 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:SQLFOX10datos1") · 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
- 3. 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
- 4. .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:SQLFOX10datos1") 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
- 5. 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:SQLFOX10datos1") 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
- 6. 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