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

　　DO CASE

　　CASE thisform.myOption.option1.value=1

　　SELECT Currency_sl.姓名, Currency_sl.持有數(shù)量;

　　FROM 外匯數(shù)據(jù)!rate_exchange INNER JOIN 外匯數(shù)據(jù)!Currency_sl ;

　　ON rate_exchange.外幣代碼 = Currency_sl.外幣代碼;

　　WHERE rate_exchange.外幣名稱(chēng) = "日元";

　　INTO TABLE rate_ry.DBF

　　CASE thisform.myOption.option2.value=1

　　SELECT Currency_sl.姓名, Currency_sl.持有數(shù)量;

　　FROM 外匯數(shù)據(jù)!rate_exchange INNER JOIN 外匯數(shù)據(jù)!Currency_sl ;

　　ON rate_exchange.外幣代碼 = Currency_sl.外幣代碼;

　　WHERE rate_exchange.外幣名稱(chēng) = "美元";

　　INTO TABLE rate_my.DBF

　　CASE thisform.myOption.option3.value=1

　　SELECT Currency_sl.姓名, Currency_sl.持有數(shù)量;

　　FROM 外匯數(shù)據(jù)!rate_exchange INNER JOIN 外匯數(shù)據(jù)!Currency_sl ;

　　ON rate_exchange.外幣代碼 = Currency_sl.外幣代碼;

　　WHERE rate_exchange.外幣名稱(chēng) = "歐元";

　　INTO TABLE rate_oy.DBF

　　ENDCASE

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

　　thisform.release