核对学籍号.bak

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

********************************
*本程序在两个数据库之间可以根据*                                
*主标识字段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
	brow
	coun all to a
	m=1
	do whil m<=a
	go m
	zz=zkzh
	sele 2
	loca all for zkzh=zz
	coun all for zkzh=zz to s
	if s=0
	sele 1
	go m
	repl   hd with s
	else
	sele 1
	go m
	repl hd with 1
	endif
	m=m+1
	enddo	
		k=k+1
enddo
sele 2
brow