unitfrmmain.pas

来自「关联规则算法的实现和表示Delphi源码」· PAS 代码 · 共 109 行

unit UnitFrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, TeeProcs, TeEngine, Chart, Series, Menus,
  ToolWin, Buttons,ADOMD_TLB,ActiveX, StdCtrls,UnitDM, ImgList, ActnList;

type
  TFrmMain = class(TForm)
    ListView1: TListView;
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    ETL: TMenuItem;
    OLap1: TMenuItem;
    TreeView1: TTreeView;
    DataMining1: TMenuItem;
    Association1: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolBar2: TToolBar;
    ImageList1: TImageList;
    Chart1: TChart;
    Series3: TBarSeries;
    Series4: TBarSeries;
    Series1: TLineSeries;
    Series2: TLineSeries;
    ActionList1: TActionList;
    ActionAssociation: TAction;
    ActionETL: TAction;
    ActionOLAP: TAction;
    //procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
     // Shift: TShiftState; X, Y: Integer);
    //procedure TreeView1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ActionAssociationExecute(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
    ActiveNode:TTreeNode;


     //Of DimTime
  {  procedure DimTimeYear();
    procedure DimTimeMonth();

    //of DimCustomer
    Procedure DimCustomerCountry();
    procedure DimCustoemrCity();
    Procedure DimCustomerCustomer();

    //of DimProduct
    procedure DimProductCategory();
    procedure DimProductProduct();

    procedure OpenMDXIntoLine(strMDX:string);
    procedure OpenMDXIntoBar(strMDX:string);   }
  end;

var
  FrmMain: TFrmMain;


  strMDX:String;

implementation

uses  UnitFrmAssociation;

{$R *.dfm}








procedure TFrmMain.FormShow(Sender: TObject);
var
  i:integer;
begin
    for i:=1 to 20 do
      begin
  //Series4.Add(1000*random(10),'');
  Series1.Add(1000*random(10),'');
  Series2.Add(1000*random(10),'');
  //Series3.Add(1000*random(10),'');
  end;
end;



procedure TFrmMain.ActionAssociationExecute(Sender: TObject);
begin
 FrmAssociation.Show;
end;

end.