1、結(jié)構(gòu)化程序設(shè)計的步驟結(jié)構(gòu)化程序設(shè)計的步驟表單程序設(shè)計的步驟表單程序設(shè)計的步驟第第3333次上機考試次上機考試子表：子表：2 2號區(qū)號區(qū)父表：父表：1 1號區(qū)號區(qū)33.1.2編寫程序（文件名：）編寫程序（文件名：）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)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）查詢，顯示查詢，顯示通過輸入“學(xué)號”查詢學(xué)生的信息，即：學(xué)號、姓名、課程名、成績、學(xué)院等資料。若沒找到，顯示“數(shù)據(jù)表中沒有查到此人信息！”。界面舅圖所示：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、人信息！endifp關(guān)閉表關(guān)閉表close databasesclearset 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é)號 姓名姓名 課程名課程名 成績成績 學(xué)院學(xué)院

4、do while found() ? 學(xué)號學(xué)號, b.姓名姓名, 課程名課程名, 成績成績, b.學(xué)院學(xué)院 continue enddo ? *else ? 數(shù)據(jù)表中沒有查到此人信息！數(shù)據(jù)表中沒有查到此人信息！endifclose databases33.1.3表單設(shè)計（文件名：表單）表單設(shè)計（文件名：表單）p創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境Thisform.Optiongroup1Value0ButtonCount2Thisform.Optiongroup1.Option1Caption男男Thisform.Optiongroup1.Option2Caption女女p

5、設(shè)置控件屬性設(shè)置控件屬性Thisform.Command1Caption結(jié)束結(jié)束Thisform.Grid1Visible.F.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=tmpThisform.Grid1.Visible=.T.Thisform.Comm

6、and1.ClickThisform.Release子表：子表：2 2號區(qū)號區(qū)父表：父表：1 1號區(qū)號區(qū)33.2.2編寫程序（文件名：）編寫程序（文件名：）select 2use kshindex on 學(xué)號學(xué)號 tag xhselect 1use yyuset relation to 學(xué)號學(xué)號 into bp打開表，索引，關(guān)聯(lián)打開表，索引，關(guān)聯(lián)p數(shù)據(jù)處理（數(shù)據(jù)處理（1）修改記錄修改記錄replace all 平均分平均分 with (筆試筆試+聽力聽力)/2計算并填寫“”的平均；p數(shù)據(jù)處理（數(shù)據(jù)處理（2）修改，顯示修改，顯示填寫中的“評語”字段值。其中：當(dāng)平均分=90，評語為“優(yōu)”； 當(dāng)平均

7、分=80，評語為“良”； 當(dāng)平均分=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 學(xué)號學(xué)號, b.姓名姓名, 筆試筆試, 聽力聽力, 平均分平均分, b.評語評語p關(guān)閉表關(guān)閉表close databasesclearset talk offset safet

8、y 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 replace b.評語評語 with 良良 case 平均分平均分=70 replace b.評語評語 with 中中 endcase skipenddobrowse fields 學(xué)號學(xué)號,

9、b.姓名姓名, 筆試筆試, 聽力聽力, 平均分平均分, b.評語評語close databases33.2.3表單設(shè)計（文件名：表單）表單設(shè)計（文件名：表單）p創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境創(chuàng)建表單，添加控件、數(shù)據(jù)環(huán)境Thisform.Pageframe1PageCount2Thisform.Pageframe1.Page1Caption成績成績Thisform.Pageframe1.Page2Caption綜合綜合p設(shè)置控件屬性設(shè)置控件屬性Thisform.Command1Caption退出退出其它控件屬性其它控件屬性Thisform.Pageframe1.Page2.Label1.Capti

10、on學(xué)號學(xué)號Thisform.Pageframe1.Page2.Label2.Caption平均分平均分Thisform.Pageframe1.Page2.Label3.Caption評語評語Thisform.Pageframe1.Page2.Text1.ControlSourceyyu.學(xué)號學(xué)號Thisform.Pageframe1.Page2.Text2.ControlSourceyyu.平均分平均分Thisform.Pageframe1.Page2.Text3.ControlSourceksh.評語評語ThisformCaption英語成績英語成績其它控件屬性其它控件屬性Thisform

11、.Pageframe1.Page2.Commandgroup1.ButtonCount3Thisform.Pageframe1.Page2.Commandgroup1.Command1.Caption上一條上一條Thisform.Pageframe1.Page2.Commandgroup1.Command2.Caption下一條下一條Thisform.Pageframe1.Page2.Commandgroup1.Command3.Caption結(jié)束結(jié)束p編寫事件處理代碼編寫事件處理代碼Thisform.InitSELECT Yyu.學(xué)號學(xué)號, Ksh.姓名姓名, Yyu.筆試筆試, Yyu.聽

12、力聽力; FROM yyu INNER JOIN ksh ; ON Yyu.學(xué)號學(xué)號 = Ksh.學(xué)號學(xué)號; INTO CURSOR tmpThisform.Pageframe1.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

13、 case this.value=3 Thisform.ReleaseendcaseThisform.Refresh子表：子表：2 2號區(qū)號區(qū)父表：父表：1 1號區(qū)號區(qū)33.3.2編寫程序（文件名：）編寫程序（文件名：）select 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”的

14、“總金額”字段中。p數(shù)據(jù)處理（數(shù)據(jù)處理（2）修改，顯示修改，顯示按訂單號查詢該商品名、單價、數(shù)量和總金額。要求能反復(fù)查詢。直到用戶不再查詢?yōu)橹埂＝缑嫒缦聢D所示：請輸入訂單號：0002=查詢結(jié)果=商品名稱 單價 數(shù)量 總金額計算機操作系統(tǒng) 繼續(xù)查詢嗎？（y/n）ndo while .T. accept 請輸入訂單號：請輸入訂單號： to ddh locate for 訂單號訂單號=ddh ? =查詢結(jié)果查詢結(jié)果= ? 商品名稱商品名稱 單價單價 數(shù)量數(shù)量 總金額總金額 do while found() ? b.商品名商品名, b.單價單價, 數(shù)量數(shù)量, 總金額總金額 continue enddo

15、 wait 繼續(xù)查詢嗎（繼續(xù)查詢嗎（Y/N）？）？ to yn if upper(yn)=N exit endifenddop關(guān)閉表關(guān)閉表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 ?

16、=查詢結(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 endifenddoclose databases33.4.2編寫程序（文件名：）編寫程序（文件名：）pSQL查詢查詢SELECT Xscjzk.學(xué)號學(xué)號, Xjxx.姓名姓名, Dm_yx.院系簡稱院系簡稱,;Xscjzk.課程代碼課程代碼, Xscjzk.成績成績; FROM xscj

17、zk INNER JOIN xjxx; INNER JOIN dm_yx ; ON Xjxx.院系代碼院系代碼 = Dm_yx.院系代碼院系代碼 ; ON Xscjzk.學(xué)號學(xué)號 = Xjxx.學(xué)號學(xué)號; WHERE Dm_yx.院系簡稱院系簡稱 = 動科院動科院33.5.2編寫程序（文件名：）編寫程序（文件名：）use cj5p打開表打開表p數(shù)據(jù)處理數(shù)據(jù)處理 統(tǒng)計，顯示統(tǒng)計，顯示1. 從鍵盤上輸入查詢的學(xué)號，能查詢該同學(xué)的學(xué)號、平均成績2. 程序要求能反復(fù)查詢輸出，其輸出格式如下：。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