中小学成绩档案管理系统程序源代码

课程教育研究教学管理中小学成绩档案管理系统程序源代码苏光明（四川省凉山州冕宁县教师培训中心 四川 冕宁 615600）【摘要】民族地区教育行政部门急需成绩档案管理软件，市面上的商业软件又不适用，作者利用FOXPRO编写开发冕宁县中小学成绩档案管理系统，通过菜单操作实现学生信息的录入、修改、查询、打印等功能，本单位使用至今。现将源代码刊出以飨读者。【关键词】中小学　成绩档案　管理软件　源代码

【中图分类号】G637.2 【文献标识码】A 【文章编号】2095-3089（2018）13-0216-03管理系统软件主菜单： SCORE OFFSET STATUS OFFCLEAR ALLCLEARSET TALK OFFDO WHIL . COLOR TO 7+/1@20，29 SAY '操作提示：按光标键选择，按回车执行'SET COLOR TO 7+/4+@04，14 SAY ' 冕宁县教育局 'SET COLOR TO 0+/7+@05，20 SAY '---------------------'@07，20 SAY '---------------------'SET COLOR TO 1+/7@06，12 SAY '中小学成绩档案管理系统'SET COLOR TO 4+/7+@08，15 SAY '★★ VER6.0 ★★'SET COLOR TO 2+/7+@12，12 SAY '单位：冕宁县教育局 'SET COLOR TO 1+/7+@14，10 SAY '程序设计设计：苏光明'SET COLOR TO 4+/7+@14，32 SAY '-2002年1月-'SET COLOR TO 6+/7+@15，9 SAY '●●●●●●●●●●●●●'SET COLOR TO 0+/7+，7+/0+@03，61 PROM '小学管理系统'@07，61 PROM '中学管理系统'@11，61 PROM '系统功能简介' @15，61 PROM '退出管理系统' MENU TO OADO CASE

CASE OA=1DO XXMISCASE OA=2DO ZXMISCASE OA=3DO XTSMCASE OA=4SET COLOR TO

SET SCORE ON

SET STATUS ONCLEAREXITENDCASEENDDOQUITRETURN管理系统软件说明： TALK OFFCLEAR ALLCLEARSET TALK OFFDO WHIL . COLOR TO 7+/1@06，30 SAY ' 前 言'@07，08 SAY ' 管理系统是在冕宁县教育局和教仪站领导的关心、支持下，才编制'@08，08 SAY ' 出来的，没有领导的关心、支持不可能顺利完成的，由于时间较短，'@09，08 SAY ' 该管理系统还不很全面，有待进一步完善。进入管理系统主菜单后，'@10，08 SAY ' 用光标箭头选择，选中子管理系统后，回车键执行。即可进入管理，'@11，08 SAY ' 可以方便的进行数据输入、修改、查询、统计、打印等多种功能。 '@12，08 SAY ' '@13，08 SAY ' 'WAITSET COLOR TO

CLEAREXITENDDORETURN中学成绩档案管理子系统菜单： SCORE OFFSET STATUS OFFCLEAR ALLCLEARSET TALK OFFDO WHIL . COLOR TO 6+/7+@20，21 SAY '提示：光标键选择，回车执行'SET COLOR TO 7+/4+@04，14 SAY '冕宁县教育局 'SET COLOR TO 0+/7+@05，14 SAY '----------------------'@07，14 SAY '----------------------'SET COLOR TO 1+/7@06，14 SAY '中学生毕业成绩档案管理系统'SET COLOR TO 4+/7+@08，15 SAY '★★ VER1.0 ★★'SET COLOR TO 2+/7+@12，12 SAY '单位：冕宁县教育局 'SET COLOR TO 1+/7+@14，10 SAY '程序设计：苏光明'SET COLOR TO 4+/7+@14，32 SAY '-2002年11月-'SET COLOR TO 6+/7+@10，9 SAY ' 中学管理系统 'SET COLOR TO 0+/7+，7+/0+@03，61 PROM '中学输入系统'@07，61 PROM '中学修改系统'@11，61 PROM '中学查询系统'@15，61 PROM '中学打印系统'216

学法教法研究Copyright©博看网 . All Rights Reserved.

教学管理@20，61 PROM '退出本系统吗'MENU TO OADO CASE

CASE OA=1DO ZXSYCASE OA=2DO ZXCXCASE OA=3DO ZXDYCASE OA=4SET COLOR TO

SET SCORE ON

SET STATUS ONCLEAREXITENDCASEENDDORETURN中学成绩档案管理输入修改子系统： TALK OFFCLEARSET COLOR TO 7+/1+USE ZXSCDKHHH=0ACCEPT '请输入首个考生号（7113010001）：' TO HHH

PICT '9999999999'LOCA FOR KH=HHHCLEARDO WHILE .T. EOF（）@3，12 SAY ' 初中档案成绩录入'@4，12 SAY '=================='@5，12 SAY ' 程序设计：苏光明 '@6，12 SAY '=================='SET COLOR TO 4+/7+@8，18 SAY '┌─┬─┬─┬─┬─┬─┐'@9，18 SAY '│KH│ │XM│ │XB│ │'@10，18 SAY '├─┼─┼─┼─┼─┼─┤'@11，18 SAY '│QB│ │YW│ │SX│ │'@12，18 SAY '├─┼─┴─┴─┼─┼─┤'@13，6 SAY '│WY│ │ZZ│ │DL│ │'@14，6 SAY '├─┼─┼─┼─┼─┼─┤'@15，6 SAY '│LS│ │SW│ │ │ │'@18，6 SAY '└─┴─┴─┴─┴─┴─┘'SET COLO TO W/B@9，21 SAY KHAPPEND BLANK@9，32 GET XM@9，38 GET XB

@11，26 GET QB@11，32 GET YW@11，38 GET SX@13，26 GET WY@13，32 GET ZZ@13，38 GET DL@15，26 GET LS@15，32 GET SWREADSET COLOR TO 7+/1+WAIT '是否退出输入成绩程序（Y/N）' TO YNIF UPPER（YN）='Y'EXITELSESKIPGO RECNO（）CLEAR课程教育研究LOOPENDIFENDDOUSERETURN中学成绩档案查询子系统： TALK OFFCLEARSET COLOR TO 7+/5+USE ZXSCDKHHH=0ACCEPT '请输入要查询考生的考号（7113010001-711320）： ' TO HHH PICT '9999999999'LOCA FOR KH=HHHCLEARDO WHILE .T. EOF（）@2，12 SAY '初中档案成绩查询子系统'@3，12 SAY '**********************'@4，12 SAY ' 程序设计：苏光明 '@5，12 SAY '**********************'@6，6 SAY ' '@8，18 SAY '┌─┬─┬─┬─┬─┬─┐'@9，18 SAY '│KH│ │XM│ │XB│ │'@10，18 SAY '├─┼─┼─┼─┼─┼─┤'@11，18 SAY '│QB│ │YW│ │SX│ │'@12，18 SAY '├─┼─┴─┴─┼─┼─┤'@13，6 SAY '│WY│ │ZZ│ │DL│ │'@14，6 SAY '├─┼─┼─┼─┼─┼─┤'@15，6 SAY '│LS│ │SW│ │ │ │'@18，6 SAY '└─┴─┴─┴─┴─┴─┘'SET COLO TO W/B@9，32 SAY XM@9，38 SAY XB

@11，26 SAY QB@11，32 SAY YW@11，38 SAY SX@13，26 SAY WY@13，32 SAY ZZ@13，38 SAY DL@15，26 SAY LS@15，32 SAY SWREADSET COLOR TO 7+/5+WAIT '是否退出查询成绩档案程序（Y/N）' TO YNIF UPPER（YN）='Y'EXITELSESKIPGO RECNO（）CLEARLOOPENDIFENDDOUSERETURN中学成绩打印子系统： TALK OFFCLEAR ALLUSE ZZSCDKMDYHS=50MYS=0SET DEVICE TO PRINTWPRN=. WHILE .NOT. EOF（）.S=MYS+1学法教法研究 217Copyright©博看网 . All Rights Reserved.

课程教育研究MHS=0SET DEVI TO SCREENDO WHILE SYS（13）=‘OFFLINE’@10，20 SAY ‘打印机尚未准备好，按ESC退出’J=INKEY（0）IF J=27USERETURNENDIEENDDOSET DEVI TO PRINT@PROW（）+1，0 SAY CHR（27）+‘IB’@1，15 SAY ‘中学毕业考试成绩顺序册@PROW（）+1，0 SAY CHR（27）+IA@PROW（）+1，1 SAY‘四川省冕宁县’@PROW（），75 SAY ’日期：’+STR（YEAR（DATE（）），4）+’年’+STR（MONTH（DATE（）），2）+’月’+STR（DAY（DATE（）），2）+’日’@PROW（）+1，0 SAY‘------------------’@PROW（）+1，0 SAY‘考姓性民政语数外历地’@PROW（）+1，0 SAY‘号名别族治文学语史理’@PROW（）+1，0 SAY‘------------------’DO （）.@PROW（）+1，0 SAY KH+‘’+XM+XB+QB+LB+STR（ZZI，6，1）+STR（ZZ，6，1）+STR（YIW，6，1）+STR（SUX，6，1）+STR（WUL，6，1）+STR（HUX，6，1）+STR（WIY，6，1）+STR（LIS，6，1）+STR（YIY，6，1）+STR（TIY，6，1）教学管理+STR（ZF，6，1）SKIPMHS=MHS+1IF MHS=..（）@PROW（）+1，0 SAY ‘----------------’EXITENDIFENDDO@PROW（）+1，0 SAY ‘----------------’@PROW（）+1，0 SAY ‘程序设计：XXX：’+SPACE（25）+‘本册共：’+STR（RECCOUNT（））+‘人’+SPACE（20）+‘第’+STR（MYS，4）+‘ 页’EJECTENDDOCLOSE ALLUSE‘ ’@0，0 SAY

SET DEVICE TO SCREENRETU注：本程序源代码在英文状态下录入，调试。参考文献：[1]张森.中文版FOXBASE基础及应用.杭州大学出版社.1995.[2]訾秀珍.数据库应用技术FOXPRO. 清华大学出版社.

1999.[3]李春葆.VISUAL FOXPRO 6.0 高级实例开发指南.北京希望电子出版社.2001.如何做好新形势下的班主任工作秦 雨 张春华（朝阳市卫生学校 辽宁 朝阳 122000）【中图分类号】G625.1 【文献标识码】A 【文章编号】2095-3089（2018）13-0218-02班主任，顾名思义就是一个班级的“总管”，要负责整个班了丰富的学生管理经验，遇事不慌，处事较稳，这都是我学习的级管理的全面工作。包括一个班级整体的发展、班级事务的处理、宝贵经验。通过学习，我发现在班主任工作中耐心和细心都是不学生未来的职业规划等等。尤其是作为一名专业性强的中等卫生可或缺的，因此，我在平时的细微工作中，将他们的经验和长处学校的班主任老师，工作起来又有特殊性。近年来，随着我国经进行引用，确实有效果。济的快速发展和人民生活水平的提高，社会生活发生了根本性的（2）多和科任教师交流变化。中等卫校的生源、学生的就业和过去相比有了很大变化，我校课程的设置一般都是至少一门课一个学期，相对来说，学生管理总会遇到新问题，做好新形势下的班主任工作就显得非班主任和学生接触的时间主要集中在课前课后，学生在上课期间常重要。如何做一名合格的班主任，我作为一名护理专业的年轻的表现情况只有科任老师了解，多和科任老师交流就是班级管理班主任，在工作中也积累了一些经验，现将体会交流如下，以增必不可少的环节。在护理专业新生第一学期的管理中，我经常和进大家的交流和共同提高。《解剖学》、《微生物学》等课程的任课教师交流，了解学生的上一、加强学习，这是与时俱进的需要课状态和学习效果，特别是每个学生的实际表现非常重要。结合1.学习理论知识，用知识武装自己提高自己学生的学习成绩，就会对每个学生增进了解。在日常工作中，多参加理论学习，充实自己。有了理论指导，（3）多和学生管理部门交流才能做好本职工作。关心国家大事，关注国家发展，积极参加各业余时间，增加和学生处老师的交流，了解班级在学校同专业班级的整体情况，以加强对班级的整体管理，尤其是班级纪律、类学习和培训，开阔视野增长见识，并把理论用于实际的班主任学生违纪情况的处理等等。工作中。（4）加强班主任管理理论的学习2.提高专业技能参加各类学习和培训，学习理论和经验，结合实际情况补充中等卫校是专业性很强的医学类职业技术学校，作为一名班到自己的实际工作中。现在网络、手机的使用给我们学习提供了主任，首先是一名专业课教师，多向有经验的同事请教学习，学便利，业余时间，查找资料，加强理论学习，提高自身的管理能习别人工作中的长处，及时发现自己的缺点和不足。不断提高自力和水平，使自己不断进步。己的专业素质和业务能力，只有这样，才能在班级管理中对学生二、加强对学生的了解，使班主任工作有的放矢有积极的影响作用，以身作则、为人师表，利于班主任的管理工作。1.了解学生的性格特点、学习基础和家庭经济情况3.学习管理技巧学生都来自不同的家庭，性格、生活习惯和学习习惯差别很班主任工作琐碎而繁杂，如何事半功倍，既能管理好班级，又能有效率有成绩，这是我作为一名年轻班主任需要学习的地方。大，因此了解每个学生的实际情况，拉近和学生的距离，便于班主任的管理工作。另外，了解学生的家庭经济情况，对经济困难因此，我做了以下几点尝试：的学生，及时上报学校，通过各种方式给予帮助和解决。同时，（1）向优秀班主任请教杜绝学生互相攀比，培养高尚的情操，加强内涵建设。我校有许多优秀的班主任，他们在长期的班主任工作中积累218

学法教法研究Copyright©博看网 . All Rights Reserved.