main.pas

来自「Delphi7编程80例(完全版)」· PAS 代码 · 共 47 行

unit main;

interface

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

type
  TMainForm = class(TForm)
    Button1: TButton;
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    DecisionSource1: TDecisionSource;
    DecisionPivot1: TDecisionPivot;
    DecisionGrid1: TDecisionGrid;
    DecisionGraph1: TDecisionGraph;
    Series1: TBarSeries;
    Series2: TBarSeries;
    Series3: TBarSeries;
    Series4: TBarSeries;
    Series5: TBarSeries;
    Series6: TBarSeries;
    Series7: TBarSeries;
    Series8: TBarSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation
 uses unit1;
{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
begin
  form1.ShowModal;  //查看向导创建的决策图
end;

end.