main_tb_jftbform.~pas

来自「校园综合管理系统」· ~PAS 代码 · 共 62 行

unit main_tb_jftbform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, TeEngine, Series, TeeProcs, Chart, mxgraph, ExtCtrls,
  mxpivsrc, mxDB, Db, DBTables, mxtables, mxstore;

type
  Tmain_tb_jftb = class(TForm)
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    DecisionSource1: TDecisionSource;
    Panel1: TPanel;
    DecisionGraph1: TDecisionGraph;
    Series1: TBarSeries;
    Series2: TBarSeries;
    Series3: TBarSeries;
    Series4: TBarSeries;
    Series7: TBarSeries;
    Series8: TBarSeries;
    Series9: TBarSeries;
    Series10: TBarSeries;
    Series11: TBarSeries;
    Series5: TBarSeries;
    Series6: TBarSeries;
    DecisionPivot1: TDecisionPivot;
    BitBtn1: TBitBtn;
    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_jftb: Tmain_tb_jftb;

implementation

{$R *.DFM}

procedure Tmain_tb_jftb.FormShow(Sender: TObject);
begin
  DecisionQuery1.open;
end;

procedure Tmain_tb_jftb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DecisionQuery1.close;
end;

procedure Tmain_tb_jftb.BitBtn1Click(Sender: TObject);
begin
  close;
end;

end.