delphi窗体显示Echarts图表

unit Unit1;

interface

uses

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;

implementation

uses

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;

//生成并显示图表

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(' ECharts ');

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;

//网页加载完毕

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.

演示：

来源：https://www.cnblogs.com/win32pro/p/10007255.html

推荐分享