&&表單-“查詢”部門號-年度

　　bmh=alltrim(thisform.text1.value)

　　nd=alltrim(thisform.text2.value)

　　biaoming="xs"+bmh

　　thisform.grid1.recordsource="SELECT 商品代碼表.*, 銷售表.一季度利潤, 銷售表.二季度利潤,;

　　銷售表.三季度利潤, 銷售表.四季度利潤;

　　FROM selldb!銷售表 INNER JOIN selldb!商品代碼表 ;

　　ON 銷售表.商品號 = 商品代碼表.商品號;

　　WHERE 銷售表.部門號 =bmh;

　　AND 銷售表.年度 = nd INTO TABLE &biaoming"

　　&&表單-“查詢”指定日期

　　set century on

　　set date to ymd

　　zdrq=thisform.text1.value

　　SELECT Customer.會員號, Customer.姓名,;

　　sum(orderitem.數量*article.單價) as 總金額;

　　FROM ecommerce!article INNER JOIN orderitem;

　　INNER JOIN ecommerce!customer ;

　　ON Customer.會員號 = Orderitem.會員號 ;

　　ON Article.商品號 = Orderitem.商品號;

　　WHERE Orderitem.日期 >= zdrq;

　　GROUP BY Customer.會員號;

　　ORDER BY 3;

　　INTO TABLE dbfa.dbf

　　&&表單-“生成”通信

　　if thisform.pageframe1.page2.optiongroup1.value=1

　　ximing=thisform.pageframe1.page1.combo1.value

　　SELECT 學院表.系名, 學院表.系號, avg(工資) as 平均工資;

　　FROM 學院表 INNER JOIN 教師表 ;

　　ON 學院表.系號 = 教師表.系號;

　　WHERE 學院表.系名 =ximing;

　　INTO TABLE salary.dbf

　　endif

　　if thisform.pageframe1.page2.optiongroup1.value=2

　　ximing=thisform.pageframe1.page1.combo1.value

　　SELECT 學院表.系名, 學院表.系號, sum(工資) as 總工資;

　　FROM 學院表 INNER JOIN 教師表 ;

　　ON 學院表.系號 = 教師表.系號;

　　WHERE 學院表.系名 =ximing;

　　INTO TABLE salary.dbf

　　endif

　　2011年計算機等級考試二級VFP基礎教程匯總

　　2011年全國計算機等級考試二級VFP考點匯總

　　計算機等級考試二級VF八套全真預測試題及答案

　　計算機等級考試二級VFP上機操作常見錯誤總結