【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“main_tb_jftbform.pas”一文,供大家参考学习
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.