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

procedure TPCPurchaseFruitListForm.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 TPCPurchaseFruitListForm.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 TPCPurchaseFruitListForm.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 TPCPurchaseFruitListForm.BitBtn1Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select CLIENT as [廠商名稱],Sum(Isnull(Amount,0)) '
      +' as [采購金額合計] from #PCPurchaseFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By CLIENT order by [采購金額合計] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TPCPurchaseFruitListForm.BitBtn2Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select Employee as [業(yè)務(wù)員姓名],Sum(Isnull(Amount,0)) '
      +' as [采購金額合計] from #PCPurchaseFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By Employee order by [采購金額合計] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

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

procedure TPCPurchaseFruitListForm.BitBtn4Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select Area as [地區(qū)名稱],Sum(Isnull(Amount,0)) '
      +' as [采購金額合計] from #PCPurchaseFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By Area order by [采購金額合計] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TPCPurchaseFruitListForm.BitBtn5Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select GoodsClass as [商品類別名稱],Sum(Isnull(Amount,0)) '
      +' as [采購金額合計] from #PCPurchaseFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By GoodsClass order by [采購金額合計] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TPCPurchaseFruitListForm.BitBtn6Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select Client as [廠商名稱],'
      +' Goods as [商品名稱], sum(isnull(GoalQuantity,0)) as [采購數(shù)量],'
      +' Sum(Isnull(Amount,0)) as [金額合計] , '
      +' GoalUnit as [標(biāo)準(zhǔn)單位] '
      +' from #PCPurchaseFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By Client,Goods, GoalUnit order by [采購數(shù)量] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TPCPurchaseFruitListForm.BitBtn7Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select '
      +' Goods as [商品名稱], sum(isnull(GoalQuantity,0)) as [采購數(shù)量],'
      +' Sum(Isnull(Amount,0)) as [金額合計] , '
      +' GoalUnit as [標(biāo)準(zhǔn)單位] '
      +' from #PCPurchaseFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By Goods, GoalUnit order by [采購數(shù)量] Desc';
  adsMaster.open;
  UpdateDBGrid;end;

procedure TPCPurchaseFruitListForm.BitBtn8Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select Area as [地區(qū)名稱],'
      +' Goods as [商品名稱], sum(isnull(GoalQuantity,0)) as [采購數(shù)量],'
      +' Sum(Isnull(Amount,0)) as [金額合計] , '
      +' GoalUnit as [標(biāo)準(zhǔn)單位] '
      +' from #PCPurchaseFruit a '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By Area,Goods, GoalUnit order by [采購數(shù)量] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TPCPurchaseFruitListForm.BitBtn9Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select GoodsClass as [商品分類名稱],'
      +' Goods as [商品名稱], sum(isnull(GoalQuantity,0)) as [采購數(shù)量],'
      +' Sum(Isnull(Amount,0)) as [金額合計] , '
      +' GoalUnit as [標(biāo)準(zhǔn)單位] '
      +' from #PCPurchaseFruit a '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By GoodsClass,Goods, GoalUnit order by [采購數(shù)量] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TPCPurchaseFruitListForm.BitBtn10Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select TimePeriod as [時間段],'
      +' Goods as [商品名稱], sum(isnull(GoalQuantity,0)) as [采購數(shù)量],'
      +' Sum(Isnull(Amount,0)) as [金額合計] , '
      +' GoalUnit as [標(biāo)準(zhǔn)單位] '
      +' from #PCPurchaseFruit 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 [采購數(shù)量],TimePeriod Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TPCPurchaseFruitListForm.BitBtn12Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select AreaT as [地區(qū)名稱],'
      +' Goods as [商品名稱], sum(isnull(GoalQuantity,0)) as [采購數(shù)量],'
      +' Sum(Isnull(Amount,0)) as [金額合計] , '
      +' GoalUnit as [標(biāo)準(zhǔn)單位] '
      +' from #PCPurchaseFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By AreaT,Goods, GoalUnit order by [采購數(shù)量] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TPCPurchaseFruitListForm.BitBtn11Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select AreaT as [地區(qū)名稱],Sum(Isnull(Amount,0)) '
      +' as [采購金額合計] from #PCPurchaseFruit '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By AreaT order by [采購金額合計] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TPCPurchaseFruitListForm.BitBtn13Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select GoodsClassT as [商品分類名稱],'
      +' Goods as [商品名稱], sum(isnull(GoalQuantity,0)) as [采購數(shù)量],'
      +' Sum(Isnull(Amount,0)) as [金額合計] , '
      +' Goalunit as [標(biāo)準(zhǔn)單位] '
      +' from #PCPurchaseFruit  '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and GoalQuantity<>0'
      +' Group By GoodsClassT,Goods, Goalunit order by [采購數(shù)量] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;

procedure TPCPurchaseFruitListForm.BitBtn14Click(Sender: TObject);
begin
  adsMaster.Close;
  adsMaster.CommandText :=' select GoodsClassT as [商品類別名稱],Sum(Isnull(Amount,0)) '
      +' as [采購金額合計] from #PCPurchaseFruit '
      +' where date>'+Quotedstr(Datestr1)+' and date<='
      +Quotedstr(Datestr2)+' and Amount<>0'
      +' Group By GoodsClassT order by [采購金額合計] Desc';
  adsMaster.open;
  UpdateDBGrid;
end;


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

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

end.