| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2213 人关注过本帖
标题:求教考区、考场及座位号的编排
只看楼主 加入收藏
kongyifei
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2019-11-21
结帖率:42.86%
收藏
已结贴  问题点数:10 回复次数:5 
求教考区、考场及座位号的编排
求教大神,考区、考场及座位号的编排。举个例子,要求每考场不超过30人,且考试科目变化时,考场号加1,考区变化时考场号加1,尾考场剩多少就多少不管他;座位号也要排。
考区.zip (357 Bytes)
搜索更多相关主题的帖子: 例子 要求 多少 考试 变化 
2020-04-03 15:45
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9844
专家分:27213
注 册:2012-2-5
收藏
得分:0 
数据太少

坚守VFP最后的阵地
2020-04-03 16:23
kongyifei
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2019-11-21
收藏
得分:0 
回复 2楼 sdta
还需要啥数据?
2020-04-03 16:36
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:766
专家分:2517
注 册:2011-5-8
收藏
得分:0 
回复 楼主 kongyifei
看看你自己以前帖子的回帖,回答过类似问题。

dBase有人接盘了。
2020-04-03 17:23
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9844
专家分:27213
注 册:2012-2-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 

结果
图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2020-04-03 17:28
kongyifei
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2019-11-21
收藏
得分:0 
回复 5楼 sdta
大神厉害 学习了!
2020-04-03 17:37
快速回复:求教考区、考场及座位号的编排
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019387 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved