Fox 2.6 ahora base de datos
Muchas Gracias por contestar!.. Te comento ya tengo el programa funcionando... Lo que ahora no se como hacer es una base de datos o tablas no se como hacerla para este mismo programa... Si puedes ayudar te lo voy agradecer... Siempre usando el FoxPro 2.6...
Te paso el programa lo que falta ahora es hacer la base de datos...
clear
store space (20) to ape, nom
store 0 to nda, tot, cur, fem, masc, pri, seg, ter, oct, nov, ning
store space (2) to sexo
clear
@1,2 say "ingrese Numero de Alumno" get nda
read
clear
do while nda <> 0
@2,2 say "Apellido" get ape
@3,2 say "Nombre" get nom
@4,2 say "Sexo" get sexo
@5,2 say "Curso" get cur
read
do case
case cur=1
pri= pri + 1
case cur= 2
seg= seg + 1
case cur= 3
ter = ter + 1
case cur= 8
oct = oct + 1
case cur= 9
nov = nov + 1
otherwise
ning = ning + 1
endcase
if sexo = "f"
fem = fem + 1
else
masc = masc + 1
endif
clear
store space (20) to ape, nom
store space (3) to sexo
@1,2 say "ingrese numero de Alumno" get nda
read
enddo
tot=oct+nov+pri+seg+ter+ning
clear
@3,2 say "Alumnas femeninas"
@3,20 say fem
@4,2 say "Alumnos masculinos"
@4,20 say masc
@5,2 say "total de Alumnos"
@5,20 say tot
@6,2 say "Octavo Año"
@6,20 say oct
@7,2 say "Noveno Año"
@7,20 say nov
@8,2 say "Primer Año"
@8,20 say pri
@9,2 say "Segundo Año"
@9,20 say seg
@10,2 say "Tercer Año"
@10,20 say ter
@11,2 say "Otros"
@11,20 say ning
wait wind
clear
Te paso el programa lo que falta ahora es hacer la base de datos...
clear
store space (20) to ape, nom
store 0 to nda, tot, cur, fem, masc, pri, seg, ter, oct, nov, ning
store space (2) to sexo
clear
@1,2 say "ingrese Numero de Alumno" get nda
read
clear
do while nda <> 0
@2,2 say "Apellido" get ape
@3,2 say "Nombre" get nom
@4,2 say "Sexo" get sexo
@5,2 say "Curso" get cur
read
do case
case cur=1
pri= pri + 1
case cur= 2
seg= seg + 1
case cur= 3
ter = ter + 1
case cur= 8
oct = oct + 1
case cur= 9
nov = nov + 1
otherwise
ning = ning + 1
endcase
if sexo = "f"
fem = fem + 1
else
masc = masc + 1
endif
clear
store space (20) to ape, nom
store space (3) to sexo
@1,2 say "ingrese numero de Alumno" get nda
read
enddo
tot=oct+nov+pri+seg+ter+ning
clear
@3,2 say "Alumnas femeninas"
@3,20 say fem
@4,2 say "Alumnos masculinos"
@4,20 say masc
@5,2 say "total de Alumnos"
@5,20 say tot
@6,2 say "Octavo Año"
@6,20 say oct
@7,2 say "Noveno Año"
@7,20 say nov
@8,2 say "Primer Año"
@8,20 say pri
@9,2 say "Segundo Año"
@9,20 say seg
@10,2 say "Tercer Año"
@10,20 say ter
@11,2 say "Otros"
@11,20 say ning
wait wind
clear
4 Respuestas
Respuesta
1
Respuesta de maxisis
1
Respuesta de ingesoft
1
Respuesta de Hector Cevallos
-1