計算機等級考試二級VFP上機試題及解題思路(47)

　　三、綜合應用(1小題，計30分)

　　設計一個文件名和表單名均為myaccount的表單。表單的標題為

　　"外匯持有情況"。表單中有一個選項按鈕組控件(myOption)、一個表格控件

　　(Grid1)以及兩個命令按鈕"查詢"(Command1)和"退出"(Command2)。其中，選項

　　按鈕組控件有兩個按鈕"現(xiàn)匯"(Option1)、"現(xiàn)鈔"(Option2)。

　　運行表單時，首先在選項組控件中選擇"現(xiàn)鈔"或"現(xiàn)匯"，單擊"查詢"命令

　　按鈕后，根據選項組控件的選擇將"外匯賬戶"表的"現(xiàn)鈔"或"現(xiàn)匯"(根據鈔匯標

　　志字段確定)的情況顯示在表格控件中。

　　單擊"退出"按鈕，關閉并釋放表單。

　　注：在表單設計器中將表格控件Grid1的數(shù)據源類型設置為"SQL說明"。

　　本題主要考核點

　　控件的屬性的修改、SQL語句運用、表單的退出等知識點

　　本題解題思路：

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

　　第二步：點擊工具欄按鈕"表單控件工具欄"，在彈出的"表單控件"對話框中，選中"選項組"控件，在表單設計器中拖動鼠標，這樣在表單上得到一個"選項組"控件optiongroup1，用類似的方法為表單再加入兩個"命令按鈕"控件command1和command2。

　　相關控件的屬性值如下：

　　對象 屬性 屬性值

　　Form1 Caption 外匯持有情況

　　選項組 Name myOption

　　ButtonCount 2

　　MyOption.option1 Caption 現(xiàn)匯

　　MyOption.option2 Caption 現(xiàn)鈔

　　Command1 Caption 查詢

　　Command2 Caption 退出

　　***********命令按鈕command1(查詢)的Click事件代碼如下************

　　DO CASE

　　CASE THISFORM.myOption.VALUE=1

　　THISFORM.GRID1.RECORDSOURCE="SELECT 外幣代碼, 金額;

　　FROM 外匯賬戶;

　　WHERE 鈔匯標志 = [現(xiàn)匯];

　　INTO CURSOR TEMP"

　　CASE THISFORM.myOption.VALUE=2

　　THISFORM.GRID1.RECORDSOURCE="SELECT 外幣代碼, 金額;

　　FROM 外匯賬戶;

　　WHERE 鈔匯標志 = [現(xiàn)鈔];

　　INTO CURSOR TEMP"

　　ENDCASE

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

　　thisform.release