Delphi向word文档中输出表格及图形

领测软件测试网

? eU2Qr3gN-a软件测试技术网h0h1Y)i%} [ On
    doc.Tables.Item(1).cell(1,5).Range.text:=’毛利润率’;
,{l6z/t&p2J,x    while not ADOQuery1.Eof do begin
t s^8[?,k  软件测试技术网c(~
O6[V})k,s
      doc.Tables.Item(1).Cell(i,1).Range.Text:=ADOQuery1.fieldbyname(’linename’).asstring; 软件测试技术网,?Db'M5]n/\ XU0x
      doc.Tables.Item(1).cell(i,2).Range.text:=ADOQuery1.Fieldbyname(’STUFFNUM’).asstring; 软件测试技术网1Se ~s
urR
      doc.Tables.Item(1).cell(i,3).Range.text:=ADOQuery1.Fieldbyname(’TOTALACCOUNT’).asstring; 软件测试技术网},{+D.\?"dZT
      doc.Tables.Item(1).cell(i,4).Range.text:=ADOQuery1.Fieldbyname(’TOTAL’).asstring; 软件测试技术网9m6mN}gi
      doc.Tables.Item(1).cell(i,5).Range.text:=ADOQuery1.Fieldbyname(’ration’).asstring;
1w4k#m%?0]\-vp      ADOQuery1.Next;
zOho?!o'C;P(j      i:=i+1;
W[MPa*J"Y"\'F&g  软件测试技术网S9H2P(FRR