VF課程設(shè)計(jì)學(xué)生成績管理系統(tǒng)

1、學(xué)生綜測管理系統(tǒng)需求分析 （一）數(shù)據(jù)分析1.原始數(shù)據(jù)包括4個(gè)表:(1)會(huì)計(jì)班綜測成績單會(huì)計(jì)二班綜測成績單會(huì)計(jì)二班綜測成績單財(cái)務(wù)管理班綜測成績單2. 表內(nèi)容:字段字段名類型寬度小數(shù)位索引排序Nulls1學(xué)年學(xué)期C6升序否2姓名C6否3班號(hào)C6否4學(xué)號(hào)C11否5德育分N21否6智育分N21否7智育分N21否8總分N21否9名次C1否3. 表單（封面）：學(xué)生綜測管理系統(tǒng)用戶名：石馬:要求：在用戶名中輸入學(xué)號(hào)密碼中輸入數(shù)字“ 0 ” 點(diǎn)擊“確認(rèn)”按鈕后進(jìn)入主菜單如果未輸入密碼時(shí)，顯示星弋如果輸入密碼錯(cuò)誤時(shí)，顯示4. 菜單:獺地大鮭管學(xué)主綜測醬理盛瀏覽鈿童甸退岀聲助。闔口|昌鳥療1紂髦1墮1! |蝕|(

2、1)數(shù)據(jù)瀏覽：例如點(diǎn)擊“瀏覽”欄中的財(cái)管班綜測，得:名次767933 - 4 - I - 2 1 - 2 - 2 - o - .- I 9 8 i 86 - 8 6 - E-15二2-0-3-32G11-1j20101000016:徐尚OBTlOl2011-1S1101000017鯨!0B71012011-1101000019陳舒逸0&T1012011-1 taoioionooigfOETlOl2011-1=20101000020弓*苗苗iOSTlOl姓名 班號(hào)2期學(xué) 分分分 年號(hào)名號(hào)育育旨分次 學(xué)學(xué)姓班諜智休總fe(3)數(shù)據(jù)查詢：按照學(xué)號(hào)查詢個(gè)人綜測成績例如查詢學(xué)號(hào)為 2010100

3、0001的學(xué)生的綜測得請(qǐng)輸入要查詢的學(xué)生學(xué)號(hào)瞞入0結(jié)束查詢:20101000001辺最呂學(xué)圧學(xué)期學(xué)呂晚1 2013-120101000001爭蓬逋fig034LC129.479.8B 285,5 3請(qǐng)輸入要查詢的學(xué)生學(xué)號(hào)唏入0結(jié)束查詢:顯示如果學(xué)好不存在時(shí)，沒有此學(xué)號(hào)!5.退出：點(diǎn)擊“退出”按鈕時(shí)，顯示點(diǎn)擊“是”則可以退出系統(tǒng)。二.程序設(shè)計(jì)主程序set talk offclose alldo form fmmodify wind screen titl'地大經(jīng)管學(xué)生綜測管理系統(tǒng)cleardo cxcd.mprread eve ntquit菜單部分瀏覽子菜單代碼: 會(huì)計(jì)一班綜測 use

4、kj1 brow 會(huì)計(jì)二班綜測 use kj2 brow 會(huì)計(jì)三班綜測 use kj3 brow 財(cái)管綜測 use cg brow 編輯子菜單代碼： 編輯會(huì)計(jì)一班 use kj1 append 編輯會(huì)計(jì)二班 use kj2 append 編輯會(huì)計(jì)三班 use kj3 append 編輯財(cái)管班 use cg append 查詢子菜單代碼： 會(huì)計(jì)一班 use kj1 do while .T.accept "請(qǐng)輸入要查詢的學(xué)生學(xué)號(hào) （輸入 0結(jié)束查詢 ）:"to xh if xh='0'exitendiflocate for alltrim（ 學(xué)號(hào) ）=xhif

5、found（）disp for alltrim（ 學(xué)號(hào) ）=xhelsewait " 沒有此學(xué)號(hào) !" window endifenddo 會(huì)計(jì)二班 use kj2 do while .T.accept "請(qǐng)輸入要查詢的學(xué)生學(xué)號(hào) （輸入 0結(jié)束查詢 ）:"to xh if xh='0'exitendiflocate for alltrim（ 學(xué)號(hào) ）=xhif found（）disp for alltrim（ 學(xué)號(hào) ）=xhelsewait " 沒有此學(xué)號(hào) !" windowendif enddo 會(huì)計(jì)三班 use k

6、j3 do while .T.accept "請(qǐng)輸入要查詢的學(xué)生學(xué)號(hào)（輸入0結(jié)束查詢）:"to xh if xh='0'exitendiflocate for alltrim（學(xué)號(hào)）=xhif found（）disp for alltrim（學(xué)號(hào)）=xhelsewait " 沒有此學(xué)號(hào) !" windowendifenddo財(cái)管班use cgdo while .T.accept "請(qǐng)輸入要查詢的學(xué)生學(xué)號(hào) （輸入 0結(jié)束查詢 ）:"to xh if xh='0'exitendiflocate for al

7、ltrim（學(xué)號(hào)）=xhif found（）disp for alltrim（學(xué)號(hào)）=xhelsewait " 沒有此學(xué)號(hào) !" windowendifEnddo匯總查詢use hz do while .T.accept "請(qǐng)輸入要查詢的學(xué)生學(xué)號(hào)（輸入0結(jié)束查詢）:"to xhif xh='0'exitendiflocate for alltrim（學(xué)號(hào)）=xhif found（）disp for alltrim（學(xué)號(hào)）=xhelsewait " 沒有此學(xué)號(hào) !" windowendifEnddo退出代碼：ask=me

8、ssagebox（確實(shí)要退出系統(tǒng)嗎",4+32+256,"學(xué)生綜測管理系統(tǒng)"）if ask=6close allquitelseendif幫助子菜單代碼：版本信息clearuse 版本list封面部分代碼數(shù)據(jù)環(huán)境中加入新口令表（ xklb.dbf ，存密碼和學(xué)號(hào)）Fn 中寫：Public errornumber,PsErrornumber=0退出的 click 中寫：ask=messagebox（確定要退出系統(tǒng)嗎？",4+32+256,學(xué)生綜測管理系統(tǒng)"） if ask=6 close allquitelseendif確定的 c

9、lick 中寫：use xklbif a=""n=messagebox（請(qǐng)輸入用戶名",4+32,"學(xué)生管理系統(tǒng)登陸"） do case case n=6thisform.text1.value=""case n=7thisform.release endcaseelse if b=""n=messagebox(請(qǐng)輸入密碼",4+32,"學(xué)生管理系統(tǒng)登陸") do casecase n=6thisform.text2.value=""case n=7thisform.releaseendcaseendifendiflocate for alltrim(xklb.Id)=alltrim(a)if found()if alltrim(xklb.Ps)=alltrim(b)do cxcd.mprthisform.releaseelsemessagebox(密碼錯(cuò)誤，請(qǐng)重新輸入",64,&q