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

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

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

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

?學(xué)號(hào),b.姓名,課程名,成績(jī),b.學(xué)院

continueenddo

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

?"數(shù)據(jù)表中沒有查到此人信息！"endif關(guān)閉表closedatabasesclearsettalkoffsetsafetyoffselect2use學(xué)生Indexon學(xué)號(hào)tagxhselect1use成績(jī)setrelationto學(xué)號(hào)intobreplaceall成績(jī)with成績(jī)*1.15for課程名="Access程序設(shè)計(jì)"accept"請(qǐng)輸入查詢的學(xué)號(hào)："toxhlocatefor學(xué)號(hào)=xhiffound()?"***********查詢結(jié)果***************"?"學(xué)號(hào)姓名課程名成績(jī)學(xué)院"dowhilefound()?學(xué)號(hào),b.姓名,課程名,成績(jī),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號(hào)區(qū)父表：1號(hào)區(qū)[33.2.2]編寫程序（文件名：abc2.PRG）select2usekshindexon學(xué)號(hào)tagxhselect1useyyusetrelationto學(xué)號(hào)intob打開表，索引，關(guān)聯(lián)數(shù)據(jù)處理（1）—修改記錄replaceall平均分with(筆試+聽力)/2

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

docasecase平均分>=90replaceb.評(píng)語with"優(yōu)"case平均分>=80replaceb.評(píng)語with"良"case平均分>=70replaceb.評(píng)語with"中"endcaseskipenddobrowsefields學(xué)號(hào),b.姓名,筆試,聽力,平均分,b.評(píng)語關(guān)閉表closedatabasesclearsettalkoffsetsafetyoffselect2usekshindexon學(xué)號(hào)tagxhselect1useyyusetrelationto學(xué)號(hào)intobreplaceall平均分with(筆試+聽力)/2gotopdowhile!eof()docasecase平均分>=90replaceb.評(píng)語with"優(yōu)"case平均分>=80replaceb.評(píng)語with"良"case平均分>=70replaceb.評(píng)語with"中"endcaseskipenddobrowsefields學(xué)號(hào),b.姓名,筆試,聽力,平均分,b.評(píng)語closedatabasesabc2.PRG創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境Thisform.Pageframe1PageCount2Thisform.Pageframe1.Page1Caption"成績(jī)"Thisform.Pageframe1.Page2Caption"綜合"設(shè)置控件屬性Thisform.Command1Caption"退出"其它控件屬性Thisform.Pageframe1.Page2.Label1.Caption"學(xué)號(hào)"Thisform.Pageframe1.Page2.Label2.Caption"平均分"Thisform.Pageframe1.Page2.Label3.Caption"評(píng)語"Thisform.Pageframe1.Page2.Text1.ControlSource"yyu.學(xué)號(hào)"Thisform.Pageframe1.Page2.Text2.ControlSource"yyu.平均分"Thisform.Pageframe1.Page2.Text3.ControlSource"ksh.評(píng)語"ThisformCaption"英語成績(jī)"Thisform.Pageframe1.Page2.Commandgroup1.Clickdocasecasethis.value=1if!bof()skip-1endifcasethis.value=2if!eof()skipendifcasethis.value=3Thisform.ReleaseendcaseThisform.Refresh子表：2號(hào)區(qū)父表：1號(hào)區(qū)[33.3.2]編寫程序（文件名：abc3.PRG）select2use商品indexon商品號(hào)tagsphselect1use訂單setrelationto商品號(hào)intob打開表，索引，關(guān)聯(lián)數(shù)據(jù)處理（1）—修改記錄replaceall總金額withb.單價(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ù)量總金額計(jì)算機(jī)操作系統(tǒng)31.00262.00繼續(xù)查詢嗎？（y/n）ndowhile.T.accept"請(qǐng)輸入訂單號(hào)："toddhlocatefor訂單號(hào)=ddh?"==========查詢結(jié)果=========="?"商品名稱單價(jià)數(shù)量總金額"dowhilefound()

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

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

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