四川vfp二級上機(jī)考試33次de答案課件

二級上機(jī)考試打開表并索引（多工作區(qū)）建立關(guān)聯(lián)（SETRELATIONTO…INTO…）數(shù)據(jù)處理（修改、查詢、統(tǒng)計等）輸出顯示（?,??,LIST,DISPLAY）關(guān)閉表（CLOSEDATABASES,CLOSEALL）結(jié)構(gòu)化程序設(shè)計的步驟創(chuàng)建數(shù)據(jù)庫（視圖）創(chuàng)建表單添加數(shù)據(jù)環(huán)境添加控件設(shè)置控件屬性編寫事件處理代碼（INIT,CLICK等）表單程序設(shè)計的步驟子表：2號區(qū)父表：1號區(qū)[33.1.2]編寫程序（文件名：abc1.PRG）select2use學(xué)生indexon學(xué)號tagxhselect1use成績setrelationto學(xué)號intob打開表，索引，關(guān)聯(lián)數(shù)據(jù)處理（1）—修改記錄replaceall成績with成績*1.15for課程名="Access程序設(shè)計"

將課程為“Access程序設(shè)計“的成績提高15%。accept"請輸入查詢的學(xué)號："toxhlocatefor學(xué)號=xhiffound()

?"***********查詢結(jié)果***************"?"學(xué)號姓名課程名成績學(xué)院"dowhilefound()

?學(xué)號,b.姓名,課程名,成績,b.學(xué)院

continueenddo

?"***********************************"else

?"數(shù)據(jù)表中沒有查到此人信息！"endif關(guān)閉表closedatabasesclearsettalkoffsetsafetyoffselect2use學(xué)生Indexon學(xué)號tagxhselect1use成績setrelationto學(xué)號intobreplaceall成績with成績*1.15for課程名="Access程序設(shè)計"accept"請輸入查詢的學(xué)號："toxhlocatefor學(xué)號=xhiffound()?"***********查詢結(jié)果***************"?"學(xué)號姓名課程名成績學(xué)院"dowhilefound()?學(xué)號,b.姓名,課程名,成績,b.學(xué)院

continueenddo?"***********************************"else?"數(shù)據(jù)表中沒有查到此人信息！"endifclosedatabasesabc1.PRG創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境Thisform.Optiongroup1Value0ButtonCount2Thisform.Optiongroup1.Option1Caption"男"Thisform.Optiongroup1.Option2Caption"女"設(shè)置控件屬性Thisform.Command1Caption"結(jié)束"Thisform.Grid1Visible.F.編寫事件處理代碼Thisform.Optiongroup1.Clickxb=""docasecasethis.value=1xb="男"casethis.value=2xb="女"endcaseSELECT*FROM

學(xué)生;

WHERE

學(xué)生.性別=xb;

INTOCURSORtmpThisform.Grid1.Recordsource="tmp"Thisform.Grid1.Visible=.T.子表：2號區(qū)父表：1號區(qū)[33.2.2]編寫程序（文件名：abc2.PRG）select2usekshindexon學(xué)號tagxhselect1useyyusetrelationto學(xué)號intob打開表，索引，關(guān)聯(lián)數(shù)據(jù)處理（1）—修改記錄replaceall平均分with(筆試+聽力)/2

計算并填寫“yyu.dbf”的平均；gotopdowhile!eof()

docasecase平均分>=90replaceb.評語with"優(yōu)"case平均分>=80replaceb.評語with"良"case平均分>=70replaceb.評語with"中"endcaseskipenddobrowsefields學(xué)號,b.姓名,筆試,聽力,平均分,b.評語關(guān)閉表closedatabasesclearsettalkoffsetsafetyoffselect2usekshindexon學(xué)號tagxhselect1useyyusetrelationto學(xué)號intobreplaceall平均分with(筆試+聽力)/2gotopdowhile!eof()docasecase平均分>=90replaceb.評語with"優(yōu)"case平均分>=80replaceb.評語with"良"case平均分>=70replaceb.評語with"中"endcaseskipenddobrowsefields學(xué)號,b.姓名,筆試,聽力,平均分,b.評語closedatabasesabc2.PRG創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境Thisform.Pageframe1PageCount2Thisform.Pageframe1.Page1Caption"成績"Thisform.Pageframe1.Page2Caption"綜合"設(shè)置控件屬性Thisform.Command1Caption"退出"其它控件屬性Thisform.Pageframe1.Page2.Label1.Caption"學(xué)號"Thisform.Pageframe1.Page2.Label2.Caption"平均分"Thisform.Pageframe1.Page2.Label3.Caption"評語"Thisform.Pageframe1.Page2.Text1.ControlSource"yyu.學(xué)號"Thisform.Pageframe1.Page2.Text2.ControlSource"yyu.平均分"Thisform.Pageframe1.Page2.Text3.ControlSource"ksh.評語"ThisformCaption"英語成績"Thisform.Pageframe1.Page2.Commandgroup1.Clickdocasecasethis.value=1if!bof()skip-1endifcasethis.value=2if!eof()skipendifcasethis.value=3Thisform.ReleaseendcaseThisform.Refresh子表：2號區(qū)父表：1號區(qū)[33.3.2]編寫程序（文件名：abc3.PRG）select2use商品indexon商品號tagsphselect1use訂單setrelationto商品號intob打開表，索引，關(guān)聯(lián)數(shù)據(jù)處理（1）—修改記錄replaceall總金額withb.單價*數(shù)量

計算訂單的總金額（總金額=單價*數(shù)量），填入“訂單.dbf”的“總金額”字段中。數(shù)據(jù)處理（2）—修改，顯示

按訂單號查詢該商品名、單價、數(shù)量和總金額。要求能反復(fù)查詢。直到用戶不再查詢?yōu)橹埂＝缑嫒缦聢D所示：請輸入訂單號：0002============查詢結(jié)果============商品名稱單價數(shù)量總金額計算機(jī)操作系統(tǒng)31.00262.00繼續(xù)查詢嗎？（y/n）ndowhile.T.accept"請輸入訂單號："toddhlocatefor訂單號=ddh?"==========查詢結(jié)果=========="?"商品名稱單價數(shù)量總金額"dowhilefound()

?b.商品名,b.單價,數(shù)量,總金額

continueenddowait"繼續(xù)查詢嗎（Y/N）？"toynifupper(yn)="N"exitendifenddo關(guān)閉表closedatabasesclearsettalkoffsetsafetyoffselect2use商品indexon商品號tagsphselect1use訂單setrelationto商品號intobreplaceall總金額withb.單價*數(shù)量dowhile.T.accept"請輸入訂單號："toddhlocatefor訂單號=ddh?"==========查詢結(jié)果=========="?"商品名稱單價數(shù)量總金額"dowhilefound()?b.商品名,b.單價,數(shù)量,總金額

continueenddowait"繼續(xù)查詢嗎（Y/N）？"toynifupper(yn)="N"exitendifenddoclosedatabasesabc3.PRG[33.4.2]編寫程序（文件名：abc4.PRG）SQL查詢SELECTXscjzk.學(xué)號,Xjxx.姓名,Dm_yx.院系簡稱,; Xscjzk.課程代碼,Xscjzk.成績;FROMxscjzkINNERJOINxjxx;INNERJOINdm_yx;ONXjxx.院系代碼=Dm_yx.院系代碼;ONXscjzk.學(xué)號=Xjxx.學(xué)號;WHEREDm_yx.院系簡稱="動科院"[33.5.2]編寫程序（文件名：abc5.PRG）usecj5打開表數(shù)據(jù)處理—統(tǒng)計，顯示1.從鍵盤上輸入查詢的學(xué)號，能查詢該同學(xué)的學(xué)號、平均成績2.程序要求能反復(fù)查詢輸出，其輸出格式如下：。dowhile.T.accept"請輸入查詢的學(xué)號："toxhaverage成績topjfor學(xué)號=xh?"學(xué)號：",xh,"平均成績：",pjwait"繼續(xù)查詢嗎（Y/N）？"toynifupper(yn)="N"exitendif