【摘要】民族地区教育行政部门急需成绩档案管理软件，市面上的商业软件又不适用，作者利用FOXPRO编写开发冕宁县中小学成绩档案管理系统，通过菜单操作实现学生信息的录入、修改、查询、打印等功能，本单位使用至今。现将源代码刊出以飨读者。

    【关键词】中小学 成绩档案 管理软件 源代码

    【中图分类号】G637.2 【文献标识码】A 【文章编号】2095-3089（2018）13-0216-03

    管理系统软件主菜单：MIS.PRG

    SET SCORE OFF

    SET STATUS OFF

    CLEAR ALL

    CLEAR

    SET TALK OFF

    DO WHIL .T.

    SET 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 OA

    DO CASE

    CASE OA=1

    DO XXMIS

    CASE OA=2

    DO ZXMIS

    CASE OA=3

    DO XTSM

    CASE OA=4

    SET COLOR TO

    SET SCORE ON

    SET STATUS ON

    CLEAR

    EXIT

    ENDCASE

    ENDDO

    QUIT

    RETURN

    管理系统软件说明：XTSM.PRG

    SET TALK OFF

    CLEAR ALL

    CLEAR

    SET TALK OFF

    DO WHIL .T.

    SET 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 ' '

    WAIT

    SET COLOR TO

    CLEAR

    EXIT

    ENDDO

    RETURN

    中学成绩档案管理子系统菜单：ZXMIS.PRG

    SET SCORE OFF

    SET STATUS OFF

    CLEAR ALL

    CLEAR

    SET TALK OFF

    DO WHIL .T.

    SET 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 '中学打印系统'

    @20，61 PROM '退出本系统吗'

    MENU TO OA

    DO CASE

    CASE OA=1

    DO ZXSY

    CASE OA=2

    DO ZXCX

    CASE OA=3

    DO ZXDY

    CASE OA=4

    SET COLOR TO

    SET SCORE ON

    SET STATUS ON

    CLEAR

    EXIT

    ENDCASE

    ENDDO

    RETURN

    中学成绩档案管理输入修改子系统：ZXSY.PRG

    SET TALK OFF

    CLEAR

    SET COLOR TO 7+/1+

    USE ZXSCDK

    HHH=0

    ACCEPT '请输入首个考生号（7113010001）：' TO HHH PICT '9999999999'

    LOCA FOR KH=HHH

    CLEAR

    DO 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 KH

    APPEND 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 SW

    READ

    SET COLOR TO 7+/1+

    WAIT '是否退出輸入成绩程序（Y/N）' TO YN

    IF UPPER（YN）='Y'

    EXIT

    ELSE

    SKIP

    GO RECNO（）

    CLEAR

    LOOP

    ENDIF

    ENDDO

    USE

    RETURN

    中学成绩档案查询子系统：ZZCX.PRG

    SET TALK OFF

    CLEAR

    SET COLOR TO 7+/5+

    USE ZXSCDK

    HHH=0

    ACCEPT '请输入要查询考生的考号（7113010001-711320？？？？）： ' TO HHH PICT '9999999999'

    LOCA FOR KH=HHH

    CLEAR

    DO 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 SW

    READ

    SET COLOR TO 7+/5+

    WAIT '是否退出查询成绩档案程序（Y/N）' TO YN

    IF UPPER（YN）='Y'

    EXIT

    ELSE

    SKIP

    GO RECNO（）

    CLEAR

    LOOP

    ENDIF

    ENDDO

    USE

    RETURN

    中学成绩打印子系统：ZXDY.PRG

    SET TALK OFF

    CLEAR ALL

    USE ZZSCDK

    MDYHS=50

    MYS=0

    SET DEVICE TO PRINT

    WPRN=.T.

    DO WHILE .NOT. EOF（）.AND.WPRN

    MYS=MYS+1

    MHS=0

    SET DEVI TO SCREEN

    DO WHILE SYS（13）=‘OFFLINE

    @10，20 SAY ‘打印机尚未准备好，按ESC退出

    J=INKEY（0）

    IF J=27

    USE

    RETURN

    ENDIE

    ENDDO

    SET 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 WHILE.NOT.ECF（）.AND.WPRN

    @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）

    SKIP

    MHS=MHS+1

    IF MHS=MDYHS.AND..T.EDF（）

    @PROW（）+1，0 SAY ‘----------------

    EXIT

    ENDIF

    ENDDO

    @PROW（）+1，0 SAY ‘----------------

    @PROW（）+1，0 SAY ‘程序设计：XXX：+SPACE（25）+‘本册共：+STR（RECCOUNT（））+‘人+SPACE（20）+‘第+STR（MYS，4）+‘ 页

    EJECT

    ENDDO

    CLOSE ALL

    USE

    @0，0 SAY ‘

    SET DEVICE TO SCREEN

    RETU

    注：本程序源代碼在英文状态下录入，调试。

    参考文献：

    [1]张森.中文版FOXBASE基础及应用.杭州大学出版社.1995.

    [2]訾秀珍.数据库应用技术FOXPRO. 清华大学出版社. 1999.

    [3]李春葆.VISUAL FOXPRO 6.0 高级实例开发指南.北京希望电子出版社.2001.

• 从学科教学走向学科教育
• 初中学困生辅导转化策略探究
• 高考生物复习备考：回归教材与研究错题
• 浅谈高中分层教学
• 不忘初心，砥砺前行
• 同题多作，曲径通“优”
• “说”出来的作业
• 提高小学思想品德课教学效率的策略
• 初中小组合作学习的分组策略探究
• 河源市文广旅体局开展河源市研学旅行业务培训会
• 两会@教育丨广东代表、委员提出：全面小康，补上乡村医疗教育短板
• 乡村学校家庭教育现状及改进策略
• 幼儿德育的渗透策略
• 捉高小孛作文教学的有效性新探
• 小学语文诗歌的教学策略
• 小学生课外阅读的指导策略
• 在生物教学巾发展学生的核心素荠
• 多维创新：教活初中思想政治课
• 部编版小学语文六年级教材解读及建议
• 自然拼读法在小学英语课堂教学中的应用
• 凝心聚力促公平，真抓实干提质量
• 运用多媒体让幼儿园语言活动教学焕发活力
• 传承中华优秀文化，发展语文核心素养
• 刍议有效缓解教师心理压力的策略
• 实践培养责任，活动绽放风采
• wolf-whistle
• wolf whistle
• wolf whistles
• wolf²
• wolf¹
• woman
• womandom
• womaned
• womanhead
• womanhood
• womanhoods
• womaning
• womanizer
• womankind
• womankinds
• womanless
• womanlier
• womanliest
• womanliness
• womanlinesses
• womanly
• womanness
• womannesses
• womans
• womb
• 管鲍之谊
• 管鲍之风
• 管鲍交
• 管鲍交情
• 管鲍亲
• 管鲍分金
• 管鲍志
• 管黄
• 箢
• 箢箕
• 箢篼(yuāndōu盛东西的器具，用竹篾等编成)抬狗
• 箣
• 箣竹
• 箦
• 箦底书
• 箧
• 箧中书
• 箧书潜递
• 箧扇
• 箧笥
• 箧簏
• 箧衍
• 箨
• 箨笋
• 箨龙