重点为打“//”这个符号的，需要解决的问题


writefile('<!--'+'A14-'+'生产性企业兼营生产性和非生产性收入情况表'+'-->');
writefile('<'+'SB_A_SCXQYJYSRQK'+'>');
writefile('<!--'+'明细信息'+'-->');
writefile('<!--');
writefile('栏次');
writefile('项目');
writefile('企业帐载金额');
writefile('企业帐载金额比例');
writefile('企业依法申报金额');
writefile('企业依法申报比例');
writefile('备注金额');
writefile('备注比例');
writefile('-->');
writefile('<'+'SB_A_SCXQYJYSRQK_MXXX'+'>');
query1.DatabaseName:=FDatabaseName ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ta14 where tax_year=:tax_year and rowid=0');
query1.Params[0].DataType:=ftstring;
query1.Params[0].ParamType:=ptinput;
query1.Params[0].Value:=edit1.Text;
query1.Prepare;
query1.Open;
with query1 do
begin
  ta12_hj[1]:=query1.Fieldbyname('col_d').AsFloat;
  ta12_hj[2]:=query1.Fieldbyname('col_f').AsFloat;
  p11:=query1.fieldbyname('col_d').AsVariant;
  p22:=query1.fieldbyname('col_f').AsVariant;
end;
query1.DatabaseName:=FDatabaseName ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select sum(col_d)as d,sum(col_f)as f from ta14 where tax_year=:tax_year and rowid>=2 and rowid<=8');
query1.Params[0].DataType:=ftstring;
query1.Params[0].ParamType:=ptinput;
query1.Params[0].Value:=edit1.Text;
query1.Prepare;
query1.Open;
with query1 do
begin
  begin
    ta12_hj[3]:=query1.fieldbyname('d').AsFloat;
    ta12_hj[4]:=query1.fieldbyname('f').AsFloat;
    s11:=query1.fieldbyname('d').AsFloat;
    s22:=query1.fieldbyname('f').AsFloat;
    writefile('<'+'SB_A_SCXQYJYSRQK_JEXX'+'>');
    writefile('<'+'SB_A_SCXQYJYSRQK_LC'+'>'+'1'+'</'+'SB_A_SCXQYJYSRQK_LC'+'>');
    writefile('<'+'SB_A_SCXQYJYSRQK_XM'+'>'+'生产性经营收入'+'</'+'SB_A_SCXQYJYSRQK_XM'+'>');
    writefile('<'+'SB_A_SCXQYJYSRQK_ZZJE'+'>'+query1.Fieldbyname('d').AsString+'</'+'SB_A_SCXQYJYSRQK_ZZJE'+'>');
//    writefile('<'+'SB_A_SCXQYJYSRQK_ZZJEBL'+'>'+     //son我已定义为const son:  string='%.3f';
//    format(son,[s11/p11])+                           //重点为打“//”这个符号的，需要解决的问题
//   '</'+'SB_A_SCXQYJYSRQK_ZZJEBL'+'>');              //
   writefile('<'+'SB_A_SCXQYJYSRQK_SBJE'+'>'+query1.Fieldbyname('f').AsString+'</'+'SB_A_SCXQYJYSRQK_SBJE'+'>');
   writefile('<'+'SB_A_SCXQYJYSRQK_SBJEBL'+'>'+
     format(son,[s22/p22])+
     '</'+'SB_A_SCXQYJYSRQK_SBJEBL'+'>');
    writefile('<'+'SB_A_SCXQYJYSRQK_BZJE'+'>'+'</'+'SB_A_SCXQYJYSRQK_BZJE'+'>');
    writefile('<'+'SB_A_SCXQYJYSRQK_BZBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_BZBL'+'>');
    writefile('</'+'SB_A_SCXQYJYSRQK_JEXX'+'>');
  end;
end;

//datasource1.DataSet:=query1;
query1.DatabaseName:=FDatabaseName ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ta14 where tax_year=:tax_year and rowid>=2 and rowid<=8');
query1.Params[0].DataType:=ftstring;
query1.Params[0].ParamType:=ptinput;
query1.Params[0].Value:=edit1.Text;
query1.Prepare;
query1.Open;
with query1 do
begin
for ii:=2 to 8 do
   begin
      begin
writefile('<'+'SB_A_SCXQYJYSRQK_JEXX'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_LC'+'>'+inttostr(ii)+'</'+'SB_A_SCXQYJYSRQK_LC'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_XM'+'>'+query1.Fields[3].AsString+'</'+'SB_A_SCXQYJYSRQK_XM'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_ZZJE'+'>'+query1.Fields[4].AsString+'</'+'SB_A_SCXQYJYSRQK_ZZJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_ZZJEBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_ZZJEBL'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_SBJE'+'>'+query1.Fields[5].AsString+'</'+'SB_A_SCXQYJYSRQK_SBJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_SBJEBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_SBJEBL'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_BZJE'+'>'+'</'+'SB_A_SCXQYJYSRQK_BZJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_BZBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_BZBL'+'>');
writefile('</'+'SB_A_SCXQYJYSRQK_JEXX'+'>');
     end;
    query1.Next;
   end;
end;
query1.DatabaseName:=FDatabaseName ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select sum(col_d)as d1,sum(col_f)as f1 from ta14 where tax_year=:tax_year and rowid>=10');
query1.Params[0].DataType:=ftstring;
query1.Params[0].ParamType:=ptinput;
query1.Params[0].Value:=edit1.Text;
query1.Prepare;
query1.Open;
with query1 do
begin
  begin
writefile('<'+'SB_A_SCXQYJYSRQK_JEXX'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_LC'+'>'+'9'+'</'+'SB_A_SCXQYJYSRQK_LC'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_XM'+'>'+'非生产性经营收入'+'</'+'SB_A_SCXQYJYSRQK_XM'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_ZZJE'+'>'+query1.Fieldbyname('d1').AsString+'</'+'SB_A_SCXQYJYSRQK_ZZJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_ZZJEBL'+'>'+format(son,[1-(s11/p11)])+'</'+'SB_A_SCXQYJYSRQK_ZZJEBL'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_SBJE'+'>'+query1.Fieldbyname('f1').AsString+'</'+'SB_A_SCXQYJYSRQK_SBJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_SBJEBL'+'>'+format(son,[1-(s22/p22)])+'</'+'SB_A_SCXQYJYSRQK_SBJEBL'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_BZJE'+'>'+'</'+'SB_A_SCXQYJYSRQK_BZJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_BZBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_BZBL'+'>');
writefile('</'+'SB_A_SCXQYJYSRQK_JEXX'+'>');
     end;
end;
query1.DatabaseName:=FDatabaseName ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ta14 where tax_year=:tax_year and rowid>=10');
query1.Params[0].DataType:=ftstring;
query1.Params[0].ParamType:=ptinput;
query1.Params[0].Value:=edit1.Text;
query1.Prepare;
query1.Open;
with query1 do
begin
for ii:=10 to 16 do
   begin
      begin
writefile('<'+'SB_A_SCXQYJYSRQK_JEXX'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_LC'+'>'+inttostr(ii)+'</'+'SB_A_SCXQYJYSRQK_LC'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_XM'+'>'+query1.Fields[3].AsString+'</'+'SB_A_SCXQYJYSRQK_XM'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_ZZJE'+'>'+query1.Fields[4].AsString+'</'+'SB_A_SCXQYJYSRQK_ZZJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_ZZJEBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_ZZJEBL'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_SBJE'+'>'+query1.Fields[5].AsString+'</'+'SB_A_SCXQYJYSRQK_SBJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_SBJEBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_SBJEBL'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_BZJE'+'>'+'</'+'SB_A_SCXQYJYSRQK_BZJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_BZBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_BZBL'+'>');
writefile('</'+'SB_A_SCXQYJYSRQK_JEXX'+'>');
     end;
    query1.Next;
   end;
end;
query1.DatabaseName:=FDatabaseName  ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select sum(col_d)as dz,sum(col_f)as fz from ta14 where tax_year=:tax_year and rowid>=2 and rowid<=16');
query1.Params[0].DataType:=ftstring;
query1.Params[0].ParamType:=ptinput;
query1.Params[0].Value:=edit1.Text;
query1.Prepare;
query1.Open;
with query1 do
 begin
writefile('<'+'SB_A_SCXQYJYSRQK_HJ'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_LC'+'>'+'17'+'</'+'SB_A_SCXQYJYSRQK_LC'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_XM'+'>'+'收入总额'+'17=1+9'+'</'+'SB_A_SCXQYJYSRQK_XM'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_ZZJE'+'>'+query1.Fieldbyname('dz').AsString+'</'+'SB_A_SCXQYJYSRQK_ZZJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_ZZJEBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_ZZJEBL'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_SBJE'+'>'+query1.Fieldbyname('fz').AsString+'</'+'SB_A_SCXQYJYSRQK_SBJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_SBJEBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_SBJEBL'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_BZJE'+'>'+'</'+'SB_A_SCXQYJYSRQK_BZJE'+'>');
writefile('<'+'SB_A_SCXQYJYSRQK_BZBL'+'>'+'</'+'SB_A_SCXQYJYSRQK_BZBL'+'>');
 end;
writefile('</'+'SB_A_SCXQYJYSRQK_HJ'+'>');
writefile('</'+'SB_A_SCXQYJYSRQK_MXXX'+'>');
writefile('</'+'SB_A_SCXQYJYSRQK'+'>');