AGUILA HASTA LA MUERTE!
martes, 31 de marzo de 2009
PROGRAMA ACCESAR A LA INFORMACION DE UNA BASE DE DATOS MEDIANTE UN PROGRAMA
store space(30) to producto
store space(15) to peso
store space(20) to precio
store space(4) to codigo
store space(15)to marca
store 0 to precio
store 0 to cantidad
cod= space
use productos
clear
@5,5 say "introducir el codigo" get cod
read
locate for cod=codigo
@8,5 say"introduzca cantidad comprada" get cantidad
t=cantidad*precio
@9,5 say "producto:"
@9,20 say producto
@10,5 say "total:"
@10,15 say t
wait
store space(15) to peso
store space(20) to precio
store space(4) to codigo
store space(15)to marca
store 0 to precio
store 0 to cantidad
cod= space
use productos
clear
@5,5 say "introducir el codigo" get cod
read
locate for cod=codigo
@8,5 say"introduzca cantidad comprada" get cantidad
t=cantidad*precio
@9,5 say "producto:"
@9,20 say producto
@10,5 say "total:"
@10,15 say t
wait
COMO COMBINAR UN CICLO "DO" Y UNA INSTRUCCION "IF/ELSE"
use c\\earnfox\emplist
clear
?
wait "do you want the names capitalized (y/n)" to yesno
?
do while.not.eof()
if upper (yes no)="y"
?upper (trim(fname)+" "+iname
else
?proper(trim(fname)+" "+iname
end if
skip
enddo
?
use
wait
clear
?
wait "do you want the names capitalized (y/n)" to yesno
?
do while.not.eof()
if upper (yes no)="y"
?upper (trim(fname)+" "+iname
else
?proper(trim(fname)+" "+iname
end if
skip
enddo
?
use
wait
PROGRAMA PARA HACER UN CICLO CON UNA BASE DE DATOS
use c:\learnfox\emplist
clear
?
?
do while.not.eof()
?proper(trim(fname)+" "+iname)
skip
enddo
?
use
wait
clear
?
?
do while.not.eof()
?proper(trim(fname)+" "+iname)
skip
enddo
?
use
wait
lunes, 9 de marzo de 2009
PROGRAMA PARA RESOLVER UN CILINDRO
martes, 3 de marzo de 2009
lunes, 2 de marzo de 2009
Suscribirse a:
Entradas (Atom)