fsellbmp.pas

系统目标：通过库存管理系统

unit Fsellbmp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Fbase, DB, ADODB, TeEngine, Series, ComCtrls, TeeProcs, Chart,
  DbChart, Grids, DBGrids, StdCtrls, ExtCtrls, Buttons, ToolWin;

type
  TF_sellbmp = class(TF_base)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    Panel1: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    SpeedButton2: TSpeedButton;
    Panel2: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    CheckBox2: TCheckBox;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    DBChart1: TDBChart;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    Label6: TLabel;
    DateTimePicker4: TDateTimePicker;
    Label4: TLabel;
    Label5: TLabel;
    Series1: TBarSeries;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    Bevel1: TBevel;
    Bevel2: TBevel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
    procedure ScrollBar2Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_sellbmp: TF_sellbmp;

implementation
  uses Fdm;
{$R *.dfm}

procedure TF_sellbmp.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  with ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('exec sellbmp :xsdone,:xsdtwo,:sdone,:sdtwo,'+''''+adoquery1.Fields[0].AsString+'''');
    Parameters.ParamByName('xsdone').Value:=datetimepicker1.Date;
    Parameters.ParamByName('xsdtwo').Value:=datetimepicker2.Date;
    Parameters.ParamByName('sdone').Value:=datetimepicker3.Date;
    Parameters.ParamByName('sdtwo').Value:=datetimepicker4.Date;
    Open;
    if recordcount=0 then
    begin
      Application.MessageBox('无销售记录，请输入正确时间','提示',mb_ok);
      Exit;
    end;
  end;
  series1.Active:=True;
  if radiobutton1.Checked=True then
  begin
    dbchart1.Title.Text.Text:='【'+adoquery1.Fields[1].AsString+'】销售数量分析';
    series1.YValues.ValueSource:='bsum';
    series1.XLabelsSource:='selldate';
    series1.DataSource:=Adoquery2;
  end
  else
  begin
    dbchart1.Title.Text.Text:='【'+adoquery1.Fields[1].AsString+'】销售金额分析';
    series1.YValues.ValueSource:='asum';
    series1.XLabelsSource:='selldate';
    series1.DataSource:=Adoquery2;
  end;
end;

procedure TF_sellbmp.FormShow(Sender: TObject);
begin
  inherited;
  datetimepicker1.Date:=now;
  datetimepicker2.Date:=now;
  datetimepicker3.Date:=now;
  datetimepicker4.Date:=now;
  Scrollbar1.Enabled:=False;
  Scrollbar2.Enabled:=False;
  radiobutton1.Checked:=True;
  with adoquery1 do
  begin
    Close;
    SQL.Clear;
    SQl.Add('select distinct tradecode,fullname from tb_sell_detailed order by tradecode');
    Open;
  end;
end;

procedure TF_sellbmp.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_sellbmp.ScrollBar1Change(Sender: TObject);
begin
  inherited;
  dbchart1.View3DOptions.Rotation:=Scrollbar1.Position;
end;

procedure TF_sellbmp.ScrollBar2Change(Sender: TObject);
begin
  inherited;
  Dbchart1.Chart3DPercent:=Scrollbar2.Position;
end;

procedure TF_sellbmp.CheckBox1Click(Sender: TObject);
begin
  inherited;
  if CheckBox1.Checked=True then
    CheckBox2.Checked:=True;
  if Checkbox1.Checked=True then
  begin
    scrollbar1.Enabled:=True;
    dbchart1.View3DOptions.Orthogonal:=False;
  end
  else
  begin
    scrollbar1.Enabled:=False;
    dbchart1.View3DOptions.Orthogonal:=True;
  end;
end;

procedure TF_sellbmp.CheckBox2Click(Sender: TObject);
begin
  inherited;
  if checkbox2.Checked=True then
  begin
    scrollbar2.Enabled:=True;
    dbchart1.View3D:=True;
  end
  else
  begin
    scrollbar2.Enabled:=False;
    dbchart1.View3D:=False;
  end;
end;

procedure TF_sellbmp.RadioButton1Click(Sender: TObject);
begin
  inherited;
  series1.Title:='销售数量分析';
end;

procedure TF_sellbmp.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  inherited;
  if Application.MessageBox('是否退出？','提示',mb_yesno)=Id_no then
    Canclose:=False;
end;

end.