| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3475 人关注过本帖, 1 人收藏
标题:有关中考录取的问题
只看楼主 加入收藏
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:766
专家分:2517
注 册:2011-5-8
收藏
得分:0 
回复 30楼 泛海孤舟
2个问题
1、定向生可以突破计划吗?(同分)
2、多余的定向计划还需要处理吗?(有的学校降分后,定向计划用不完,怎么办?)

dBase有人接盘了。
2021-08-16 16:10
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:766
专家分:2517
注 册:2011-5-8
收藏
得分:8 
程序代码:
**志愿库\计划库各增加一个字符字段,DJ
Set Default To "..\试录取"

Close Tables All  &&关闭表就可以了
Use 志愿库 Alias zyk Exclusive In 0
Select zyk
Blank Fields lqdm All
Replace dj With djf All
For i=65 To 69
    Replace dj With Strtran(dj,Chr(i),Str(72-i,1)) All && A-7,B-6 E-3
Endfor
INDEX on STR(tdf)+dj TAG tdf DESCENDING 
Use 计划库 Alias jhk Exclusive In 0
Select jhk
Set Order To lqdm
Blank Fields lqrs,zhzf,fsx All
Goto Top In jhk
Replace dj With djf All
For i=67 To 69
    Replace dj With Strtran(dj,Chr(i),Str(70-i,1)) All&& C-3,D-2 E-1
Endfor
idxyq=3333222222  &&定向等级要求


Use 定向生计划库 Alias dxsjhk Exclusive In 0
Set Order To xxdm In dxsjhk
Blank Fields lqrs,zhzf,fsx All In dxsjhk
Goto Top In dxsjhk
Local kszy As Character    && 考生志愿变量
Local zyxh As Integer      && 考生志愿序号变量
Goto Top In zyk
Set Order To tdf In zyk                                                        && 从考生高分到低分处理
SELECT zyk
GO top
Do While !Eof("zyk")
    For zyxh = 1 To 19                                                    && 考生19个普高志愿
        kszy = "zyk.zy" + Transform(zyxh)
        If !Empty(Evaluate(kszy))
            If Evaluate(kszy)<>'113701'                                      &&志愿表中没有 003701!!为3701学校的定向生志愿,定向生条件为3701分数线降52分,zyk.dxs=.t.,等级线为4C6D,计划库参照定向生计划库
                Seek Evaluate(kszy) Order lqdm In jhk
                bjstr=TRANSFORM(VAL(zyk.dj)-VAL(jhk.dj))
                If AT('0',bjstr)+AT('1',bjstr) =0   && 等级分线要求
                    If zyk.tdf >= jhk.fsx
                        If jhk.lqrs < jhk.lqjh
                            Replace zyk.lqdm With Evaluate(kszy) In zyk
                            Replace jhk.lqrs With jhk.lqrs+1 In jhk
                            Replace jhk.zhzf With zyk.tdf In jhk
                            Exit
                        Else
                            If zyk.tdf = jhk.zhzf
                                Replace zyk.lqdm With Evaluate(kszy) In zyk
                                Replace jhk.lqrs With jhk.lqrs+1 In jhk
                                Exit
                            Endif
                        Endif
                    Endif
                Endif

            ELSE
                GO TOP IN jhk  &&偷懒了,定位到3701。如果它的代码不是最小的可以用Seek 
                idxfs=jhk.zhzf-52   &&定向分数
                Seek zyk.xxdm Order xxdm In dxsjhk
                bjstr=TRANSFORM(VAL(zyk.dj)-idxyq)
                If zyk.dxs=.T. And  AT('0',bjstr)+AT('1',bjstr) =0 AND zyk.tdf>=idxfs  && 等级分线要求zyk.dxs=.T.这个条件还需要吗?考生志愿已经有113701了啊。
                    If dxsjhk.lqrs<dxsjhk.lqjh
                            Replace zyk.lqdm With '113701' In zyk
                            Replace dxsjhk.lqrs With dxsjhk.lqrs+1 In dxsjhk
                            Replace dxsjhk.zhzf With zyk.tdf In dxsjhk
                            Exit
                        Else
                            If zyk.tdf=dxsjhk.zhzf   &&数值表达式不用===即可。
                                Replace zyk.lqdm With '113701' In zyk
                                Replace dxsjhk.lqrs With dxsjhk.lqrs+1 In dxsjhk
                                Exit
                            Endif
                    Endif
                Endif
            Endif
        Endif
    Next
    Skip In zyk
Enddo
Replace All jhk.fsx With jhk.zhzf In jhk
Replace  dxsjhk.fsx With jhk.fsx-52 For jhk.lqdm='3701' && 各校定向生分数线为3701学校分数线下52分,比如3701学校的分数线为652分,则各校定向生分数线为600分.
Close TABLES All

dBase有人接盘了。
2021-08-16 16:51
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
把问题说清楚了,别人能理解了,就会有人帮你解决问题了

坚守VFP最后的阵地
2021-08-16 19:59
泛海孤舟
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2021-8-15
收藏
得分:0 
回复 31楼 xuminxz
同分同录,如果某个学校计划数用不完就不再补录,几个就是几个,名额取消。
2021-08-16 23:20
泛海孤舟
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2021-8-15
收藏
得分:0 
回复 32楼 xuminxz
完全准确,谢谢您。
2021-08-17 10:37
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:322
专家分:450
注 册:2019-10-11
收藏
得分:0 
看来还找到同行了,都是教育系统的
2021-08-17 14:46
my2318
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:14
帖 子:289
专家分:640
注 册:2014-3-18
收藏
得分:0 
主要是流程与规则要搞清,程序问题就容易解决了
2021-08-17 17:20
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2232
专家分:3913
注 册:2007-4-27
收藏
得分:0 
录取代码能否简洁,与表及表字段名称的设置,是有直接关系的。设置前如果N多个表之间的逻辑关系明了,才能设置出合理的表......

只求每天有一丁点儿的进步就可以了
2021-08-18 16:30
快速回复:有关中考录取的问题
数据加载中...
 
   



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

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