main_tb_xstbform.pas

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

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.