VFP怎么编写打印考场号表单
发布时间:2010-05-24 21:53:31 文章来源:www.iduyao.cn 采编人员:星星草
VFP如何编写打印考场号表单
考场号门牌打印说明
准考证号为11位03020100401,0302县区;01考区;004考场;01座号
每个考场30人,尾场不够30人的场需要单独将最后一个考生的准考证号提出来加入30.dbf中.
要求:
每个考场的门牌上要有第几考场,起始准考证号-结束准考证号
(考场号和起始结束准考证号如何提)?
替换考点名称,如果有8个考点01-08,用从一中到8中的名称替换如何替换
一个一个的是这样吧repl all for kddm=”01” kdmc with “市一中”,怎么一下替换8个?
------解决方案--------------------
假设所有考生都在同一个考区,生成准考证号的代码如下:
过程GenerateExamCerti中用到数据库表Student,设表中最少有字段:学号(字符型,长度根据实际情况设定),准考证号(字符型,长度为11)。参数nCountOfStudents是考生人数。
PROCEDURE GenerateExamCerti
LPARAMETERS nCountOfStudents
LOCAL i,j,k,m,CountyRegion,ExamRegion,ExamRoom,SeatNo
CountyRegion= "0302 "
ExamRegion= "01 "
i=INT(nCountOfStudents/30)
j=MOD(nCountOfStudents,30)
SELECT 1
USE Student IN 1
DO WHILE !EOF()
FOR k=1 TO i
FOR m=1 TO 30
REPLACE 准考证号 WITH CountyRegion+ExamRegion+IIF(k> 99,STR(k,3),IIF(k> 9, "0 "+STR(k,2), "00 "+STR(k,1)))+IIF(m> 9,STR(m,2), "0 "+STR(m,1))
SKIP
ENDFOR
ENDFOR
FOR m=1 TO j
REPLACE 准考证号 WITH CountyRegion+ExamRegion+IIF(i+1> 99,STR(i+1,3),IIF(i+1> 9, "0 "+STR(i+1,2), "00 "+STR(i+1,1)))+IIF(m> 9,STR(m,2), "0 "+STR(m,1))
SKIP
ENDFOR
ENDDO
USE
ENDPROC
提取考场号门牌的代码如下:
其中参数cExamCerti是准考证号,类型为字符型。
过程中使用到一个数据库表ExamRoom,其中至少有字段:教室编号(字符型),考场号(字符型,长度为3),起始号(字符型,长度为11),结束号(字符型,长度为11)
PROCEDURE GetExamRoomLable
LPARAMETERS nRoomCount,nCountOfStudents
LOCAL n,CountyRegion,ExamRegion,ExamRoom,SeatNo
CountyRegion= "0302 "
ExamRegion= "01 "
i=INT(nCountOfStudents/30)
j=MOD(nCountOfStudents,30)
n=1
SELECT 2
USE ExamRoom IN 2
DO WHILE !EOF(2) AND n <=i+1
REPLACE 考场号 WITH IIF(n> 99,STR(n,3),IIF(n> 9, "0 "+STR(n,2), "00 "+STR(n,1))), 起始号 WITH CountyRegion+ExamRegion+IIF(n> 99,STR(n,3),IIF(n> 9, "0 "+STR(n,2), "00 "+STR(n,1)))+ "01 ", 结束号 WITH CountyRegion+ExamRegion+IIF(n> 99,STR(n,3),IIF(n> 9, "0 "+STR(n,2), "00 "+STR(n,1)))+IIF(n> i,IIF(j> 9,STR(j,2), "0 "+STR(j,1)), "30 ")
n=n+1
SKIP
ENDDO
USE
ENDPROC
替换考点名称的主要代码如下:
DO CASE
CASE 考点= "01 "
ReplaceExamSite= "市一中 "
CASE 考点= "02 "
ReplaceExamSite= "市二中 "
CASE 考点= "03 "
ReplaceExamSite= "市三中 "
CASE 考点= "04 "
ReplaceExamSite= "市四中 "
CASE 考点= "05 "
ReplaceExamSite= "市五中 "
CASE 考点= "06 "
ReplaceExamSite= "市六中 "
CASE 考点= "07 "
ReplaceExamSite= "市七中 "
OTHERWISE
ReplaceExamSite= "市八中 "
ENDCASE
REPLACE 考点 WITH ReplaceExamSite
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
菜鸟求一句命令
我做VC的,没做过VFP,完全不懂,帮人问一句命令,谢谢各位大牛们帮忙。
“我有两张表,称为A表,B表,其中B表数据很多,我现在...
-
求助:实现grid修改后直接后直接更新到数据表里
各位道友,小弟有两个问题
1。如何实现在grid表格里直接修改数据;
2。修改的数据可直...
-
请问treeview 里面如何选择性展开其中某树枝及其获得焦点?
请问如何在treeview里面,如何实现选择性展开其中的某枝,原本是全部收起来...
-
vfp中treeview控件的用法
我在VFP中使用了treeview控件,我对treeview中的某一个节点的文本修改了,怎么在treeview窗口中进行就更。
...
-
求编排考号问题
需求是这样的,如1年级有8个班,那么考号编排规则是:第1个班的第一个学生考号为1号,第2个班的第一个学生考号为2号,以此...
-
大家讨论,对现有vfp6.0产品只升级为sql server数据库有必要吗?
功能保留原来 只是数据库变化
我本人觉得会丧失很多vfp 本身文...
-
表单中的出错,第一次遇到
VFP9.0中新建了一个表单
表单中,增加一个command1,使其width=25
然后,将此按钮,复制150个出来. (此时...
-
VFP 如何做一个类似word控件?
如题。
类似于电子病历的那种控件。可以像word一样的编辑文件、表格、图片等
可以直接取数据库的数...
-
vfp使用Msxml2.ServerXMLHTTP的乱码问题
oo = = newObject('Msxml2.ServerXMLHTTP')
oo.open('post','http://localhost/',.f.)
o...
-
表中定位 如下 记录 seek办不到
表结构
dlh fb
100 5
110 2
112 3
........
假如 我想查找 dl...