Delphi窗体显示Echarts图表

最新推荐文章于 2025-05-27 09:11:20 发布

原创

最新推荐文章于 2025-05-27 09:11:20 发布 · 872 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#android #android studio #java

本文介绍如何使用Delphi结合ECharts生成并显示基于数据库查询结果的柱状图。通过Delphi连接数据库，执行SQL查询获取商品类别及销量数据，然后生成HTML文件，并利用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,