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

1、學(xué)生綜測管理系統(tǒng) 一. 需求分析(一) 數(shù)據(jù)分析1. 原始數(shù)據(jù)包括4個表:(1) 會計一班綜測成績單(2) 會計二班綜測成績單(3) 會計三班綜測成績單(4) 財務(wù)管理班綜測成績單 2.表內(nèi)容:字段字 段 名類型寬度小數(shù)位索引排序Nulls1學(xué)年學(xué)期C6升序否2姓名C6否3班號C6否4學(xué)號C11否5德育分N21否6智育分N21否7智育分N21否8總分N21否9名次C1否 3.表單（封面）：要求：在用戶名中輸入學(xué)號 密碼中輸入數(shù)字“0” 點擊“確認”按鈕后進入主菜單如果未輸入密碼時，顯示 如果輸入密碼錯誤時，顯示 4.菜單： （1）數(shù)據(jù)瀏覽：例如點擊“瀏覽”欄中的財管班綜測，得： （2）數(shù)據(jù)編輯

2、：例如點擊“編輯”按鈕欄中的會計二班得： （3）數(shù)據(jù)查詢：按照學(xué)號查詢個人綜測成績 例如查詢學(xué)號為20101000001的學(xué)生的綜測得 如果學(xué)好不存在時，顯示 5.退出：點擊“退出”按鈕時，顯示 點擊“是”則可以退出系統(tǒng)。二. 程序設(shè)計主程序 set talk off close all do form fm modify wind screen titl地大經(jīng)管學(xué)生綜測管理系統(tǒng) clear do cxcd.mpr read event quit 菜單部分 瀏覽子菜單代碼：會計一班綜測use kj1brow會計二班綜測use kj2brow會計三班綜測use kj3brow財管綜測use cg

3、brow編輯子菜單代碼：編輯會計一班use kj1append編輯會計二班use kj2append編輯會計三班use kj3append編輯財管班use cgappend查詢子菜單代碼：會計一班use kj1do while .T. accept 請輸入要查詢的學(xué)生學(xué)號(輸入0結(jié)束查詢):to xhif xh=0 exitendiflocate for alltrim(學(xué)號)=xhif found()disp for alltrim(學(xué)號)=xhelsewait 沒有此學(xué)號! window endifenddo會計二班use kj2do while .T. accept 請輸入要查詢的學(xué)生學(xué)

4、號(輸入0結(jié)束查詢):to xhif xh=0 exitendiflocate for alltrim(學(xué)號)=xhif found()disp for alltrim(學(xué)號)=xhelsewait 沒有此學(xué)號! window endifenddo會計三班use kj3do while .T. accept 請輸入要查詢的學(xué)生學(xué)號(輸入0結(jié)束查詢):to xhif xh=0 exitendiflocate for alltrim(學(xué)號)=xhif found()disp for alltrim(學(xué)號)=xhelsewait 沒有此學(xué)號! window endifenddo財管班use cgdo

5、 while .T. accept 請輸入要查詢的學(xué)生學(xué)號(輸入0結(jié)束查詢):to xhif xh=0 exitendiflocate for alltrim(學(xué)號)=xhif found()disp for alltrim(學(xué)號)=xhelsewait 沒有此學(xué)號! window endifEnddo匯總查詢use hzdo while .T. accept 請輸入要查詢的學(xué)生學(xué)號(輸入0結(jié)束查詢):to xhif xh=0 exitendiflocate for alltrim(學(xué)號)=xhif found()disp for alltrim(學(xué)號)=xhelsewait 沒有此學(xué)號! w

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

7、：use xklbif a=n=messagebox(請輸入用戶名,4+32,學(xué)生管理系統(tǒng)登陸)do casecase n=6thisform.text1.value=case n=7thisform.releaseendcaseelseif b=n=messagebox(請輸入密碼,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.mpr thisform.release else messagebox(密碼錯誤，請重新輸入,64,學(xué)