salechar.pas

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

unit saleChar;

interface

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

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

var
  SaleCharForm: TSaleCharForm;

implementation

{$R *.dfm}

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

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

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

procedure TSaleCharForm.DeductRadioClick(Sender: TObject);
begin
    DBChart.Series[0].XLabelsSource := 'Deduct';
    DBChart.Repaint;
end;

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

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

end.