main.~pas

来自「Delphi7数据库开发教程,包含该书21套实例」· ~PAS 代码 · 共 50 行

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, MXTABLES, Mxstore, MXDB, Grids, MXGRID, ExtCtrls,
  MXPIVSRC, TeEngine, Series, TeeProcs, Chart, MXGRAPH, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    DecisionSource1: TDecisionSource;
    DecisionPivot1: TDecisionPivot;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DecisionGrid1: TDecisionGrid;
    DecisionGraph1: TDecisionGraph;
    btnShowCubeDialog: TButton;
    cbxShowLegend: TCheckBox;
    procedure btnShowCubeDialogClick(Sender: TObject);
    procedure cbxShowLegendClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnShowCubeDialogClick(Sender: TObject);
begin
  DecisionCube1.ShowCubeDialog ;
end;

procedure TForm1.cbxShowLegendClick(Sender: TObject);
begin
  //根据复选框的设置选择是否显示图例
  DecisionGraph1.Legend.Visible := cbxShowLegend.Checked ;
end;

end.