2010年計算機等考二級VF上機沖刺模擬試題(35)

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

　　設計一個文件名和表單名均為myaccount的表單。表單的標題為"外匯持有情況"。表單中有一個選項按鈕組控件(myOption)、一個表格控件(Grid1)以及兩個命令按鈕"查詢"(Command1)和"退出"(Command2)。其中，選項按鈕組控件有兩個按鈕"現(xiàn)匯"(Option1)、"現(xiàn)鈔"(Option2)。

　　運行表單時，首先在選項組控件中選擇"現(xiàn)鈔"或"現(xiàn)匯"，單擊"查詢"命令按鈕后，根據(jù)選項組控件的選擇將"外匯賬戶"表的"現(xiàn)鈔"或"現(xiàn)匯"(根據(jù)鈔匯標志字段確定)的情況顯示在表格控件中。

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

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

　　解答：

　　新建表單，保存，表單文件名為“myaccount”，表單的name屬性也為“myaccount”，表單的Caption屬性改為“外匯持有情況”，在表單上添加選項按鈕組Optiongroup1,將其name屬性改為“myOption”，用鼠標右鍵單擊myOption，在快捷菜單中選擇“生成器”，在生成器窗口中設置兩個按鈕，標準設置為"現(xiàn)匯"(Option1)、"現(xiàn)鈔"(Option2)。添加表格控件，將其Recordsourcetype屬性設為4;添加兩個命令按鈕，分別設置其Caption，如下圖：

 

　　為“查詢”按鈕設置Click事件代碼為：

　　if thisform.myoption.value=1

　　thisform.grid1.recordsource="sele * from 外匯賬戶 where 鈔匯標志='現(xiàn)匯' into curs t1"

　　else

　　thisform.grid1.recordsource="sele * from 外匯賬戶 where 鈔匯標志='現(xiàn)鈔' into curs t2"

　　endif

　　為“退出”按鈕設置Click事件代碼為：

　　thisform.release

　　附：本題相關表