&編寫程序"change_c",商品表 spbak.dbf
&& 備份商品表
SELECT * FROM 商品表 INTO TABLE spbak.dbf
&& 修改商品的單價
UPDATE 商品表 SET 單價=出廠單價*1.1 WHERE LEFT(商品號,2)="10"
USE 單價調(diào)整表
DO WHILE NOT EOF()
UPDATE 商品表 SET 出廠單價=單價調(diào)整表.出廠單價;
WHERE 商品號=單價調(diào)整表.商品號
SKIP
ENDDO
CLOSE ALL
&&編寫程序"change_c",salarys進行備份
SELECT * FROM salarys INTO TABLE baksals
USE c_salary1
DO WHILE NOT EOF()
UPDATE salarys SET 工資= c_salary1.工資;
WHERE 雇員號= c_salary1.雇員號
SKIP
ENDDO
SELECT * FROM SALARYS INTO TABLE od_new
CLOSE ALL
&&編寫程序"myp"定貨
ALTER TABLE 客戶 ADD 應付款 N(10,2)
SELECT 客戶編號,SUM(金額) AS 應付款 FROM 定貨 ;
GROUP BY 客戶編號 INTO CURSOR atemp
DO WHILE NOT EOF()
UPDATE 客戶 SET 應付款=atemp.應付款;
WHERE 客戶.客戶編號=atemp.客戶編號
SKIP
ENDDO
&&編寫程序"myp.prg"銷售管理數(shù)據(jù)庫 定貨信息 貨物信息
&& 查找錯誤記錄
SELECT 訂單號,SUM(單價*數(shù)量) AS 總金額;
FROM 貨物信息;
GROUP BY 訂單號;
INTO CURSOR atemp
SELECT 定貨信息.*;
FROM atemp,定貨信息;
WHERE atemp.訂單號=定貨信息.訂單號;
AND atemp.總金額<>定貨信息.總金額;
INTO TABLE 修正
SELECT 訂單號,SUM(單價*數(shù)量) AS 總金額;
FROM 貨物信息;
GROUP BY 訂單號;
INTO CURSOR atemp
DO WHILE NOT EOF()
UPDATE 修正 SET 總金額=atemp.總金額;
WHERE 修正.訂單號=atemp.訂單號
SKIP
ENDDO
相關推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |