&&表單mystu "計算"按鈕,按照成績“升序”或“降序”
DO CASE
CASE THISFORM.myOption.VALUE=1
SELECT 學(xué)生.學(xué)號, 選課.成績;
FROM 學(xué)生!課程 INNER JOIN 學(xué)生!選課;
INNER JOIN 學(xué)生!學(xué)生;
ON 學(xué)生.學(xué)號 = 選課.學(xué)號;
ON 課程.課程號 = 選課.課程號;
WHERE AT("C語言",課程.課程名稱) > 0;
ORDER BY 選課.成績;
INTO TABLE stu_sort1
CASE THISFORM.myOption.VALUE=2
SELECT 學(xué)生.學(xué)號, 選課.成績;
FROM 學(xué)生!課程 INNER JOIN 學(xué)生!選課;
INNER JOIN 學(xué)生!學(xué)生;
ON 學(xué)生.學(xué)號 = 選課.學(xué)號;
ON 課程.課程號 = 選課.課程號;
WHERE AT("C語言",課程.課程名稱) > 0;
ORDER BY 選課.成績 DESC;
INTO TABLE stu_sort2
ENDCASE
&&菜單-“查詢”醫(yī)院數(shù)據(jù)庫doct3 醫(yī)生 藥品 處方
SELECT 姓名,年齡,處方號,藥名,生產(chǎn)廠;
FROM yisheng,yao,chufang ;
WHERE chufang.藥編號=yao.藥編號;
AND chufang.職工號=yisheng.職工號 AND 藥名 IN ("感冒");
ORDER BY 處方號;
INTO TABLE jg9
SELECT * FROM jg9 GROUP BY 姓名 INTO cursor curtable
COUNT TO J
INSERT INTO jg9 (處方號) VALUES (J)
&&表單myform1-“統(tǒng)計” 部門人數(shù)統(tǒng)計
SELECT 部門名稱 FROM 部門信息;
WHERE 部門號=ALLT(THISFORM.combo1.DISPLAYVALUE) &&取得組合框里的值
INTO ARRAY temp &&將結(jié)果放到臨時數(shù)組temp中
THISFORM.text1.VALUE=temp(1,1) &&取得結(jié)果顯示到文本框text1中
SELECT COUNT(工號) FROM 員工 &&以下代碼完全類似
WHERE 部門號=ALLT(THISFORM.combo1.DISPLAYVALUE)
INTO ARRAY temp2
THISFORM.text2.VALUE=temp2(1,1)
相關(guān)推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |