求教考区、考场及座位号的编排
求教大神,考区、考场及座位号的编排。举个例子,要求每考场不超过30人,且考试科目变化时,考场号加1,考区变化时考场号加1,尾考场剩多少就多少不管他;座位号也要排。
程序代码:CLOSE DATABASES
USE 考区
nkq = 0
nkch = 0
nkcrs = 0
nbzrs = 5 && 考场标准人数,由于数据量偏少,每个考场按5人设置
nkskm = 0
SCAN
IF 考区 = nkq
IF 考试科目 = nkskm
nkcrs = nkcrs + 1
REPLACE 考场号 WITH PADL(nkch, 8, "0"), 座位号 WITH PADL(nkcrs, 2, "0")
IF nkcrs % nbzrs = 0
nkcrs = 0
nkch = nkch + 1
ENDIF
ELSE
nkcrs = 0
nkch = nkch + 1
nkcrs = nkcrs + 1
REPLACE 考场号 WITH PADL(nkch, 8, "0"), 座位号 WITH PADL(nkcrs, 2, "0")
ENDIF
ELSE
nkcrs = 0
nkch = nkch + 1
nkcrs = nkcrs + 1
REPLACE 考场号 WITH PADL(nkch, 8, "0"), 座位号 WITH PADL(nkcrs, 2, "0")
ENDIF
nkskm = 考试科目
nkq = 考区
ENDSCAN
BROWSE 