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

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

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

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

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

 

　　解答：

　　1、對于將查詢結果反應到表格控件中，一般選擇查詢結果為臨時表。

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

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

　　a=alltrim(thisform.text1.value)

　　locate for 學號=a

　　if found()

　　thisform.grid1.recordsourcetype=4

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

　　else

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

　　endif

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

　　thisform.release

　　附相關數據表：