roomchart.pas

来自「一个餐饮行业的销售管理类的源码」· PAS 代码 · 共 79 行

unit roomChart;

interface

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

type
  TroomChartForm = class(TForm)
    RadioGroup1: TRadioGroup;
    DataSource1: TDataSource;
    roomQuery: TQuery;
    BudgetRadio: TRadioButton;
    IncomeRadio: TRadioButton;
    TaxRadio: TRadioButton;
    DiscountRadio: TRadioButton;
    CostRadio: TRadioButton;
    ProfitRadio: TRadioButton;
    DBChart: TDBChart;
    Series1: TBarSeries;
    procedure BudgetRadioClick(Sender: TObject);
    procedure IncomeRadioClick(Sender: TObject);
    procedure TaxRadioClick(Sender: TObject);
    procedure DiscountRadioClick(Sender: TObject);
    procedure CostRadioClick(Sender: TObject);
    procedure ProfitRadioClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  roomChartForm: TroomChartForm;

implementation

{$R *.dfm}

procedure TroomChartForm.BudgetRadioClick(Sender: TObject);
begin
    DBChart.Series[0].XLabelsSource := 'Budget';
    DBChart.Repaint;
end;

procedure TroomChartForm.IncomeRadioClick(Sender: TObject);
begin
    DBChart.Series[0].XLabelsSource := 'Income';
    DBChart.Repaint;
end;

procedure TroomChartForm.TaxRadioClick(Sender: TObject);
begin
    DBChart.Series[0].XLabelsSource := 'Tax';
    DBChart.Repaint;
end;

procedure TroomChartForm.DiscountRadioClick(Sender: TObject);
begin
    DBChart.Series[0].XLabelsSource := 'Discount';
    DBChart.Repaint;
end;

procedure TroomChartForm.CostRadioClick(Sender: TObject);
begin
    DBChart.Series[0].XLabelsSource := 'Cost';
    DBChart.Repaint;
end;

procedure TroomChartForm.ProfitRadioClick(Sender: TObject);
begin
    DBChart.Series[0].XLabelsSource := 'Profit';
    DBChart.Repaint;
end;

end.