vfp課程設(shè)計(jì)報(bào)告--- 班級(jí)學(xué)生成績(jī)管理系統(tǒng)

1、<p>　　課 程 設(shè) 計(jì) 報(bào) 告</p><p>　　課程名稱 VFP數(shù)據(jù)庫管理系統(tǒng) </p><p>　　課題名稱 班級(jí)學(xué)生成績(jī)管理系統(tǒng) </p><p>　　專 業(yè) 統(tǒng)計(jì)學(xué) </p><p>　　班 級(jí) 統(tǒng)計(jì)學(xué)120X

2、班 </p><p>　　學(xué) 號(hào) </p><p>　　姓 名 </p><p>　　指導(dǎo)教師 </p><p>　　2014年 1 月 6 日</p

3、><p>　　一、設(shè)計(jì)內(nèi)容與設(shè)計(jì)要求</p><p><b>　　1．設(shè)計(jì)內(nèi)容：</b></p><p>　　課題一：班級(jí)學(xué)生成績(jī)管理系統(tǒng)</p><p>　　在我學(xué)院每學(xué)期都要進(jìn)行學(xué)生的考試成績(jī)管理，學(xué)生成績(jī)信息是學(xué)生在校學(xué)習(xí)是否合格的重要依據(jù)。以往，學(xué)生成績(jī)都是由老師手工登記、計(jì)算、統(tǒng)計(jì)完成。既消耗老師的大量精力，而且登

4、記、計(jì)算和統(tǒng)計(jì)的過程中容易出錯(cuò)。實(shí)現(xiàn)學(xué)生成績(jī)的計(jì)算機(jī)管理，能提高效率及準(zhǔn)確率，并且為成績(jī)信息的查詢帶來極大的方便和快捷。</p><p>　　1、學(xué)生的成績(jī)管理系統(tǒng)應(yīng)具有以下功能： </p><p>　　學(xué)生基本信息管理，主要完成學(xué)生基本信息的添加、修改、刪除和瀏覽；</p><p>　　學(xué)生成績(jī)管理，主要完成各門課程成績(jī)的添加、修改、刪除和瀏覽；</p>

5、;<p>　　信息查詢，能夠查詢每個(gè)學(xué)生多種成績(jī)信息、排名情況等；</p><p>　　實(shí)現(xiàn)個(gè)人成績(jī)、課程成績(jī)、班級(jí)成績(jī)等的統(tǒng)計(jì)。</p><p><b>　　2、數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)</b></p><p>　　按照系統(tǒng)不同的功能模塊，需要不同的表來存儲(chǔ)信息，數(shù)據(jù)庫設(shè)計(jì)如下：</p><p>　　學(xué)生基本信息表

6、STUINFO</p><p>　　學(xué)生成績(jī)信息表SCORE</p><p><b>　　2．設(shè)計(jì)要求：</b></p><p>　　掌握結(jié)構(gòu)化程序設(shè)計(jì)和面向?qū)ο蟪绦蛟O(shè)計(jì)的主體思想，以自頂向下逐步求精的方法編制程序解決一些實(shí)際的問題，為將來編寫軟件積累一些典型的案例處理經(jīng)驗(yàn)。</p><p>　　(1)按學(xué)號(hào)順序選課題號(hào)

7、，并在規(guī)定的時(shí)間內(nèi)獨(dú)自完成相關(guān)課題的項(xiàng)目開發(fā)、VFP源程序編寫、調(diào)整和運(yùn)行。源程序及編譯生成各文件均保存；</p><p>　　(2)按本任務(wù)書的要求，編寫《課程設(shè)計(jì)報(bào)告》（Word文檔格式）。并用A4的復(fù)印紙打印并裝訂； </p><p>　　(3)在2014年1月6日之前，請(qǐng)各班學(xué)習(xí)委員收齊課程設(shè)計(jì)報(bào)告交黃曉宇老師 ，聯(lián)系電話：13007443755。</p><

8、;p><b>　　附：</b></p><p>　　課程設(shè)計(jì)報(bào)告內(nèi)容要求如下：</p><p><b>　　封面 </b></p><p><b>　　課程設(shè)計(jì)任務(wù)書</b></p><p><b>　　課程設(shè)計(jì)主文檔</b></p>

9、;<p><b>　　內(nèi)容如下：</b></p><p><b>　　課程設(shè)計(jì)題目 </b></p><p><b>　　課程設(shè)計(jì)目的</b></p><p><b>　　課程設(shè)計(jì)主要任務(wù)</b></p><p><b>　　設(shè)計(jì)環(huán)

10、境</b></p><p><b>　　總體設(shè)計(jì)方案的選定</b></p><p>　?。ㄖ骺啬K和各子模塊的設(shè)計(jì)方法及框圖）</p><p><b>　　源程序清單</b></p><p><b>　　收獲及體會(huì)</b></p><p>&

11、lt;b>　　參考資料</b></p><p>　　四、報(bào)告內(nèi)容要求用宋體五號(hào)字，主標(biāo)題用黑三號(hào)、一級(jí)標(biāo)題用黑四號(hào)字，二級(jí)標(biāo)題用宋體小四號(hào)字加粗，要求用A4紙張打印出來。</p><p>　　課程設(shè)計(jì)說明書裝訂順序：封面、任務(wù)書、正文、附件（A4大小的圖紙及程序清單）。 </p><p><b>　　二、進(jìn)度安排</b>&l

12、t;/p><p>　　第18周，具體安排如下：</p><p>　　湖南工程學(xué)院計(jì)算機(jī)與通信學(xué)院</p><p>　　2013年12月 26 日</p><p>　　班級(jí)學(xué)生成績(jī)管理系統(tǒng)</p><p><b>　　一、引言</b></p><p><b>　　1、開

13、發(fā)背景</b></p><p>　　班級(jí)學(xué)生成績(jī)管理，通常是使用人工方式，效率低且容易出現(xiàn)錯(cuò)誤。通過班級(jí)學(xué)生成績(jī)管理軟件來進(jìn)行成績(jī)管理，高效、準(zhǔn)確無誤，查詢、統(tǒng)計(jì)方便易行，給班級(jí)成員帶來了很大的方便。</p><p><b>　　2、實(shí)現(xiàn)目標(biāo)</b></p><p>　　根據(jù)實(shí)際需要，編寫班級(jí)學(xué)生成績(jī)管理系統(tǒng)，解決傳統(tǒng)手工方式的成績(jī)

14、管理，達(dá)到減少工作量、方便進(jìn)行成績(jī)查詢、實(shí)現(xiàn)自動(dòng)的成績(jī)統(tǒng)計(jì)，提高效率的目的。</p><p><b>　　具體如下：</b></p><p>　　班級(jí)學(xué)生基本信息維護(hù)：包括班級(jí)學(xué)生基本信息的錄入、修改、刪除、查詢等</p><p>　　班級(jí)學(xué)生成績(jī)信息維護(hù)：包括班級(jí)學(xué)生成績(jī)信息的錄入、修改、刪除等</p><p>　　成

15、績(jī)查詢：包括按學(xué)號(hào)、姓名兩種方式進(jìn)行成績(jī)查詢</p><p>　　成績(jī)統(tǒng)計(jì)：包括個(gè)人成績(jī)、課程成績(jī)、班級(jí)成績(jī)統(tǒng)計(jì)</p><p><b>　　二、需求分析</b></p><p><b>　　1、功能需求</b></p><p>　　根據(jù)上述的目標(biāo)，我們確定系統(tǒng)應(yīng)該有如下的功能：</p>

16、<p>　　學(xué)生成績(jī)信息輸入：輸入</p><p>　　學(xué)生成績(jī)信息維護(hù)：對(duì)成績(jī)信息進(jìn)行維護(hù)</p><p>　　學(xué)生信息維護(hù)：對(duì)學(xué)生基本信息進(jìn)行維護(hù)</p><p>　　成績(jī)查詢：根據(jù)指定查詢條件查找符合條件的信息</p><p>　　統(tǒng)計(jì)：進(jìn)行個(gè)人成績(jī)、課程成績(jī)、班級(jí)成績(jī)的統(tǒng)計(jì)</p><p><

17、;b>　　2、性能需求</b></p><p>　　系統(tǒng)運(yùn)行對(duì)運(yùn)行環(huán)境的一些要求：</p><p><b>　　硬件環(huán)境 </b></p><p>　　處理器：80586/500MHz及以上處理器</p><p>　　內(nèi)存：不低于512MB</p><p>　　硬盤空間：10GB

18、以上</p><p><b>　　軟件環(huán)境</b></p><p>　　操作系統(tǒng)：Windows XP</p><p>　　數(shù)據(jù)庫：Visual FoxPro 6.0</p><p>　　開發(fā)平臺(tái)：Visual FoxPro 6.0</p><p><b>　　三、總體設(shè)計(jì)</b&

19、gt;</p><p><b>　　1、軟件結(jié)構(gòu)設(shè)計(jì)</b></p><p>　　本系統(tǒng)設(shè)計(jì)了一個(gè)簡(jiǎn)單的數(shù)據(jù)庫，學(xué)生基本信息、學(xué)生成績(jī)信息，即能基本滿足班級(jí)成績(jī)管理的要求。系統(tǒng)主要分為五個(gè)模塊：</p><p>　　學(xué)生基本信息維護(hù)模塊：在此模塊中，班級(jí)成績(jī)管理員可以對(duì)學(xué)生基本信息如學(xué)號(hào)、姓名、性別等進(jìn)行維護(hù)，可以新增、修改、刪除或查詢學(xué)生基本

20、信息。</p><p>　　成績(jī)錄入模塊：在此模塊中，班級(jí)成績(jī)管理員可以進(jìn)行班級(jí)學(xué)生成績(jī)的錄入。</p><p>　　成績(jī)查詢模塊：每個(gè)學(xué)生可以在此模塊中通過學(xué)號(hào)或姓名來進(jìn)行個(gè)人成績(jī)的查詢。</p><p>　　成績(jī)修改模塊：班級(jí)成績(jī)管理員可以在此模塊中進(jìn)行學(xué)生成績(jī)的修改。</p><p>　　成績(jī)刪除模塊：班級(jí)成績(jī)管理員在此模塊中刪除學(xué)生成

21、績(jī)信息。</p><p>　　成績(jī)統(tǒng)計(jì)模塊：每個(gè)學(xué)生可以在此模塊中查看個(gè)人成績(jī)、課程成績(jī)、班級(jí)成績(jī)的統(tǒng)計(jì)結(jié)果。</p><p><b>　　2、系統(tǒng)模塊設(shè)計(jì)</b></p><p>　　系統(tǒng)總體結(jié)構(gòu)如圖所示：</p><p><b>　　3、數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)</b></p><p&

22、gt;　　按照系統(tǒng)不同的功能模塊，需要不同的表來存儲(chǔ)信息，數(shù)據(jù)庫設(shè)計(jì)如下：</p><p>　?。?）學(xué)生基本信息表STUINFO.DBF</p><p>　?。?）學(xué)生成績(jī)信息表SCORE.DBF</p><p><b>　　四、詳細(xì)設(shè)計(jì)</b></p><p><b>　　1、主界面模塊</b>

23、</p><p>　　2、學(xué)生基本信息維護(hù)</p><p>　　該模塊實(shí)現(xiàn)學(xué)生基本信息的維護(hù)，包括增加、刪除、修改等維護(hù)數(shù)據(jù)的操作。由于學(xué)生的基本信息僅僅是成績(jī)管理系統(tǒng)中的輔助數(shù)據(jù)，信息內(nèi)容簡(jiǎn)單，數(shù)據(jù)變動(dòng)不大，維護(hù)操作較簡(jiǎn)單，故直接使用VFP中的表單向?qū)稍摫韱?，運(yùn)行界面如下：</p><p><b>　　3、成績(jī)錄入</b></p&g

24、t;<p>　　該模塊實(shí)現(xiàn)班級(jí)學(xué)生成績(jī)的錄入。一個(gè)學(xué)生一條成績(jī)記錄。已錄入成績(jī)的學(xué)生不能再進(jìn)行成績(jī)的錄入，只能做修改等其它操作。所以在錄入成績(jī)時(shí)，只能在學(xué)號(hào)下拉框中進(jìn)行未曾錄入成績(jī)的學(xué)生學(xué)號(hào)的選擇，同時(shí)在姓名文本框中確認(rèn)是否待錄入成績(jī)的學(xué)生。確認(rèn)該生后，錄入其成績(jī)數(shù)據(jù)。運(yùn)行界面如下：</p><p><b>　　程序代碼：</b></p><p>　　F

25、rmsr的Load事件代碼：</p><p>　　public dimension no(100)</p><p>　　for i=1 to 100</p><p><b>　　no(i)=.f.</b></p><p><b>　　endfor</b></p><p>　　

26、open data student</p><p><b>　　select 1</b></p><p>　　use stuinfo</p><p><b>　　select 2</b></p><p><b>　　use score</b></p><p&

27、gt;<b>　　select 1</b></p><p><b>　　i=1</b></p><p><b>　　scan</b></p><p><b>　　select 2</b></p><p>　　locate for xh=a.xh</p

28、><p>　　if not found()</p><p>　　no(i)=a.xh</p><p><b>　　i=i+1</b></p><p><b>　　endif</b></p><p><b>　　select 1</b></p>

29、<p><b>　　endscan</b></p><p>　　Frmsr的Init事件代碼：</p><p>　　thisform.combo1.clear</p><p><b>　　i=1</b></p><p>　　do while type('no(i)')!=&

30、#39;L'</p><p>　　thisform.combo1.additem(no(i))</p><p><b>　　i=i+1</b></p><p><b>　　enddo</b></p><p>　　Frmsr的Release事件代碼：</p><p>&

31、lt;b>　　select 1</b></p><p><b>　　use</b></p><p><b>　　select 2</b></p><p><b>　　use</b></p><p>　　close database</p><

32、;p>　　Cmdok的Click事件代碼：</p><p><b>　　select 2</b></p><p>　　append blank</p><p>　　replace xh with thisform.combo1.value</p><p>　　if len(alltrim(thisform.text

33、3.value))>0</p><p>　　replace yuwen with val(thisform.text3.value)</p><p><b>　　else</b></p><p>　　replace yuwen with 0</p><p><b>　　endif</b><

34、;/p><p>　　if len(alltrim(thisform.text4.value))>0</p><p>　　replace shuxue with val(thisform.text4.value)</p><p><b>　　else</b></p><p>　　replace shuxue with 0

35、</p><p><b>　　endif</b></p><p>　　if len(alltrim(thisform.text5.value))>0</p><p>　　replace yingyu with val(thisform.text5.value)</p><p><b>　　else<

36、/b></p><p>　　replace yingyu with 0</p><p><b>　　endif</b></p><p>　　replace pingjunfen with (yuwen+shuxue+yingyu)/3</p><p>　　thisform.release</p>&l

37、t;p>　　Cmdcancel的Click事件代碼：</p><p>　　thisform.release</p><p><b>　　4、成績(jī)查詢</b></p><p>　　該模塊實(shí)現(xiàn)班級(jí)學(xué)生各門課程成績(jī)的查詢?？梢园磳W(xué)號(hào)、姓名兩種方式來進(jìn)行查詢。查詢結(jié)果是不允許修改的，所有顯示查詢結(jié)果的文本框的ReadOnly屬性均為.T.。運(yùn)行界

38、面如下：</p><p><b>　　程序代碼：</b></p><p><b>　　Frmxhcx1：</b></p><p>　　Cmdok的Click事件代碼：</p><p>　　cxxh=alltrim(thisform.text1.value)</p><p>　

39、　open data student</p><p><b>　　select 1 </b></p><p><b>　　use score</b></p><p>　　loca for alltrim(xh)==cxxh</p><p>　　if found()</p><p&

40、gt;　　do form newcx1</p><p>　　thisform.release</p><p><b>　　else</b></p><p>　　messagebox("沒有此學(xué)號(hào)！",0+48+0,"錯(cuò)誤")</p><p>　　thisform.text1.set

41、focus</p><p><b>　　endif</b></p><p>　　Cmdcancel的Click事件代碼：</p><p>　　thisform.release</p><p><b>　　Frmxhcx2：</b></p><p>　　Text1到Text5的

42、ControlSource屬性要修改為相應(yīng)數(shù)據(jù)表的字段名，將相應(yīng)數(shù)據(jù)與文本框綁定在一起，可以在運(yùn)行期間顯示數(shù)據(jù)的值，修改文本框的值也會(huì)反應(yīng)到數(shù)據(jù)表中。如：Text1.ControlSource=score.xh。</p><p>　　Frmxhcx2的Load事件代碼：</p><p><b>　　select 2</b></p><p>　　

43、use stuinfo</p><p>　　locate for xh=a.xh</p><p>　　Cmdok的Click事件代碼：</p><p><b>　　select 1</b></p><p><b>　　use</b></p><p><b>　　se

44、lect 2</b></p><p><b>　　use</b></p><p>　　close data</p><p>　　thisform.release</p><p><b>　　程序代碼：</b></p><p><b>　　Frmxmcx1

45、：</b></p><p>　　Cmdok的Click事件代碼：</p><p>　　cxxm=alltrim(thisform.text1.value)</p><p>　　open data student</p><p><b>　　select 1 </b></p><p>　

46、　use stuinfo</p><p>　　loca for alltrim(xm)==cxxm</p><p>　　if found()</p><p>　　do form newcx2</p><p>　　thisform.release</p><p><b>　　else</b><

47、/p><p>　　messagebox("沒有此姓名！",0+48+0,"錯(cuò)誤")</p><p>　　thisform.text1.setfocus</p><p><b>　　endif</b></p><p>　　Cmdcancel的Click事件代碼：</p>&

48、lt;p>　　thisform.release</p><p><b>　　Frmxmcx2：</b></p><p>　　Text1到Text5的ControlSource屬性同樣要修改為相應(yīng)數(shù)據(jù)表的字段名。</p><p>　　Frmxmcx2的Load事件代碼：</p><p><b>　　sele

49、ct 2</b></p><p><b>　　use score</b></p><p>　　locate for xh=a.xh</p><p>　　Cmdok的Click事件代碼：</p><p><b>　　select 1</b></p><p><

50、b>　　use</b></p><p><b>　　select 2</b></p><p><b>　　use</b></p><p>　　close data</p><p>　　thisform.release</p><p><b>　　5

51、、成績(jī)修改</b></p><p>　　該模塊實(shí)現(xiàn)班級(jí)學(xué)生各門課程成績(jī)數(shù)據(jù)的修改。可以按學(xué)號(hào)、姓名兩種方式來進(jìn)行修改，兩種方式類似。以按學(xué)號(hào)進(jìn)行修改為例，運(yùn)行界面如下：</p><p><b>　　Frmxhxg1：</b></p><p>　　Cmdok的Click事件代碼：</p><p>　　cxxh=

52、alltrim(thisform.text1.value)</p><p>　　open data student</p><p><b>　　select 1 </b></p><p><b>　　use score</b></p><p>　　loca for alltrim(xh)==cxxh

53、</p><p>　　if found()</p><p>　　do form newxg1</p><p>　　thisform.release</p><p><b>　　else</b></p><p>　　messagebox("沒有此學(xué)號(hào)！",0+48+0,"

54、;錯(cuò)誤")</p><p>　　thisform.text1.setfocus</p><p><b>　　endif</b></p><p>　　Cmdcancel的Click事件代碼：</p><p>　　thisform.release</p><p><b>　　Frm

55、xhxg2：</b></p><p>　　Frmxmsc2的Load事件代碼：</p><p>　　由于進(jìn)行了數(shù)據(jù)綁定，對(duì)文本框內(nèi)容的修改會(huì)直接反應(yīng)到數(shù)據(jù)表中。確認(rèn)修改無需做特別工作，但是取消修改需要恢復(fù)修改前的原值。故在此使用了數(shù)組a來保存修改前的原始值。在恢復(fù)修改中，使用gather from a恢復(fù)原值。</p><p><b>　　se

56、lect 2</b></p><p>　　use stuinfo</p><p>　　locate for xh=a.xh</p><p>　　public declare a(4)</p><p><b>　　select 1</b></p><p>　　scatter to a&l

57、t;/p><p>　　Cmdok的Click事件代碼：</p><p><b>　　select 1</b></p><p>　　replace pingjunfen with (yuwen+shuxue+yingyu)/3</p><p><b>　　use</b></p><p&

58、gt;<b>　　select 2</b></p><p><b>　　use</b></p><p>　　close data</p><p>　　thisform.release</p><p>　　Cmdcancel的Click事件代碼：</p><p><b&g

59、t;　　select 1</b></p><p>　　gather from a</p><p><b>　　use</b></p><p><b>　　select 2</b></p><p><b>　　use</b></p><p>　

60、　close data</p><p>　　thisform.release</p><p><b>　　6、成績(jī)刪除</b></p><p>　　該模塊實(shí)現(xiàn)班級(jí)學(xué)生各門課程成績(jī)數(shù)據(jù)的刪除?？梢园磳W(xué)號(hào)、姓名兩種方式來進(jìn)行刪除，兩種方式類似。以按姓名進(jìn)行刪除為例，運(yùn)行界面如下：</p><p><b>　　Frm

61、xmsc1：</b></p><p>　　Cmdok的Click事件代碼：</p><p>　　cxxm=alltrim(thisform.text1.value)</p><p>　　open data student</p><p><b>　　select 1 </b></p><p

62、>　　use stuinfo</p><p>　　loca for alltrim(xm)==cxxm</p><p>　　if found()</p><p>　　do form newsc2</p><p>　　thisform.release</p><p><b>　　else</b>

63、;</p><p>　　messagebox("沒有此姓名！",0+48+0,"錯(cuò)誤")</p><p>　　thisform.text1.setfocus</p><p><b>　　endif</b></p><p>　　Cmdcancel的Click事件代碼：</p&g

64、t;<p>　　thisform.release</p><p><b>　　Frmxmsc2：</b></p><p>　　Frmxmsc2的Load事件代碼：</p><p><b>　　select 2</b></p><p><b>　　use score</b

65、></p><p>　　locate for xh=a.xh</p><p>　　Cmdok的Click事件代碼：</p><p><b>　　select 2</b></p><p><b>　　dele</b></p><p><b>　　pack<

66、/b></p><p><b>　　use</b></p><p><b>　　select 1</b></p><p><b>　　use</b></p><p>　　close data</p><p>　　thisform.release&l

67、t;/p><p>　　Cmdcancel的Click事件代碼：</p><p><b>　　select 1</b></p><p><b>　　use</b></p><p><b>　　select 2</b></p><p><b>　　us

68、e</b></p><p>　　close data</p><p>　　thisform.release</p><p><b>　　7、成績(jī)統(tǒng)計(jì)</b></p><p>　　個(gè)人成績(jī)統(tǒng)計(jì)中，使用了四個(gè)視圖：YW、SX、YY、PJF，以取該生的語文、數(shù)學(xué)、英語及總分在班級(jí)中的排名次序。</p>

69、<p><b>　　Frmgrtj1：</b></p><p>　　Cmdok的Click事件代碼：</p><p>　　xhxm=alltrim(thisform.text1.value)</p><p>　　open data student</p><p><b>　　select 2<

70、/b></p><p>　　use studscore</p><p>　　loca for alltrim(xh)==xhxm</p><p>　　if found()</p><p>　　do form newgrtj2</p><p>　　thisform.release</p><p&

71、gt;<b>　　else</b></p><p>　　loca for alltrim(xm)==xhxm</p><p>　　if found()</p><p>　　do form newgrtj2</p><p>　　thisform.release</p><p><b>　　

72、else </b></p><p>　　messagebox("沒有此學(xué)號(hào)或姓名！",0+48+0,"錯(cuò)誤")</p><p>　　thisform.text1.setfocus</p><p><b>　　endif</b></p><p><b>　　e

73、ndif</b></p><p>　　Cmdcancel的Click事件代碼：</p><p>　　thisform.release</p><p><b>　　Frmgrtj2：</b></p><p>　　Frmgrtj2的Activate事件代碼：</p><p>　　set t

74、alk off</p><p><b>　　select 2</b></p><p>　　xuehao=studscore.xh</p><p>　　thisform.text6.value=alltrim(studscore.xh)</p><p>　　thisform.text7.value=alltrim(stud

75、score.xm)</p><p>　　thisform.text8.value=alltrim(str(studscore.yuwen))</p><p>　　thisform.text9.value=alltrim(str(studscore.shuxue))</p><p>　　thisform.text10.value=alltrim(str(studsco

76、re.yingyu))</p><p>　　thisform.text4.value=alltrim(str(studscore.pingjunfen))</p><p><b>　　select 3</b></p><p><b>　　use yw</b></p><p>　　loca for x

77、h=xuehao</p><p>　　mc1=recno()</p><p>　　thisform.text1.value=mc1</p><p><b>　　select 4</b></p><p><b>　　use sx</b></p><p>　　loca for x

78、h=xuehao</p><p>　　mc2=recno()</p><p>　　thisform.text2.value=mc2</p><p><b>　　select 5</b></p><p><b>　　use yy</b></p><p>　　loca for x

79、h=xuehao</p><p>　　mc3=recno()</p><p>　　thisform.text3.value=mc3</p><p><b>　　select 6</b></p><p><b>　　use pjf</b></p><p>　　loca for

80、xh=xuehao</p><p>　　thisform.text5.value=recno()</p><p>　　Cmdok的Click事件代碼：</p><p><b>　　select 1</b></p><p><b>　　use</b></p><p><b

81、>　　select 2</b></p><p><b>　　use</b></p><p><b>　　select 3</b></p><p><b>　　use</b></p><p><b>　　select 4</b></p

82、><p><b>　　use</b></p><p><b>　　select 5</b></p><p><b>　　use</b></p><p><b>　　select 6</b></p><p><b>　　use&

83、lt;/b></p><p>　　close data</p><p>　　set talk on</p><p>　　thisform.release</p><p><b>　　Frmkctj1：</b></p><p>　　Cmdok的Click事件代碼：</p><

84、;p>　　public kcm</p><p>　　kcm=alltrim(thisform.combo1.value)</p><p>　　do form newkctj2</p><p>　　thisform.release</p><p>　　Cmdcancel的Click事件代碼：</p><p>　　t

85、hisform.release</p><p><b>　　Frmkctj2：</b></p><p>　　Frmkctj2的Activate事件代碼：</p><p>　　set talk off</p><p><b>　　do case</b></p><p>　　ca

86、se kcm='語文'</p><p>　　kc='yuwen'</p><p>　　case kcm='數(shù)學(xué)'</p><p>　　kc='shuxue'</p><p>　　case kcm='英語'</p><p>　　kc='

87、;yingyu'</p><p><b>　　endcase</b></p><p>　　open data student</p><p><b>　　use score</b></p><p>　　count all to zrs</p><p>　　count

88、for &kc<60 to bjg1</p><p>　　count for &kc<70 and &kc>=60 to jg1</p><p>　　count for &kc<80 and &kc>=70 to zhong1</p><p>　　count for &kc<90 a

89、nd &kc>=80 to liang1</p><p>　　count for &kc<=100 and &kc>=90 to you1</p><p>　　bjg2=str(bjg1/zrs*100,5,1)+'%'</p><p>　　jg2=str(jg1/zrs*100,5,1)+'%

90、9;</p><p>　　zhong2=str(zhong1/zrs*100,5,1)+'%'</p><p>　　liang2=str(liang1/zrs*100,5,1)+'%'</p><p>　　you2=str(you1/zrs*100,5,1)+'%'</p><p>　　calc

91、ulate max(&kc) all to zgf</p><p>　　calculate min(&kc) all to zdf</p><p>　　average &kc all to pjf1</p><p>　　pjf=str(pjf1,5,1)</p><p>　　Cmdok的Click事件代碼：</p

92、><p><b>　　use</b></p><p>　　close data</p><p>　　thisform.release</p><p>　　Frmbjtj的Load事件代碼：</p><p>　　set talk off</p><p>　　open data s

93、tudent</p><p>　　drop table stuscore</p><p><b>　　select 1</b></p><p>　　use stuinfo </p><p>　　set order to xh</p><p><b>　　select 2</b>

94、;</p><p><b>　　use score</b></p><p>　　join with a to stuscore for a.xh=b.xh fields a.xh,a.xm,yuwen,shuxue,yingyu,pingjunfen</p><p>　　add table stuscore</p><p&g

95、t;　　use stuscore</p><p>　　sum yuwen to a</p><p>　　sum shuxue to b</p><p>　　sum yingyu to c</p><p>　　count all to d</p><p>　　zjf=str((a+b+c)/d/3,5,1)</p&

96、gt;<p>　　count for yuwen<60 to aa</p><p>　　count for shuxue<60 to bb</p><p>　　count for yingyu<60 to cc</p><p>　　bjgrs=aa+bb+cc</p><p>　　bjgl1=(aa+bb+cc

97、)/3/d*100</p><p>　　bjgl=str(bjgl1,5,1)+'%'</p><p>　　jgl=str(100-bjgl1,5,1)+'%'</p><p><b>　　go top</b></p><p>　　Cmdok的Click事件代碼：</p>&

98、lt;p><b>　　select 1</b></p><p><b>　　use</b></p><p><b>　　select 2</b></p><p><b>　　use</b></p><p>　　close data</p>