中小學(xué)成績(jī)檔案管理系統(tǒng)程序源代碼

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

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

【中圖分類號(hào)】G637.2 【文獻(xiàn)標(biāo)識(shí)碼】A 【文章編號(hào)】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 '操作提示：按光標(biāo)鍵選擇，按回車執(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 '中小學(xué)成績(jī)檔案管理系統(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è)計(jì)設(shè)計(jì)：蘇光明'

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

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

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

@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)軟件說(shuō)明：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ái)的，沒(méi)有領(lǐng)導(dǎo)的關(guān)心、支持不可能順利完成的，由于時(shí)間較短，'

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

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

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

@12，08 SAY ' '

@13，08 SAY ' '

WAIT

SET COLOR TO

CLEAR

EXIT

ENDDO

RETURN

中學(xué)成績(jī)檔案管理子系統(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 '提示：光標(biāo)鍵選擇，回車執(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 '中學(xué)生畢業(yè)成績(jī)檔案管理系統(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è)計(jì)：蘇光明'

SET COLOR TO 4+/7+

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

SET COLOR TO 6+/7+

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

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

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

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

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

@15，61 PROM '中學(xué)打印系統(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

中學(xué)成績(jī)檔案管理輸入修改子系統(tǒng)：ZXSY.PRG

SET TALK OFF

CLEAR

SET COLOR TO 7+/1+

USE ZXSCDK

HHH=0

ACCEPT '請(qǐng)輸入首個(gè)考生號(hào)（7113010001）：' TO HHH PICT '9999999999'

LOCA FOR KH=HHH

CLEAR

DO WHILE .T. EOF（）

@3，12 SAY ' 初中檔案成績(jī)錄入'

@4，12 SAY '=================='

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

@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 '是否退出輸入成績(jī)程序（Y/N）' TO YN

IF UPPER（YN）='Y'

EXIT

ELSE

SKIP

GO RECNO（）

CLEAR

LOOP

ENDIF

ENDDO

USE

RETURN

中學(xué)成績(jī)檔案查詢子系統(tǒng)：ZZCX.PRG

SET TALK OFF

CLEAR

SET COLOR TO 7+/5+

USE ZXSCDK

HHH=0

ACCEPT '請(qǐng)輸入要查詢考生的考號(hào)（7113010001-711320？？？？）： ' TO HHH PICT '9999999999'

LOCA FOR KH=HHH

CLEAR

DO WHILE .T. EOF（）

@2，12 SAY '初中檔案成績(jī)查詢子系統(tǒng)'

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

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

@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 '是否退出查詢成績(jī)檔案程序（Y/N）' TO YN

IF UPPER（YN）='Y'

EXIT

ELSE

SKIP

GO RECNO（）

CLEAR

LOOP

ENDIF

ENDDO

USE

RETURN

中學(xué)成績(jī)打印子系統(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 ‘打印機(jī)尚未準(zhǔn)備好，按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 ‘中學(xué)畢業(yè)考試成績(jī)順序冊(cè)

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

@PROW（）+1，0 SAY‘號(hào)名別族治文學(xué)語(yǔ)史理

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

EJECT

ENDDO

CLOSE ALL

USE

@0，0 SAY ‘

SET DEVICE TO SCREEN

RETU

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

參考文獻(xiàn)：

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

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

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