Fórum Duvida Sobre a Linguagem Sql Função Sum() #202450

var
  Soma: Currency;
begin
  Query1.Sql.Text:= ´Select SUM(Salario) as SomaSalario from nome_tabela;´;
  Query1.Active:= true;
  Soma:= Query1.FieldByName(´SomaSalario´).asCurrency;
end;

procedure TFormGerarRelatorios.BtRelatorioClick(Sender: TObject);
var
 Soma : currency;
begin
  SelectNext(BtRelatorio,True,True);
  if Not MensagemErro Then
    begin
     if StrToDate(MaskEdit1.Text) < StrToDate(MaskEdit2.Text) Then
       begin
         if Modulo.Tbfun.Locate(´Nome_Funcionario´,Combobox1.text,[]) Then
           Codigo:=Modulo.tbfunCodigo_Funcionario.Value
         else
           Codigo:=0; //Para Todos Os Funcionários
         Query1.disablecontrols;
         Query1.Close;
         Query1.SQL.Clear;
         Query1.Sql.Add(´Select*From ´+ Tabela);
         Query1.Sql.Add(´Where Data>=:Datainicial´);
         Query1.ParamByName(´datainicial´).asdate:=strtodate
                                                                                   (Maskedit1.text);
        Query1.Sql.Add(´And Data<=:DataFinal´);
        Query1.ParamByName(´DataFinal´).asdate:=strtodate
                                                                                  (maskedit2.text);
        if codigo <> 0 Then //Siginifica Mostrar As Vendas So De Um Func.
          begin
            Query1.Sql.Add(´And Codigo_Vendedor=:Cod´);
            Query1.ParamByName(´Cod´).AsInteger:=Codigo;
          end;
        Query1.Prepare;
        Query1.open;
        Soma:=0;

        //ABAIXO SEGUE O CÓDIGO SUGERIDO PELO VINI
        Query1.SQL.Text:=´Select Sum(Liquido) as ValorLiquido From
                                                                                             TabVen;´;
       Query1.Active:=TRue; //ACHO DESNECESSÁRIO....
        Soma:=Query1.FieldByName(´ValorLiquido´).AsCurrency;
        edit1.text:=formatfloat(´R$ : ´+´#,0.00´,Soma);
        Query1.EnableControls;
        Bloqueio(False);
        BtImprimir.SetFocus;
      end // Fim Do Se DataFinal Menor...
    else
      begin
        Beep;
        Showmessage(´ERROR : A Data Final Não Pode Ser Menor do Que a 
                              Data´+#13+
                                       ´              Inicial . Corrija Por Favor . 
                             Obrigado...´);
      end;
   end // Fim Do Se Houve ERRO...
  else
    MascaraEdit.SetFocus;
end;

        //ABAIXO SEGUE O CÓDIGO SUGERIDO PELO VINI

        Query1.Close; // Antes de alterar o conteúdo de Text
        Query1.SQL.Text:=´Select Sum(Liquido) as ValorLiquido From TabVen´;
        Query1.Active  := True; // ou Query1.Open; Sim! é necessário

        Soma:=Query1.FieldByName(´ValorLiquido´).AsCurrency;