t412.pas

本系统为演示Delphi的功能而开发设计

unit T412;

interface

uses Windows, SysUtils, Messages,Dialogs,Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, Grids, DBGrids, Spin, TeEngine, Series,
  TeeProcs, Chart, DBChart, DBCtrls, Db, DBTables, mxgraph, mxgrid,
  mxpivsrc, mxDB, mxstore, mxtables;

type
  Tfrmqsfx = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Panel2: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    SpinEdit3: TSpinEdit;
    SpinEdit4: TSpinEdit;
    Panel3: TPanel;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    DBLookupComboBox1: TDBLookupComboBox;
    DP: TDecisionPivot;
    DecisionGrid1: TDecisionGrid;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure Button3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmqsfx: Tfrmqsfx;
  fromdate,todate:TDatetime;
  fromyear,toyear,frommonth,tomonth,company:string;

implementation
uses huaxia;

{$R *.DFM}

procedure Tfrmqsfx.Button3Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmqsfx.RadioButton1Click(Sender: TObject);
begin
   spinedit1.visible:=true;
   spinedit2.visible:=true;
   label3.visible:=true;
   label4.visible:=true;
   spinedit3.visible:=false;
   spinedit4.visible:=false;
   label5.visible:=false;
   label6.visible:=false;
   datetimepicker1.visible:=false;
   datetimepicker2.visible:=false;
end;

procedure Tfrmqsfx.Button1Click(Sender: TObject);
begin
  if radiobutton1.checked=true then
    begin
      if radiobutton4.checked=true then
        begin
          huaxiadata.decisionquery1.active:=false;
          huaxiadata.decisionquery2.active:=false;
          huaxiadata.decisionquery3.active:=false;
          huaxiadata.decisionquery4.active:=false;
          huaxiadata.decisionquery5.active:=false;
          huaxiadata.decisionquery6.active:=false;
          with  huaxiadata.decisionquery1 do
            begin
            parambyname('fromyear').asstring:=spinedit1.text;
            parambyname('toyear').asstring:=spinedit2.text;
            end;
            huaxiadata.decisionquery1.active:=true;
            huaxiadata.DecisionCube1.dataset:=huaxiadata.decisionquery1;
            huaxiadata.decisionsource1.decisioncube:= huaxiadata.decisioncube1;
         end
       else
         begin
           huaxiadata.decisionquery1.active:=false;
           huaxiadata.DecisionQuery2.active:=false;
           huaxiadata.decisionquery3.active:=false;
           huaxiadata.decisionquery4.active:=false;
           huaxiadata.decisionquery5.active:=false;
           huaxiadata.decisionquery6.active:=false;
            with  huaxiadata.decisionquery2 do
            begin
            parambyname('fromyear').asstring:=spinedit1.text;
            parambyname('toyear').asstring:=spinedit2.text;
            parambyname('company').asstring:=dblookupcombobox1.field.text;
            end;
          huaxiadata.decisionquery2.active:=true;
          huaxiadata.DecisionCube1.dataset:=huaxiadata.decisionquery2;
          huaxiadata.decisionsource1.decisioncube:= huaxiadata.decisioncube1;
        end;
        end;
      if radiobutton3.checked=true then
        begin
        if radiobutton4.checked=true then
          begin
          huaxiadata.decisionquery1.active:=false;
          huaxiadata.decisionquery2.active:=false;
          huaxiadata.decisionquery3.active:=false;
          huaxiadata.decisionquery4.active:=false;
          huaxiadata.decisionquery5.active:=false;
          huaxiadata.decisionquery6.active:=false;
          with  huaxiadata.decisionquery5 do
            begin
            parambyname('fromdate').value:=datetimepicker1.datetime;
            parambyname('todate').value:=datetimepicker2.datetime;
            end;
          huaxiadata.decisionquery5.active:=true;
          huaxiadata.DecisionCube3.dataset:=huaxiadata.decisionquery5;
          huaxiadata.decisionsource1.decisioncube:= huaxiadata.decisioncube3;
         end
        else
          begin
          huaxiadata.decisionquery1.active:=false;
          huaxiadata.decisionquery2.active:=false;
          huaxiadata.decisionquery3.active:=false;
          huaxiadata.decisionquery4.active:=false;
          huaxiadata.decisionquery5.active:=false;
          huaxiadata.decisionquery6.active:=false;
          with  huaxiadata.decisionquery6 do
            begin
            parambyname('fromdate').value:=datetimepicker1.datetime;
            parambyname('todate').value:=datetimepicker2.datetime;
            parambyname('company').asstring:=dblookupcombobox1.field.text;
            end;
          huaxiadata.decisionquery6.active:=true;
          huaxiadata.DecisionCube3.dataset:=huaxiadata.decisionquery6;
          huaxiadata.decisionsource1.decisioncube:= huaxiadata.decisioncube3;
         end;
      dp.visible:=true;
    end;
end;


procedure Tfrmqsfx.FormActivate(Sender: TObject);
begin
  huaxiadata.icbrush.active:=true;
  huaxiadata.company.active:=true;
  radiobutton1.checked:=true;
  radiobutton4.checked:=true;
  dblookupcombobox1.enabled:=false;
  spinedit1.visible:=true;
  spinedit2.visible:=true;
  label3.visible:=true;
  label4.visible:=true;
  spinedit3.visible:=false;
  spinedit4.visible:=false;
  label5.visible:=false;
  label6.visible:=false;
  datetimepicker1.visible:=false;
  datetimepicker2.visible:=false;
end;

procedure Tfrmqsfx.RadioButton4Click(Sender: TObject);
begin
   dblookupcombobox1.enabled:=false;
end;

procedure Tfrmqsfx.RadioButton5Click(Sender: TObject);
begin
   dblookupcombobox1.enabled:=true;
end;

procedure Tfrmqsfx.RadioButton2Click(Sender: TObject);
begin
   spinedit1.visible:=true;
   spinedit2.visible:=true;
   label3.visible:=true;
   label4.visible:=true;
   spinedit3.visible:=true;
   spinedit4.visible:=true;
   label5.visible:=true;
   label6.visible:=true;
   datetimepicker1.visible:=false;
   datetimepicker2.visible:=false;
end;

procedure Tfrmqsfx.RadioButton3Click(Sender: TObject);
begin
   spinedit1.visible:=false;
   spinedit2.visible:=false;
   label3.visible:=false;
   label4.visible:=false;
   spinedit3.visible:=false;
   spinedit4.visible:=false;
   label5.visible:=false;
   label6.visible:=false;
   datetimepicker1.visible:=true;
   datetimepicker2.visible:=true;
end;

procedure Tfrmqsfx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   dp.visible:=false;
   huaxiadata.decisionquery1.active:=false;
   huaxiadata.decisionquery2.active:=false;
   huaxiadata.decisionquery3.active:=false;
   huaxiadata.decisionquery4.active:=false;
end;


end.