&&表單mystu "計(jì)算"按鈕，按照成績(jī)“升序”或“降序”

　　DO CASE

　　CASE THISFORM.myOption.VALUE=1

　　SELECT 學(xué)生.學(xué)號(hào), 選課.成績(jī);

　　FROM 學(xué)生!課程 INNER JOIN 學(xué)生!選課;

　　INNER JOIN 學(xué)生!學(xué)生;

　　ON 學(xué)生.學(xué)號(hào) = 選課.學(xué)號(hào);

　　ON 課程.課程號(hào) = 選課.課程號(hào);

　　WHERE AT("C語(yǔ)言",課程.課程名稱) > 0;

　　ORDER BY 選課.成績(jī);

　　INTO TABLE stu_sort1

　　CASE THISFORM.myOption.VALUE=2

　　SELECT 學(xué)生.學(xué)號(hào), 選課.成績(jī);

　　FROM 學(xué)生!課程 INNER JOIN 學(xué)生!選課;

　　INNER JOIN 學(xué)生!學(xué)生;

　　ON 學(xué)生.學(xué)號(hào) = 選課.學(xué)號(hào);

　　ON 課程.課程號(hào) = 選課.課程號(hào);

　　WHERE AT("C語(yǔ)言",課程.課程名稱) > 0;

　　ORDER BY 選課.成績(jī) DESC;

　　INTO TABLE stu_sort2

　　ENDCASE

　　&&菜單-“查詢”醫(yī)院數(shù)據(jù)庫(kù)doct3 醫(yī)生 藥品 處方

　　SELECT 姓名,年齡,處方號(hào),藥名,生產(chǎn)廠;

　　FROM yisheng,yao,chufang ;

　　WHERE chufang.藥編號(hào)=yao.藥編號(hào);

　　AND chufang.職工號(hào)=yisheng.職工號(hào) AND 藥名 IN ("感冒");

　　ORDER BY 處方號(hào);

　　INTO TABLE jg9

　　SELECT * FROM jg9 GROUP BY 姓名 INTO cursor curtable

　　COUNT TO J

　　INSERT INTO jg9 (處方號(hào)) VALUES (J)

　　&&表單myform1-“統(tǒng)計(jì)” 部門(mén)人數(shù)統(tǒng)計(jì)

　　SELECT 部門(mén)名稱 FROM 部門(mén)信息;

　　WHERE 部門(mén)號(hào)=ALLT(THISFORM.combo1.DISPLAYVALUE) &&取得組合框里的值

　　INTO ARRAY temp &&將結(jié)果放到臨時(shí)數(shù)組temp中

　　THISFORM.text1.VALUE=temp(1,1) &&取得結(jié)果顯示到文本框text1中

　　SELECT COUNT(工號(hào)) FROM 員工 &&以下代碼完全類似

　　WHERE 部門(mén)號(hào)=ALLT(THISFORM.combo1.DISPLAYVALUE)

　　INTO ARRAY temp2

　　THISFORM.text2.VALUE=temp2(1,1)

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VFP基礎(chǔ)教程匯總

　　2011年全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VFP考點(diǎn)匯總

　　計(jì)算機(jī)等級(jí)考試二級(jí)VF八套全真預(yù)測(cè)試題及答案

　　計(jì)算機(jī)等級(jí)考試二級(jí)VFP上機(jī)操作常見(jiàn)錯(cuò)誤總結(jié)