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

【摘要】民族地区教育行政部门急需成绩档案管理软件，市面上的商业软件又不适用，作者利用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.