过分数200404.bak

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

********************************
*本程序在两个数据库之间可以根据*                                
*主标识字段zkzh进行字段数据的拷*
*贝更新           2004-1-22    *
********************************
Clea all
SET safe off
SET date to ansi
CLOSE DATABASES

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 df2
	k=1
	do whil k<=7
	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 zkzh to df1
		sele 2
		UPDATE on zkzh from a repl cj1 with a->cj1,cj2 with a->cj2,cj3 with a->cj3,cj4 with a->cj4,cj5 with a->cj5,cj6 with a->cj6,cj7 with a->cj7,cj8 with a->cj8,cj9 with a->cj9
k=k+1
enddo
brow