【文章內(nèi)容簡(jiǎn)介】 close all clear events set sysmenu to default endifendif命令按鈕exit的click事件：a=messagebox(是否退出本系統(tǒng)？,4+32+256,cyc！)if a=6 close allclear eventsset sysmenu to defaultendif 主頁(yè)面：主界面分成六個(gè)部分，其中包括查詢，即查詢系統(tǒng)內(nèi)相關(guān)內(nèi)容，統(tǒng)計(jì)，統(tǒng)計(jì)學(xué)生的成績(jī)情況，添加，想系統(tǒng)添加新的學(xué)生信息，打印，打印學(xué)生的成績(jī)單，修改，用于信息輸入錯(cuò)誤，進(jìn)行信息更正，退出，查詢完畢，退出系統(tǒng)。 主頁(yè)面示意圖 查詢數(shù)據(jù)庫(kù)信息檢索是應(yīng)用程序中處理數(shù)據(jù)的一項(xiàng)重要任務(wù)，在VFP中，用查詢和視圖進(jìn)行數(shù)據(jù)檢索，查詢是按指定內(nèi)容和順序輸出數(shù)據(jù)庫(kù)中的數(shù)據(jù)，用來(lái)從一個(gè)或多個(gè)相關(guān)聯(lián)的數(shù)據(jù)表中提取有用信息，但是由查詢檢索到的數(shù)據(jù)可以顯示但不能更新。在VFP中，利用查詢可以從一個(gè)或多個(gè)表中檢索出所需要的數(shù)據(jù)，可以對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)按指定的內(nèi)容和順序檢索輸出，可以對(duì)查詢結(jié)果進(jìn)行分組和排序，可以在查詢中執(zhí)行計(jì)算，并且還可以使用查詢作為表單或者報(bào)表的數(shù)據(jù)來(lái)源。 查詢的創(chuàng)建設(shè)計(jì)過(guò)程在VFP中，可以使用“查詢向?qū)А被蛘摺安樵O(shè)計(jì)器”來(lái)創(chuàng)建和設(shè)計(jì)查詢，這樣創(chuàng)建的查詢實(shí)際上是對(duì)英鎊一個(gè)SQL SELECT語(yǔ)句。創(chuàng)建于設(shè)計(jì)查詢的步驟如下：(1) 打開(kāi)“查詢向?qū)А被蛘摺安樵冊(cè)O(shè)計(jì)器”；(2) 選擇在查詢結(jié)果中需要的字段；(3) 設(shè)置篩選條件，查找符合條件的記錄；(4) 設(shè)置排序或者分組條件；(5) 選擇查詢結(jié)果的輸出類(lèi)別，可以是文件表、臨時(shí)表、VFP瀏覽窗口等；(6) 運(yùn)行查詢，查看查詢結(jié)果。此系統(tǒng)的查詢項(xiàng)一共包括5部分，它們分別是學(xué)生情況、全局瀏覽、學(xué)生年齡、課程瀏覽還有多項(xiàng)查詢。其中，學(xué)生情況中有兩個(gè)下拉選項(xiàng)，分別是學(xué)號(hào)和學(xué)生姓名，可以通過(guò)學(xué)生的學(xué)號(hào)或者姓名學(xué)生的信息進(jìn)行查詢；一個(gè)組合框，為輸出學(xué)生信息，其中包括學(xué)號(hào)，姓名，性別，班級(jí)表好和出生日期；還有五個(gè)命令按鈕，分別是第一個(gè)，上一個(gè)，下一個(gè)，末一個(gè)和刪除。系統(tǒng)操作使用的簡(jiǎn)要說(shuō)明：(1) 打開(kāi)學(xué)生選課成績(jī)管理系統(tǒng)；(2) 進(jìn)入主頁(yè)面，輸入密碼123，按“確定”進(jìn)入主頁(yè)面；(3) 在菜單中選擇相應(yīng)的業(yè)務(wù)；(4) 運(yùn)行系統(tǒng)并打印出運(yùn)行結(jié)果。 學(xué)生情況示意圖 學(xué)生情況選項(xiàng)卡(1) 下拉框其中包括學(xué)號(hào)和姓名兩個(gè)下拉框選項(xiàng)，可以使使用者通過(guò)學(xué)生的姓名或者學(xué)號(hào)準(zhǔn)確的找到某一個(gè)學(xué)生的信息，選中一個(gè)學(xué)號(hào)或者學(xué)生姓名，可以從組合框中提取出他相應(yīng)的值，比如，選擇第一個(gè)，有一個(gè)返回值，根據(jù)這個(gè)返回值，到他的列表項(xiàng)目中找相應(yīng)的學(xué)號(hào)，然后在組合框中顯示出數(shù)據(jù)。(2) 文本框其中包括五個(gè)文本框，主要用于顯示使用者所查詢的學(xué)生信息，包括學(xué)生的學(xué)號(hào)、姓名、班級(jí)編號(hào)、性別、出生日期。(3) 命令按鈕其中包括五個(gè)命令按鈕，分別是第一個(gè)，上一個(gè)，下一個(gè)，末一個(gè)和刪除。當(dāng)選的某一個(gè)同學(xué)的信息后，根據(jù)學(xué)生表當(dāng)前記錄之人的位置，可以通過(guò)上一個(gè)或者下一個(gè)按鈕，查詢這個(gè)同學(xué)的上一個(gè)或者下一個(gè)同學(xué)的信息，還可以直接跳到這個(gè)學(xué)生表所記錄的第一個(gè)或者左后一個(gè)學(xué)生的信息，但是當(dāng)選的的同學(xué)是第一個(gè)或者最后一個(gè)時(shí)，其中第一個(gè)和上一個(gè)或者下一個(gè)和末一個(gè)按鈕會(huì)變成無(wú)法訪問(wèn)狀態(tài)；刪除，用來(lái)刪除多余的學(xué)生信息使用。(4) 退出，退出系統(tǒng)。 根據(jù)學(xué)號(hào)查詢信息示意圖 刪除學(xué)生信息 根據(jù)姓名查詢信息示意圖。學(xué)生情況選項(xiàng)卡的實(shí)現(xiàn)代碼如下：Page1的int事件：sele studentgo top=學(xué)號(hào)=姓名=性別=出生日期=班級(jí)編號(hào)Page1的refresh事件：sele student=學(xué)號(hào)=姓名=性別=出生日期=班級(jí)編號(hào)Commandgroup1的click事件：sele student do case case =1 go 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 全局瀏覽選項(xiàng)卡全局瀏覽包括三部分，有下拉菜單，信息顯示框，還有退出功能鍵，其中下拉菜單可以查詢學(xué)生表，教師表，成績(jī)表，班級(jí)表，課程表。當(dāng)下拉菜單選中學(xué)生表時(shí)，可以查詢學(xué)生的學(xué)號(hào)，性別，班級(jí)編號(hào)，出生日期的詳細(xì)內(nèi)容。 全局瀏覽示意圖當(dāng)下拉菜單選定教師表時(shí)，可以查詢教師的相關(guān)信息，其中包括教師代碼，姓名，性別，出生日期，籍貫，技術(shù)職務(wù)，備注等，方便學(xué)生查詢，并選擇相應(yīng)的老師的課程。圖 全局瀏覽選項(xiàng)卡代碼如下：Page2的init事件：with .columncount=5.recordsource=39。student39。.=39。學(xué)號(hào)39。.=39。姓名39。.=39。性別39。.=39。出生日期39。.=39。班級(jí)編號(hào)39。.=60.=65.=40.=60.=63.readonly=.T..deletemark=.F.endwith 學(xué)生年齡選項(xiàng)卡主要用于查詢學(xué)生的相關(guān)信息。 學(xué)生年齡學(xué)生選項(xiàng)卡代如下：Command1的click事件：if val(alltrim())val()messagebox(39。輸入不正確，請(qǐng)重新輸入39。,1+48+0,39。注意！39。)=elseage1=val(alltrim())age2=val(alltrim())sele studentloca for year(date())year(出生日期)=age1 and year(date())year(出生日期)=age2if found()=sele*from student where year(date())year(出生日期)=age1 and year(date())year(出生日期)=age2 into cursor tempelsemessagebox(不存在這個(gè)年齡段的學(xué)生，請(qǐng)查證后再輸入！)=endifendif 課程瀏覽選項(xiàng)卡課程瀏覽主要包括課程代碼，課程名稱，類(lèi)別，還有教師代碼，有五個(gè)功能按鈕，分別是第一頁(yè)，上一頁(yè)，下一頁(yè)，末一頁(yè)和刪除，當(dāng)選定某個(gè)課程信息后，點(diǎn)擊上一頁(yè)或者下一頁(yè)，會(huì)查詢到相鄰的上一個(gè)或者下一個(gè)課程信息，點(diǎn)擊第一頁(yè)或者末一頁(yè)，可以直接跳躍查詢第一個(gè)或者最后一個(gè)課程信息，刪除是為了刪除掉沒(méi)有用或者已經(jīng)過(guò)時(shí)的課程信息。 課程瀏覽但是，當(dāng)選定的課程信息為第一個(gè)或者最后一個(gè)時(shí)，在點(diǎn)擊功能按鈕功能按鈕的第一頁(yè)和上一頁(yè)或者下一頁(yè)和末一頁(yè)會(huì)沒(méi)有任何動(dòng)作。第一頁(yè)和上一頁(yè)功能按鈕沒(méi)有動(dòng)作，成為灰色，下一頁(yè)和末一頁(yè)功能按鈕沒(méi)有動(dòng)作，成為灰色，.圖 按鈕功能示意圖 按鈕功能示意圖課程瀏覽選項(xiàng)卡代碼如下：Page4的init事件：sele coursego top=課程代碼=課程名稱=類(lèi)別=教師代碼 Page4的refresh事件：sele course=課程代碼=課程名稱=類(lèi)別=教師代碼 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 多項(xiàng)查詢選項(xiàng)卡多項(xiàng)查詢主要包括學(xué)生學(xué)號(hào)下拉菜單，學(xué)生成績(jī)高于90分勾選框，查詢內(nèi)容顯示窗口，查詢功能按鈕，以及退出功能按鈕。學(xué)生學(xué)號(hào)下拉菜單主要是選擇相應(yīng)的學(xué)生學(xué)號(hào)，點(diǎn)擊查詢功能按鈕，就可以查出這個(gè)學(xué)號(hào)對(duì)應(yīng)的學(xué)生的所有成績(jī)，如果想查詢這個(gè)學(xué)生高于90分的科目，只要在勾選框中選定，單擊查詢功能按鈕，既可以查詢出此學(xué)生成績(jī)高于90的科目。下面兩個(gè)圖分別展示查詢一個(gè)學(xué)生全部成績(jī)和高于90分的成績(jī)， 圖 多項(xiàng)查詢信息圖 多項(xiàng)查詢信息多項(xiàng)查詢選項(xiàng)卡代碼如下：Command1的click事件：=I=alltrim()sele scoreloca for 學(xué)號(hào)=Iif found() if =1 =sele 學(xué)號(hào),課程名稱,成績(jī) from score,course where 學(xué)號(hào)=i and 成績(jī) and = into cursor temp else =sele 學(xué)號(hào),課程名稱,成績(jī) from score,course where 學(xué)號(hào)=i and = into cursor temp endif endif 統(tǒng)計(jì) 統(tǒng)計(jì)指對(duì)某一現(xiàn)象有關(guān)的數(shù)據(jù)的搜集、整理、計(jì)算和分析等的活動(dòng)。在統(tǒng)計(jì)選項(xiàng)卡中，包含兩個(gè)選項(xiàng)任務(wù)欄，分別是按個(gè)人成績(jī)查詢和按單科成績(jī)查詢，五個(gè)顯示文本框，其中包括記錄列表，最高分，最低分，平均分和總數(shù)，還有一個(gè)推出功能按鍵。兩個(gè)選項(xiàng)任務(wù)欄，可以通過(guò)鼠標(biāo)單擊文字前面的選項(xiàng)框進(jìn)行選擇，用來(lái)統(tǒng)計(jì)某一個(gè)學(xué)生的成績(jī)信息。五個(gè)顯示文本框，顯示學(xué)生的成績(jī)信息，可以詳細(xì)顯示一個(gè)學(xué)生的成績(jī)信息，和需要查詢的學(xué)生名單列表。退出，用于查詢完畢，退出系統(tǒng)。圖 按個(gè)人成績(jī)進(jìn)行查詢 按單科成績(jī)查詢統(tǒng)計(jì)選項(xiàng)卡的代碼如下：Form1的init事件：=39。39。=39。39。=39。39。=39。39。Optiongroup1的interactivechange事件：do case case =0 =39。39。 case =1 =39。39。 case =2 =39。39。 Endcase List1的interactivechange事件：do case case =1 xm=alltrim() sele student locate for 姓名=xm xh=學(xué)號(hào) sele score calculate max(成績(jī)),min(成績(jī)),avg(成績(jī)),t(成績(jī)) for 學(xué)號(hào)=xh to a1,a2,a3,a4 =alltrim(str(a1)) =alltrim(str(a2)) =alltrim(str(a