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

　　設計名為mysupply的表單(表單的控件名和文件名均為mysupply)。表單的

　　標題為"零件供應情況"。表單中有一個表格控件和兩個命令按鈕"查詢"(名稱為

　　Command1)和"退出"(名稱為Command2)。

　　運行表單時,單擊"查詢"命令按鈕后，表格控件(名稱grid1)中顯示了工程號

　　"J4"所使用的零件的零件名、顏色、和重量。

　　單擊"退出"按鈕關閉表單。

　　考查知識點：

　　表單的建立，表格控件的使用，SQL查詢命令，子查詢等

　　解題思路：

　　1.選擇“文件”菜單中“新建”命令，在文件類型選擇框中選擇“表單”，單擊“新建文件”按鈕

　　2.在表單設計器中設置表單的Name屬性為“mysupply”，Caption屬性為“零件供應情況”，從控件工具欄中分別選擇兩個按鈕和一個表格放置到表單上，分別設置按鈕Command1的Caption屬性為“查詢”,Command2的Caption屬性為“退出”，表格的Name屬性為“grid1”，RecordSourceType屬性為“0-表”

　　3.在Command1按鈕的Click事件中輸入：

　　set safety off

　　select 零件名,顏色,重量 from 零件;

　　where 零件號 in ;

　　(select 零件號 from 供應 where 工程號="J4") into table ls

　　&&將查詢結果保存在表中

　　thisform.grid1.recordsource="ls"

　　&&設置表格的數據源為查詢結果生成的表

　　set safety on

　　4.在Command2按鈕的Click事件中輸入:Thisform.release，保存表單為mysupply.scx。