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

制作报表的html模板

　

     
　　
　　
　　

     
　　
　　
　　

   
　　
　　
　　

公司名称	联系人	产品名称	产品名称
Exotic Liquids	Charlotte Cooper	Chai	18.0000
Exotic Liquids	Charlotte Cooper	Chang	19.0000

浏览器打开效果图

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

function TForm1.DataToHtml(cds: TClientDataSet): Boolean;
var
l: TStringList;
i: Integer;
begin
Result := False;
if (cds = nil) or (not cds.Active) or (cds.IsEmpty) then
Exit;
l := TStringList.Create;
try
try
// html头
l.Add('');
l.Add('');
l.Add('');
l.Add('');
l.Add('

');
// 表头
l.Add('');
l.Add('');
l.Add('');
l.Add('');
l.Add('');
l.Add('');
l.Add('');
// 数据
cds.First;
while not cds.Eof do
begin
l.Add('');
for i := 0 to cds.FieldCount - 1 do
begin
l.Add('');
end;
l.Add('');
cds.Next;
end;
// html尾
l.Add('

门店编号	门店名称	系统版本	协议版本	离开时间
' + cds.Fields[i].Text + '

');
l.Add('');
l.Add('');
// 保存成html文件
l.SaveToFile(ExtractFilePath(Application.ExeName) + '1.html');
Result := True;
except
Result := False;
end;
finally
l.Free;
end;
end;

转载于:https://www.cnblogs.com/hnxxcxg/p/3859832.html