1、四川四川vfp二級上機(jī)考試次答案二級上機(jī)考試次答案第1頁/共43頁第2頁/共43頁第3頁/共43頁子表：子表：2 2號區(qū)號區(qū)父表：父表：1 1號區(qū)號區(qū)第4頁/共43頁select 2use 學(xué)生學(xué)生index on 學(xué)號學(xué)號 tag xhselect 1use 成績成績set relation to 學(xué)號學(xué)號 into bp打開表，索引，關(guān)聯(lián)打開表，索引，關(guān)聯(lián)第5頁/共43頁p數(shù)據(jù)處理（數(shù)據(jù)處理（1）修改記錄修改記錄replace all 成績成績 with 成績成績*1.15 for 課程名課程名=Access程序設(shè)計程序設(shè)計將課程為“Access程序設(shè)計“的成績提高15%。第6頁/共43頁

2、p數(shù)據(jù)處理（數(shù)據(jù)處理（2）查詢，顯示查詢，顯示通過輸入“學(xué)號”查詢學(xué)生的信息，即：學(xué)號、姓名、課程名、成績、學(xué)院等資料。若沒找到，顯示“數(shù)據(jù)表中沒有查到此人信息！”。界面舅圖所示：第7頁/共43頁accept 請輸入查詢的學(xué)號：請輸入查詢的學(xué)號： to xhlocate for 學(xué)號學(xué)號=xhif found() ? *查詢結(jié)果查詢結(jié)果* ? 學(xué)號學(xué)號 姓名姓名 課程名課程名 成績成績 學(xué)院學(xué)院 do while found() ? 學(xué)號學(xué)號, b.姓名姓名, 課程名課程名, 成績成績, b.學(xué)院學(xué)院 continue enddo ? *else ? 數(shù)據(jù)表中沒有查到此人信息！數(shù)據(jù)表中沒有查到

3、此人信息！endif第8頁/共43頁p關(guān)閉表關(guān)閉表close databases第9頁/共43頁clearset talk offset safety offselect 2use 學(xué)生學(xué)生Index on 學(xué)號學(xué)號 tag xhselect 1use 成績成績set relation to 學(xué)號學(xué)號 into breplace all 成績成績 with 成績成績*1.15 for 課程名課程名=Access程序設(shè)計程序設(shè)計accept 請輸入查詢的學(xué)號：請輸入查詢的學(xué)號： to xhlocate for 學(xué)號學(xué)號=xhif found() ? *查詢結(jié)果查詢結(jié)果* ? 學(xué)號學(xué)號 姓名姓名

4、課程名課程名 成績成績 學(xué)院學(xué)院 do while found() ? 學(xué)號學(xué)號, b.姓名姓名, 課程名課程名, 成績成績, b.學(xué)院學(xué)院 continue enddo ? *else ? 數(shù)據(jù)表中沒有查到此人信息！數(shù)據(jù)表中沒有查到此人信息！endifclose databases*abc1.PRG第10頁/共43頁第11頁/共43頁p創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境第12頁/共43頁Thisform.Optiongroup1Value0ButtonCount2Thisform.Optiongroup1.Option1Caption男男Thisform.Optiong

5、roup1.Option2Caption女女p設(shè)置控件屬性設(shè)置控件屬性Thisform.Command1Caption結(jié)束結(jié)束Thisform.Grid1Visible.F.第13頁/共43頁p編寫事件處理代碼編寫事件處理代碼Thisform.Optiongroup1.Clickxb=do case case this.value=1 xb=男男 case this.value=2 xb=女女endcaseSELECT * FROM 學(xué)生學(xué)生; WHERE 學(xué)生學(xué)生.性別性別 = xb; INTO CURSOR tmpThisform.Grid1.Recordsource=tmpThisfor

6、m.Grid1.Visible=.T.第14頁/共43頁Thisform.Command1.ClickThisform.Release第15頁/共43頁子表：子表：2 2號區(qū)號區(qū)父表：父表：1 1號區(qū)號區(qū)第16頁/共43頁select 2use kshindex on 學(xué)號學(xué)號 tag xhselect 1use yyuset relation to 學(xué)號學(xué)號 into bp打開表，索引，關(guān)聯(lián)打開表，索引，關(guān)聯(lián)第17頁/共43頁p數(shù)據(jù)處理（數(shù)據(jù)處理（1）修改記錄修改記錄replace all 平均分平均分 with (筆試筆試+聽力聽力)/2計算并填寫“yyu.dbf”的平均；第18頁/共43

7、頁p數(shù)據(jù)處理（數(shù)據(jù)處理（2）修改，顯示修改，顯示填寫ksh.dbf中的“評語”字段值。其中：當(dāng)平均分=90，評語為“優(yōu)”； 當(dāng)平均分=80，評語為“良”； 當(dāng)平均分=70，評語為“中”。查詢輸入格式如下：第19頁/共43頁go topdo while !eof() do case case 平均分平均分=90 replace b.評語評語 with 優(yōu)優(yōu) case 平均分平均分=80 replace b.評語評語 with 良良 case 平均分平均分=70 replace b.評語評語 with 中中 endcase skipenddobrowse fields 學(xué)號學(xué)號, b.姓名姓名,

8、筆試筆試, 聽力聽力, 平均分平均分, b.評語評語第20頁/共43頁p關(guān)閉表關(guān)閉表close databases第21頁/共43頁clearset talk offset safety offselect 2use kshindex on 學(xué)號學(xué)號 tag xhselect 1use yyuset relation to 學(xué)號學(xué)號 into breplace all 平均分平均分 with (筆試筆試+聽力聽力)/2go topdo while !eof() do case case 平均分平均分=90 replace b.評語評語 with 優(yōu)優(yōu) case 平均分平均分=80 replac

9、e b.評語評語 with 良良 case 平均分平均分=70 replace b.評語評語 with 中中 endcase skipenddobrowse fields 學(xué)號學(xué)號, b.姓名姓名, 筆試筆試, 聽力聽力, 平均分平均分, b.評語評語close databases*abc2.PRG第22頁/共43頁第23頁/共43頁p創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境第24頁/共43頁Thisform.Pageframe1PageCount2Thisform.Pageframe1.Page1Caption成績成績Thisform.Pageframe1.Page2Capt

10、ion綜合綜合p設(shè)置控件屬性設(shè)置控件屬性Thisform.Command1Caption退出退出其它控件屬性其它控件屬性Thisform.Pageframe1.Page2.Label1.Caption學(xué)號學(xué)號Thisform.Pageframe1.Page2.Label2.Caption平均分平均分Thisform.Pageframe1.Page2.Label3.Caption評語評語Thisform.Pageframe1.Page2.Text1.ControlSourceyyu.學(xué)號學(xué)號Thisform.Pageframe1.Page2.Text2.ControlSourceyyu.平均分平

11、均分Thisform.Pageframe1.Page2.Text3.ControlSourceksh.評語評語ThisformCaption英語成績英語成績第25頁/共43頁其它控件屬性其它控件屬性Thisform.Pageframe1.Page2.Commandgroup1.ButtonCount3Thisform.Pageframe1.Page2.Commandgroup1.Command1.Caption上一條上一條Thisform.Pageframe1.Page2.Commandgroup1.Command2.Caption下一條下一條Thisform.Pageframe1.Page2

12、.Commandgroup1.Command3.Caption結(jié)束結(jié)束第26頁/共43頁p編寫事件處理代碼編寫事件處理代碼Thisform.InitSELECT Yyu.學(xué)號學(xué)號, Ksh.姓名姓名, Yyu.筆試筆試, Yyu.聽力聽力; FROM yyu INNER JOIN ksh ; ON Yyu.學(xué)號學(xué)號 = Ksh.學(xué)號學(xué)號; INTO CURSOR tmpThisform.Pageframe1.Page1.Grid1.Recordsource=tmpselect yyuThisform.Command1.ClickThisform.Release第27頁/共43頁Thisform

13、.Pageframe1.Page2.Commandgroup1.Clickdo case case this.value=1 if !bof() skip -1 endif case this.value=2 if !eof() skip endif case this.value=3 Thisform.ReleaseendcaseThisform.Refresh第28頁/共43頁子表：子表：2 2號區(qū)號區(qū)父表：父表：1 1號區(qū)號區(qū)第29頁/共43頁select 2use 商品商品index on 商品號商品號 tag sphselect 1use 訂單訂單set relation to 商品

14、號商品號 into bp打開表，索引，關(guān)聯(lián)打開表，索引，關(guān)聯(lián)第30頁/共43頁p數(shù)據(jù)處理（數(shù)據(jù)處理（1）修改記錄修改記錄replace all 總金額總金額 with b.單價單價*數(shù)量數(shù)量計算訂單的總金額（總金額=單價*數(shù)量），填入“訂單.dbf”的“總金額”字段中。第31頁/共43頁p數(shù)據(jù)處理（數(shù)據(jù)處理（2）修改，顯示修改，顯示按訂單號查詢該商品名、單價、數(shù)量和總金額。要求能反復(fù)查詢。直到用戶不再查詢?yōu)橹?。界面如下圖所示：請輸入訂單號：0002=查詢結(jié)果=商品名稱 單價 數(shù)量 總金額計算機(jī)操作系統(tǒng) 31.00 2 62.00繼續(xù)查詢嗎？（y/n）n第32頁/共43頁do while .T.

15、 accept 請輸入訂單號：請輸入訂單號： to ddh locate for 訂單號訂單號=ddh ? =查詢結(jié)果查詢結(jié)果= ? 商品名稱商品名稱 單價單價 數(shù)量數(shù)量 總金額總金額 do while found() ? b.商品名商品名, b.單價單價, 數(shù)量數(shù)量, 總金額總金額 continue enddo wait 繼續(xù)查詢嗎（繼續(xù)查詢嗎（Y/N）？）？ to yn if upper(yn)=N exit endifenddo第33頁/共43頁p關(guān)閉表關(guān)閉表close databases第34頁/共43頁clearset talk offset safety offselect 2us

16、e 商品商品index on 商品號商品號 tag sphselect 1use 訂單訂單set relation to 商品號商品號 into breplace all 總金額總金額 with b.單價單價*數(shù)量數(shù)量do while .T. accept 請輸入訂單號：請輸入訂單號： to ddh locate for 訂單號訂單號=ddh ? =查詢結(jié)果查詢結(jié)果= ? 商品名稱商品名稱 單價單價 數(shù)量數(shù)量 總金額總金額 do while found() ? b.商品名商品名, b.單價單價, 數(shù)量數(shù)量, 總金額總金額 continue enddo wait 繼續(xù)查詢嗎（繼續(xù)查詢嗎（Y/N）

17、？）？ to yn if upper(yn)=N exit endifenddoclose databases*abc3.PRG第35頁/共43頁第36頁/共43頁pSQL查詢查詢SELECT Xscjzk.學(xué)號學(xué)號, Xjxx.姓名姓名, Dm_yx.院系簡稱院系簡稱,;Xscjzk.課程代碼課程代碼, Xscjzk.成績成績; FROM xscjzk INNER JOIN xjxx; INNER JOIN dm_yx ; ON Xjxx.院系代碼院系代碼 = Dm_yx.院系代碼院系代碼 ; ON Xscjzk.學(xué)號學(xué)號 = Xjxx.學(xué)號學(xué)號; WHERE Dm_yx.院系簡稱院系簡稱 = 動科院動科院第37頁/共43頁第38頁/共43頁use cj5p打開表打開表第39頁/共43頁p數(shù)據(jù)處理數(shù)據(jù)處理 統(tǒng)計，顯示統(tǒng)計，顯示1. 從鍵盤上輸入查詢的學(xué)號，能查詢該同學(xué)的學(xué)號、平均成績2. 程序要求能反復(fù)查詢輸出，其輸出格式如下：。第40頁/共43頁do while .T. accept 請輸入查詢的學(xué)號：請輸入查詢的學(xué)號： to xh average 成績成績 to pj for 學(xué)號學(xué)號=xh ? 學(xué)號：學(xué)號：, xh, 平均成績：平均成績：, pj wait 繼續(xù)查詢嗎（繼續(xù)查詢嗎（Y/N）？）？ to yn if upper(yn)=N