fdtj.prg

来自「利用vfp6.0写的一个学生成绩处理中的“分段统计”程序」· PRG 代码 · 共 95 行

*****************此程序为计算分段统计表************
*（说明：使用fdtj.dbf、cj*.dbf,生成分段统计库fdtj.dbf）
set talk off
set safe off
CLOSE ALL
USE FDTJ
*打开分段统计标准库
ZAP
USE
input '进行分段统计，请输入段上限：' to a
input '进行分段统计，请输入段下限：' to b
i=1
do while i<=14
  m=300+i
  n=ltrim(str(m))
    use cj&n
  sele 2
    use fdtj
      appe blank  
       repl 班级 with ltrim(str(i))+'班'
  sele 1
  k=0
    do while k<=int(a-b)
      l=a-k
      coun for 总分>=l to p1
        sele 2
        o=ltrim(str(l))
        repl T&o with p1
     k=k+10
      sele 1
    enddo 
  sele 1 
  coun to p2 for 总分>0
     aa=ltrim(str(b-10))
    sele 2
     repl T&aa with p2-p1
  i=i+1
     close all
enddo
use fdtj
***********************
 use cjw
  sele 2
    use fdtj
      appe blank  
       repl 班级 with '文合班'
  sele 1
  k=0
    do while k<=int(a-b)
      l=a-k
      coun for 总分>=l to p1
        sele 2
        o=ltrim(str(l))
        repl T&o with p1
     k=k+10
      sele 1
    enddo 
  sele 1 
  coun to p2 for 总分>0
     aa=ltrim(str(b-10))
    sele 2
     repl T&aa with p2-p1
       close all
     ********************
 use cjl
  sele 2
    use fdtj
      appe blank  
       repl 班级 with '理合班'
  sele 1
  k=0 
    do while k<=int(a-b)
      l=a-k
      coun for 总分>=l to p1
        sele 2
        o=ltrim(str(l))
        repl T&o with p1
     k=k+10
      sele 1
    enddo 
  sele 1 
  coun to p2 for 总分>0
     aa=ltrim(str(b-10))
    sele 2
     repl T&aa with p2-p1
     close all
 ****************
use fdtj
copy to 汇总\分段统计 type xls
close all
clea
@15,30 say '处理完毕，再见！'
set safe on
set talk on
retu