vfp課程設計報告--- 班級學生成績管理系統(tǒng)

1、<p>　　課 程 設 計 報 告</p><p>　　課程名稱 VFP數據庫管理系統(tǒng) </p><p>　　課題名稱 班級學生成績管理系統(tǒng) </p><p>　　專 業(yè) 統(tǒng)計學 </p><p>　　班 級 統(tǒng)計學120X

2、班 </p><p>　　學 號 </p><p>　　姓 名 </p><p>　　指導教師 </p><p>　　2014年 1 月 6 日</p

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

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

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

6、STUINFO</p><p>　　學生成績信息表SCORE</p><p><b>　　2．設計要求：</b></p><p>　　掌握結構化程序設計和面向對象程序設計的主體思想，以自頂向下逐步求精的方法編制程序解決一些實際的問題，為將來編寫軟件積累一些典型的案例處理經驗。</p><p>　　(1)按學號順序選課題號

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

8、;p><b>　　附：</b></p><p>　　課程設計報告內容要求如下：</p><p><b>　　封面 </b></p><p><b>　　課程設計任務書</b></p><p><b>　　課程設計主文檔</b></p>

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

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

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

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

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

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

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

16、<p>　　學生成績信息輸入：輸入</p><p>　　學生成績信息維護：對成績信息進行維護</p><p>　　學生信息維護：對學生基本信息進行維護</p><p>　　成績查詢：根據指定查詢條件查找符合條件的信息</p><p>　　統(tǒng)計：進行個人成績、課程成績、班級成績的統(tǒng)計</p><p><

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

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

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

20、信息。</p><p>　　成績錄入模塊：在此模塊中，班級成績管理員可以進行班級學生成績的錄入。</p><p>　　成績查詢模塊：每個學生可以在此模塊中通過學號或姓名來進行個人成績的查詢。</p><p>　　成績修改模塊：班級成績管理員可以在此模塊中進行學生成績的修改。</p><p>　　成績刪除模塊：班級成績管理員在此模塊中刪除學生成

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

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

23、</p><p>　　2、學生基本信息維護</p><p>　　該模塊實現(xiàn)學生基本信息的維護，包括增加、刪除、修改等維護數據的操作。由于學生的基本信息僅僅是成績管理系統(tǒng)中的輔助數據，信息內容簡單，數據變動不大，維護操作較簡單，故直接使用VFP中的表單向導生成該表單，運行界面如下：</p><p><b>　　3、成績錄入</b></p&g

24、t;<p>　　該模塊實現(xià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、成績查詢</b></p><p>　　該模塊實現(xiàn)班級學生各門課程成績的查詢。可以按學號、姓名兩種方式來進行查詢。查詢結果是不允許修改的，所有顯示查詢結果的文本框的ReadOnly屬性均為.T.。運行界

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("沒有此學號！",0+48+0,"錯誤")</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屬性要修改為相應數據表的字段名，將相應數據與文本框綁定在一起，可以在運行期間顯示數據的值，修改文本框的值也會反應到數據表中。如：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,"錯誤")</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屬性同樣要修改為相應數據表的字段名。</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、、成績修改</b></p><p>　　該模塊實現(xiàn)班級學生各門課程成績數據的修改?？梢园磳W號、姓名兩種方式來進行修改，兩種方式類似。以按學號進行修改為例，運行界面如下：</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("沒有此學號！",0+48+0,"

54、;錯誤")</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>　　由于進行了數據綁定，對文本框內容的修改會直接反應到數據表中。確認修改無需做特別工作，但是取消修改需要恢復修改前的原值。故在此使用了數組a來保存修改前的原始值。在恢復修改中，使用gather from a恢復原值。</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、成績刪除</b></p><p>　　該模塊實現(xiàn)班級學生各門課程成績數據的刪除?？梢园磳W號、姓名兩種方式來進行刪除，兩種方式類似。以按姓名進行刪除為例，運行界面如下：</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,"錯誤")</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、成績統(tǒng)計</b></p><p>　　個人成績統(tǒng)計中，使用了四個視圖：YW、SX、YY、PJF，以取該生的語文、數學、英語及總分在班級中的排名次序。</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("沒有此學號或姓名！",0+48+0,"錯誤")</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='數學'</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>