[教育學(xué)]數(shù)據(jù)庫基礎(chǔ)知識(shí)-文庫吧資料
2024-12-29 12:35本頁面
【正文】 模塊化程序設(shè)計(jì) 程序需要?jiǎng)澐譃椴煌墓δ苣K、或者需要重復(fù)使用的程序段，可以使用子程序。 記錄指針移到首記錄 Gather from t2 amp。 將首記錄各字段值傳送至尾記錄中 Go top amp。 將尾記錄各字段值傳送至數(shù)組 t2中 Gather from t1 amp。 記錄指針移到尾記錄 Scatter to t2 amp。 將首記錄各字段值傳送至數(shù)組 t1中 Go bottom amp。 Dimension t1(6) Dimension t2(6) Open database 教學(xué)管理 Use 學(xué)生 Scatter to t1 amp。 兩者之間的傳送是針對(duì)當(dāng)前記錄進(jìn)行操作的。 USE 學(xué)生 SCATTER memvar USE 學(xué)生 SCATTER to aa 建立內(nèi)存變量 數(shù)組與表之間的數(shù)據(jù)交換 將與表中字段同名的內(nèi)存變量或者一個(gè)數(shù)組的值傳送給當(dāng)前記錄 格式： GATHER FROM 數(shù)組名 | MEMvar [FIELDS 字段表 ] 例 2:觀察執(zhí)行結(jié)果。 ? 數(shù)組使用前需先定義 : DIMENSION 數(shù)組名 (下標(biāo) [,下標(biāo) 2]) 數(shù)組定義時(shí)的每一個(gè)數(shù)組元素的初值為 .F.。 記錄指針從首記錄移動(dòng)到尾記錄之后，不能自動(dòng)恢復(fù)到首記錄，必須用 GO TOP命令把它移動(dòng)到首記錄，以便下一次處理。 數(shù)據(jù)庫程序設(shè)計(jì)的復(fù)雜性 數(shù)據(jù)表打開后，其字段變量就是一個(gè)多值變量，它隨著記錄指針的變化而變化其值，為了取得某一個(gè)字段的值，必須移動(dòng)指針到該記錄處； 數(shù)據(jù)表的記錄數(shù)在數(shù)據(jù)表打開之前是不能確定的，所以，在表文件打開后，可以用一個(gè)求記錄數(shù)的函數(shù)RECCOUNT()來求出，才能控制循環(huán)次數(shù)。 FOR和 SCAN循環(huán)都可以用 DO WHERE循環(huán)實(shí)現(xiàn)。 S=0 N=1 FOR I=1 TO 100 S=S+N N=N+1 endfor ? 1+2+3+…+100=,S 循環(huán)結(jié)構(gòu)程序設(shè)計(jì) 三種循環(huán)的比較： 若事先知道循環(huán)次數(shù)，可以使用 FOR循環(huán)。 WHERE 成績(jī) =90 RETURN CLEAR SET DEFAULT TO e:\學(xué)生管理 OPEN DATABASE 學(xué)生管理 循環(huán)結(jié)構(gòu)程序設(shè)計(jì) ? 表掃描循環(huán) SCAN [范圍 ] [FOR 條件 1|WHILE 條件 2] 循環(huán)體 [LOOP] [ EXIT] ENDSCAN 邏輯表達(dá)式的值 =？ 循環(huán)體 LOOP EXIT ENDSCAN ENDSCAN后面的語句 .T. .F. 例 3：統(tǒng)計(jì)“成績(jī)”表中成績(jī)超過 90分的人次。 JOIN 成績(jī) ON 學(xué)生 .學(xué)號(hào) =成績(jī) .學(xué)號(hào) 。 SELECT 學(xué)生 .學(xué)號(hào) ,姓名 ,專業(yè)名稱 ,課程名 ,成績(jī) 。 WHERE 成績(jī) =90。 CLEAR SET DEFAULT TO E:\學(xué)生管理 OPEN DATABASE 學(xué)生管理 SELECT 0 USE 成績(jī) S=0 DO WHILE .NOT. EOF() IF 成績(jī) =90 S=S+1 ENDIF SKIP ENDDO =messagebox(90分以上的人次 :” +STR(S,3) +人 ,0+48) USE RETURN CLEAR SET DEFAULT TO e:\學(xué)生管理 OPEN DATABASE 學(xué)生管理 SELECT 成績(jī) 。amp。amp。amp。amp。 例 1：編制可以對(duì)購買任意種商品的顧客求其應(yīng)交款的程序。 假設(shè)個(gè)人所得稅的收繳標(biāo)準(zhǔn)如下： 收入少于等于 800元不收稅；收入超過 800元的部分，按5%收稅；收入超過 2021元的部分，按 10%收稅；收入超過 5000元的部分，按 20%收稅；收入超過 10000元的部分，按 30%收稅；收入超過 100000元的部分，按 40%收稅。 例 5:用條件語句改寫例 4程序。168。 *收費(fèi)程序 2 CLEAR ACCEPT “輸入商品名稱 :” TO MC INPUT “輸入商品單價(jià) :” TO DJ INPUT “輸入購買數(shù)量 :” TO SL JE=DJ*SL IF JE1000 JE=JE* ELSE IF JE500 JE=JE* ELSE IF JE200 JE=JE* ELSE JE=JE* ENDIF ENDIF ENDIF ?”應(yīng)交金額 =” +STR(je,6,3) +元 , CANCEL 多分支條件語句 DO CASE CASE 邏輯表達(dá)式 1 語句序列 1 CASE 邏輯表達(dá)式 2 語句序列 2 168。 1000元以上打 7折， 500元以上到 1000元打 8折，200元以上到 500元打 9折， 其余都打 。試編制收費(fèi)程序。 輸入的姓名查到了 SELECT 教師 .*,學(xué)院名 FROM 教師 JOIN 學(xué)院 ON 學(xué)院 .學(xué)院編號(hào) =教師 .學(xué)院編號(hào) WHER 姓名 =XM ELSE WAIT “輸入的姓名不存在。 查找等于變量 XM的記錄 IF FOUND() amp。 *檢索教師信息程序 CLEAR SET DEFAULT TO E:\學(xué)生管理 OPEN DATABASE 學(xué)生管理 SELECT 0 USE 教師 ACCEPT “輸入教師姓名 :” TO XM LOCATE FOR 姓名 =XM amp。 條件 語句塊 1 語句塊 2 T F IF語句 IF 條件表達(dá)式 [ 語句塊 1 ] [ ELSE [ 語句塊 2 ]] ENDIF 例 1:查詢某學(xué)生入學(xué)成績(jī)是否在600分以上 SET DEFAULT TO E:\學(xué)生管理open database 學(xué)生管理 USE 學(xué)生 CJ=入學(xué)成績(jī)低于 600 分 ACCEPT “請(qǐng)輸入學(xué)號(hào) : TO XH LOCATE FOR 學(xué)號(hào) =XH
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1