計(jì)算機(jī)等級(jí)考試二級(jí)VFP上機(jī)試題及解題思路(42)

　　三、綜合應(yīng)用

　　設(shè)計(jì)名為mystu的表單(控件名為form1,文件名為mystu)。表單的標(biāo)題為"學(xué)生學(xué)習(xí)情況統(tǒng)計(jì)"。表單中有一個(gè)選項(xiàng)組控件(命名為myOption)和兩個(gè)命令按鈕"計(jì)算"(名稱(chēng)為Command1)和"退出"(名稱(chēng)為Command2)。其中, 選項(xiàng)組控件有兩個(gè)按鈕"升序"(名稱(chēng)為Option1)和"降序"(名稱(chēng)為Option2)。

　　運(yùn)行表單時(shí)，首先在選項(xiàng)組控件中選擇"升序"或"降序", 單擊"計(jì)算"命令按鈕后,按照成績(jī)"升序"或"降序"(根據(jù)選項(xiàng)組控件)將選修了"C語(yǔ)言"的學(xué)生學(xué)號(hào)和成績(jī)分別存入stu_sort1.dbf和stu_sort2.dbf文件中。

　　單擊"退出"按鈕關(guān)閉表單。

　　本題主要考核點(diǎn)：

　　表單的創(chuàng)建、控件的屬性的修改、表單的退出、SQL查詢(xún)等知識(shí)點(diǎn)

　　本題解題思路：

　　第一步：在Visual FoxPro主窗口中按下組合鍵Ctrl+N，系統(tǒng)彈出"新建"對(duì)話(huà)框，在文件類(lèi)型中選擇"表單"，點(diǎn)擊"新建文件"按鈕,系統(tǒng)將打開(kāi)表單設(shè)計(jì)器;或直接在命令窗口中輸入 crea form mystu。

　　第二步：點(diǎn)擊工具欄按鈕"表單控件工具欄"，在彈出的"表單控件"對(duì)話(huà)框中，選中"選項(xiàng)按鈕組"控件，在表單設(shè)計(jì)器中拖動(dòng)鼠標(biāo)，這樣在表單上得到一個(gè)"選項(xiàng)按鈕組"控件optiongroup1，用類(lèi)似的方法為表單加入一個(gè)"命令按鈕"控件command2，二個(gè)"文本框"控件text1和text2。

　　相關(guān)控件的屬性值如下表所示：

　　***命令按鈕command1(計(jì)算)的Click事件代碼如下****

　　DO CASE

　　CASE THISFORM.myOption.VALUE=1

　　SELECT 學(xué)生.學(xué)號(hào), 選課.成績(jī);

　　FROM 學(xué)生!課程 INNER JOIN 學(xué)生!選課;

　　INNER JOIN 學(xué)生!學(xué)生 ;

　　ON 學(xué)生.學(xué)號(hào) = 選課.學(xué)號(hào) ;

　　ON 課程.課程號(hào) = 選課.課程號(hào);

　　WHERE AT("C語(yǔ)言",課程.課程名稱(chēng)) > 0;

　　ORDER BY 選課.成績(jī);

　　INTO TABLE stu_sort1

　　CASE THISFORM.myOption.VALUE=2

　　SELECT 學(xué)生.學(xué)號(hào), 選課.成績(jī);

　　FROM 學(xué)生!課程 INNER JOIN 學(xué)生!選課;

　　INNER JOIN 學(xué)生!學(xué)生 ;

　　ON 學(xué)生.學(xué)號(hào) = 選課.學(xué)號(hào) ;

　　ON 課程.課程號(hào) = 選課.課程號(hào);

　　WHERE AT("C語(yǔ)言",課程.課程名稱(chēng)) > 0;

　　ORDER BY 選課.成績(jī) DESC;

　　INTO TABLE stu_sort2

　　ENDCASE

　　***命令按鈕command2(退出)的Click事件代碼如下***

　　THISFORM.RELEASE