gkzybb.lds

vfp原程序prg

 
; ==========================================================
;   文件名: GKzyBB.LDS
;   功  能: 山西省2004年普通高考志愿补报卡逻辑描述源文件
;   日  期: 2004.8.25
;   编  写: 山西省考试中心计统处
; ==========================================================
	
	TITLE (" 山西省2004年高考志愿补报卡读卡程序")
	LENGTH (100) ; 前100位有效填涂,后面无空白
 SHEETS("gkzybb.sht")
 SAVEFILE("gkzybb.DBF")
 PAPERS(50,50); 1人自动存盘
	SAME (1,4)     ; 考号前4位相同
;	SERIAL (5,5)   ; 考号后5位计算
 
;----------- 逻辑描述 ----------------------------------------
RANGE (10,1,'A','A',"非高考补报志愿卡")
;ISDIGIT (2,9,"准考证号错")
RANGE(1,9,'0','9',"准考证号错")
 
;---------- 定义数据库结构 ----------------
FIELD (0,"FLAG", 'C',1,0,FLAG)
FIELD (1,"ZKZH", 'C',9,0,KEY)
FIELD (11,"ZY1",'C',8,0)
FIELD (19,"ZY1T",'C',1,0)
FIELD (20,"ZY2",'C',8,0)
FIELD (28,"ZY2T",'C',1,0)
FIELD (29,"ZY3",'C',8,0)
FIELD (37,"ZY3T",'C',1,0)
FIELD (38,"ZY4",'C',8,0)
FIELD (46,"ZY4T",'C',1,0)
FIELD (47,"ZY5",'C',8,0)
FIELD (55,"ZY5T",'C',1,0)
FIELD (56,"ZY6",'C',8,0)
FIELD (64,"ZY6T",'C',1,0)
FIELD (65,"ZY7",'C',8,0)
FIELD (73,"ZY7T",'C',1,0)
FIELD (74,"ZY8",'C',8,0)
FIELD (82,"ZY8T",'C',1,0)
FIELD (83,"ZY9",'C',8,0)
FIELD (91,"ZY9T",'C',1,0)
FIELD (92,"ZY10",'C',8,0)
FIELD (100,"ZY10T",'C',1,0)
FIELD (1,"ZYALL",'C',100,0)
 
;--------------end--------------