frmsum.pas

蛮好的系统大家一起使用看看!~呵呵!关于图书仓库管理系统的!

unit frmsum;

interface

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

type
  TForm25 = class(TForm)
    DecisionSource1: TDecisionSource;
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    DecisionSource2: TDecisionSource;
    DecisionCube2: TDecisionCube;
    DecisionQuery2: TDecisionQuery;
    RadioGroup1: TRadioGroup;
    DecisionGraph1: TDecisionGraph;
    DecisionGrid1: TDecisionGrid;
    DecisionPivot1: TDecisionPivot;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Series1: TBarSeries;
    Series2: TFastLineSeries;
    Series3: TGanttSeries;
    Series4: TArrowSeries;
    DecisionCube3: TDecisionCube;
    DecisionCube4: TDecisionCube;
    DecisionCube5: TDecisionCube;
    DecisionCube6: TDecisionCube;
    DecisionQuery3: TDecisionQuery;
    DecisionQuery4: TDecisionQuery;
    DecisionQuery5: TDecisionQuery;
    DecisionQuery6: TDecisionQuery;
    DecisionSource3: TDecisionSource;
    DecisionSource4: TDecisionSource;
    DecisionSource5: TDecisionSource;
    DecisionSource6: TDecisionSource;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form25: TForm25;

implementation

{$R *.dfm}

procedure TForm25.SpeedButton1Click(Sender: TObject);
begin
if radiogroup1.Items [radiogroup1.ItemIndex ]='入库统计' then
begin
DecisionGrid1.DecisionSource:=DecisionSource1;
DecisionGraph1.DecisionSource :=DecisionSource1;
DecisionPivot1.DecisionSource :=DecisionSource1;
end
else if radiogroup1.Items [radiogroup1.ItemIndex ]='出库统计' then
begin
DecisionGrid1.DecisionSource:=DecisionSource2;
DecisionGraph1.DecisionSource :=DecisionSource2;
DecisionPivot1.DecisionSource :=DecisionSource2;
end;
if radiogroup1.Items [radiogroup1.ItemIndex ]='库存量' then
begin
DecisionGrid1.DecisionSource:=DecisionSource3;
DecisionGraph1.DecisionSource :=DecisionSource3;
DecisionPivot1.DecisionSource :=DecisionSource3;
end
else if radiogroup1.Items [radiogroup1.ItemIndex ]='员工总数' then
begin
DecisionGrid1.DecisionSource:=DecisionSource4;
DecisionGraph1.DecisionSource :=DecisionSource4;
DecisionPivot1.DecisionSource :=DecisionSource4;
end;
if radiogroup1.Items [radiogroup1.ItemIndex ]='客户总数' then
begin
DecisionGrid1.DecisionSource:=DecisionSource5;
DecisionGraph1.DecisionSource :=DecisionSource5;
DecisionPivot1.DecisionSource :=DecisionSource5;
end
else if radiogroup1.Items [radiogroup1.ItemIndex ]='供应商总数' then
begin
DecisionGrid1.DecisionSource:=DecisionSource6;
DecisionGraph1.DecisionSource :=DecisionSource6;
DecisionPivot1.DecisionSource :=DecisionSource6;
end;
end;

procedure TForm25.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm25.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.Items [radiogroup1.ItemIndex ]='入库统计' then
begin
DecisionQuery1.Open;
DecisionQuery2.Close;
DecisionQuery3.Close;
DecisionQuery4.Close;
DecisionQuery5.Close;
DecisionQuery6.Close;
end
else if radiogroup1.Items [radiogroup1.ItemIndex ]='出库统计' then
begin
DecisionQuery2.Open;
DecisionQuery1.Close;
DecisionQuery3.Close;
DecisionQuery4.Close;
DecisionQuery5.Close;
DecisionQuery6.Close;
end;
if radiogroup1.Items [radiogroup1.ItemIndex ]='库存量' then
begin
DecisionQuery1.close;
DecisionQuery2.Close;
DecisionQuery3.open;
DecisionQuery4.Close;
DecisionQuery5.Close;
DecisionQuery6.Close;
end
else if radiogroup1.Items [radiogroup1.ItemIndex ]='员工总数' then
begin
DecisionQuery1.close;
DecisionQuery2.Close;
DecisionQuery3.close;
DecisionQuery4.open;
DecisionQuery5.Close;
DecisionQuery6.Close;
end;
if radiogroup1.Items [radiogroup1.ItemIndex ]='客户总数' then
begin
DecisionQuery1.close;
DecisionQuery2.Close;
DecisionQuery3.close;
DecisionQuery4.close;
DecisionQuery5.open;
DecisionQuery6.Close;
end
else if radiogroup1.Items [radiogroup1.ItemIndex ]='供应商总数' then
begin
DecisionQuery1.close;
DecisionQuery2.Close;
DecisionQuery3.close;
DecisionQuery4.close;
DecisionQuery5.close;
DecisionQuery6.open;
end;
end;

end.