一个财务软件的问题 请执教

Question

拜托,不需要的，有N多方法
1：临时查询，用计算字段
2：内存表（CDS也行）
3：临时表

Answer 1

在Tquery里面，设置他的SQL为'replace 表2 set 实发工资='+计算公式

Answer 2

var
  sFormula : string;
begin
  //先根据表1获得公式字符串
  Query1.SQL := 'select 字段名称,运算符号 from 表1';
  Query1.Open;
  sFormula := '';
  while not Query1.Eof do
  begin
    sFormula := sFormula + Query1.Fields[0].AsString + Query1.Fields[1].AsString;
    Query1.Next;
  end;
  //根据得到的公式计算实发工资更新表2
  Query1.Close;
  Query1.SQL.Text := 'update 表2 set 实发工资=' + sFormula;
  Query1.ExecSQL;
end;