没有问题。谢谢哦。不知道最近忙不，我还有一个问题没有解决，难度好像有增大了。我正在考虑，我能实现这个功能，但是太复杂了，最近看你的程序，真是简洁、明了。佩服。如果有空，给我修改修改，谢谢。

你先自己试试

TonyDeng:
看了您写的程序太好了，特别用类的方法来写表单等，受益非淺。
有一个问题，补录的根据是什么？是不是考生在正式录取时在分数优先的前提下志愿优化时没有录取，但个别学校还有空额，此时考生的分数达到了某学校的分数线并且有志愿，就给他录取？是不是这样理介？

另外有一个问题请教：如果各校没有限定分数线，录取原则：名次（各科总分，语数外三科总分等各种条件来排出名次，已预先排好，没有重复名次）优先，来搜索各志愿，其它要求与lbwg相同。数据库中各个字段不变只增加一个名次号。
哪你的代码在何处改一下，可用？请指教。

那个补录的方案，我看是出于公平考虑的：因为最后的分数都一样、志愿也一样，没有理由只录取这个不录取那个，所以在踏中最后那条线的，都一概录取，没得投诉。这样会导致超额，但没办法，要堵众口，所幸的是预期这种超额不会太多（其实在制定招生计划时，恐怕已经预计了一定幅度的超额，先升价后打折而已）。

你所说的那个问题，其实可以通过将名次参与到排序索引中来解决，毕竟这种录取算法是按照表的排序顺序依次扫下来的，名次在前，则排序必然靠前，录取自然在前。（对了，最后那个程序才是对的）

[ 本帖最后由 TonyDeng 于 2011-9-11 23:47 编辑 ]

您的代码中有分数线，我没有分数线，哪您的代码中:IF zyk.zf >= jhk.fsx && 踏入分数线　　此处如何改？

*-------------------------
        * 正常录取
        *-------------------------
        GOTO TOP IN zyk
        DO WHILE !EOF("zyk")
            FOR lnIndex = 1 TO 6                                                        && 按志愿顺序处理
                lcField = "zyk.zy" + STR(lnIndex,1)
        
                                 IF !EMPTY(EVALUATE(lcField))　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　                    IF SEEK(EVALUATE(lcField), "jhk", "xxdm")                            && 查找志愿学校
                        IF zyk.zf >= jhk.fsx                                            && 踏入分数线　　此处如何改？
                            IF jhk.lqrs < jhk.lqjh   

我也做中考，还没用到平行志愿录取法，

留足，需要时好找一点，谢谢！

程序下载了。回去学习，谢谢版主，程序执行效率好快呀，我自己弄的SELECT很慢，晕死，我是一个人一个人的志愿调出来再去匹配计划数，特别慢，要认真学习下版主的程序原理，不过我们的志愿库和这个不同，我们是一个志愿一条记录，普高目前没弄平行志愿，是职教录取用平行志愿
ksh   xxdm    zy1   zy2  zyfc   xxfc
考生号 学校代码 志愿1 志愿2 专业服从 学校服从
1001  8201    单招  电子  是    是
1001  8202    机电  数控  是    否

头疼呀：（

TonyDeng老师，
　　　你好，最近才看到你的这个关于高中录取的程序，和我市的有类似，我现在想添加一个功能按钮“生成录取库“就是每个批次的学生录完了，自动生成该学校的录取库，然后在总库中把这部分已经录了的学生删了，或是屏蔽掉，下一个批次的录取不受上一批次的影响（不晓得我说清楚没有，我们这儿的志愿情况是，一、二志愿平行，三、四志愿平行，五、六志愿平行，我现在是每录完一个批次就得手动的把志愿库中的相应批次志愿删除，才能保证下个批次的录取不受影响）请指教，不胜感激！

给楼上的建议：
　1、数据表中增加一项学生是否被录取的状态栏，如开始录取前都为“0”，一个批次录取后，被录取的状态栏为“1”，这样就很明白了，为“0”的是待录取的。
　2、数据表中增加一项录取批次的栏目，这样录取结束后，可统计各批次的录取情况。
　3、第N批次录取时，先把录取状态为“0”的学生信息COPY出来，单独成为一个待录取库，这第N批次录取完后，筛选出已录取的，写回到原来的总库中


[ 本帖最后由 xs591222 于 2012-11-1 17:57 编辑 ]

xs591222老师，
　　　你的建议很好，我也就是这个意思，无奈对TonyDeng老师的用类自接定义表单比较陌生，可否帮我修改一下，实现这个功能，万分感谢！基础可供调试的数据我可以38854329（QQ）提供给你.