主题:[转帖]从一个数据表提取数据并插入另一个数据表
adoquery2.close;
ADOQuery2.SQL.Clear;
adoquery2.SQL.Add('select 月人平均业绩,站月工资,提成系数 from 工资计算 where 月份=''一月''' );
adoquery2.open;
s2:=adoquery2.fieldbyname('月人平均业绩').asCurrency;
a:=adoquery2.fieldbyname('站月工资').asCurrency;
b:=strtofloat(adoquery2.fieldbyname('提成系数').asstring);
adoquery1.close;
ADOQuery1.SQL.Clear;
adoquery1.SQL.Add('select * from 工作表 where 月份=''一月''' );
adoquery1.open;
ADOTable2.first;
s4:=adoquery1.fieldbyname('姓名').asstring;
s3:=adoquery1.fieldbyname('月份').asstring;
s1:=adoquery1.fieldbyname('业绩量').asCurrency;
c:=c+b+0.4;
d:=s1*c+d;
e:=a+d+e;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('insert into ADOTable1(姓名,月份,业绩量,月工资,提成比例,提成量,工资');
adoquery3.SQL.Add('values (s4,s3,s1,a,c,d,e)');
adoquery3.open;
ADOTable1.first;
while not ADOTable2.Eof do
begin
ADOTable2.next;
ADOTable1.insert;
ADOTable1.next;
这样可以吗???
我觉得好象错 但咋改呢
ADOQuery2.SQL.Clear;
adoquery2.SQL.Add('select 月人平均业绩,站月工资,提成系数 from 工资计算 where 月份=''一月''' );
adoquery2.open;
s2:=adoquery2.fieldbyname('月人平均业绩').asCurrency;
a:=adoquery2.fieldbyname('站月工资').asCurrency;
b:=strtofloat(adoquery2.fieldbyname('提成系数').asstring);
adoquery1.close;
ADOQuery1.SQL.Clear;
adoquery1.SQL.Add('select * from 工作表 where 月份=''一月''' );
adoquery1.open;
ADOTable2.first;
s4:=adoquery1.fieldbyname('姓名').asstring;
s3:=adoquery1.fieldbyname('月份').asstring;
s1:=adoquery1.fieldbyname('业绩量').asCurrency;
c:=c+b+0.4;
d:=s1*c+d;
e:=a+d+e;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('insert into ADOTable1(姓名,月份,业绩量,月工资,提成比例,提成量,工资');
adoquery3.SQL.Add('values (s4,s3,s1,a,c,d,e)');
adoquery3.open;
ADOTable1.first;
while not ADOTable2.Eof do
begin
ADOTable2.next;
ADOTable1.insert;
ADOTable1.next;
这样可以吗???
我觉得好象错 但咋改呢