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

1、<p>　　《Visual FoxPro 數(shù)據庫程序設計》課程設計說明書</p><p>　　題目：學生成績管理系統(tǒng)</p><p><b>　　1.系統(tǒng)總體設計</b></p><p><b>　　1.1系統(tǒng)功能簡介</b></p><p>　　數(shù)據錄入：輸入學生的學號，給出學生姓名；輸

2、入課程號，給出課程名；輸入學生成績。</p><p>　　數(shù)據修改：按課程號修改成績。</p><p>　　成績查詢：按學號查詢該同學的各科成績；按課程號查詢每名同學的成績，并排序查詢結果。</p><p>　　1.2系統(tǒng)功能結構圖</p><p><b>　　2.數(shù)據庫設計</b></p><p&g

3、t;　　2.1建立數(shù)據庫和基本表，并建立合理的約束</p><p>　　打開Visual FoxPro，建立數(shù)據庫，名為學生成績管理系統(tǒng)，并在數(shù)據庫下建立三張表：學生表、課程表、成績表。表結構如下：</p><p>　　學生表（學號，姓名，性別，出生年月） </p><p>　　建立主索引：名為學號 表達式為：學號</p><p>　　課程

4、表（課程名，課程號，學分，主講教師）</p><p>　　建立主索引：名為課程號 表達式為：課程號</p><p>　　成績表（學號，課程號，成績）</p><p>　　建立普通索引：名為學號 表達式為：學號 </p><p>　　建立普通索引：名為課程號 表達式為：課程號</p><p>　　學生表、課程表、成績

5、表相關聯(lián)如圖所示：</p><p><b>　　2.2錄入數(shù)據</b></p><p>　　學生表錄入數(shù)據如下所示：</p><p>　　課程表錄入數(shù)據如下所示：</p><p>　　成績表錄入數(shù)據如下所示：</p><p><b>　　3.程序設計界面</b></p&

6、gt;<p><b>　　3.1系統(tǒng)主界面</b></p><p>　　系統(tǒng)主界面設計如圖所示：</p><p><b>　　1）菜單設計</b></p><p>　　1、按照系統(tǒng)功能結構圖設計頂層菜單。</p><p>　　2、在VFP系統(tǒng)主菜單的“顯示”菜單下，選擇“常規(guī)選項”命令

7、，在彈出的對話框中，勾選頂層表單選項，將該菜單設置為頂層表單菜單。設計如下：</p><p><b>　　2）控件屬性設置</b></p><p>　　圖片Image1的路徑屬性Picture設置為VFP的默認路徑。</p><p>　　標簽label1的標題屬性Caption設置為：三亞學院學生成績管理系統(tǒng)，并設置相應的字體、字號和顏色。&l

8、t;/p><p><b>　　3）表單代碼設計</b></p><p>　　表單的Init事件代碼：DO 學生成績.MPR WITH THIS </p><p>　　表單的Destroy事件代碼：RELEASE MENU 學生成績EXTENDED</p><p><b>　　3.2學生成績錄入</b>&

9、lt;/p><p>　　學生成績錄入表單設計如圖所示:</p><p><b>　　1）控件屬性設置</b></p><p>　　標簽：label1學號 標題：Caption 設置為：學號</p><p>　　Label2課程號 標題：Caption 設置為：課程號</p>&l

10、t;p>　　Label3成績 標題：Caption 設置為：成績</p><p>　　文本框：txt1學號 數(shù)據源：ControlSource 設置為：成績.學號</p><p>　　Txt2課程號 數(shù)據源：ControlSource 設置為：成績.課程號</p><p>　　Txt3成績 數(shù)據源：ControlSo

11、urce 設置為：成績.成績</p><p>　　命令按鈕：command1 標題：caption 設置為：追加</p><p>　　Command2 標題：caption 設置為：退出</p><p><b>　　2）代碼設計</b></p><p>　　文本框txt學號的GotFocus事件代碼：</p&

12、gt;<p>　　select 成績 </p><p>　　append blank</p><p>　　jlh=recno()</p><p>　　文本框txt學號的LostFocus事件代碼：</p><p><b>　　select 成績</b></p><p>　　repla

13、ce 學號 with thisform.txt學號.value</p><p><b>　　select 學生</b></p><p>　　locate for 學號=thisform.txt學號.value</p><p>　　thisform.label1.caption="姓名： "+學生.姓名</p>

14、<p><b>　　select 成績</b></p><p>　　文本框txt課程號的getFocus事件代碼：</p><p><b>　　select 成績</b></p><p>　　thisform.txt課程號.value=' '</p><p>　　文本

15、框txt課程號的LostFocus事件代碼：</p><p><b>　　select 成績</b></p><p><b>　　go jlh</b></p><p>　　replace 課程號 with thisform.txt課程號.value</p><p>　　select 課程表</

16、p><p>　　locate for 課程號=thisform.txt課程號.value</p><p>　　thisform.label2.caption="課程名： "+課程表.課程名</p><p><b>　　select 成績</b></p><p><b>　　go jlh<

17、/b></p><p>　　thisform.txt成績.value=0</p><p>　　文本框txt成績的getFocus事件代碼：</p><p><b>　　select 成績</b></p><p><b>　　go jlh</b></p><p>　　文本

18、框txt成績的LostFocus事件代碼：</p><p><b>　　select 成績</b></p><p><b>　　go jlh</b></p><p>　　replace 成績 with thisform.txt成績.value</p><p>　　命令按鈕command1的Click

19、事件代碼：</p><p>　　thisform.label1.caption=" "</p><p>　　thisform.label2.caption=" "</p><p><b>　　select 成績</b></p><p>　　append blank<

20、;/p><p>　　thisform.txt學號.setfocus </p><p>　　thisform.refresh</p><p>　　命令按鈕command2的Click事件代碼：</p><p><b>　　select 成績</b></p><p><b>　　use</

21、b></p><p><b>　　use 成績</b></p><p>　　delete for 學號=space(8).or.課程號=space(5)</p><p><b>　　pack</b></p><p>　　close database </p><p>　

22、　thisform.release</p><p><b>　　3.3學生成績修改</b></p><p>　　學生成績修改表單設計如圖所示:</p><p>　　按課程號修改數(shù)據，用戶由鍵盤輸入課程號，當控制交點離開文本框時，在表格中顯示要修改的數(shù)據記錄。用戶用鼠標、鍵盤對數(shù)據記錄進行修改。</p><p><b

23、>　　1）控件屬性設置</b></p><p>　　標簽：label1 標題：caption 設置為：課程號</p><p>　　文本框：text1 接收由鍵盤輸入的數(shù)據</p><p>　　命令按鈕：command1 標題：caption 設置為：退出</p><p>　　表格：顯示要修改的記錄 </

24、p><p><b>　　2）代碼設計</b></p><p>　　文本框text1的LostFocus的事件代碼：</p><p>　　set filter to alltrim(課程號)=alltrim(thisform.text1.value)</p><p>　　設置過濾器，修改滿足條件的數(shù)據記錄。</p>

25、<p><b>　　3.4學生成績查詢</b></p><p>　　3.4.1學號查詢表單設計</p><p><b>　　界面設計如下：</b></p><p><b>　　1）控件屬性設置</b></p><p>　　標簽：label1 標題：caption

26、設置為：學號</p><p>　　文本框：text1 接收由鍵盤輸入的數(shù)據</p><p>　　命令按鈕：command1 標題：caption 設置為：查詢</p><p>　　Command2 標題：caption 設置為：退出</p><p>　　表格：顯示查詢結果 </p><p><b&

27、gt;　　2）代碼設計</b></p><p>　　命令按鈕command1的Click事件代碼：</p><p>　　set safety off</p><p>　　select 成績.學號,學生.姓名,成績.課程號,課程表.課程名,成績.成績 from 成績,學生,課程表;</p><p>　　where 成績.學號=學生.

28、學號 and 成績.課程號=課程表.課程號 and alltrim(成績.學號)=alltrim(thisform.text1.value);</p><p>　　into table cxb</p><p>　　thisform.grid1.recordsource='cxb'</p><p>　　thisform.refresh</p>

29、;<p>　　set safety on</p><p>　　命令按鈕command2的Click事件代碼：</p><p>　　thisform.release</p><p>　　3.4.2課程號查詢表單設計</p><p><b>　　界面設計如下：</b></p><p>&

30、lt;b>　　1）控件屬性設置</b></p><p>　　標簽：label1 標題：caption 設置為：學號</p><p>　　文本框：text1 接收由鍵盤輸入的數(shù)據</p><p>　　單選按鈕組：OptionGroup1.option1 標題：Caption 設置為：升序</p><p>　　Opt

31、ionGroup1.option2 標題：Caption 設置為：降序</p><p>　　命令按鈕：command1 標題：caption 設置為：查詢</p><p>　　Command2 標題：caption 設置為：退出</p><p>　　表格：顯示查詢結果 </p><p>

32、<b>　　2）代碼設計</b></p><p>　　命令按鈕command1的Click事件代碼：</p><p>　　set safety off</p><p>　　if thisform.optiongroup1.option1.value=1</p><p>　　select 成績.學號,學生.姓名,成績.課程

33、號,課程表.課程名,成績.成績 from 成績,學生,課程表;</p><p>　　where 成績.學號=學生.學號 and 成績.課程號=課程表.課程號 and alltrim(成績.課程號)=alltrim(thisform.text1.value);</p><p>　　order by 成績.成績 asc into table cxb1</p><p>&

34、lt;b>　　else</b></p><p>　　select 成績.學號,學生.姓名,成績.課程號,課程表.課程名,成績.成績 from 成績,學生,課程表;</p><p>　　where 成績.學號=學生.學號 and 成績.課程號=課程表.課程號 and alltrim(成績.課程號)=alltrim(thisform.text1.value);</p&g

35、t;<p>　　order by 成績.成績 desc into table cxb1</p><p><b>　　endif </b></p><p>　　thisform.grid1.recordsource='cxb1'</p><p>　　thisform.refresh</p><

36、p>　　set safety on</p><p><b>　　4.課程設計總結 </b></p><p>　　經過一年的荒廢，我們對于VFP的一些知識已經忘的快差不多了，所以這次的作業(yè)對我們來說，相當?shù)木哂须y度。在翻閱過多份資料，我們小組正式進入了工作，我們首先通過分工，確定每個人的任務。然后每個人開始做自己的工作。我的任務主要是負責系統(tǒng)設計的操作以及圖片的剪

37、裁。每次的操作都要求非常的縝密，因為在不斷的操作中，需要認真仔細的檢查代碼，也許中間的一個標點都有可能造成程序的中止。其實，性格粗心大意的我，對于這種仔細的活有些不合適，但是組員們能決定將這項工作交給我，我將會盡自己最大的努力去完成。在不斷的“語法錯誤”、“命令無法識別”等等一些問題中，我終于完成自己工作。由于有時操作忘了截圖又讓我頭疼，通常是這項完成后，又忙著去找前幾個的代碼、圖片，工作也在這樣的不斷重復著持續(xù)到最后。</p&g