main_tb_zgtbform.pas

来自「腾龙校园综合管理系统delphi源码 也是在网络上找到的 不过很好」· PAS 代码 · 共 64 行

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.