xdpriceassay.pas

企业商品管理系统

unit XDPriceassay;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, DbChart, StdCtrls, Buttons,
  ComCtrls, DB, ADODB, Series,DateUtils,Theme;

type
  TFrm_XDPriceAssay = class(TBaseForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    UpDown3: TUpDown;
    ADODataSet1: TADODataSet;
    DBChart1: TDBChart;
    Series1: TBarSeries;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_XDPriceAssay: TFrm_XDPriceAssay;

implementation
uses DM;
{$R *.dfm}

procedure TFrm_XDPriceAssay.SpeedButton1Click(Sender: TObject);
var
  XYear,XMonth:string;
  StartDate,EndDate:string;
  MonthCount:Integer;
  i:Integer;
  SQLStr:string;
  MonthCurrenty:Currency;
begin
  DBChart1.Series[0].Clear;

  MonthCount:=StrToInt(Edit3.Text);
  XYear:=Edit1.Text;
  for i:=StrToInt(Edit2.Text) to MonthCount do
  begin
    case i of
    1 :XMonth:='一月份';
    2 :XMonth:='二月份';
    3 :XMonth:='三月份';
    4 :XMonth:='四月份';
    5 :XMonth:='五月份';
    6 :XMonth:='六月份';
    7 :XMonth:='七月份';
    8 :XMonth:='八月份';
    9 :XMonth:='九月份';
    10 :XMonth:='十月份';
    11 :XMonth:='十一月份';
    12 :XMonth:='十二月份';
    end;
    StartDate:=DateToStr(StartOfAMonth(StrToInt(XYear),(i)));
    EndDate:=DateToStr(EndOfAMonth(StrToInt(XYear),(i)));
    SQLStr:='select Sum(D.MR_Sum) as Sum1 from MR_XDPrice_Tab M,MR_XDPriceList_Tab D'+
            ' where M.MR_OrderID=D.MR_PriceID'+
            ' and (M.MR_OrderDate>=#'+StartDate+'# and M.MR_OrderDate<=#'+EndDate+'#)';
    ADODataSet1.Close;
    ADODataSet1.CommandText:=SQLStr;
    ADODataSet1.Open;
    MonthCurrenty:=ADODataSet1.Fields[0].AsCurrency;
    DBChart1.Series[0].AddY(MonthCurrenty,XMonth);
  end;

end;

procedure TFrm_XDPriceAssay.FormShow(Sender: TObject);
begin
  Edit1.Text:=IntToStr(YearOf(Now));
  DBChart1.Series[0].Clear;
end;

end.