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

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

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

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

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

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

 

　　解答：

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

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

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

　　a=alltrim(thisform.text1.value)

　　locate for 學(xué)號=a

　　if found()

　　thisform.grid1.recordsourcetype=4

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

　　else

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

　　endif

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

　　thisform.release

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