1、結構化程序設計的步驟結構化程序設計的步驟表單程序設計的步驟表單程序設計的步驟第第3333次上機考試次上機考試子表：子表：2 2號區號區父表：父表：1 1號區號區33.1.2編寫程序（文件名：）編寫程序（文件名：）select 2use 學生學生index on 學號學號 tag xhselect 1use 成績成績set relation to 學號學號 into bp打開表，索引，關聯打開表，索引，關聯p數據處理（數據處理（1）修改記錄修改記錄replace all 成績成績 with 成績成績*1.15 for 課程名課程名=Access程序設計程序設計將課程為“Access程序設計“的成

2、績提高15%。p數據處理（數據處理（2）查詢，顯示查詢，顯示通過輸入“學號”查詢學生的信息，即：學號、姓名、課程名、成績、學院等資料。若沒找到，顯示“數據表中沒有查到此人信息！”。界面舅圖所示：accept 請輸入查詢的學號：請輸入查詢的學號： to xhlocate for 學號學號=xhif found() ? *查詢結果查詢結果* ? 學號學號 姓名姓名 課程名課程名 成績成績 學院學院 do while found() ? 學號學號, b.姓名姓名, 課程名課程名, 成績成績, b.學院學院 continue enddo ? *else ? 數據表中沒有查到此人信息！數據表中沒有查到此

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程序設計程序設計accept 請輸入查詢的學號：請輸入查詢的學號： to xhlocate for 學號學號=xhif found() ? *查詢結果查詢結果* ? 學號學號 姓名姓名 課程名課程名 成績成績 學院學院

4、do while found() ? 學號學號, b.姓名姓名, 課程名課程名, 成績成績, b.學院學院 continue enddo ? *else ? 數據表中沒有查到此人信息！數據表中沒有查到此人信息！endifclose databases33.1.3表單設計（文件名：表單）表單設計（文件名：表單）p創建表單，添加控件、數據環境創建表單，添加控件、數據環境p設置控件屬性設置控件屬性p編寫事件處理代碼編寫事件處理代碼子表：子表：2 2號區號區父表：父表：1 1號區號區33.2.2編寫程序（文件名：）編寫程序（文件名：）select 2use kshindex on 學號學號 tag x

5、hselect 1use yyuset relation to 學號學號 into bp打開表，索引，關聯打開表，索引，關聯p數據處理（數據處理（1）修改記錄修改記錄replace all 平均分平均分 with (筆試筆試+聽力聽力)/2計算并填寫“”的平均；p數據處理（數據處理（2）修改，顯示修改，顯示填寫中的“評語”字段值。其中：當平均分=90，評語為“優”； 當平均分=80，評語為“良”； 當平均分=70，評語為“中”。查詢輸入格式如下：go topdo while !eof() do case case 平均分平均分=90 replace b.評語評語 with 優優 case 平均

6、分平均分=80 replace b.評語評語 with 良良 case 平均分平均分=70 replace b.評語評語 with 中中 endcase skipenddobrowse fields 學號學號, b.姓名姓名, 筆試筆試, 聽力聽力, 平均分平均分, b.評語評語p關閉表關閉表close databasesclearset talk offset safety offselect 2use kshindex on 學號學號 tag xhselect 1use yyuset relation to 學號學號 into breplace all 平均分平均分 with (筆試筆試+

7、聽力聽力)/2go topdo while !eof() do case case 平均分平均分=90 replace b.評語評語 with 優優 case 平均分平均分=80 replace b.評語評語 with 良良 case 平均分平均分=70 replace b.評語評語 with 中中 endcase skipenddobrowse fields 學號學號, b.姓名姓名, 筆試筆試, 聽力聽力, 平均分平均分, b.評語評語close databases33.2.3表單設計（文件名：表單）表單設計（文件名：表單）p創建表單，添加控件、數據環境創建表單，添加控件、數據環境p設置控

8、件屬性設置控件屬性p編寫事件處理代碼編寫事件處理代碼子表：子表：2 2號區號區父表：父表：1 1號區號區33.3.2編寫程序（文件名：）編寫程序（文件名：）select 2use 商品商品index on 商品號商品號 tag sphselect 1use 訂單訂單set relation to 商品號商品號 into bp打開表，索引，關聯打開表，索引，關聯p數據處理（數據處理（1）修改記錄修改記錄replace all 總金額總金額 with b.單價單價*數量數量計算訂單的總金額（總金額=單價*數量），填入“訂單.dbf”的“總金額”字段中。p數據處理（數據處理（2）修改，顯示修改，顯示

9、按訂單號查詢該商品名、單價、數量和總金額。要求能反復查詢。直到用戶不再查詢為止。界面如下圖所示：請輸入訂單號：0002=查詢結果=商品名稱 單價 數量 總金額計算機操作系統 繼續查詢嗎？（y/n）ndo while .T. accept 請輸入訂單號：請輸入訂單號： to ddh locate for 訂單號訂單號=ddh ? =查詢結果查詢結果= ? 商品名稱商品名稱 單價單價 數量數量 總金額總金額 do while found() ? b.商品名商品名, b.單價單價, 數量數量, 總金額總金額 continue enddo wait 繼續查詢嗎（繼續查詢嗎（Y/N）？）？ to yn

10、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.單價單價*數量數量do while .T. accept 請輸入訂單號：請輸入訂單號： to ddh locate for 訂單號訂單號=ddh ? =查詢結果查詢結果= ? 商品名稱商品名稱 單價單價 數量數量

11、總金額總金額 do while found() ? b.商品名商品名, b.單價單價, 數量數量, 總金額總金額 continue enddo wait 繼續查詢嗎（繼續查詢嗎（Y/N）？）？ to yn if upper(yn)=N exit endifenddoclose databases33.4.2編寫程序（文件名：）編寫程序（文件名：）pSQL查詢查詢SELECT Xscjzk.學號學號, Xjxx.姓名姓名, Dm_yx.院系簡稱院系簡稱,;Xscjzk.課程代碼課程代碼, Xscjzk.成績成績; FROM xscjzk INNER JOIN xjxx; INNER JOIN d

12、m_yx ; ON Xjxx.院系代碼院系代碼 = Dm_yx.院系代碼院系代碼 ; ON Xscjzk.學號學號 = Xjxx.學號學號; WHERE Dm_yx.院系簡稱院系簡稱 = 動科院動科院33.5.2編寫程序（文件名：）編寫程序（文件名：）use cj5p打開表打開表p數據處理數據處理 統計，顯示統計，顯示1. 從鍵盤上輸入查詢的學號，能查詢該同學的學號、平均成績2. 程序要求能反復查詢輸出，其輸出格式如下：。do while .T. accept 請輸入查詢的學號：請輸入查詢的學號： to xh average 成績成績 to pj for 學號學號=xh ? 學號：學號：, x

13、h, 平均成績：平均成績：, pj wait 繼續查詢嗎（繼續查詢嗎（Y/N）？）？ to yn if upper(yn)=N exit endifenddop關閉表關閉表close databases使用時，直接刪除本頁！使用時，直接刪除本頁！精品課件，你值得擁有精品課件，你值得擁有！精品課件，你值得擁有精品課件，你值得擁有！使用時，直接刪除本頁！使用時，直接刪除本頁！精品課件，你值得擁有精品課件，你值得擁有！精品課件，你值得擁有精品課件，你值得擁有！使用時，直接刪除本頁！使用時，直接刪除本頁！精品課件，你值得擁有精品課件，你值得擁有！精品課件，你值得擁有精品課件，你值得擁有！clearset talk