【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了main_tb_xstbform.pas提供大家参考，希望对大家有所帮助!

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

上一篇：g_chacir.cpp
下一篇：法律专业开题报告范文