【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-main_tb_zgtbform.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit main_tb_zgtbform;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      TeEngine, Series, TeeProcs, Chart, mxgraph, ExtCtrls, mxpivsrc, mxDB, Db,
      DBTables, mxtables, mxstore, StdCtrls;
    
    type
      Tmain_tb_zgtb = class(TForm)
        DecisionCube1: TDecisionCube;
        DecisionQuery1: TDecisionQuery;
        DecisionSource1: TDecisionSource;
        DecisionPivot1: TDecisionPivot;
        DecisionGraph1: TDecisionGraph;
        Series1: TBarSeries;
        Series3: TBarSeries;
        Series4: TBarSeries;
        Series5: TBarSeries;
        Series6: TBarSeries;
        Series7: TBarSeries;
        Series2: TBarSeries;
        Series10: TBarSeries;
        Button1: TButton;
        Series8: TBarSeries;
        Bevel1: TBevel;
        Series9: TBarSeries;
        Series12: TBarSeries;
        Series13: TBarSeries;
        Series14: TBarSeries;
        procedure Button1Click(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      main_tb_zgtb: Tmain_tb_zgtb;
    
    implementation
    
    {$R *.DFM}
    
    procedure Tmain_tb_zgtb.Button1Click(Sender: TObject);
    begin
      close;
    end;
    
    procedure Tmain_tb_zgtb.FormShow(Sender: TObject);
    begin
      DecisionQuery1.open;
    end;
    
    procedure Tmain_tb_zgtb.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      DecisionQuery1.close;
    end;
    
    end.