&&表單-“查詢”部門號(hào)-年度
bmh=alltrim(thisform.text1.value)
nd=alltrim(thisform.text2.value)
biaoming="xs"+bmh
thisform.grid1.recordsource="SELECT 商品代碼表.*, 銷售表.一季度利潤(rùn), 銷售表.二季度利潤(rùn),;
銷售表.三季度利潤(rùn), 銷售表.四季度利潤(rùn);
FROM selldb!銷售表 INNER JOIN selldb!商品代碼表 ;
ON 銷售表.商品號(hào) = 商品代碼表.商品號(hào);
WHERE 銷售表.部門號(hào) =bmh;
AND 銷售表.年度 = nd INTO TABLE &biaoming"
&&表單-“查詢”指定日期
set century on
set date to ymd
zdrq=thisform.text1.value
SELECT Customer.會(huì)員號(hào), Customer.姓名,;
sum(orderitem.數(shù)量*article.單價(jià)) as 總金額;
FROM ecommerce!article INNER JOIN orderitem;
INNER JOIN ecommerce!customer ;
ON Customer.會(huì)員號(hào) = Orderitem.會(huì)員號(hào) ;
ON Article.商品號(hào) = Orderitem.商品號(hào);
WHERE Orderitem.日期 >= zdrq;
GROUP BY Customer.會(huì)員號(hào);
ORDER BY 3;
INTO TABLE dbfa.dbf
&&表單-“生成”通信
if thisform.pageframe1.page2.optiongroup1.value=1
ximing=thisform.pageframe1.page1.combo1.value
SELECT 學(xué)院表.系名, 學(xué)院表.系號(hào), avg(工資) as 平均工資;
FROM 學(xué)院表 INNER JOIN 教師表 ;
ON 學(xué)院表.系號(hào) = 教師表.系號(hào);
WHERE 學(xué)院表.系名 =ximing;
INTO TABLE salary.dbf
endif
if thisform.pageframe1.page2.optiongroup1.value=2
ximing=thisform.pageframe1.page1.combo1.value
SELECT 學(xué)院表.系名, 學(xué)院表.系號(hào), sum(工資) as 總工資;
FROM 學(xué)院表 INNER JOIN 教師表 ;
ON 學(xué)院表.系號(hào) = 教師表.系號(hào);
WHERE 學(xué)院表.系名 =ximing;
INTO TABLE salary.dbf
endif
相關(guān)推薦:2011年計(jì)算機(jī)等級(jí)考試二級(jí)VFP基礎(chǔ)教程匯總
2011年全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VFP考點(diǎn)匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |