製作報表的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>
瀏覽器開啟效果圖
更多精彩內容：http://www.bianceng.cnhttp://www.bianceng.cn/Programming/Delphi/
通過預存程序擷取報表的資料，然後產生上面的報表範本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
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
