[教育學(xué)]數(shù)據(jù)庫(kù)基礎(chǔ)知識(shí)(編輯修改稿)
2025-01-19 12:35 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 e=5000 raw=1200*+(ine2021)* case ine=10000 raw=1200*+3000*+(ine5000)* case ine=100000 raw=1200*+3000*+5000*+(ine10000)* otherwise raw=1200*+3000*+5000*+9000*+(ine100000)* Endcase =messagebox(應(yīng)交個(gè)人所得稅 :=+STR(RAW,6,3) +元 ,0+48) RETURN 程序如下： 800 0 2021 5000 10000 100000 5% 10% 20% 30% 40% 循環(huán)結(jié)構(gòu)程序設(shè)計(jì) ? 條件循環(huán)： DO WHILE 條件 循環(huán)體 [LOOP] [ EXIT] ENDDO 邏輯表達(dá)式的值 =？ 循環(huán)體 LOOP EXIT ENDDO ENDDO后面的語(yǔ)句 .T. .F. 強(qiáng)制跳出循環(huán) 循環(huán)短路 該結(jié)構(gòu)的循環(huán)體中必須有改變循環(huán)條件的語(yǔ)句或跳出循環(huán)的語(yǔ)句。 例 1：編制可以對(duì)購(gòu)買任意種商品的顧客求其應(yīng)交款的程序。 * 收費(fèi)程序 3 CLEAR JE=0 amp。amp。 作累計(jì)的變量先清零 DO WHILE .T. amp。amp。 無(wú)條件進(jìn)入循環(huán) ACCEPT “輸入商品編號(hào) :” TO MC IF EMPTY(MC) amp。amp。 名稱處直接回車作為退出循環(huán)的標(biāo)志 EXIT ENDIF INPUT “輸入商品單價(jià) :” TO DJ INPUT “輸入購(gòu)買數(shù)量 :” TO SL JE=JE+DJ*SL amp。amp。 累計(jì)銷售金額 ENDDO =messagebox(應(yīng)交金額 =+STR(je,8,3) +元 ,0+48) RETURN 例 2：統(tǒng)計(jì)“成績(jī)”表中成績(jī)超過(guò) 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ī) 。 FROM 學(xué)生 JOIN 成績(jī) ON 學(xué)生 .學(xué)號(hào) =成績(jī) .學(xué)號(hào) 。 WHERE 成績(jī) =90。 INTO CURSOR RC ?90分以上的人次：+STR(RECCOUNT(),3) +人 RETURN 例 2思考 :查詢成績(jī)超過(guò) 90分的學(xué)生信息。 SELECT 學(xué)生 .學(xué)號(hào) ,姓名 ,專業(yè)名稱 ,課程名 ,成績(jī) 。 FROM 專業(yè) JOIN 學(xué)生 on 專業(yè) .專業(yè)編號(hào) =學(xué)生 .專業(yè)編號(hào) 。 JOIN 成績(jī) ON 學(xué)生 .學(xué)號(hào) =成績(jī) .學(xué)號(hào) 。 join 課程 on 課程 .課程編號(hào) =成績(jī) .課程編號(hào) 。 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后面的語(yǔ)句 .T. .F. 例 3：統(tǒng)計(jì)“成績(jī)”表中成績(jī)超過(guò) 90分的人次。 CLEAR SET DEFAULT TO E:\學(xué)生管 OPEN DATABASE 學(xué)生管理 CLOSE TABLES SELECT 0 USE 成績(jī) S=0 DO WHILE .NOT. EOF() IF 成績(jī) =90 S=S+1 ENDIF ENDDO ? 90分以上的人次 :“,S USE RETURN CLEAR SET DEFAULT TO E:\學(xué)生管 OPEN DATABASE 學(xué)生管理 CLOSE TABLES SELECT 0 USE 成績(jī) S=0 SCAN FOR 成績(jī) =90 S=S+1 ENDSCAN ? 90分以上的人次 :“,S USE RETURN SKIP ? 計(jì)數(shù)循環(huán) (FOR循環(huán) ) FOR I=C TO Z STEP B 循環(huán)體 [LOOP] [ EXIT] ENDFOR C：初始值 Z：終值 B：步長(zhǎng)值 I：計(jì)數(shù)變量 循環(huán)結(jié)構(gòu)程序設(shè)計(jì) 例 4: 計(jì)算 1+2+3+…+100 的和。 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)。 若事先不知道循環(huán)次數(shù)，只知道在某一條件滿足時(shí)結(jié)束循環(huán)，可以使用 DO WHERE循環(huán)。 FOR和 SCAN循環(huán)都可以用 DO WHERE循環(huán)實(shí)現(xiàn)。 DO WHER循環(huán)和 FOR循環(huán)可以用于對(duì)表的循環(huán)處理，也可以用于其他循環(huán)處理，而 SCAN循環(huán)只能用于對(duì)表的處理。 數(shù)據(jù)庫(kù)程序設(shè)計(jì)的復(fù)雜性 數(shù)據(jù)表打開(kāi)后，其字段變量就是一個(gè)多值變量，它隨著記錄指針的變化而變化其值，為了取得某一個(gè)字段的值，必須移動(dòng)指針到該記錄處； 數(shù)據(jù)表的記錄數(shù)在數(shù)據(jù)表打開(kāi)之前是不能確定的，所以，在表文件打開(kāi)后，可以用一個(gè)求記錄數(shù)的函數(shù)RECCOUNT()來(lái)求出，才能控制循環(huán)次數(shù)。也可以用EOF()和 BOF()來(lái)控制循環(huán)次數(shù)； 數(shù)據(jù)庫(kù)程序設(shè)計(jì)的復(fù)雜性 控制循環(huán)次數(shù)命令與移動(dòng)記錄指針命令是兩個(gè)獨(dú)立的命令，它們之間沒(méi)有必然的聯(lián)系，必須根據(jù)實(shí)際情況使它們相互配合，才能達(dá)到數(shù)據(jù)處理的目的 。 記錄指針從首記錄移動(dòng)到尾記錄之后，不能自動(dòng)恢復(fù)到首記錄，必須用 GO TOP命令把它移動(dòng)到首記錄，以便下一次處理。 課堂練習(xí) :下面是按學(xué)號(hào)查詢學(xué)生情況的程序 ,并能多次查詢 clear open database E:\學(xué)生
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1