Como usar o JvDBGridFooter

[robinhocne]

Tenho no delphi 7, instalado o pacote de componentes do JEDI e nele na aba Jv Data Controls tem o componente JvDBGridFooter, esse componente serve para o que ?

Pois creio eu que seria para ter um resultado das minhas colunas de valores, nele tem a propriedade DataSource onde coloquei o DataSource do Grid e tem a propriedade DBGrid, onde relacionei o Grid que mostrar os valores....

Se clicar duas vezes nele aparece para incluir os panels, mas não tenho nada a relacionar a qual coluna eu quero do meu gri, nesse componente tem a propriedade Columns, onde se incluir colunas tem nela a propriedade FieldName, achei que colocando o mesmo nome da coluna do Grid ia dar certo, mas também não deu....

Como uso esse componente ?

Há um detalhe os dados que eu mostro no Grid eu carrego em uma tabela temporaria.

[Jhonas]

veja

http://www.nldelphi.com/forum/showthread.p...=JvDBGridFooter

abraço

[robinhocne]

veja

http://www.nldelphi.com/forum/showthread.p...=JvDBGridFooter

abraço

Jhonas, dá uma ajuda ai, pois não entendi nada....eu traduzi, mas não dá pra compreender...

[Jhonas]

creio eu que seria para ter um resultado das minhas colunas de valores

OBS: a partir do post nº 9, voce tem a explicação de como usar JvDBGridFooter para fazer calculo com as colunas

veja tambem o help desse componente

http://wiki.delphi-jedi.org/wiki/JVCL_Help:TJvDBGridFooter

outro exemplo:

http://www.google.com.br/url?q=http://svn2...odvjnJPWns7IEKA

abraço

[robinhocne]

creio eu que seria para ter um resultado das minhas colunas de valores

OBS: a partir do post nº 9, voce tem a explicação de como usar JvDBGridFooter para fazer calculo com as colunas

veja tambem o help desse componente

http://wiki.delphi-jedi.org/wiki/JVCL_Help:TJvDBGridFooter

outro exemplo:

http://www.google.com.br/url?q=http://svn2...odvjnJPWns7IEKA

abraço

Fiz assim...

procedure TFrmFluxoCaixa.DbfFinCalculate(Sender: TJvDBGridFooter;
  const FieldName: String; var CalcValue: Variant);
begin

 if(AnsiSameText(FieldName, 'Vl_Dinheiro')) then
     begin
       FinDin    := FinDin + TblFinVl_Dinheiro.AsFloat;
       CalcValue := FinDin;
       DbfFin.Columns.Items[0].DisplayMask :=  FloatToStrF(CalcValue, ffNumber, 15,2);
    end;

 if(AnsiSameText(FieldName, 'Vl_Cheque')) then
     begin
       FinChe    := FinChe + TblFinVl_Dinheiro.AsFloat;
       CalcValue := FinChe;
       DbfFin.Columns.Items[1].DisplayMask :=  FloatToStrF(CalcValue, ffNumber, 15,2);
    end;

 if(AnsiSameText(FieldName, 'Vl_Conta')) then
     begin
       FinCon    := FinCon + TblFinVl_Dinheiro.AsFloat;
       CalcValue := FinCon;
       DbfFin.Columns.Items[2].DisplayMask :=  FloatToStrF(CalcValue, ffNumber, 15,2);
    end;

 if(AnsiSameText(FieldName, 'Vl_Totais')) then
     begin
       FinTot    := FinTot + TblFinVl_Dinheiro.AsFloat;
       CalcValue := FinTot;
       DbfFin.Columns.Items[3].DisplayMask :=  FloatToStrF(CalcValue, ffNumber, 15,2);
    end;

end;

mas ai todos os campos aparece o mesmo valor e se eu rolar linha por linha...do grid...vai mudando o valor....

[Jhonas]

se eu rolar linha por linha...do grid...vai mudando o valor....

isso quer dizer que faltou fazer um loop nos registros

veja que no exemplo existe um comando for para fazer esse loop

abraço

[robinhocne]

se eu rolar linha por linha...do grid...vai mudando o valor....

isso quer dizer que faltou fazer um loop nos registros

veja que no exemplo existe um comando for para fazer esse loop

abraço

mesmo colocando um loop....se eu percorrer linha a linha do grid o valor fica loco....e para todos....fica o mesmo....

[Jhonas]

voce esta zerando as variaveis de calculo ?

[robinhocne]

voce esta zerando as variaveis de calculo ?

Estou fazendo assim:

while not TblFin.Eof do
   begin

      if TblFinVl_Dinheiro.AsCurrency > 0 then
        begin
           if(AnsiSameText(FieldName, 'Vl_Dinheiro')) then
              begin
                FinDin    := FinDin + TblFinVl_Dinheiro.AsCurrency;
                CalcValue := FinDin;
                DbfFin.Columns.Items[0].DisplayMask :=  FloatToStrF(FinDin, ffNumber, 15,2);
              end;
       end;

     TblFin.Next;
   end;


 while not TblFin.Eof do
   begin

    if TblFinVl_Cheque.AsCurrency > 0 then
       begin
         if(AnsiSameText(FieldName, 'Vl_Cheque')) then
           begin
             FinChe    := FinChe + TblFinVl_Cheque.AsCurrency;
             CalcValue := FinChe;
             DbfFin.Columns.Items[1].DisplayMask :=  FloatToStrF(FinChe, ffNumber, 15,2);
           end;
       end;

     TblFin.Next;
   end;

mas a coluna do Vl_Cheque não aparece nada

[Jhonas]

voce tem que analisar o exemplo e aplicar isso ao seu código

procedure TMainFrm.JvDBGridFooterCalculate(Sender: TJvDBGridFooter;
  const FieldName: String; var CalcValue: Variant);
var
  Y, Year: Integer;
begin
  with DM do
  begin
    if ClientMaiDataSet.Active then
    begin
      for Y := 0 to NrOfYears - 1 do
      begin
        Year := Y + GridStartYear;
        if(AnsiSameText(FieldName, 'Year' + IntToStr(Year))) then
          CalcValue := ClientMaiDataSet.FieldByName('SumYear' +
            IntToStr(Year)).AsString;
      end;
    end;
  end;
end;

abraço

[robinhocne]

voce tem que analisar o exemplo e aplicar isso ao seu código

procedure TMainFrm.JvDBGridFooterCalculate(Sender: TJvDBGridFooter;
  const FieldName: String; var CalcValue: Variant);
var
  Y, Year: Integer;
begin
  with DM do
  begin
    if ClientMaiDataSet.Active then
    begin
      for Y := 0 to NrOfYears - 1 do
      begin
        Year := Y + GridStartYear;
        if(AnsiSameText(FieldName, 'Year' + IntToStr(Year))) then
          CalcValue := ClientMaiDataSet.FieldByName('SumYear' +
            IntToStr(Year)).AsString;
      end;
    end;
  end;
end;

abraço

Eu coloquei assim:

procedure TFrmFluxoCaixa.DbfFinCalculate(Sender: TJvDBGridFooter;
  const FieldName: String; var CalcValue: Variant);
var
  Y, Year: Integer;
begin
  with TblFin do
  begin
    if TblFin.Active then
    begin
      for Y := 0 to TblFin.RecordCount - 1 do
      begin
        if(AnsiSameText(FieldName, 'Vl_Dinheiro')) then
          begin
            FinDin    := FinDin + TblFin.FieldByName('Vl_Dinheiro').AsCurrency;
            CalcValue := FinDin;
            DbfFin.Columns.Items[0].DisplayMask :=  FloatToStrF(FinDin, ffNumber, 15,2);
          end;
      end;
    end;
  end;
end;

mas o valor que dá é muito alto....pois eu veja na imagem abaixo...

[Jhonas]

veja o resultado no final desse link

http://www.nldelphi.com/forum/showthread.p...=JvDBGridFooter

OBS: Não tente advinhar como funciona ... tente entender a lógica do negocio

abraço