dailystorefindfrm.~pas

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

unit DailyStoreFindFrm;

interface

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

type
  TDailyStoreFindForm = class(TFindFrameForm)
    Label4: TLabel;
    ADOQuery2: TADOQuery;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TDateTimeField;
    ADOQuery1DSDesigner4: TFloatField;
    ADOQuery1DSDesigner5: TFloatField;
    cbStoreName: TComboBox;
    procedure FormDestroy(Sender: TObject);
    procedure cbStoreNameChange(Sender: TObject);
    procedure AExecExecute(Sender: TObject);
    procedure APrintExecute(Sender: TObject);
    procedure AReviewExecute(Sender: TObject);
  private
    FStoreName: string;
    procedure SetStoreName(const Value: string);
    { Private declarations }
  protected
    procedure InitInterface; override;
    procedure InitCondition; override;
    procedure CreateConditionString; override;
  public
    { Public declarations }
    property StoreName: string read FStoreName write SetStoreName;
  end;

var
  DailyStoreFindForm: TDailyStoreFindForm;

implementation

uses U_DM;

{$R *.DFM}

{ TDailyStoreFindForm }
const AllStoreInfo = '<<全部>>';

procedure TDailyStoreFindForm.InitInterface;
  procedure SetStoreNameList(StoreNameList: TStrings);
  begin
    StoreNameList.Clear;
    StoreNameList.Add(AllStoreInfo);
    with ADOQuery2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(' SELECT * FROM s_customer ');
      SQL.Add(' ORDER BY ncname ');
      Open;
    end;
    if ADOQuery2.RecordCount>0 then
    begin
      while not ADOQuery2.Eof do
      begin
        StoreNameList.Add(ADOQuery2.FieldByName('ncname').asstring);
        ADOQuery2.Next;
      end;//while
    end;//if
  end;//function
begin
  inherited;
  SetStoreNameList(cbStoreName.Items);
//  cbStoreName.ItemIndex := 0;
end;

procedure TDailyStoreFindForm.InitCondition;
begin
  inherited;
  StoreName := AllStoreInfo;
  ColumnIndex := 1;
  IsASCOrder := false;
end;

procedure TDailyStoreFindForm.CreateConditionString;
var
  sBeginDate,sEndDate,sStoreName: string;
begin
  inherited;
  sBeginDate := DateToStr(BeginDate);
  sEndDate   := DateToStr(EndDate);
  if StoreName=AllStoreInfo then sStoreName := '%' else sStoreName := StoreName;
  if DTPEnd.Checked then
    ConditionString := ' WHERE  xs_rbm.drbDate<= '''+sEndDate+''''+
                       '  AND  s_customer.ncname LIKE '''+sStoreName+'''';
  if DTPBegin.Checked then
    ConditionString := ' WHERE xs_rbm.drbDate>= '''+sBeginDate+''''+
                       '  AND  s_customer.ncname LIKE '''+sStoreName+'''';
  if DTPBegin.Checked and DTPEnd.Checked then
    ConditionString := ' WHERE xs_rbm.drbDate>= '''+sBeginDate+''''+
                       '  AND  xs_rbm.drbDate<= '''+sEndDate+''''+
                       '  AND  s_customer.ncname LIKE '''+sStoreName+'''';
  if not DTPBegin.Checked and not DTPEnd.Checked then
    ConditionString := ' WHERE s_customer.ncname LIKE '''+sStoreName+'''';
//  ShowMessage(ConditionString);
end;

procedure TDailyStoreFindForm.AExecExecute(Sender: TObject);
begin
  inherited;
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add(' SELECT  xs_rbm.sxsrbno AS 日报编号,                  ');
    SQL.Add('               s_customer.ncname AS 分销店名称,                ');
    SQL.Add('          xs_rbm.drbdate AS 上报时间,                  ');
    SQL.Add('       Sum(xs_rbd.amount)  AS 总数量,                    ');
    SQL.Add('       Sum(xs_rbd.nprice) AS 总金额                    ');
    SQL.Add(' FROM xs_rbm Left outer join                            ');
    SQL.Add('      s_customer on xs_rbm.sclientno = s_customer.nccode ');
    SQL.Add('      join xs_rbd                                       ');
    SQL.Add('      on xs_rbm.sxsrbno = xs_rbd.id    ');
    SQL.Add(ConditionString);
    SQL.Add(' GROUP BY xs_rbm.sxsrbno,s_customer.ncName,          ');
    SQL.Add('          xs_rbm.drbdate   ');
   // sql.savetofile('c:\ww.txt');
    Open;
    Sort := SortString;
  end;//with
end;
////////////////////////////////////////////////////////////////////////////////
procedure TDailyStoreFindForm.SetStoreName(const Value: string);
begin
  FStoreName := Value;
  if cbStoreName.Text<>Value then
    cbStoreName.ItemIndex := cbStoreName.Items.IndexOf(Value);
end;

procedure TDailyStoreFindForm.FormDestroy(Sender: TObject);
begin
  inherited;
  DailyStoreFindForm := nil;
end;

procedure TDailyStoreFindForm.cbStoreNameChange(Sender: TObject);
begin
  inherited;
  StoreName := cbStoreName.Text;
  AExec.OnExecute(nil);
end;

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

procedure TDailyStoreFindForm.AReviewExecute(Sender: TObject);
begin

   CreateReport(Application.Handle,DM.ADOConnection.ConnectionString,'301',
    nil,TAdoQuery(DataSource1.DataSet),false)      ;
    inherited;
end;

end.