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

　　SCORE_MANAGER數據庫中含有三個數據庫表STUDENT、SCORE1和COURSE。

　　為了對SCORE_MANAGER數據庫數據進行查詢，設計一個如圖所示的表單Myform1(控件名為form1,表單文件名Myform1.scx)。表單的標題為"成績查詢"。表單左側有文本"輸入學號(名稱為Label1的標簽)"和用于輸入學號的文本框(名稱為Text1)以及"查詢"(名稱為Command1)和"退出"(名稱為Command2)兩個命令

　　按鈕以及1個表格控件。

　　表單運行時，用戶首先在文本框中輸入學號,然后單擊"查詢"按鈕，如果

　　輸入學號正確,在表單右側以表格(名稱為Grid1)形式顯示該生所選課程名和成

　　績，否則提示"學號不存在，請重新輸入學號"。

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

　　本題主要考核點：

　　表單文件的創建、控件的屬性的修改、SQL語句運用、表單的退出等知識點

　　本題解題思路：

　　操作過程：

　　①在命令窗口輸入命令：CREATE FORM Myform1，打開表單設計器窗口。

　　②在表格上添加各文本框、命令按鈕、表格及相關的標簽，并進行適當的布置和大小調整。

　　③設置各標簽、命令按鈕以及表單的Caption屬性值。

　　④將表單的ColumnCount 屬性值設置為2(共兩列)、RecordSourceType屬性值設置為"4-SQL說明"。

　　⑤將表格內兩列標頭的Caption屬性分別設置為"課程名"和"成績"，并適當調整兩列的寬度。

　　⑥設置表單的Load事件代碼：

　　CLOSE ALL

　　USE STUDENT

　　⑦設置"查詢"按鈕的Click事件代碼：

　　GO TOP

　　LOCATE FOR Student.學號 ==ALLTRIM(THISFORM.TEXT1.VALUE)

　　IF Student.學號 ==ALLTRIM(THISFORM.TEXT1.VALUE)

　　THISFORM.GRID1.RECORDSOURCE="SELECT Course.課程名, Score1.成績;

　　FROM course INNER JOIN score1;

　　INNER JOIN student ;

　　ON Student.學號 = Score1.學號 ;

　　ON Course.課程號 = Score1.課程號;

　　WHERE Student.學號 = ALLTRIM(THISFORM.TEXT1.VALUE);

　　INTO CURSOR TEMP"

　　ELSE

　　MESSAGEBOX("學號不存在，請重新輸入學號")

　　THISFORM.GRID1.RECORDSOURCE=''

　　ENDIF

　　⑧設置"退出"按鈕的Click事件代碼：

　　THISFORM.RELEASE

　　⑨保存表單，關閉表單設計器窗口。