求教考区、考场及座位号的编排
求教大神,考区、考场及座位号的编排。举个例子,要求每考场不超过30人,且考试科目变化时,考场号加1,考区变化时考场号加1,尾考场剩多少就多少不管他;座位号也要排。
考区.zip
(357 Bytes)
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