如何把存储过程获取的数据输出到报表的html模板中

如何把存储过程获取的数据输出到报表的html模板中2015-02-13制作报表的html模板

<HTML><meta http-equiv="Content-Type" content="text/html; charset=gb2312"/><TITLE>报表模板</TITLE> <BODY><TABLE BORDER="1" cellpadding="0" cellspacing="0"><TR><TH>公司名称</TH>   <TH>联系人</TH>   <TH>产品名称</TH>   <TH>产品名称</TH></TR><TR> <TD>Exotic Liquids</TD>  <TD>Charlotte Cooper</TD>  <TD>Chai</TD>  <TD>18.0000</TD></TR><TR><TD>Exotic Liquids</TD>  <TD>Charlotte Cooper</TD>  <TD>Chang</TD>  <TD>19.0000</TD></TR></TABLE></BODY></HTML>

浏览器打开效果图

通过存储过程获取报表的数据，然后生成上面的报表模板html

function TForm1.DataToHtml（cds: TClientDataSet）: Boolean;varl: TStringList;i: Integer;beginResult := False;if （cds = nil） or （not cds.Active） or （cds.IsEmpty） thenExit;l := TStringList.Create;trytry// html头l.Add（"<HTML>"）;l.Add（"<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>"）;l.Add（"<TITLE>报表模板</TITLE>"）;l.Add（"<BODY>"）;l.Add（"<TABLE BORDER="1" cellpadding="0" cellspacing="0">"）;// 表头l.Add（"<TR>"）;l.Add（"<TH>门店编号</TH>"）;l.Add（"<TH>门店名称</TH>"）;l.Add（"<TH>系统版本</TH>"）;l.Add（"<TH>协议版本</TH>"）;l.Add（"<TH>离开时间</TH>"）;l.Add（"</TR>"）;// 数据cds.First;while not cds.Eof dobeginl.Add（"<TR>"）;for i := 0 to cds.FieldCount - 1 dobeginl.Add（"<TD>" + cds.Fields[i].Text + "</TD>"）;end;l.Add（"</TR>"）;cds.Next;end;// html尾l.Add（"</TABLE>"）;l.Add（"</BODY>"）;l.Add（"</HTML>"）;// 保存成html文件l.SaveToFile（ExtractFilePath（Application.ExeName） + "1.html"）;Result := True;exceptResult := False;end;finallyl.Free;end;end;

Author：cnblogs 咏南 delphi