【正文】 雖然這次考試我考的不是太好，但是我們有信心在今后的學習中我們一定會學的更好！參考文獻[1]盧湘鴻,《Visual FoxPro 》，電子工業(yè)出版社：5785.[2]鄧文新，《Visual FoxPro程序設計方法》，中國鐵道出版社：3766.[3]史濟民，《Visual FoxPro 及其應用系統(tǒng)開發(fā)》，清華大學出版社：1735.[4]張洪舉，《Visual FoxPro程序設計參考手冊》，人民郵電出版社：91124.[5]張洪舉，《Visual FoxPro 》，人民郵電出版社：1421.[6]張洪舉，《Visual FoxPro 權威指南》， 電子工業(yè)出版社：6787.63?？傊瑢τ谶@次課程設計的學習，命名 我受益匪淺。同學們之間的友誼也更進了一步。這為我以后的人生之路是否會走好打下了堅定的基礎，以致于在以后的求取過程中少走些彎路，也不致于因一些小挫折而迷失了自己的方向。設計報表主要包括以下四個步驟： 學生表報表內(nèi)容展示(1) 確定報表類型(2) 添加數(shù)據(jù)庫，創(chuàng)建報表布局文件(3) 修改報表布局文件(4) 預覽和打印功能圖 班級報表內(nèi)容展示第4章 結束語系統(tǒng)制作過程中遇到了很多的問題，如表單與表單之間的連接、表單與菜單之間的連接、表單與報表之間的連接、查詢的運行過程總是打不開表。39。39。記錄修改成功！39。信息窗口39。確定修改成績記錄！39。出生日期不能為空白值！39。班級編號不能為空白值！39。39。性別不能為空白值！39。39。姓名不能為空白值！39。39。學號不能為空白值！39。39。39。記錄修改成功！39。信息窗口39。確定修改成績記錄！39。課程代碼不能為空白值！39。39。學號不能為空白值！39。39。39。記錄修改成功！39。信息窗口39。確定修改課程記錄！39。教師代碼不能為空白值！39。39。類別不能為空白值！39。39。課程名稱不能為空白值！39。39。課程代碼不能為空白值！39。39。圖3..27為修改選項卡。圖3..26為打印選項卡內(nèi)容。39。39。39。39。39。39。提示信息39。新記錄添加成功！39。提示信息39。確認添加新記錄到成績表！39。注意39。成績不能為空值！39。39。注意39。課程代碼不能為空值！39。39。注意39。學號不能為空值！39。39。39。39。39。39。39。39。39。39。提示信息39。新記錄添加成功！39。提示信息39。確認添加新記錄到課程表！39。注意39。教師代碼不能為空值！39。39。注意39。類別不能為空值！39。39。注意39。課程名稱不能為空值！39。39。注意39。課程代碼不能為空值！39。39。課程表：課程表中同樣包括三項內(nèi)容，分別是兩個輸入文本框；兩個下拉選項菜單，分別是類別和教師代碼；三個功能按鍵，是添加，重寫和返回。=39。=.F.=.F.=39。=39。=39。=39。 endif endifEndcaseCommand2的click事件：=39。 =39。 =39。 =39。 =39。 =39。) if b=1 =39。,64,39。) if a=1 sele classes go bottom insert into classes values(n1,n2,n3,n4,n5,n6) b=messagebox(39。,1+64+0,39。) otherwise a=messagebox(39。,48,39。 messagebox(39。) case n6=39。,48,39。 messagebox(39。) case n5=39。,48,39。 messagebox(39。) case n4=39。,48,39。 messagebox(39。) case n3=39。,48,39。 messagebox(39。) case n2=39。,48,39。 messagebox(39。 班級表信息 向班級表添加信息班級表選項卡代碼如下：Command1的click事件：n1=alltrim()n2=alltrim()n3=alltrim()n4=alltrim()n5=alltrim()n6=alltrim()set exact ondo casecase n1=39。輸入文本框，可以向班級表中添加相應的信息；下拉選項菜單，可以選擇學生的學制年數(shù)，還有選擇學科類別，類別這一項中，如果沒有相應的選項，也可以直接輸入需要的信息；功能按鍵，用于確定或者修改輸入的信息，返回，用于返回主菜單。39。39。39。39。39。39。39。39。39。39。39。39。提示信息39。新記錄添加成功！39。提示信息39。確認添加新記錄到教師表！39。注意39。技術職務不能為空值！39。39。注意39。籍貫不能為空值！39。39。注意39。不能輸入空值！39。39。注意39。性別不能為空值！39。39。注意39。姓名不能為空值！39。39。注意39。教師代碼不能為空值！39。39。 endif endifendcase教師表：教師表包括三部分內(nèi)容，分別是輸入文本框，下拉選項菜單，功能按鍵；其中，輸入文本框包含教師代碼，籍貫，姓名，出生日期和備注；下拉選項菜單包括技術職務和性別兩項；功能按鍵，包括添加，重新和返回。 ={} =39。 =39。 =39。) if b=1 =39。,64,39。) if a=1 sele student go bottom insert into student value(n1,n2,n3,ctod(n4),n5) b=messagebox(39。,1+64+0,39。) otherwise a=messagebox(39。,48,39。 messagebox(39。) case n5=39。,48,39。 messagebox(39。) case n4=39。,48,39。 messagebox(39。) case n3=39。,48,39。 messagebox(39。) case n2=39。,48,39。 messagebox(39。圖 學生表添加圖 添加學生信息學生表選項卡代碼如下：Command1的click事件： n1=alltrim() n2=alltrim() n3=alltrim() n4=alltrim(dtoc()) n5=alltrim()set exact ondo casecase n1=39。在輸入文本框中輸入想要輸入的學生信息，點擊添按鍵，即可向系統(tǒng)添加這個學生的信息，若是輸入的信息有誤，點擊重寫按鍵，可以重新輸入學生信息，返回，返回上個選項。 Endcase List1的interactivechange事件：do case case =1 xm=alltrim() sele student locate for 姓名=xm xh=學號 sele score calculate max(成績),min(成績),avg(成績),t(成績) for 學號=xh to a1,a2,a3,a4 =alltrim(str(a1)) =alltrim(str(a2)) =alltrim(str(a3)) =alltrim(str(a4)) case =2 mch=alltrim() sele course locate for 課程名稱=mch dm=課程代碼 sele score calculate max(成績),min(成績),avg(成績),t(成績) for 課程代碼=dm to b1,b2,b3,b4 =alltrim(str(b1)) =alltrim(str(b2)) =alltrim(str(b3)) =alltrim(str(b4))Endcase 添加添加選項卡中，一個包括5項內(nèi)容，有學生表，教師表，班級表，成績表，課程表。 case =2 =39。 case =1 =39。Optiongroup1的interactivechange事件：do case case =0 =39。=39。=39。=39。圖 按個人成績進行查詢 按單科成績查詢統(tǒng)計選項卡的代碼如下：Form1的init事件：=39。退出，用于查詢完畢，退出系統(tǒng)。兩個選項任務欄，可以通過鼠標單擊文字前面的選項框進行選擇，用來統(tǒng)計某一個學生的成績信息。下面兩個圖分別展示查詢一個學生全部成績和高于90分的成績， 圖 多項查詢信息圖 多項查詢信息多項查詢選項卡代碼如下：Command1的click事件：=I=alltrim()sele scoreloca for 學號=Iif found() if =1 =sele 學號,課程名稱,成績 from score,course where 學號=i and 成績 and = into cursor temp else =sele 學號,課程名稱,成績 from score,course where 學號=i and = into cursor temp endif endif 統(tǒng)計 統(tǒng)計指對某一現(xiàn)象有關的數(shù)據(jù)的搜集、整理、計算和分析等的活動。第一頁和上一頁功能按鈕沒有動作，成為灰色，下一頁和末一頁功能按鈕沒有動作，成為灰色，.圖 按鈕功能示意圖 按鈕功能示意圖課程瀏覽選項卡代碼如下：Page4的init事件：sele coursego top=課程代碼=課程名稱=類別=教師代碼 Page4的refresh事件：sele course=課程代碼=課程名稱=類別=教師代碼 Commandgroup1的click事件：sele coursedo case case =1go top =.F. =.F. =.T. =.T. case =2 =.T. =.T. skip1 if bof() go top =.F. =.F. endif case =3 =.T. =.T. skip if eof() go bottom =.F. =.F. endif case =4 go bottom =.T. =.T. =.F. =.F. endcase