【摘要】民族地區(qū)教育行政部門急需成績檔案管理軟件，市面上的商業(yè)軟件又不適用，作者利用FOXPRO編寫開發(fā)冕寧縣中小學成績檔案管理系統(tǒng)，通過菜單操作實現(xiàn)學生信息的錄入、修改、查詢、打印等功能，本單位使用至今。現(xiàn)將源代碼刊出以饗讀者。

【關(guān)鍵詞】中小學 成績檔案 管理軟件 源代碼

【中圖分類號】G637.2 【文獻標識碼】A 【文章編號】2095-3089（2018）13-0216-03

管理系統(tǒng)軟件主菜單：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 '操作提示：按光標鍵選擇，按回車執(zhí)行'

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 '中小學成績檔案管理系統(tǒng)'

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 '程序設(shè)計設(shè)計：蘇光明'

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 '小學管理系統(tǒng)'

@07，61 PROM '中學管理系統(tǒng)'

@11，61 PROM '系統(tǒng)功能簡介'

@15，61 PROM '退出管理系統(tǒng)'

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

管理系統(tǒng)軟件說明：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 ' 管理系統(tǒng)是在冕寧縣教育局和教儀站領(lǐng)導(dǎo)的關(guān)心、支持下，才編制'

@08，08 SAY ' 出來的，沒有領(lǐng)導(dǎo)的關(guān)心、支持不可能順利完成的，由于時間較短，'

@09，08 SAY ' 該管理系統(tǒng)還不很全面，有待進一步完善。進入管理系統(tǒng)主菜單后，'

@10，08 SAY ' 用光標箭頭選擇，選中子管理系統(tǒng)后，回車鍵執(zhí)行。即可進入管理，'

@11，08 SAY ' 可以方便的進行數(shù)據(jù)輸入、修改、查詢、統(tǒng)計、打印等多種功能。 '

@12，08 SAY ' '

@13，08 SAY ' '

WAIT

SET COLOR TO

CLEAR

EXIT

ENDDO

RETURN

中學成績檔案管理子系統(tǒng)菜單：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 '提示：光標鍵選擇，回車執(zhí)行'

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 '中學生畢業(yè)成績檔案管理系統(tǒng)'

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 '程序設(shè)計：蘇光明'

SET COLOR TO 4+/7+

@14，32 SAY '-2002年11月-'

SET COLOR TO 6+/7+

@10，9 SAY ' 中學管理系統(tǒng) '

SET COLOR TO 0+/7+，7+/0+

@03，61 PROM '中學輸入系統(tǒng)'

@07，61 PROM '中學修改系統(tǒng)'

@11，61 PROM '中學查詢系統(tǒng)'

@15，61 PROM '中學打印系統(tǒng)'

@20，61 PROM '退出本系統(tǒng)嗎'

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

中學成績檔案管理輸入修改子系統(tǒng)：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 ' 程序設(shè)計：蘇光明 '

@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

中學成績檔案查詢子系統(tǒng)：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 '初中檔案成績查詢子系統(tǒng)'

@3，12 SAY '**********************'

@4，12 SAY ' 程序設(shè)計：蘇光明 '

@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

中學成績打印子系統(tǒng)：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 ‘中學畢業(yè)考試成績順序冊

@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‘考姓性民政語數(shù)外歷地

@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 ‘程序設(shè)計：XXX：+SPACE（25）+‘本冊共：+STR（RECCOUNT（））+‘人+SPACE（20）+‘第+STR（MYS，4）+‘ 頁

EJECT

ENDDO

CLOSE ALL

USE

@0，0 SAY ‘

SET DEVICE TO SCREEN

RETU

注：本程序源代碼在英文狀態(tài)下錄入，調(diào)試。

參考文獻：

[1]張森.中文版FOXBASE基礎(chǔ)及應(yīng)用.杭州大學出版社.1995.

[2]訾秀珍.數(shù)據(jù)庫應(yīng)用技術(shù)FOXPRO. 清華大學出版社. 1999.

[3]李春葆.VISUAL FOXPRO 6.0 高級實例開發(fā)指南.北京希望電子出版社.2001.