&&表單-“查詢”輸入學(xué)號
xuehao=alltrim(thisform.text1.value)
close all
use score1
locate for 學(xué)號=xuehao
if found()
SELECT Score1.學(xué)號, Course.課程名, Score1.成績;
FROM score_manager!score1 INNER JOIN score_manager!course ;
ON Score1.課程號 = Course.課程號;
WHERE Score1.學(xué)號 = xuehao;
INTO CURSOR cc
thisform.grid1.recordsource="cc"
else
wait "學(xué)號不存在,請重新輸入學(xué)號"
endif
&&表單-“計算”員工 部門
SELECT *, 月薪+津貼+獎金-醫(yī)療保險-養(yǎng)老保險 as 實得工資;
FROM 公司管理!員工;
GROUP BY 員工.員工號;
INTO TABLE table1.dbf
SELECT 部門.部門號, 部門.部門名稱 AS 部門名,;
sum(月薪+津貼+獎金-醫(yī)療保險-養(yǎng)老保險) as 實發(fā)工資總額;
FROM 公司管理!部門 INNER JOIN 公司管理!員工 ;
ON 部門.部門號 = 員工.部門號;
GROUP BY 部門.部門號;
INTO TABLE table2.dbf
&& 菜單-“計算”股票管理數(shù)據(jù)庫stock_6
SET TALK OFF
SET SAFETY OFF
OPEN DATABASE stock_6
SELECT 股票代碼,COUNT(*) AS 買入次數(shù),MAX(單價) AS 最高價;
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)推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |