过分数200403.bak

来自「用VFP编写的学生成绩统计系统」· BAK 代码 · 共 36 行

********************************
*本程序在两个数据库之间可以根据*                                
*主标识字段zkzh进行字段数据的拷*
*贝更新           2004-1-22    *
********************************
Clea all
SET safe off
SET date to ansi
CLOSE DATABASES
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
? '打开跟踪成绩库: ' + 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
	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
brow