unit12.~pas

来自「高校图书管理系统采用Delphi结合数据库」· ~PAS 代码 · 共 82 行

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart,
  Grids, DBGrids, DB, DBTables;

type
  Tfrm_cjtj = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DBChart1: TDBChart;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Series1: TBarSeries;
    Button1: TButton;
    RadioButton5: TRadioButton;
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_cjtj: Tfrm_cjtj;

implementation

uses Unit1;

{$R *.dfm}

procedure Tfrm_cjtj.RadioButton4Click(Sender: TObject);
begin
dbchart1.Title.Text[0]:='大学英语成绩统计图';
(dbchart1.series[0] as tbarseries).yvalues.valuesource:='大学英语';

end;

procedure Tfrm_cjtj.RadioButton1Click(Sender: TObject);
begin
dbchart1.Title.Text[0]:='高等数学成绩统计图';
(dbchart1.Series [0] as tbarseries).YValues .valuesource:='高等数学';

end;

procedure Tfrm_cjtj.RadioButton2Click(Sender: TObject);
begin
dbchart1.Title.Text[0]:='离散数学成绩统计图';
(dbchart1.Series [0] as tbarseries).YValues .valuesource:='离散数学';
end;

procedure Tfrm_cjtj.RadioButton3Click(Sender: TObject);
begin
dbchart1.Title.Text[0]:='数学建模成绩统计图';
(dbchart1.Series [0] as tbarseries).YValues .valuesource:='数学建模';
end;

procedure Tfrm_cjtj.Button1Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_cjtj.RadioButton5Click(Sender: TObject);
begin
dbchart1.Title.Text[0]:='计算机文化基础成绩统计图';
(dbchart1.Series [0] as tbarseries).YValues .valuesource:='计算机文化基础';
end;

end.