笨办法，先保存用着

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, DBAccess, Vcl.Menus,  System.Actions, Vcl.ActnList, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw, Vcl.AppEvnts,  Uni;type  TForm1 = class(TForm)    WebBrowser1: TWebBrowser;    btnShowEcharts: TButton;    ApplicationEvents1: TApplicationEvents;    procedure btnShowEchartsClick(Sender: TObject);    procedure WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);    procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);  private    {
     Private declarations }  public    {
     Public declarations }  end;var  Form1: TForm1;implementationuses  DataModule;{
    $R *.dfm}var  PathStr: string;//屏蔽右键procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin  with Msg do  begin    if not IsChild(WebBrowser1.Handle, hwnd) then      Exit;    Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP) or (message = WM_CONTEXTMENU);  end;end;//生成并显示图表procedure TForm1.btnShowEchartsClick(Sender: TObject);var  str, strSql: TStringList;  strSPMC, strSL: string;  qryDT: TUniQuery;  i: Integer;begin  str := TStringList.Create;  strSql := TStringList.Create;  qryDT := TUniQuery.Create(Self);  try    if DataModule2.UniConnection1.Connected then      qryDT.Connection := DataModule2.UniConnection1;    strSql.Add('SELECT s.SPMC,SUM(SL)SL FROM QDDBDMX AS q ');    strSql.Add('LEFT JOIN SHANGPIN AS s ON s.SPDM=q.SPDM ');    strSql.Add('WHERE s.BYZD8=''2019''');    strSql.Add('GROUP BY s.SPMC');    with qryDT do    begin      Close;      SQL.text := strSql.Text;      Open;    end;    qryDT.First;    for i := 0 to qryDT.RecordCount - 1 do    begin      strSPMC := strSPMC + '"' + qryDT.FieldByName('SPMC').Value + '"';      strSL := strSL + IntToStr(qryDT.FieldByName('SL').Value);      if i = qryDT.RecordCount - 1 then      begin        strSPMC := strSPMC;        strSL := strSL;      end      else      begin        strSPMC := strSPMC + ',';        strSL := strSL + ',';      end;      qryDT.Next;    end;    str.add(' ');    str.add(' ');    str.add(' ');    str.add('    
      ');    str.add('     ');    str.add('    
      ');    str.add('     ');    str.add(' ');    str.add(' ');    str.add('    
      ');    str.add('    
     
 ');    str.add('     ');    str.add(' ');    str.add('');  //生成并保存网页    PathStr := ExtractFilePath(Application.ExeName) + 'index.html';    str.SaveToFile(PathStr);  //加载本地网页    WebBrowser1.Navigate(ExtractFileDir(ParamStr(0)) + '\index.html');  finally    str.Free;    strSql.Free;    qryDT.Free;  end;end;//网页加载完毕procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);begin  //隐藏滚动条  WebBrowser1.oleobject.Document.body.Scroll := 'no';  WebBrowser1.oleobject.Document.documentElement.style.overflow := 'hidden';  //删除文件  DeleteFile(PathStr);end;end.

 

效果