二、簡單應用(2小題，每題20分，計40分)

　　在考生文件夾下完成如下簡單應用:

　　1.使用SQL命令查詢2001年(不含)以前進貨的商品，列出其分類名稱、商品名稱、進貨日期，查詢結果按進貨日期升序排序并存入文本文件infor_a.txt中;所用命令存入文本文件cmd_aa.txt中;

　　2.用SQLUPDATE命令為所有商品編碼首字符是"3"的商品計算銷售價格：銷售價格為在進貨價格基礎上加22.68%，并把所用命令存入文本文件cmd_ab.txt中。

　　解答：

　　1.使用命令：MODI COMM cmd_aa.txt(擴展名不能省)，在編輯窗口中輸入代碼：

　　SELECT 分類.分類名稱, 商品.商品名稱, 商品.進貨日期;

　　FROM 商品管理!分類 INNER JOIN 商品管理!商品 ;

　　ON 分類.分類編碼 = 商品.分類編碼;

　　WHERE 商品.進貨日期 < {^2001-1-1};

　　ORDER BY 進貨日期TO FILE infor_a.txt

　　也可以先用查詢設置器做，再復制SQL代碼。

　　2. 使用命令：MODI COMM cmd_ab.txt(擴展名不能省)，在編輯窗口中輸入代碼：

　　upda 商品 set 銷售價格=進貨價格*1.2268 where left(商品編碼,1)="3"

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

　　建立表單，表單文件名和表單名均為myform_a，表單標題為"商品瀏覽"，表單樣例如圖所示(左圖)。其它功能要求如下:

　　1.用選項按鈕組(OptionGroup1)控件選擇商品分類(飲料(Option1)、調味品(Option2)、酒類(Option3)、小家電(Option4));

　　2.單擊"確定"(Command2)命令按鈕，顯示選中分類的商品，要求使用DOCASE語句判斷選擇的商品分類(如右圖所示);

　　3.在右圖所示界面中按Esc鍵返回左圖所示界面;

　　4.單擊"退出"(Command1)命令按鈕，關閉并釋放表單。

　　注：選項按鈕組控件的Value屬性必須為數值型。

 

　　解答：建立表單，用指定文件名保存，更改表單的Name和Caption屬性，添加選項按鈕組，用生成器設置其各選項的標題，將其Value屬性值設為0(保證選項按鈕組控件的Value屬性必須為數值型)。添加兩個命令按鈕，設置其標題。

　　設置“確定”按鈕的Click事件代碼為：

　　do case

　　case thisform.optiongroup1.value=1

　　sele * from 商品 where 分類編碼="1001"

　　case thisform.optiongroup1.value=2

　　sele * from 商品 where 分類編碼="2001"

　　case thisform.optiongroup1.value=3

　　sele * from 商品 where 分類編碼="3001"

　　case thisform.optiongroup1.value=4

　　sele * from 商品 where 分類編碼="4001"

　　endcase

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

　　thisform.release

　　附：本題相關表