Tenho um exemplo que uso no meu sistema (É C++ Builder, mas é igual no Delphi, basta trocar os -> por . ): Estou usando Banco de Dados MySQL.
adoqryFrmLancamento->SQL->Clear(); sql = "SELECT "; /* Caso o Tipo de Lançamento for = 'D' então pega o próprio valor, SENÂO multiplca o Valor por -1) */ sql += "SUM(CASE WHEN TipoLancamento = 'D' THEN ValorLancamento ELSE ValorLancamento*-1 END) as ValorSaldo "; sql += "FROM tbllancamento "; sql += "WHERE EXTRACT(MONTH FROM DataLancamento) = '12' AND EXTRACT(YEAR FROM DataLancamento) = '12' "; sql += "AND CodigoCliente = '18' "; adoqryFrmLancamento->SQL->Add(sql); adoqryFrmLancamento->Open(); Valeu Wanderlei [As partes desta mensagem que não continham texto foram removidas]
