求助：怎样将通过5次查询语句才能得出的结果，用一个小程序来完成？在线等待

[frogandyyy]

表0301-5.dbf: qyfrdm,　A02,　Dm,　Dwnh, Bz,　A014,　A024,　A034,　A044,　A054,　A064,　A074,　A084,　A094,　A0104

表zbxs.dbf: A014,　A024,　A034,　A044,　A054,　A064,　A074,　A084,　A094,　A0104
表0201.dbf: qyfrdm,　Dm, A014,　A024,　A034,　A044,　A054,　A064,　A074,　A084,　A094,　A0104
表0201cz.dbf: qyfrdm,　Dm, A022

以下是用查询语句分步骤做
一、将表0201中的A014,A024,....A0104和表zbxs中的值相乘　生成temp1
select a.qyfrdm,a.dm,a.a014*b.a014 a014,a.a024*b.a024 a024,a.a034*b.a034 a034,a.a044*b.a044 a044,a.a054*b.a054 a054,a.a064*b.a064 a064,a.a074*b.a074 a074,a.a084*b.a084 a084,a.a094*b.a094 a094,a.a104*b.a104 a104 from 0201 a,zbxs b into dbf temp1

二、将表temp1 中的A014,A024,....A0104相加　生成temp2
sele qyfrdm,dm,a014+a024+a034+a044+a054+a064+a074+a084+a094+a104 dwnh02 from temp1 into dbf temp2

三、将表0201cz中的A022字段值添加到表temp2中，生成temp3
sele a.*,b.A022 from temp1 a,0201cz b where a.qyfrdm=b.qyfrdm into dbf temp3

四、将表temp3中的dwnh02/A022后生成temp4
sele qyfrdm,dm,dwnh02,dwnh02/A022 bz02 from temp3 into dbf temp4

五、sele a.qyfrmd,a.A02,a.Dm,a.Dwnh,a.Bz,b.dwnh02,b.a022,b.bz02 from 0301-5 a,temp4 b where a.qyfrdm=b.qyfrdm into dbf temp5

通过5次的查询语句得到的表temp5就是我要的结果，现在我想将这5个步骤通过程序来完成，只要将程序执行一下，就能得到temp5

[十豆三]

建个PRG程序,将以下内容保存，然后运行此PRG程序即可。

select a.qyfrdm,a.dm,a.a014*b.a014 a014,a.a024*b.a024 a024,a.a034*b.a034 a034,a.a044*b.a044 a044,a.a054*b.a054 a054,a.a064*b.a064 a064,a.a074*b.a074 a074,a.a084*b.a084 a084,a.a094*b.a094 a094,a.a104*b.a104 a104 from 0201 a,zbxs b into dbf temp1
sele qyfrdm,dm,a014+a024+a034+a044+a054+a064+a074+a084+a094+a104 dwnh02 from temp1 into dbf temp2
sele a.*,b.A022 from temp1 a,0201cz b where a.qyfrdm=b.qyfrdm into dbf temp3
sele qyfrdm,dm,dwnh02,dwnh02/A022 bz02 from temp3 into dbf temp4
sele a.qyfrmd,a.A02,a.Dm,a.Dwnh,a.Bz,b.dwnh02,b.a022,b.bz02 from 0301-5 a,temp4 b where a.qyfrdm=b.qyfrdm into dbf temp5