实例——应用decision cube组件页.txt

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

unit UDecision;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, MXDB, DB, DBTables, MXTABLES, Mxstore,
  ExtCtrls, TeeProcs, Chart, MXGRAPH, Grids, MXGRID, StdCtrls, ComCtrls,
  MXPIVSRC;
type
  TFDecision = class(TForm)
    DecisionGrid1: TDecisionGrid;
    DecisionGraph1: TDecisionGraph;
    DecisionCube1: TDecisionCube;
    DecisionSource1: TDecisionSource;
    Series10: TBarSeries;
    Series11: TBarSeries;
    StatusBar1: TStatusBar;
    Series2: TBarSeries;
    DecisionPivot1: TDecisionPivot;
    Series3: TBarSeries;
    Series4: TBarSeries;
    Series5: TBarSeries;
    Series6: TBarSeries;
    Series7: TBarSeries;
    Series8: TBarSeries;
    DecisionQuery1: TDecisionQuery;
    procedure FormCreate(Sender: TObject);
    procedure DecisionGrid1DecisionDrawCell(Sender: TObject; Col,
      Row: Integer; var Value: String; var aFont: TFont;
      var aColor: TColor; AState: TGridDrawState;
      aDrawState: TDecisionDrawState);
    procedure DecisionGrid1DecisionExamineCell(Sender: TObject; iCol, iRow,
      iSum: Integer; const ValueArray: TValueArray);
    procedure DecisionGrid1TopLeftChanged(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FDecision: TFDecision;

implementation

{$R *.dfm}

procedure TFDecision.FormCreate(Sender: TObject);
begin
  //打开决策查询组件
  DecisionQuery1.Open();
  //设置决策网格的属性
  DecisionGrid1.CaptionColor :=RGB(0,255,0);  //设置维标题的颜色 -green
  DecisionGrid1.LabelColor :=RGB(255,0,0);    //设置字段名称的颜色--red
  DecisionGrid1.DataColor :=RGB(255,255,0);//数组数据单元的颜色--yellow
  DecisionGrid1.DataSumColor :=RGB(255,0,255); //设置小计单元的颜色-pink
  DecisionGrid1.Dimensions[2].color :=RGB(0,0,125);//设置第二维的颜色--bluｅ
  //设置决策图的背景色为白色
  DecisionGraph1.Color :=RGB(255,255,255);
  DecisionGraph1.Title.Text.Strings[0] :='动物资料';
end;

procedure TFDecision.DecisionGrid1DecisionDrawCell(Sender: TObject; Col,
  Row: Integer; var Value: String; var aFont: TFont; var aColor: TColor;
  AState: TGridDrawState; aDrawState: TDecisionDrawState);
begin
 //将决策网格数据区中的第3行的4列的单元的颜色设置为紫色
  if  (Row=2) and (Col=3) then
    aColor := RGB(128,0,128);
end;

procedure TFDecision.DecisionGrid1DecisionExamineCell(Sender: TObject; iCol,
  iRow, iSum: Integer; const ValueArray: TValueArray);
var
  str:String;
begin
//利用状态条显示用户右击鼠标所选择的单元中的数据
 if DecisionGrid1.Cells[iCol,iRow]<>'' then
   begin
     str :=  '鼠标右击所选择的第'+inttostr(iRow+1)+'行';
     str :=str +'第'+inttostr(iCol+1);
     str :=str +'列的数据单元的数据为：'+ DecisionGrid1.Cells[iCol,iRow];
     StatusBar1.SimpleText  := str;
   end
 else
   StatusBar1.SimpleText :='';
end;

procedure TFDecision.DecisionGrid1TopLeftChanged(Sender: TObject);
Var
  rect:TRect ;
  str:String;
begin
   rect := DecisionGrid1.CellRect(3,2);
   if rect.Left =0  then
    begin
     StatusBar1.SimpleText :='决策网格第三行第四列的数据单元未显示！';
     exit;
    end;
   str  :='决策网格第三行第四列的数据单元的坐标为：(' ;
   str  :=str + inttostr(rect.Left)+',';
   str  :=str + inttostr(rect.top)+',';
   str  :=str + inttostr(rect.Right)+',';
   str  :=str + inttostr(rect.Bottom)+')';
   StatusBar1.SimpleText :=str;
end;

end.