三、綜合應(yīng)用(1小題，計(jì)30分)

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

　　標(biāo)題為"零件供應(yīng)情況"。表單中有一個(gè)表格控件和兩個(gè)命令按鈕"查詢"(名稱為

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

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

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

　　單擊"退出"按鈕關(guān)閉表單。

　　考查知識點(diǎn)：

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

　　解題思路：

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

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

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

　　set safety off

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

　　where 零件號 in ;

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

　　&&將查詢結(jié)果保存在表中

　　thisform.grid1.recordsource="ls"

　　&&設(shè)置表格的數(shù)據(jù)源為查詢結(jié)果生成的表

　　set safety on

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