chartunit.pas

来自「一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 」· PAS 代码 · 共 116 行

unit chartUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart, Menus,
  jpeg, ToolWin, ComCtrls, ImgList;

type
  TchartForm = class(TForm)
    DBChart1: TDBChart;
    Series1: TBarSeries;
    DBChart2: TDBChart;
    DBChart3: TDBChart;
    DBChart4: TDBChart;
    BarSeries1: TPieSeries;
    BarSeries2: THorizBarSeries;
    BarSeries3: TLineSeries;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure X1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chartForm: TchartForm;

implementation
{$R *.dfm}
uses datamoduleunit;






procedure TchartForm.X1Click(Sender: TObject);
begin
close;
end;

procedure TchartForm.FormCreate(Sender: TObject);
begin
datamodule1.tabletemp.Close;
datamodule1.tabletemp.Open;
end;


procedure TchartForm.ToolButton5Click(Sender: TObject);
begin
dbchart1.Visible:=false;
dbchart2.Visible:=true;
dbchart3.Visible:=false;
dbchart4.Visible:=false;
end;

procedure TchartForm.ToolButton1Click(Sender: TObject);
begin
dbchart2.Visible:=false;
dbchart1.Visible:=true;
dbchart3.Visible:=false;
dbchart4.Visible:=false;
end;

procedure TchartForm.ToolButton2Click(Sender: TObject);
begin
dbchart1.Visible:=false;
dbchart4.Visible:=true;
dbchart3.Visible:=false;
dbchart2.Visible:=false;
end;

procedure TchartForm.ToolButton3Click(Sender: TObject);
begin
dbchart1.Visible:=false;
dbchart3.Visible:=true;
dbchart2.Visible:=false;
dbchart4.Visible:=false;
end;

procedure TchartForm.ToolButton4Click(Sender: TObject);
begin
close;
end;

procedure TchartForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule1.tabletemp.Close;
end;

end.