Instrucciones de "SQL en FoxPro"

INSTRUCCIONES FOXPRO Y SQL


Creando el proyecto con el generador de proyectos

1.- Codigos SQL.

Estamos creando la base de datos

Desarrollando formularios

3.- CODIFICACION

- DOBLE CLICK EN EL FORMULARIO (activate)

close database

open database ("d:\MIjail\roque1")

- DOBLE CLICK EN BOTON MOSTRAR DATOS (CLICK)

select categoria.categoria,prehora from categoría

- DOBLE CLICK EN GRABAR (CLICK)

with thisform

use categoria

insert into categoria(categoria,prehora) values;

(.text1.value,val(.text2.value))

=messagebox("este registro fue grabado")

Endwith

- DOBLE CLICK EN TEXT1 (INTERACTIVECHANGE)

with thisform

titulo="resultado"

texto="este reg. ["+.text1.value+"]ya existe...desea eliminar?"

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 reg. ["+.text1.value+"]fue eliminado"

pack

.text1.value=""

.text2.value=""

.text1.setfocus

endcase

endif

endwith

- DOBLE CLICK EN SALIR (CLICK)

thisform.release

creando otro formulario

CODIFICACION:

- DOBLE CLICK EN EL FORMULARIO (ACTIVATE)

close database

open database ("d:\Mijail\roque1")

- DOBLE CLICK EN BOTON MOSTRAR DATOS (Click)

select empleados.dni,nombre,direccion,sexo,categoria from empleados

- DOBLE CLICK EN GRABAR (CLICK)
with thisform

close table all

use empleados

append blank

replace dni with .text1.value

repla nombre with .text2.value

repla direccion with .text3.value

repla sexo with .text4.value

repla categoria with .text5.value

=messagebox("estos registro fueron grabados")

endwith

- DOBLE CLICK EN TEXT1 (INTERACTIVECHANGE)

with thisform

close table all

titulo="resultado de registro"

texto="este registro ["+.text1.value+"] ya existe ...desea eliminar?"
tipo=4+32+256

use empleados

go top

flag=0with thisform

close table all

titulo="resultado de registro"

texto="este registro ["+.text1.value+"] ya existe ...desea eliminar?" tipo=4+32+256

use empleados

go top

flag=0
do while !eof()

if .text1.value=dni

.text2.value=nombre

.text3.value=direccion

.text4.value=sexo

.text5.value=categoria

flag=1

endif

skip

enddo

if flag=1

opcion=messagebox(texto,tipo,titulo)

do case

case opcion=6

delete from empleados where dni=thisform.text1.value

wait windows "eligio si... el registro ["+.text1.value+"] fue eliminado"

pack

.text1.value=""

.text2.value=""

.text3.value=""

.text4.value=""

.text5.value=""

.text1.setfocus

endcase

endif

endwith

- DOBLE CLICK EN SALIR (CLICK)

thisform.release

AHORA EL TERCER FORMULARIO

CODIFICACION:

- DOBLE CLICK EN EL FORMULARIO (ACTIVATE)

close database

open database ("d:\Mijail\roque1")

- DOBLE CLICK EN BOTON MOSTRAR DATOS (CLICK)

select sueldos.contador,dni,htrab,sbruto,fonavi,essalud,neto from sueldos

- DOBLE CLICK EN GRABAR (CLICK)

with thisform

close table all

use sueldo

append blank

repla contador with .text1.value

repla dni with .text2.value

repla hTRAB with val(.text3.value)

repla sBRUTO with val(.text4.value)

repla fonavi with val(.text5.value)

repla essalud with val(.text6.value)

repla neto with .text7.value

=messagebox("estos registro fueron grabados")

endwith

- DOBLE CLICK EN TEXT1 (INTERACTIVECHANGE)

with thisform

titulo="resultado de registro"

texto="este registro ["+.text1.value+"] ya existe ...desea eliminar?"
tipo=4+32+256

use sueldo

go top

flag=0

do while !eof()

if val(.text1.value)=(contador)

.text2.value=dni

.text3.value=htrab

.text4.value=sbruto

.text5.value=fonavi

.text6.value=essalud

.text7.value=neto

flag=1

endif

skip

enddo

if flag=1

opcion=messagebox(texto,tipo,titulo)

do case

case opcion=6

delete from sueldo where contador=thisform.text1.value

wait windows "eligio si... el registro ["+.text1.value+"] fue eliminado" pack

.text1.value=""

.text2.value=""

.text3.value=""

.text4.value=""

.text5.value=""

.text6.value=""

.text7.value=""

.text1.setfocus

endcase

endif

endwith

- DOBLE CLICK EN SALIR (CLICK)

thisform.release