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

　　SCORE_MANAGER數(shù)據(jù)庫中含有三個數(shù)據(jù)庫表STUDENT、SCORE1和COURSE。為了對SCORE_MANAGER數(shù)據(jù)庫數(shù)據(jù)進(jìn)行查詢，設(shè)計(jì)一個如圖所示的表單Myform1(控件名為form1,表單文件名myform1.scx)。表單的標(biāo)題為"成績查詢"。

　　表單左側(cè)有文本"輸入學(xué)號(名稱為Label1的標(biāo)簽)"和用于輸入學(xué)號的文本框(名稱為Text1)以及"查詢"(名稱為Command1)和"退出"(名稱為Command2)兩個命令按鈕以及1個表格控件。

　　表單運(yùn)行時，用戶首先在文本框中輸入學(xué)號,然后單擊"查詢"按鈕，如果輸入學(xué)號正確,在表單右側(cè)以表格(名稱為Grid1)形式顯示該生所選課程名和成績，否則提示"學(xué)號不存在，請重新輸入學(xué)號"。

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

 

　　解答：

　　1、對于將查詢結(jié)果反應(yīng)到表格控件中，一般選擇查詢結(jié)果為臨時表。

　　2、要求判斷當(dāng)前學(xué)號是否存在所以此時可用:Locate(順續(xù)查找) 加 Found()(最后一次查詢是否成功)

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

　　a=alltrim(thisform.text1.value)

　　locate for 學(xué)號=a

　　if found()

　　thisform.grid1.recordsourcetype=4

　　thisform.grid1.recordsource=”select 課程名,成績 from score1 inner join course on course.課程號=score1.課程號 where score1.學(xué)號=a into cursor tmp”

　　else

　　messagebox(“學(xué)號不存在，請重新輸入”)

　　endif

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

　　thisform.release

　　附相關(guān)數(shù)據(jù)表：