&&表單-“查詢”輸入學(xué)號(hào)
xuehao=alltrim(thisform.text1.value)
close all
use score1
locate for 學(xué)號(hào)=xuehao
if found()
SELECT Score1.學(xué)號(hào), Course.課程名, Score1.成績(jī);
FROM score_manager!score1 INNER JOIN score_manager!course ;
ON Score1.課程號(hào) = Course.課程號(hào);
WHERE Score1.學(xué)號(hào) = xuehao;
INTO CURSOR cc
thisform.grid1.recordsource="cc"
else
wait "學(xué)號(hào)不存在,請(qǐng)重新輸入學(xué)號(hào)"
endif
&&表單-“計(jì)算”員工 部門
SELECT *, 月薪+津貼+獎(jiǎng)金-醫(yī)療保險(xiǎn)-養(yǎng)老保險(xiǎn) as 實(shí)得工資;
FROM 公司管理!員工;
GROUP BY 員工.員工號(hào);
INTO TABLE table1.dbf
SELECT 部門.部門號(hào), 部門.部門名稱 AS 部門名,;
sum(月薪+津貼+獎(jiǎng)金-醫(yī)療保險(xiǎn)-養(yǎng)老保險(xiǎn)) as 實(shí)發(fā)工資總額;
FROM 公司管理!部門 INNER JOIN 公司管理!員工 ;
ON 部門.部門號(hào) = 員工.部門號(hào);
GROUP BY 部門.部門號(hào);
INTO TABLE table2.dbf
&& 菜單-“計(jì)算”股票管理數(shù)據(jù)庫(kù)stock_6
SET TALK OFF
SET SAFETY OFF
OPEN DATABASE stock_6
SELECT 股票代碼,COUNT(*) AS 買入次數(shù),MAX(單價(jià)) AS 最高價(jià);
FROM stock_mm;
WHERE 買賣標(biāo)記;
GROUP BY 股票代碼;
ORDER BY 股票代碼;
INTO ARRAY AFieldsValue
DELETE FROM stock_cs
INSERT INTO stock_cs FROM ARRAY AFieldsValue
PACK
USE
SELECT * TOP 1 FROM stock_cs ORDER BY 買入次數(shù) DESC INTO TABLE stock_x
SET SAFETY ON
SET TALK ON
相關(guān)推薦:2011年計(jì)算機(jī)等級(jí)考試二級(jí)VFP基礎(chǔ)教程匯總
2011年全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VFP考點(diǎn)匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |