四川vfp二級(jí)上機(jī)測(cè)驗(yàn)33次de謎底

1、打開表并索引（多工作區(qū)）建立關(guān)聯(lián)（SET RELATION TOINTO）數(shù)據(jù)處理（修改、查詢、統(tǒng)計(jì)等）輸出顯示（?, ?, LIST, DISPLAY）關(guān)閉表（CLOSE DATABASES, CLOSE ALL）結(jié)構(gòu)化程序設(shè)計(jì)的步驟創(chuàng)建數(shù)據(jù)庫(kù)（視圖）創(chuàng)建表單添加數(shù)據(jù)環(huán)境添加控件設(shè)置控件屬性編寫事件處理代碼（INIT, CLICK等）表單程序設(shè)計(jì)的步驟第33次上機(jī)考試子表：2號(hào)區(qū)父表：1號(hào)區(qū)33.1.2編寫程序（文件名：abc1.PRG）select 2use 學(xué)生index on 學(xué)號(hào) tag xhselect 1use 成績(jī)set relation to 學(xué)號(hào) into b打開表，索引，

2、關(guān)聯(lián)數(shù)據(jù)處理（1）修改記錄replace all 成績(jī) with 成績(jī)*1.15 for 課程名=Access程序設(shè)計(jì)將課程為“Access程序設(shè)計(jì)“的成績(jī)提高15%。數(shù)據(jù)處理（2）查詢，顯示通過(guò)輸入“學(xué)號(hào)”查詢學(xué)生的信息，即：學(xué)號(hào)、姓名、課程名、成績(jī)、學(xué)院等資料。若沒(méi)找到，顯示“數(shù)據(jù)表中沒(méi)有查到此人信息！”。界面舅圖所示：accept 請(qǐng)輸入查詢的學(xué)號(hào)： to xhlocate for 學(xué)號(hào)=xhif found() ? *查詢結(jié)果* ? 學(xué)號(hào) 姓名 課程名 成績(jī) 學(xué)院 do while found() continue enddo ? *else ? 數(shù)據(jù)表中沒(méi)有查到此人信息！endif關(guān)

3、閉表close databasesclearset talk offset safety offselect 2use 學(xué)生Index on 學(xué)號(hào) tag xhselect 1use 成績(jī)set relation to 學(xué)號(hào) into breplace all 成績(jī) with 成績(jī)*1.15 for 課程名=Access程序設(shè)計(jì)accept 請(qǐng)輸入查詢的學(xué)號(hào)： to xhlocate for 學(xué)號(hào)=xhif found() ? *查詢結(jié)果* ? 學(xué)號(hào) 姓名 課程名 成績(jī) 學(xué)院 do while found() continue enddo ? *else ? 數(shù)據(jù)表中沒(méi)有查到此人信息！endi

4、fclose databases33.1.3表單設(shè)計(jì)（文件名：表單1.SCX）創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境Thisform.Optiongroup1Value0ButtonCount2Thisform.Optiongroup1.Option1Caption男男Thisform.Optiongroup1.Option2Caption女女設(shè)置控件屬性Thisform.Command1Caption結(jié)束結(jié)束Thisform.Grid1Visible.F.編寫事件處理代碼Thisform.Optiongroup1.Clickxb=do case case this.value=1 xb=男男 case

5、 this.value=2 xb=女女endcaseSELECT * FROM 學(xué)生學(xué)生; WHERE 學(xué)生學(xué)生.性別性別 = xb; INTO CURSOR tmpThisform.Grid1.Recordsource=tmpThisform.Grid1.Visible=.T.Thisform.Command1.ClickThisform.Release子表：2號(hào)區(qū)父表：1號(hào)區(qū)33.2.2編寫程序（文件名：abc2.PRG）select 2use kshindex on 學(xué)號(hào) tag xhselect 1use yyuset relation to 學(xué)號(hào) into b打開表，索引，關(guān)聯(lián)數(shù)據(jù)處

6、理（1）修改記錄replace all 平均分 with (筆試+聽力)/2計(jì)算并填寫“yyu.dbf”的平均；數(shù)據(jù)處理（2）修改，顯示填寫ksh.dbf中的“評(píng)語(yǔ)”字段值。其中：當(dāng)平均分=90，評(píng)語(yǔ)為“優(yōu)”； 當(dāng)平均分=80，評(píng)語(yǔ)為“良”； 當(dāng)平均分=70，評(píng)語(yǔ)為“中”。查詢輸入格式如下：go topdo while !eof() do case case 平均分=90 replace b.評(píng)語(yǔ) with 優(yōu) case 平均分=80 replace b.評(píng)語(yǔ) with 良 case 平均分=70 replace b.評(píng)語(yǔ) with 中 endcase skipenddo關(guān)閉表close da

7、tabasesclearset talk offset safety offselect 2use kshindex on 學(xué)號(hào) tag xhselect 1use yyuset relation to 學(xué)號(hào) into breplace all 平均分 with (筆試+聽力)/2go topdo while !eof() do case case 平均分=90 replace b.評(píng)語(yǔ) with 優(yōu) case 平均分=80 replace b.評(píng)語(yǔ) with 良 case 平均分=70 replace b.評(píng)語(yǔ) with 中 endcase skipenddoclose databases3

8、3.2.3表單設(shè)計(jì)（文件名：表單1.SCX）創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境Thisform.Pageframe1PageCount2Thisform.Pageframe1.Page1Caption成績(jī)成績(jī)Thisform.Pageframe1.Page2Caption綜合綜合設(shè)置控件屬性Thisform.Command1Caption退出退出其它控件屬性其它控件屬性Thisform.Pageframe1.Page2.Label1.Caption學(xué)號(hào)學(xué)號(hào)Thisform.Pageframe1.Page2.Label2.Caption平均分平均分Thisform.Pageframe1.Page2.L

9、abel3.Caption評(píng)語(yǔ)評(píng)語(yǔ)Thisform.Pageframe1.Page2.Text1.ControlSourceyyu.學(xué)號(hào)學(xué)號(hào)Thisform.Pageframe1.Page2.Text2.ControlSourceyyu.平均分平均分Thisform.Pageframe1.Page2.Text3.ControlSourceksh.評(píng)語(yǔ)評(píng)語(yǔ)ThisformCaption英語(yǔ)成績(jī)英語(yǔ)成績(jī)其它控件屬性其它控件屬性Thisform.Pageframe1.Page2.Commandgroup1.ButtonCount3Thisform.Pageframe1.Page2.Commandgr

10、oup1.Command1.Caption上一條上一條Thisform.Pageframe1.Page2.Commandgroup1.Command2.Caption下一條下一條Thisform.Pageframe1.Page2.Commandgroup1.Command3.Caption結(jié)束結(jié)束編寫事件處理代碼Thisform.InitSELECT Yyu.學(xué)號(hào)學(xué)號(hào), Ksh.姓名姓名, Yyu.筆試筆試, Yyu.聽力聽力; FROM yyu INNER JOIN ksh ; ON Yyu.學(xué)號(hào)學(xué)號(hào) = Ksh.學(xué)號(hào)學(xué)號(hào); INTO CURSOR tmpThisform.Pageframe

11、1.Page1.Grid1.Recordsource=tmpselect yyuThisform.Command1.ClickThisform.ReleaseThisform.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子表：2號(hào)區(qū)父表：1號(hào)區(qū)33.3.2編寫程序（文件名：abc

12、3.PRG）select 2use 商品index on 商品號(hào) tag sphselect 1use 訂單set relation to 商品號(hào) into b打開表，索引，關(guān)聯(lián)數(shù)據(jù)處理（1）修改記錄replace all 總金額 with b.單價(jià)*數(shù)量計(jì)算訂單的總金額（總金額=單價(jià)*數(shù)量），填入“訂單.dbf”的“總金額”字段中。數(shù)據(jù)處理（2）修改，顯示按訂單號(hào)查詢?cè)撋唐访?、單價(jià)、數(shù)量和總金額。要求能反復(fù)查詢。直到用戶不再查詢?yōu)橹?。界面如下圖所示：請(qǐng)輸入訂單號(hào)：0002=查詢結(jié)果=商品名稱 單價(jià) 數(shù)量 總金額繼續(xù)查詢嗎？（y/n）ndo while .T. accept 請(qǐng)輸入訂單號(hào)： t

13、o ddh locate for 訂單號(hào)=ddh ? =查詢結(jié)果= ? 商品名稱 單價(jià) 數(shù)量 總金額 do while found() ? b.商品名, b.單價(jià), 數(shù)量, 總金額 continue enddo wait 繼續(xù)查詢嗎（Y/N）？ to yn if upper(yn)=N exit endifenddo關(guān)閉表close databasesclearset talk offset safety offselect 2use 商品index on 商品號(hào) tag sphselect 1use 訂單set relation to 商品號(hào) into breplace all 總金額 wi

14、th b.單價(jià)*數(shù)量do while .T. accept 請(qǐng)輸入訂單號(hào)： to ddh locate for 訂單號(hào)=ddh ? =查詢結(jié)果= ? 商品名稱 單價(jià) 數(shù)量 總金額 do while found() ? b.商品名, b.單價(jià), 數(shù)量, 總金額 continue enddo wait 繼續(xù)查詢嗎（Y/N）？ to yn if upper(yn)=N exit endifenddoclose databases33.4.2編寫程序（文件名：abc4.PRG）SQL查詢SELECT Xscjzk.學(xué)號(hào), Xjxx.姓名, Dm_yx.院系簡(jiǎn)稱,;Xscjzk.課程代碼, Xscjzk

15、.成績(jī); FROM xscjzk INNER JOIN xjxx; INNER JOIN dm_yx ; ON Xjxx.院系代碼 = Dm_yx.院系代碼 ; ON Xscjzk.學(xué)號(hào) = Xjxx.學(xué)號(hào); WHERE Dm_yx.院系簡(jiǎn)稱 = 動(dòng)科院33.5.2編寫程序（文件名：abc5.PRG）use cj5打開表數(shù)據(jù)處理 統(tǒng)計(jì)，顯示1. 從鍵盤上輸入查詢的學(xué)號(hào)，能查詢?cè)撏瑢W(xué)的學(xué)號(hào)、平均成績(jī)2. 程序要求能反復(fù)查詢輸出，其輸出格式如下：。do while .T. accept 請(qǐng)輸入查詢的學(xué)號(hào)： to xh average 成績(jī) to pj for 學(xué)號(hào)=xh ? 學(xué)號(hào)：, xh, 平均成績(jī)：, pj wait 繼續(xù)查詢嗎（Y/N）？ to yn