VFP設計學生成績管理系統(tǒng)

6.3查詢功能模塊查詢功能可以按學校、姓名和考號中的任何一種方式，對考生的成績進行查詢?？忌畔牒螅蜷_的表單,如圖6.8所示，在“按學校”的下拉列表框中所列的學校是系統(tǒng)自動將不同的參賽學校列進去的。用戶只要選擇一個學校，單擊“確定”按鈕，即可在表格中列出該學?？忌某煽冃畔?。同時，單擊“導出EXCEL”按鈕，可保存該學校考生的成績單，還可利用本系統(tǒng)提拱的發(fā)送電子郵件功能，將該學校考生的成績單發(fā)送給該學校。另外，只要將光標移到“按考號”或“按姓名”的文本框中，輸入考號或姓名，單擊“確定”按鈕，表格即顯示該學生的考試成績[4]。圖6.8查詢表單實現(xiàn)系統(tǒng)自動將不同的參賽學校列進下拉列表框功能，需要在表單Form1的Activate事件中加入如下代碼：counttonum

&&判斷記錄數(shù)gotopifnum==0

&&無記錄

messagebox("請先錄入考生信息",64,"提示")

thisform.releaseelse

&&有記錄

setorderto1

&&打開索引,按學校升序排

gotop

a=學校

bo1.additem(a)

&&將首記錄的學校名加進去

skip

dowhilenoteof()

&&以下代碼完成移動指針的作用,將不同的學校名加入組合框

if學校==a

skip

else

bo1.additem(學校)

skip

a=學校

endif

enddo

setorderto

&&關閉索引endif6.4排序功能模塊排序功能包括按團體排序和按個人排序，實現(xiàn)對考生成績的統(tǒng)計、排序等功能。6.4.1按團體排序功能考生信息導入后，打開的表單，如圖6.9所示，這里所說的團體是指學校，一個學校代表一個團體，本系統(tǒng)自動將考生人數(shù)十人以上（包括十人）的學校放在一個列表框中，不滿足十人的學校放在另一個列表框中，單擊學校即可顯示該學校的考生人數(shù)和總分。單擊“確定”按鈕，即可在表格中列出考生人數(shù)十人以上（包括十人）的學校總分前十名考生的總分累加作為該團體的分數(shù)，并將每個團體按分數(shù)遞減排列，如圖6.10所示。

圖6.9按團體排序的表單

圖6.10排序后的表單表單中“確定”按鈕的Click事件代碼如下：setorderto1

&&打開索引，按學校升序排copytozffields學校,總分

&&選擇部分字段復制成新表zf.dbfusezf****以下代碼實現(xiàn)的是如果考生人數(shù)小于十人將刪除該學校****dowhilerecno()==1

&&如果首記錄的學校考生人數(shù)小于十人將刪除該學校

a=學校

countfor

學校==a

toi

&&i存放的學校的記錄個數(shù)

ifi<10

delefor學校==a

&&記錄個數(shù)不足十個刪除

pack

i=0

endifenddo

gotop

a=學校

&&將首記錄的學校名賦給變量adowhilerecn()<>recc()

skip

&&指向下一記錄

ifa<>學校

&&判斷下一記錄是否與原記錄相同，如不同，賦給變量a

a=學校

endif

countfor

學校==a

toi

&&i存放的學校的記錄個數(shù)

ifi<10

delefor學校==a

&&記錄個數(shù)不足十個刪除

pack

i=0

endif

b=b+i

gob

&&gob始終指向的是不同學校分界處上一學校（包含十個記錄）的末記錄enddo

totalon學校to

xffields總分&&按學校匯總總分，寫入新表xf.dbfusexfindexon總分tagzfdescending

&&建立索引，按總分降序排thisformset.form1.hidethisformset.form2.show

6.4.2按個人排序功能該功能分別實現(xiàn)了對所有的考生按第一試、第二試和總分成績降序的排序。如圖6.11所示的按第一試成績降序的排序。圖6.11按第一試成績降序的排序的表單6.5打印功能模塊打印部分提供學校成績單和個人總分名次打印功能，對需要打印的相關信息可及時進行打印。6.5.1打印學校成績單功能考生信息導入后，打開的表單，如圖6.12所示，在“選擇學?！钡南吕斜砜蛑械膶W校是系統(tǒng)自動將不同的參賽學校列進去的。用戶只要選擇一個學校，單擊“確定”按鈕，即可打印所選的學校的成績單。另外，用戶也可單擊“預覽”按鈕，瀏覽所選學校的成績單，如圖6.13所示。圖6.12學校成績單的表單圖6.13預覽所選學校的成績單6.5.2打印個人總分名次功能該功能實現(xiàn)的是按名次打印個人總分，用戶可以選擇打印前幾名的考生的成績。另外，如選擇打印考生前0名考生，將打印所有考生的成績。該表單也提拱了預覽的功能，同時也可單擊“確定”按鈕，直接打印,如圖6.14所示。圖6.14打印個人總分的表單表單中“預覽”按鈕的Click事件中代碼如下：ifthisform.spinner1.value==0

&&判斷打印所有考生

reportformksxxenvironmentpreview

ifmessagebox('確實要打印所有考生嗎？',1+3+256,'提示')=6

reportformksxxenvironmenttoprinter&&打印符合條件的報表

messagebox("所有考生成績單已打印",64,"提示")

endifelse

reportformksxxenvironmentnext(thisform.spinner1.value)preview&&預覽符合條件的報表

ifmessagebox('確實要打印嗎？',1+3+256,'提示')=6

reportformksxxenvironmentnext(thisform.spinner1.value)toprinter&&打印符合條件的報表

messagebox("考生前"+allt(str(thisform.spinner1.value))+"名成績單已打印",64,"提示")

endife