求教考区、考场及座位号的编排 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求教考区、考场及座位号的编排

标题：求教考区、考场及座位号的编排

只看楼主

kongyifei

等　级：新手上路
帖　子：27
专家分：0
注　册：2019-11-21
结帖率：42.86%

楼主

已结贴√ 问题点数：10 回复次数：5

求教考区、考场及座位号的编排

求教大神，考区、考场及座位号的编排。举个例子，要求每考场不超过30人，且考试科目变化时，考场号加1，考区变化时考场号加1，尾考场剩多少就多少不管他；座位号也要排。

考区.zip (357 Bytes)

搜索更多相关主题的帖子: 例子　要求　多少　考试　变化　

2020-04-03 15:45

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 2 楼

得分:0

数据太少

坚守VFP最后的阵地

2020-04-03 16:23

kongyifei

等　级：新手上路
帖　子：27
专家分：0
注　册：2019-11-21

第 3 楼

得分:0

回复 2楼 sdta

还需要啥数据？

2020-04-03 16:36

xuminxz

等　级：贵宾
威　望：40
帖　子：749
专家分：2475
注　册：2011-5-8

第 4 楼

得分:0

回复楼主 kongyifei

看看你自己以前帖子的回帖，回答过类似问题。

dBase有人接盘了。

2020-04-03 17:23

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 5 楼

得分:10

程序代码：

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