數(shù)據(jù)庫應(yīng)用基礎(chǔ)期末考試表單題庫答案

1、25編制“學(xué)生”表信息查詢界面，要求如圖1、圖2、圖3所示。 圖1 用戶選擇前的運(yùn)行界面 圖2 用戶選擇同學(xué)后的運(yùn)行界面答案：（學(xué)生表拉到數(shù)據(jù)環(huán)境）（把“性別”字段拉到表單內(nèi)，改Caption）（1）表單Form1的Init事件代碼：Thisform.Label1.Caption=”請選擇學(xué)生姓名”Thisform.Label2.Caption=”學(xué)號”Thisform.Label3.Caption=”姓名”Thisform.Labe4.Caption=”性別”Thisform.Label5.Caption=”出生年月”Thisform.Label6.Caption=”獎(jiǎng)學(xué)金”Thisform

2、.Check1.Caption=”選中為男,否則為女”Thisform.Caption=”學(xué)生表信息查詢”Thisform.Setall(“Readonly”,.T.,”TextBox”)Thisform.Check1.Readonly=.T.（2）列表框List的InterActiveChange事件代碼：ThisForm.SetAll(Visible,.T.) ThisForm.Refresh19編制一個(gè)表單完成表文件“學(xué)生.dbf”內(nèi)容的學(xué)生獎(jiǎng)學(xué)金查詢顯示功能（界面如圖所示）。要求：當(dāng)用戶在組合框輸入或選擇班級（學(xué)號的前三位）后，按回車或“確定”按鈕時(shí)，表單將自動顯示對應(yīng)班級的獎(jiǎng)學(xué)金總額

3、；按“退出”按鈕時(shí)，自動關(guān)閉表單。圖:用戶選擇確定后的運(yùn)行界面答案：(把學(xué)生表拉到數(shù)據(jù)環(huán)境)(1)表單Form1的Init事件代碼：SET TALK OFFSET SAFETY OFFINDEX ON LEFT(學(xué)生.學(xué)號,3) TO XH UNIQUEThisform.Combo1.DisplayValue=Left(學(xué)生.學(xué)號,3)SCAN Thisform.Combo1.AddItem(Left(學(xué)生.學(xué)號,3)ENDSCANSET INDEX TO(2)組合框Combo1的Valid事件代碼：IF EMPTY(This.DisplayValue) RETURN .T.ENDIFLOCA

4、TE FOR LEFT(ALLTRIM(學(xué)生.學(xué)號),3)=LEFT(ALLTRIM(This.DisplayValue),3)IF EOF() RETURN .F.ELSE RETURN .T.ENDIF(3)命令按扭Command1的Click事件代碼:SUM 獎(jiǎng)學(xué)金 TO MJXJ FOR LEFT(ALLTRIM(學(xué)號),3)=LEFT(ALLTRIM;(Thisform.Combo1.DisplayValue),3)Thisform.Text1.Value=MJXJ(4)命令按扭Command2的Click事件代碼:Thisform.Release18建立一個(gè)表單，通過每次單擊“開始

5、”按鈕，都能實(shí)現(xiàn)表單的標(biāo)簽信息從頂行向下平移，移到底邊即停止。設(shè)計(jì)界面如圖所示。標(biāo)簽高度為30像素，字體顏色為藍(lán)色。圖：信息單向平移表單設(shè)計(jì)界面答案：(Foreclour)(1)表單Form1的Init事件：Thisform.Timer1.Enabled=.F.(2)命令按扭Command1的事件代碼:Thisform.Timer1.Enabled=.T.(3)命令按扭Command2的事件代碼:Thisform.Release(4)計(jì)時(shí)器Timer1的Timer事件：IF Thisform.Label1.Top9,STR(Thisform.H,2),0+STR(Thisform.H,1)MM

6、=IIF(Thisform.M9,STR(Thisform.M,2),0+STR(Thisform.M,1)SS=IIF(Thisform.S9,STR(Thisform.S,2),0+STR(Thisform.S,1)Thisform.Text1.Value=HH+:+MM+:+SSThisform.Refresh4編一頁面轉(zhuǎn)換表單，界面如圖所示。要求表單上有一個(gè)包含三頁的頁框，每頁依次放入一幅圖畫（FOX.BMP）、一張表格（顯示“學(xué)生.DBF”的數(shù)據(jù)）、一個(gè)列表框（包含有“學(xué)生.DBF”的“姓名”字段），并能每隔2秒鐘從左自右自動換頁，當(dāng)翻到第3頁后，自動回到第1頁，未被激活的頁面自動設(shè)

7、為不可訪問。圖: 頁面轉(zhuǎn)換界面答案：（表單，新建屬性）(1)表單form1的init事件thisform.P=0（2）計(jì)時(shí)器timer1的timer事件thisform.pageframe1.page1.enabled=.F.thisform.pageframe1.page2.enabled=.F.thisform.pageframe1.page3.enabled=.F.thisform.P=thisform.p+1IF thisform.Pthisform.pageframe1.pagecount thisform.P=1ENDIF thisform.pageframe1.pages(thi

8、sform.P).enabled=.T.thisform.pageframe1.activepage=thisform.Pthisform.Refresh13設(shè)計(jì)一個(gè)表單，當(dāng)用戶在文本框中輸入矩陣的維數(shù)N后，按“顯示”按鈕則會在編輯框中輸出對角線為0的N維矩陣。界面如圖所示。 圖：設(shè)計(jì)界面 圖：運(yùn)行界面答案：（list）（1)文本框text1的valid事件代碼IF VAL(This.Value)9 OR VAL(This.Value)1 =MESSAGEBOX(“輸入錯(cuò)，請重新輸入!”) RETURN.f.ELSE RETURN.T.ENDIFThisform.Refresh （2）命令按鈕

9、顯示command1的click事件代碼N=Val(ALLTRIM(Thisform.Text1.Value)DIMENSION A(N,N)CH=”FOR I=1 TO N FOR J=1 TO N IF I=J OR I+J=N+1 A(I,J)=0 ELSE A(I,J)=1 ENDIF CH=CH+STR(A(I,J),2)ENDFORCH=CH+CHR(13)ENDFORThisform.Edit1.Value=ch Thisform.Text1.SetFocus Thisform.Refresh7設(shè)計(jì)一個(gè)表單，使表單中的信息行顯示系統(tǒng)當(dāng)前時(shí)間，并使該信息行在表單內(nèi)左右緩慢平移。界面

10、如圖所示。 圖：設(shè)計(jì)界面 圖：運(yùn)行界面答案：（新建屬性D）(1)表單form1的init事件this.caption=信息行動態(tài)平行移動thisform.timer1.Interval=100thisform.label1.caption=TIME()thisform.label1.left=0thisform.d=.t.(2)計(jì)時(shí)器timer1的timer事件thisform.label1.Caption=TIME()IF thisform.label1.Left=thisform.Width-thisform.label1.Width thisform.D=.f.ENDIF IF this

11、form.D=.t. thisform.label1.Left=thisform.label1.Left+1ELSE thisform.label1.Left=thisform.label1.Left-1ENDIF thisform.refresh8利用計(jì)時(shí)器控件設(shè)計(jì)一個(gè)模擬拍球動作的表單。具體界面如圖所示。球的起始位置在表單的頂行中部，表單執(zhí)行后，球自上而下落下并且球體逐漸變大，當(dāng)球到達(dá)表單底部時(shí)自動彈回，并且球體又逐漸回縮變小，當(dāng)球到達(dá)頂部時(shí)再次自動下落，如此往復(fù)彈跳，仿佛有人用手拍打球，直到關(guān)閉表單。 圖: 球自上而下落下 球逐漸變大到達(dá)底部答案：（新建屬性F）（1）表單form1的in

12、it事件thisform.shape1.Width=40thisform.shape1.height=40thisform.shape1.Top=0thisform.T=1thisform.timer1.Interval=100（2） 表單timer1的timer事件IF Thisform.Shape1.Top=thisform.Height-thisform.shape1.height thisform.T=0ENDIFif thisform.T=1 thisform.shape1.top=thisform.shape1.top+1 thisform.shape1.height=thisfo

13、rm.shape1.height+1 thisform.shape1.width=thisform.shape1.width+1ELSE thisform.shape1.top=thisform.shape1.top-1 thisform.shape1.height=thisform.shape1.height-1 thisform.shape1.width=thisform.shape1.width-1ENDIFthisform.refresh9設(shè)計(jì)一個(gè)三表表單（學(xué)生表、成績表、課程表），成績表與學(xué)生表建立臨時(shí)關(guān)聯(lián)，成績表與課程表建立臨時(shí)關(guān)聯(lián)，查詢相關(guān)的信息。運(yùn)行界面如圖所示。答案：(1)表

14、單form1的init事件thisform.SetAll(readonly,.T.,grid)thisform.setall(allowaddnew,.F.,grid)thisform.SetAll(deletemark,.F.,grid)23編制一個(gè)表單完成表文件學(xué)生.dbf成績.dbf課程.dbf內(nèi)容的編輯瀏覽顯示功能（設(shè)計(jì)界面和運(yùn)行界面如圖所示）。具體要求如下：1、三個(gè)表文件分別顯示在三個(gè)不同的頁面上；2、表單內(nèi)容將以3秒為間隔自動換頁刷新，即自動自左向右順序翻頁，當(dāng)翻至第三頁時(shí)，將自動回到第一頁循環(huán)翻動。 圖：設(shè)計(jì)界面 圖：運(yùn)行界面答案：(1)計(jì)時(shí)器timer1的timer事件DO C

15、ASE CASE thisform.pageframe1.ActivePage=1 thisform.pageframe1.ActivePage=2 CASE thisform.pageframe1.ActivePage=2 thisform.pageframe1.ActivePage=3 CASE thisform.pageframe1.ActivePage=3 thisform.pageframe1.ActivePage=1ENDCASE thisform.Refresh 21設(shè)計(jì)表單完成如圖所示的界面。具體要求如下：當(dāng)在文本框輸入數(shù)字并回車，判斷按鈕會自動按下，并判斷該數(shù)是否為素?cái)?shù)，同時(shí)

16、焦點(diǎn)自動回倒text1，自動選中原文本框中數(shù)據(jù)，準(zhǔn)備接收新的輸入。 圖：設(shè)計(jì)界面 圖：運(yùn)行界面答案：（1）表單form1的init事件thisform.text1.SelectOnEntry=.T.thisform.text2.readonly=.T.thisform.text1.value=3mand1.default=.T.（2）命令按鈕command1的click事件n=thisform.text1.ValueFOR i=2 TO n-1 IF n%i=0 EXIT ENDIF ENDFOR IF in-1 thisform.text2.Value=是素?cái)?shù)!ELSE thisform.t

17、ext2.Value=不是素?cái)?shù)!ENDIF thisform.text1.SetFocusthisform.Refresh(3) 命令按鈕command2的click事件thisform.Release22設(shè)計(jì)表單完成如圖所示的界面。具體要求如下：當(dāng)表單運(yùn)行后，圖片自動從右向左移動，當(dāng)移動到左邊界時(shí)，又回到右邊繼續(xù)移動。 答案：（interval設(shè)置為10）（1）表單form1的lnit事件thisform.F=0thisform.caption=動畫（2）計(jì)時(shí)器timer1的timer事件IF thisform.F=0thisform.image1.Left=thisform.image1.

18、Left-1 IF thisform.image1.Left=Thisform.width-Thisform.Image1.Width thisform.F=1 ENDIF ENDIF IF thisform.F=1 thisform.image1.Left=thisform.image1.Left-1IF thisform.image1.Left=0 thisform.F=0 ENDIF ENDIF24設(shè)計(jì)如圖所示的表單，根據(jù)“學(xué)生”、“課程”、“成績”表，用SQL-SELECT語句實(shí)現(xiàn)以下查詢：（查詢表單）l 在查詢1按鈕中實(shí)現(xiàn)查找1990年之后出生的學(xué)生的信息的功能（查詢內(nèi)容顯示時(shí)包含學(xué)

19、號、姓名、出生日期、課程名和成績五個(gè)字段）。l 2.在查詢2按鈕中實(shí)現(xiàn)查找成績在60分以上的學(xué)生的信息的功能（查詢內(nèi)容顯示時(shí)包含學(xué)號、姓名、課程名和成績四個(gè)字段）。l 3.在查詢3按鈕中實(shí)現(xiàn)查找學(xué)號的前三位為081的學(xué)生的信息的功能（查詢內(nèi)容顯示時(shí)包含學(xué)號、姓名、課程名和成績四個(gè)字段）。l 4.表單的標(biāo)題是查詢。答案：（1）command1的click事件（3個(gè)表都拉到數(shù)據(jù)環(huán)境）SELECT 學(xué)生.學(xué)號,姓名,出生年月,課程名,成績 FROM 學(xué)生,成績,課程;WHERE 學(xué)生.學(xué)號=成績.學(xué)號 AND 課程.課程號=成績.課程號 AND YEAR(出生年月)=1990（2）command2的

20、click事件SELECT 學(xué)生.學(xué)號,姓名,出生年月,課程名,成績 FROM 學(xué)生,成績,課程;WHERE 學(xué)生.學(xué)號=成績.學(xué)號 AND 課程.課程號=成績.課程號 AND 成績=60（3）command3的click事件SELECT 學(xué)生.學(xué)號,姓名,出生年月,課程名,成績 FROM 學(xué)生,成績,課程; WHERE 學(xué)生.學(xué)號=成績.學(xué)號 AND 課程.課程號=成績.課程號 AND LEFT(學(xué)生.學(xué)號,3)=081（4）command4的click事件thisform.Release10. 設(shè)計(jì)一個(gè)表單，實(shí)現(xiàn)查詢并顯示指定學(xué)生的平均成績和成績檔次。要求不及格的平均成績和成績檔次用紅字顯示，其他用藍(lán)字顯示。（1） 表單form1的Destory事件 SET TALK ON（2） 表單Form1的Init事件 SET TALK OFF（3） 命令