slsalefruitlist.pas

详细的ERP设计资料

procedure TSLSaleFruitListForm.DBGridDblClick(Sender: TObject);
begin
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.UpdateDBGrid;
var  I: Integer;
begin
  with DBGrid.DataSource.DataSet do
  begin
    for I :=0 to DBGrid.DataSource.DataSet.FieldCount -1 do
    begin
      if DBGrid.DataSource.DataSet.Fields[i].DataType = TFieldType(ftFloat) then
        begin
          SetStrProp(DBGrid.DataSource.DataSet.Fields[I], 'DisplayFormat','#,#.00') ;
          DBGrid.DataSource.DataSet.Fields[i].DisplayWidth :=20;
        end;
    end;
  end;
  with DBGrid do
  begin
    FooterRowCount := 0;
    Columns[0].Footer.ValueType := fvtStaticText;
    Columns[0].Footer.Value := '合计:';
    Columns[0].Footer.Alignment := taCenter;
    Columns[0].Title.Alignment:= taCenter;
    Columns[0].Width :=200;
    for I := 1 to Columns.Count - 1 do
    begin
      Columns[i].Width :=90;
      if Pos('日',Columns[I].FieldName)>0 then Columns[i].Width :=70;
      if Pos('编',Columns[I].FieldName)>0 then Columns[i].Width :=70;
      Columns[i].Title.Alignment:= taCenter;
      if Columns[I].Field is TNumericField then
      if Pos('Price',Columns[I].FieldName)<=0 then
        Columns[I].Footer.ValueType := fvtSum;
    end;
    FooterRowCount := 1;
  end;
end;

procedure TSLSaleFruitListForm.DateTimePicker1Change(Sender: TObject);
begin
  inherited;
  if  DateTimePicker1.Date>DateTimePicker2.Date then
      DateTimePicker2.Date :=DateTimePicker1.Date;
  DecodeDate(DateTimePicker1.Date,year, month, day);
  DecodeDate(DateTimePicker2.Date,year1, month1, day1);
  DateStr1 :=Datetostr(DateTimePicker1.Date);
  DateStr2 :=Datetostr(DateTimePicker2.Date);
end;

procedure TSLSaleFruitListForm.DateTimePicker2Change(Sender: TObject);
begin
  inherited;
  if  DateTimePicker2.Date<DateTimePicker1.Date then
      DateTimePicker1.Date :=DateTimePicker2.Date;
  DecodeDate(DateTimePicker1.Date,year, month, day);
  DecodeDate(DateTimePicker2.Date,year1, month1, day1);
  DateStr1 :=Datetostr(DateTimePicker1.Date);
  DateStr2 :=Datetostr(DateTimePicker2.Date);
end;

procedure TSLSaleFruitListForm.BitBtn1Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select CLIENT as [客户名称],Sum(Isnull(Amount,0)) '
      +' as [金额合计] from #SLSaleFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By CLIENT order by [金额合计] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn2Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select Employee as [业务员姓名],Sum(Isnull(Amount,0)) '
      +' as [金额合计] from #SLSaleFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By Employee order by [金额合计] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn3Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select goods as [商品名称],Sum(Isnull(Amount,0)) '
      +' as [金额合计] from #SLSaleFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By Goods order by [金额合计] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn4Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select Area as [地区名称],Sum(Isnull(Amount,0)) '
      +' as [金额合计] from #SLSaleFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By Area order by [金额合计] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn5Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select GoodsClass as [商品类别名称],Sum(Isnull(Amount,0)) '
      +' as [金额合计] from #SLSaleFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By GoodsClass order by [金额合计] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn6Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select Client as [客户名称],'
      +' Goods as [商品名称], sum(isnull(GoalQuantity,0)) as [销售数量],'
      +' Sum(Isnull(Amount,0)) as [金额合计] , '
      +' GoalUnit as [标准单位] '
      +' from #SLSaleFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By Client,Goods, GoalUnit order by [销售数量] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn7Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select '
      +' Goods as [商品名称], sum(isnull(GoalQuantity,0)) as [销售数量],'
      +' Sum(Isnull(Amount,0)) as [金额合计] , '
      +' GoalUnit as [标准单位] '
      +' from #SLSaleFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By Goods, GoalUnit order by [销售数量] Desc';
  adsMaster.open;
  UpdateDBGrid;end;

procedure TSLSaleFruitListForm.BitBtn8Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select Area as [地区名称],'
      +' Goods as [商品名称], sum(isnull(GoalQuantity,0)) as [销售数量],'
      +' Sum(Isnull(Amount,0)) as [金额合计] , '
      +' GoalUnit as [标准单位] '
      +' from #SLSaleFruit a '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By Area,Goods, GoalUnit order by [销售数量] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn9Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select GoodsClass as [商品分类名称],'
      +' Goods as [商品名称], sum(isnull(GoalQuantity,0)) as [销售数量],'
      +' Sum(Isnull(Amount,0)) as [金额合计] , '
      +' GoalUnit as [标准单位] '
      +' from #SLSaleFruit a '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By GoodsClass,Goods, GoalUnit order by [销售数量] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn10Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select TimePeriod as [时间段],'
      +' Goods as [商品名称], sum(isnull(GoalQuantity,0)) as [销售数量],'
      +' Sum(Isnull(Amount,0)) as [金额合计] , '
      +' GoalUnit as [标准单位] '
      +' from #SLSaleFruit a '
      +' left outer join DAGoodsClass b on b.ID=a.GoodsClassID'
      +' left outer join DAGoods c on c.ID=a.GoodsID'
      +' left outer join MSUnit d on d.ID=C.UnitID'
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By TimePeriod,Goods, GoalUnit order by [销售数量],TimePeriod Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn11Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select AreaT as [地区名称],'
      +' Goods as [商品名称], sum(isnull(GoalQuantity,0)) as [销售数量],'
      +' Sum(Isnull(Amount,0)) as [金额合计] , '
      +' GoalUnit as [标准单位] '
      +' from #SLSaleFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By AreaT,Goods, GoalUnit order by [销售数量] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn12Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select AreaT as [地区名称],Sum(Isnull(Amount,0)) '
      +' as [金额合计] from #SLSaleFruit '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By AreaT order by [金额合计] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn13Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select GoodsClassT as [商品类别名称],Sum(Isnull(Amount,0)) '
      +' as [金额合计] from #SLSaleFruit '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By GoodsClassT order by [金额合计] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TSLSaleFruitListForm.BitBtn14Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select GoodsClassT as [商品分类名称],'
      +' Goods as [商品名称], sum(isnull(GoalQuantity,0)) as [销售数量],'
      +' Sum(Isnull(Amount,0)) as [金额合计] , '
      +' Goalunit as [标准单位] '
      +' from #SLSaleFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By GoodsClassT,Goods, Goalunit order by [销售数量] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;


procedure TSLSaleFruitListForm.adsMasterBeforeOpen(DataSet: TDataSet);
begin
  inherited;
  adsMaster.IndexFieldNames := '';
end;

procedure TSLSaleFruitListForm.adsMasterAfterOpen(DataSet: TDataSet);
begin
  inherited;
  RefreshAvailableFields;
end;

end.