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

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

　　SCORE_MANAGER數(shù)據(jù)庫(kù)中含有三個(gè)數(shù)據(jù)庫(kù)表STUDENT、SCORE1和COURSE。

　　為了對(duì)SCORE_MANAGER數(shù)據(jù)庫(kù)數(shù)據(jù)進(jìn)行查詢，設(shè)計(jì)一個(gè)如圖所示的表單Myform1(控件名為form1,表單文件名Myform1.scx)。表單的標(biāo)題為"成績(jī)查詢"。表單左側(cè)有文本"輸入學(xué)號(hào)(名稱為L(zhǎng)abel1的標(biāo)簽)"和用于輸入學(xué)號(hào)的文本框(名稱為Text1)以及"查詢"(名稱為Command1)和"退出"(名稱為Command2)兩個(gè)命令

　　按鈕以及1個(gè)表格控件。

　　表單運(yùn)行時(shí)，用戶首先在文本框中輸入學(xué)號(hào),然后單擊"查詢"按鈕，如果

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

　　績(jī)，否則提示"學(xué)號(hào)不存在，請(qǐng)重新輸入學(xué)號(hào)"。

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

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

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

　　本題解題思路：

　　操作過(guò)程：

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

　　②在表格上添加各文本框、命令按鈕、表格及相關(guān)的標(biāo)簽，并進(jìn)行適當(dāng)?shù)牟贾煤痛笮≌{(diào)整。

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

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

　　⑤將表格內(nèi)兩列標(biāo)頭的Caption屬性分別設(shè)置為"課程名"和"成績(jī)"，并適當(dāng)調(diào)整兩列的寬度。

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

　　CLOSE ALL

　　USE STUDENT

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

　　GO TOP

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

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

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

　　FROM course INNER JOIN score1;

　　INNER JOIN student ;

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

　　ON Course.課程號(hào) = Score1.課程號(hào);

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

　　INTO CURSOR TEMP"

　　ELSE

　　MESSAGEBOX("學(xué)號(hào)不存在，請(qǐng)重新輸入學(xué)號(hào)")

　　THISFORM.GRID1.RECORDSOURCE=''

　　ENDIF

　　⑧設(shè)置"退出"按鈕的Click事件代碼：

　　THISFORM.RELEASE

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