过分数200402.bak

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

clea all
clea all
set safe off
set date to ansi
CLOSE DATABASES
dime d(11)
SELECT 1
? '打开新数据库: ' + MESSAGE(1)
gcTable = GETFILE('dbf', '文件名(N):', '打开',1)
DO CASE
	CASE 'Untitled' $ gcTable
		crea(gcTable)
	CASE EMPTY(gcTable)
		RETURN
	OTHERWISE 
		use (gcTable)
		ENDCASE
index on xm to df1
sele 2
? '打开跟踪成绩库: ' + MESSAGE(1)
gcTable = GETFILE('dbf', '文件名(N):', '打开',1)
DO CASE
	CASE 'Untitled' $ gcTable
		crea(gcTable)
	CASE EMPTY(gcTable)
		RETURN
	OTHERWISE
		use (gcTable)
		ENDCASE
INDEX on zkzh to df
&&以下是过分数的过程
 sele 1
 kk=1
 coun all to b
 do whil kk<=b &&对该学校的所有记录循环
go kk
cc=lb
cc=ltri(cc)
cc=rtri(cc)
a1=cj1
a2=cj2
a3=cj3
a4=cj4
a5=cj5
a6=cj6
a7=cj7
a8=cj8
a9=cj9
aa=zkzh
xx=zxmc
xsxm=xm
sele 2
loca for zkzh=aa
coun all for zkzh=aa to x
if x=0
appe blan
go bott
repl zkzh with aa zxmc with xx xm with xsxm lb with cc cj1 with a1 cj2 with a2 cj3 with a3 cj4 with a4 cj5 with a5 cj6 with a6 cj7 with a7 cj8 with a8 cj9 with a9
else
repl for zkzh=aa lb with cc cj1 with a1 cj2 with a2 cj3 with a3 cj4 with a4 cj5 with a5 cj6 with a6 cj7 with a7 cj8 with a8 cj9 with a9
endif
sele 1
kk=kk+1
enddo
sele 2
    brow