📄 html.txt

📁 大量Delphi开发资料

💻 TXT

字号:

procedure TfMain.HHTML1Click(Sender: TObject);
var
  Html:TStringList;
  i:Word;
begin
  Html:=TStringList.Create;
  Html.Add('<HTML>');
  Html.Add('<head>');
  Html.Add('<title>'+'固定资产一览表'+'</title>');
  Html.Add('</head>');
  Html.Add('<body>');
  Html.Add('<h1><center>'+'固定资产一览表'+'</center></h1>');
  Html.Add('<table border>');
  Html.Add('<tr>');
  for i:=0 to fSeeZc.DBGrid1.Columns.Count-1 do
    if fSeeZc.DBGrid1.Columns[i].Visible then
      Html.Add('<th>'+fSeeZc.DBGrid1.Columns[i].Title.Caption+'</th>');
  Html.Add('</tr>');
  dmXh.atBdzc.First;
  While not dmXh.atBdzc.Eof do begin
    Html.Add('<tr>');
    for i:=0 to fSeeZc.DBGrid1.Columns.Count-1 do
      if fSeeZc.DBGrid1.Columns[i].Visible then
        Html.Add('<td>'+fSeeZc.DBGrid1.Fields[i].AsString+'</td>');
    Html.Add('</tr>');
    dmXh.atBdzc.Next;
  end;
  Html.Add('</table>');
  Html.Add('<hr>');
  Html.Add('制作者:英才电脑学校收支管理系统');
  Html.Add(DateToStr(Date));
  Html.Add('</body>');
  Html.Add('</HTML>');
  if SaveDialog1.Execute then
    Html.SaveToFile(SaveDialog1.FileName);
  Html.Free;
end;

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -