xstaxis.~pas

企业商品管理系统

unit XStaxis;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, ComCtrls, Buttons, DB, ADODB,DateUtils,Theme;

type
  TFrm_XStaxis = class(TBaseForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    UpDown1: TUpDown;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    ADOTaxis: TADODataSet;
    DSTaxis: TDataSource;
    RadioGroup1: TRadioGroup;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_XStaxis: TFrm_XStaxis;

implementation

{$R *.dfm}

procedure TFrm_XStaxis.SpeedButton1Click(Sender: TObject);
var
  StartDate,EndDate:string;
begin
  case RadioGroup1.ItemIndex of
  0 :begin
      StartDate:=DateToStr(Now-1);
      EndDate:=DateToStr(Now+1);
     end;
  1 :begin
      StartDate:=DateToStr(StartOfTheWeek(Now));
      EndDate:=DateToStr(EndOfTheWeek(Now));
     end;
  2 :begin
      StartDate:=DateToStr(StartOfTheMonth(Now));
      EndDate:=DateToStr(EndOfTheMonth(Now));
     end;
  3 :begin
      case MonthOf(Now) of
      1..3  :begin
                StartDate:=IntToStr(YearOf(Now))+'-01-01';
                EndDate:=IntToStr(YearOf(Now))+'-03-31';
             end;
      4..6  :begin
                StartDate:=IntToStr(YearOf(Now))+'-04-01';
                EndDate:=IntToStr(YearOf(Now))+'-06-30';
             end;
      7..9  :begin
                StartDate:=IntToStr(YearOf(Now))+'-07-01';
                EndDate:=IntToStr(YearOf(Now))+'-09-30';
             end;
      10..12:begin
                StartDate:=IntToStr(YearOf(Now))+'-10-01';
                EndDate:=IntToStr(YearOf(Now))+'-12-31';
             end;
      end;
     end;
  4 :begin
      StartDate:=DateToStr(StartOfTheYear(Now));
      EndDate:=DateToStr(EndOfTheYear(Now));
     end;
  end;

  ADOTaxis.Close;
  ADOTaxis.CommandText:='Select a.MR_Code,a.MR_Name,a.MR_Spce,a.MR_Unit,a.MR_Cards,b.MR_Count,b.MR_Sum'+
	                      ' From MR_Wareinfo_Tab a,'+
		                    '     (Select MR_XDPriceList_Tab.MR_Code,Sum(MR_XDPriceList_Tab.MR_Sum) as MR_Sum,Count(MR_XDPriceList_Tab.MR_Code) as MR_Count'+
 			                        ' From MR_XDPriceList_Tab,MR_XDPrice_Tab'+
 			                        ' where MR_XDPriceList_Tab.MR_PriceID=MR_XDPrice_Tab.MR_OrderID'+
 			                        ' and  (MR_XDPrice_Tab.MR_OrderDate>'+QuotedStr(StartDate)+' and  MR_XDPrice_Tab.MR_OrderDate<'+QuotedStr(EndDate)+')'+
 			                        ' Group by MR_XDPriceList_Tab.MR_Code) b'+
	                      ' where a.mr_code=b.mr_code'+
	                      ' order by b.MR_Sum desc';
  ADOTaxis.Open;
end;

end.