unit4.pas

来自「以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!」· PAS 代码 · 共 46 行

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, mxtables, mxstore, mxDB, mxpivsrc, TeeProcs, TeEngine,
  Chart, mxgraph, ExtCtrls, Series, StdCtrls;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DecisionGraph1: TDecisionGraph;
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    DecisionSource1: TDecisionSource;
    DecisionPivot1: TDecisionPivot;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  decisionquery1.Refresh;
end;

end.