dailystorestatfrm.~pas

相关的销售服务管理行业的一个软件

unit DailyStoreStatFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StatFrameFrm, Db, ADODB, ActnList, Grids, DBGridEh, StdCtrls, ExtCtrls,
  Buttons, ComCtrls, jpeg, EHGrids;

type
  TDailyStoreStatForm = class(TStatFrameForm)
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner3: TFloatField;
    ADOQuery1DSDesigner4: TFloatField;
    procedure FormDestroy(Sender: TObject);
    procedure AExecExecute(Sender: TObject);
    procedure rgStoreStypeClick(Sender: TObject);
    procedure APrintExecute(Sender: TObject);
    procedure AReviewExecute(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure CreateConditionString; override;
  public
    { Public declarations }
  end;

var
  DailyStoreStatForm: TDailyStoreStatForm;

implementation

uses U_DM, import1;

{$R *.DFM}

procedure TDailyStoreStatForm.CreateConditionString;
var
  sBeginDate,sEndDate,sStoreStype: string;
begin
  inherited;
  sBeginDate := DateToStr(BeginDate);
  sEndDate   := DateToStr(EndDate);
  if StoreStype=AllStypeInfo then sStoreStype := '%' else sStoreStype := StoreStype;
  if DTPEnd.Checked then
    ConditionString := ' WHERE  xs_rbm.drbdate<= '''+sEndDate+'''';
                       //'  AND  xs_s.type LIKE '''+sStoreStype+'''';
  if DTPBegin.Checked then
    ConditionString := ' WHERE xs_rbm.drbdate>= '''+sBeginDate+'''';
                     //  '  AND  xs_store.type LIKE '''+sStoreStype+'''';
  if DTPBegin.Checked and DTPEnd.Checked then
    ConditionString := ' WHERE xs_rbm.drbdate>= '''+sBeginDate+''''+
                       '  AND  xs_rbm.drbdate<= '''+sEndDate+'''';
                     //  '  AND  xs_store.type LIKE '''+sStoreStype+'''';
  if not DTPBegin.Checked and not DTPEnd.Checked then
    //ConditionString := ' WHERE xs_store.type LIKE '''+sStoreStype+'''';
    ConditionString :='where  1=1';
//  ShowMessage(ConditionString);
end;

procedure TDailyStoreStatForm.AExecExecute(Sender: TObject);
begin
  inherited;
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add(' SELECT s_customer.ncname AS 分销店名称,           ');
//    SQL.Add('        dbo.xs_store.type AS 类型,                      ');
    SQL.Add('        SUM(xs_rbd.amount) AS 数量,          ');
    SQL.Add('        SUM(xs_rbd.ntotal) AS 金额          ');
    SQL.Add(' FROM xs_rbd INNER JOIN                     ');
    SQL.Add('       xs_rbm ON                            ');
    SQL.Add('       xs_rbm.sxsrbno = xs_rbd.id INNER JOIN ');
    SQL.Add('       s_customer ON xs_rbm.sclientno = s_customer.nccode  ');
    SQL.Add(ConditionString);
    SQL.Add(' GROUP BY s_customer.ncname                           ');
    Open;
    Sort := SortString;
  end;//with
{
SELECT dbo.xs_store.StoreName AS 分销店名称,
       dbo.xs_store.type AS 类型,
       SUM(dbo.xs_DailyDetail.Total) AS 数量,
       SUM(dbo.xs_DailyDetail.Amount) AS 金额
FROM dbo.xs_DailyDetail INNER JOIN
      dbo.xs_DailyMaster ON
      dbo.xs_DailyDetail.DailyCode = dbo.xs_DailyMaster.DailyCode INNER JOIN
      dbo.xs_store ON dbo.xs_DailyMaster.StoreCode = dbo.xs_store.StoreCode
GROUP BY dbo.xs_store.StoreName, dbo.xs_store.type
}
end;
////////////////////////////////////////////////////////////////////////////////
procedure TDailyStoreStatForm.FormDestroy(Sender: TObject);
begin
  inherited;
  DailyStoreStatForm := nil;
end;

procedure TDailyStoreStatForm.rgStoreStypeClick(Sender: TObject);
begin
  inherited;
  AExec.OnExecute(nil);
end;

procedure TDailyStoreStatForm.APrintExecute(Sender: TObject);
begin
  inherited;
     CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'303',
   nil,TAdoQuery(DataSource1.DataSet),true)      ;
end;

procedure TDailyStoreStatForm.AReviewExecute(Sender: TObject);
begin
  inherited;
  CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'303',
   nil,TAdoQuery(DataSource1.DataSet),false)      ;
end;

end.