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

　　三、綜合應(yīng)用(1小題，計(jì)30分)

　　設(shè)計(jì)一個(gè)文件名和表單名均為form_item的表單，所有控件的屬性必須在表

　　單設(shè)計(jì)器的屬性窗口中設(shè)置。表單的標(biāo)題設(shè)為"使用零件情況統(tǒng)計(jì)"。表單中有一

　　個(gè)組合框(combo1)、一個(gè)文本框(text1)和兩個(gè)命令按鈕"統(tǒng)計(jì)"(command1)和"退出"(command2)。

　　運(yùn)行表單時(shí)，組合框中有三個(gè)條目"s1"、"s2"、"s3"(只有三個(gè)，不能輸入新的，RowSourceType的屬性為"數(shù)組"，Style的屬性為"下拉列表框")可供選擇，

　　單擊"統(tǒng)計(jì)"命令按鈕以后，則文本框顯示出該項(xiàng)目所用零件的金額(某種零件的金額=單價(jià)*數(shù)量)。

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

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

　　控件的屬性的修改、SQL語句運(yùn)用、表單的退出等知識(shí)點(diǎn)

　　本題解題思路：

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

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

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

　　***************表單form_item的Load事件代碼如下***************

　　public ss(3)

　　ss(1)="s1"

　　ss(2)="s2"

　　ss(3)="s3"

　　*********命令按鈕command1(統(tǒng)計(jì))的Click事件代碼如下***********

　　SELECT SUM(零件信息.單價(jià)*使用零件.數(shù)量);

　　FROM 零件信息 INNER JOIN 使用零件;

　　INNER JOIN 項(xiàng)目信息 ;

　　ON 使用零件.項(xiàng)目號(hào) = 項(xiàng)目信息.項(xiàng)目號(hào) ;

　　ON 零件信息.零件號(hào) = 使用零件.零件號(hào);

　　WHERE 使用零件.項(xiàng)目號(hào) =ALLTRIM(THISFORM.combo1.VALUE);

　　GROUP BY 項(xiàng)目信息.項(xiàng)目號(hào);

　　INTO ARRAY TEMP

　　THISFORM.TEXT1.VALUE=TEMP

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

　　thisform.release