njfsd.prg

用VFP编写的学生成绩统计系统

set talk off
clear all
clos data
sele 1
gcT = GETFILE('dbf','文件名(N):', '打开',1)
DO CASE
	CASE 'Untitled' $ gcT
		CREATE (gcT)
	CASE EMPTY(gcT)
		modi comm (gcT)
		RETURN
	OTHERWISE
		USE (gcT)
ENDCASE
sele 2
acce"请输入字段个数：" to a
acce"请输入文件名：" to c
alte tabl &c add zxdm n(4)
alte tabl &c add cks n(4)
a=val(a)
a=int(a)
k=2
for k=2 to a
d=700-20*(k-1)
s='f'+str(d,3)+'以上'  
alte tabl &c add &s  n(4)
endfor
sss=700-20*(a-1)
sss='f'+str(sss,3,0)+'以下'
alte tabl &c add &sss n(4)
sele 1
m=5901
do while m<=5907
   sele 1           
   loca all for zxdm=m
   coun all for zxdm=m.and.Zf>0 to v
   if v>0
    select 2
  append blank                                               
  go bott
  repl zxdm with m  cks with v   
     k=2
     do whil k<=a
     d=700-20*(k-1)
     s='f'+str(d,3)+'以上'
    sele 1
    coun all for zxdm=m.and.zf>=d to h
    sele 2
   repl &s with h 
      k=k+1
      sele 1
      enddo
      else 
   endif
   sele 1
   coun all for zxdm=m.and.zf<700-20*(a-1) to h
   sele 2
   repl &sss with h
   m=m+1
   sele 1
   enddo
 sele 1           
   coun all for Zf>0 to v
   select 2
  append blank                                               
  go bott
  repl  cks with v   
     k=2
     do whil k<=a
     d=700-20*(k-1)
    s='f'+str(d,3)+'以上'
    sele 1
    coun all for zf>=d to h
    sele 2
   repl &s with h 
      k=k+1
      sele 1
      enddo
      sele 1
   coun all for zf<700-20*(a-1) to h
   sele 2
   repl &sss with h
sele 2
brow