川vfp二級上機考試33次de答案ppt課件

1、構(gòu)造化程序設(shè)計的步驟構(gòu)造化程序設(shè)計的步驟表單程序設(shè)計的步驟表單程序設(shè)計的步驟第第3333次上機考試次上機考試子表：子表：2 2號區(qū)號區(qū)父表：父表：1 1號區(qū)號區(qū)33.1.2編寫程序文件名：編寫程序文件名：abc1.PRGselect 2use 學生學生index on 學號學號 tag xhselect 1use 成果成果set relation to 學號學號 into bp翻開表，索引，關(guān)聯(lián)翻開表，索引，關(guān)聯(lián)p數(shù)據(jù)處置數(shù)據(jù)處置1修正記錄修正記錄replace all 成果成果 with 成果成果*1.15 for 課程名課程名=Access程序設(shè)計程序設(shè)計將課程為“Access程序設(shè)計“的

2、成果提高15%。p數(shù)據(jù)處置數(shù)據(jù)處置2查詢，顯示查詢，顯示經(jīng)過輸入“學號查詢學生的信息，即：學號、姓名、課程名、成果、學院等資料。假設(shè)沒找到，顯示“數(shù)據(jù)表中沒有查到此人信息！。界面舅圖所示：accept 請輸入查詢的學號：請輸入查詢的學號： to xhlocate for 學號學號=xhif found() ? *查詢結(jié)果查詢結(jié)果* ? 學號學號 姓名姓名 課程名課程名 成果成果 學院學院 do while found() ? 學號學號, b.姓名姓名, 課程名課程名, 成果成果, b.學院學院 continue enddo ? *else ? 數(shù)據(jù)表中沒有查到此人信息！數(shù)據(jù)表中沒有查到此人信息

3、！endifp封鎖表封鎖表close databasesclearset talk offset safety offselect 2use 學生學生Index on 學號學號 tag xhselect 1use 成果成果set relation to 學號學號 into breplace all 成果成果 with 成果成果*1.15 for 課程名課程名=Access程序設(shè)計程序設(shè)計accept 請輸入查詢的學號：請輸入查詢的學號： to xhlocate for 學號學號=xhif found() ? *查詢結(jié)果查詢結(jié)果* ? 學號學號 姓名姓名 課程名課程名 成果成果 學院學院 do

4、while found() ? 學號學號, b.姓名姓名, 課程名課程名, 成果成果, b.學院學院 continue enddo ? *else ? 數(shù)據(jù)表中沒有查到此人信息！數(shù)據(jù)表中沒有查到此人信息！endifclose databases*abc1.PRG33.1.3表單設(shè)計文件名：表單表單設(shè)計文件名：表單1.SCXp創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境Thisform.Optiongroup1Value0ButtonCount2Thisform.Optiongroup1.Option1Caption男男Thisform.Optiongroup1.Option2Cap

5、tion女女p設(shè)置控件屬性設(shè)置控件屬性Thisformmand1Caption終了終了Thisform.Grid1Visible.F.p編寫事件處置代碼編寫事件處置代碼Thisform.Optiongroup1.Clickxb=do case case this.value=1 xb=男男 case this.value=2 xb=女女endcaseSELECT * FROM 學生學生; WHERE 學生學生.性別性別 = xb; INTO CURSOR tmpThisform.Grid1.Recordsource=tmpThisform.Grid1.Visible=.T.Thisformma

6、nd1.ClickThisform.Release子表：子表：2 2號區(qū)號區(qū)父表：父表：1 1號區(qū)號區(qū)33.2.2編寫程序文件名：編寫程序文件名：abc2.PRGselect 2use kshindex on 學號學號 tag xhselect 1use yyuset relation to 學號學號 into bp翻開表，索引，關(guān)聯(lián)翻開表，索引，關(guān)聯(lián)p數(shù)據(jù)處置數(shù)據(jù)處置1修正記錄修正記錄replace all 平均分平均分 with (筆試筆試+聽力聽力)/2計算并填寫“yyu.dbf的平均；p數(shù)據(jù)處置數(shù)據(jù)處置2修正，顯示修正，顯示填寫ksh.dbf中的“評語字段值。其中：當平均分=90，評語

7、為“優(yōu)； 當平均分=80，評語為“良； 當平均分=70，評語為“中。查詢輸入格式如下：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 學號學號, b.姓名姓名, 筆試筆試, 聽力聽力, 平均分平均分, b.評語評語p封鎖表封鎖表close databasesclearset talk offset

8、 safety offselect 2use kshindex on 學號學號 tag xhselect 1use yyuset relation to 學號學號 into breplace all 平均分平均分 with (筆試筆試+聽力聽力)/2go 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

9、學號學號, b.姓名姓名, 筆試筆試, 聽力聽力, 平均分平均分, b.評語評語close databases*abc2.PRG33.2.3表單設(shè)計文件名：表單表單設(shè)計文件名：表單1.SCXp創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境Thisform.Pageframe1PageCount2Thisform.Pageframe1.Page1Caption成果成果Thisform.Pageframe1.Page2Caption綜合綜合p設(shè)置控件屬性設(shè)置控件屬性Thisformmand1Caption退出退出其它控件屬性其它控件屬性Thisform.Pageframe1.Page2.

10、Label1.Caption學號學號Thisform.Pageframe1.Page2.Label2.Caption平均分平均分Thisform.Pageframe1.Page2.Label3.Caption評語評語Thisform.Pageframe1.Page2.Text1.ControlSourceyyu.學號學號Thisform.Pageframe1.Page2.Text2.ControlSourceyyu.平均分平均分Thisform.Pageframe1.Page2.Text3.ControlSourceksh.評語評語ThisformCaption英語成果英語成果其它控件屬性其它

11、控件屬性Thisform.Pageframe1.Page2mandgroup1.ButtonCount3Thisform.Pageframe1.Page2mandgroup1mand1.Caption上一條上一條Thisform.Pageframe1.Page2mandgroup1mand2.Caption下一條下一條Thisform.Pageframe1.Page2mandgroup1mand3.Caption終了終了p編寫事件處置代碼編寫事件處置代碼Thisform.InitSELECT Yyu.學號學號, Ksh.姓名姓名, Yyu.筆試筆試, Yyu.聽力聽力; FROM yyu IN

12、NER JOIN ksh ; ON Yyu.學號學號 = Ksh.學號學號; INTO CURSOR tmpThisform.Pageframe1.Page1.Grid1.Recordsource=tmpselect yyuThisformmand1.ClickThisform.ReleaseThisform.Pageframe1.Page2mandgroup1.Clickdo case case this.value=1 if !bof() skip -1 endif case this.value=2 if !eof() skip endif case this.value=3 Thisf

13、orm.ReleaseendcaseThisform.Refresh子表：子表：2 2號區(qū)號區(qū)父表：父表：1 1號區(qū)號區(qū)33.3.2編寫程序文件名：編寫程序文件名：abc3.PRGselect 2use 商品商品index on 商品號商品號 tag sphselect 1use 訂單訂單set relation to 商品號商品號 into bp翻開表，索引，關(guān)聯(lián)翻開表，索引，關(guān)聯(lián)p數(shù)據(jù)處置數(shù)據(jù)處置1修正記錄修正記錄replace all 總金額總金額 with b.單價單價*數(shù)量數(shù)量計算訂單的總金額總金額=單價*數(shù)量，填入“訂單.dbf的“總金額字段中。p數(shù)據(jù)處置數(shù)據(jù)處置2修正，顯示修正，

14、顯示按訂單號查詢該商品名、單價、數(shù)量和總金額。要求能反復(fù)查詢。直到用戶不再查詢?yōu)橹埂＝缑嫒缫韵聢D所示：請輸入訂單號：0002=查詢結(jié)果=商品稱號 單價 數(shù)量 總金額計算機操作系統(tǒng) 31.00 2 62.00繼續(xù)查詢嗎？y/nndo 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/

15、N？ to yn if upper(yn)=N exit endifenddop封鎖表封鎖表close databasesclearset talk offset safety offselect 2use 商品商品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é)果= ? 商品稱號商品稱號 單

16、價單價 數(shù)量數(shù)量 總金額總金額 do while found() ? b.商品名商品名, b.單價單價, 數(shù)量數(shù)量, 總金額總金額 continue enddo wait 繼續(xù)查詢嗎繼續(xù)查詢嗎Y/N？ to yn if upper(yn)=N exit endifenddoclose databases*abc3.PRG33.4.2編寫程序文件名：編寫程序文件名：abc4.PRGpSQL查詢查詢SELECT Xscjzk.學號學號, Xjxx.姓名姓名, Dm_yx.院系簡稱院系簡稱,;Xscjzk.課程代碼課程代碼, Xscjzk.成果成果; FROM xscjzk INNER JOIN x

17、jxx; INNER JOIN dm_yx ; ON Xjxx.院系代碼院系代碼 = Dm_yx.院系代碼院系代碼 ; ON Xscjzk.學號學號 = Xjxx.學號學號; WHERE Dm_yx.院系簡稱院系簡稱 = 動科院動科院33.5.2編寫程序文件名：編寫程序文件名：abc5.PRGuse cj5p翻開表翻開表p數(shù)據(jù)處置數(shù)據(jù)處置 統(tǒng)計，顯示統(tǒng)計，顯示1. 從鍵盤上輸入查詢的學號，能查詢該同窗的學號、平均成果2. 程序要求能反復(fù)查詢輸出，其輸出格式如下：。do while .T. accept 請輸入查詢的學號：請輸入查詢的學號： to xh average 成果成果 to pj for 學號學號=xh ? 學號：學號：, xh, 平均成果：平均成果：, pj wait 繼續(xù)查詢嗎繼續(xù)查詢嗎Y/N？ to yn if