dinnerchar.pas

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

unit DinnerChar;

interface

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

type
  TDinnerCharForm = class(TForm)
    RadioGroup1: TRadioGroup;
    IncomeRadio: TRadioButton;
    DinnerQuery: TQuery;
    DataSource1: TDataSource;
    NummRadioButton: TRadioButton;
    SummRadioButton: TRadioButton;
    DBChart: TDBChart;
    Series1: TBarSeries;
    procedure NummRadioButtonClick(Sender: TObject);
    procedure SummRadioButtonClick(Sender: TObject);
    procedure IncomeRadioClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DinnerCharForm: TDinnerCharForm;

implementation

{$R *.dfm}

procedure TDinnerCharForm.NummRadioButtonClick(Sender: TObject);
begin
    DBChart.Series[0].XLabelsSource := 'Numm';
    DBChart.Repaint;
end;

procedure TDinnerCharForm.SummRadioButtonClick(Sender: TObject);
begin
    DBChart.Series[0].XLabelsSource := 'Summ';
    DBChart.Repaint;

end;

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

end.