計(jì)算機(jī)等級考試二級VFP上機(jī)試題及解題思路(43)

　　三、綜合應(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)閉表單。

　　本題主要考核點(diǎn)：

　　表單文件的創(chuàng)建、控件的屬性的修改、SQL語句運(yùn)用、表單的退出等知識點(diǎn)

　　本題解題思路：

　　操作過程：

　�、僭诿�令窗口輸入命令：CREATE FORM Myform1，打開表單設(shè)計(jì)器窗口。

　�、谠诒砀裆咸砑痈魑谋究颉⒚�令按鈕、表格及相關(guān)的標(biāo)簽，并進(jìn)行適當(dāng)?shù)牟贾煤痛笮≌{(diào)整。

　�、墼O(shè)置各標(biāo)簽、命令按鈕以及表單的Caption屬性值。

　�、軐⒈韱蔚腃olumnCount 屬性值設(shè)置為2(共兩列)、RecordSourceType屬性值設(shè)置為"4-SQL說明"。

　�、輰⒈砀駜�(nèi)兩列標(biāo)頭的Caption屬性分別設(shè)置為"課程名"和"成績"，并適當(dāng)調(diào)整兩列的寬度。

　�、拊O(shè)置表單的Load事件代碼：

　　CLOSE ALL

　　USE STUDENT

　�、咴O(shè)置"查詢"按鈕的Click事件代碼：

　　GO TOP

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

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

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

　　FROM course INNER JOIN score1;

　　INNER JOIN student ;

　　ON Student.學(xué)號 = Score1.學(xué)號 ;

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

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

　　INTO CURSOR TEMP"

　　ELSE

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

　　THISFORM.GRID1.RECORDSOURCE=''

　　ENDIF

　�、嘣O(shè)置"退出"按鈕的Click事件代碼：

　　THISFORM.RELEASE

　�、岜４姹韱危�關(guān)閉表單設(shè)計(jì)器窗口。