2010年計(jì)算機(jī)等考二級(jí)VF上機(jī)沖刺模擬試題(15)

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

 

　　解答：

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

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

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

　　a=alltrim(thisform.text1.value)

　　locate for 學(xué)號(hào)=a

　　if found()

　　thisform.grid1.recordsourcetype=4

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

　　else

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

　　endif

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

　　thisform.release

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