uniGUI之FDQuery(28)

  FDQuery1.Connection := UniMainModule.FDConnection1;

  UniMainModule.FDConnection1.LoginPrompt := false; // 取消登录提示框
  UniMainModule.FDConnection1.Open(‘DriverID=SQLite;Database=test1.Sqlite3‘);

FDQuery1.Open(‘select id,name,info from atb‘);

FDQuery1.ExecSQL(‘INSERT INTO atb VALUES( (select max(id)+1 from atb),‘‘aName‘‘,‘‘aInfo‘‘)‘);

   procedure UniDBGridToHTML(aFDquery :TFDQuery;aHTMLFileName:string);
var
  aHTMLtext: TstringList;
   j: integer;
begin
  aHTMLtext := TstringList.Create;
  aHTMLtext.Add
    (‘<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">  ‘ +
    ‘<html>   <head>    <title></title>   </head>  ‘ +
    ‘  <body>  <table border=".5pt solid windowtext;"; > ‘ +
    ‘ <col width=72 span=3 style=‘‘ width:54pt‘‘>‘);

  aHTMLtext.Add(‘ <tr > ‘);
    for j := 1 to aFDquery.FieldCount do
    begin
      aHTMLtext.Add(‘<td>‘);
      aHTMLtext.Add(aFDquery.Fields.FieldByNumber(j).FieldName);   //  列 名
      aHTMLtext.Add(‘</td>‘);
    end;
  aHTMLtext.Add(‘ </tr> ‘);

  aFDquery.First;
  while not(aFDquery.Eof) do
  begin
    aHTMLtext.Add(‘ <tr  > ‘);

    for j := 1 to aFDquery.FieldCount do
    begin
      aHTMLtext.Add(‘<td>‘);
      aHTMLtext.Add(aFDquery.Fields.FieldByNumber(j).AsString);   //  所有 值
      aHTMLtext.Add(‘</td>‘);
    end;
    aHTMLtext.Add(‘ </tr> ‘);

    aFDquery.Next;
  end;

  aHTMLtext.Add(‘</table>  </body>  </html> ‘);
  aHTMLtext.SaveToFile(aHTMLFileName);
  aHTMLtext.Free;
end;

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniDBGridToHTML(FDquery1,‘aa.html‘);//调用
end;