过分数200401.prg

用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
sele 2
loca for zkzh=aa
cc=str(&cc,2,0)
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
sele 1
kk=kk+1
enddo
sele 2
    brow