Exibir uma mensagem na tela quando atingir um resultado
Bom dia a todos.
Tenho um sistema em delphi 7 com banco firebird. Meu usuario quer que de 20 em 20 m³ mostre uma mensagem na tela para se realizar o slump do concreto, então começou o dia, ele vai verificar o volume pesado e a partir dos 20 m³, vai mostrar de 20 em 20. Ai pensei em verificar se for >= 20 mostrar a mensagem, mas assim iria ficar mostrando a tal mensagem toda carga acima de 20. Não uso table para essa tabela que guarda o volume produzido, é tudo realizado em sql. Alguem pode me dar uma ajuda.
Att.
Reginaldo
Tenho um sistema em delphi 7 com banco firebird. Meu usuario quer que de 20 em 20 m³ mostre uma mensagem na tela para se realizar o slump do concreto, então começou o dia, ele vai verificar o volume pesado e a partir dos 20 m³, vai mostrar de 20 em 20. Ai pensei em verificar se for >= 20 mostrar a mensagem, mas assim iria ficar mostrando a tal mensagem toda carga acima de 20. Não uso table para essa tabela que guarda o volume produzido, é tudo realizado em sql. Alguem pode me dar uma ajuda.
Att.
Reginaldo
Reginaldo Calora
Curtidas 0
Respostas
Emerson Nascimento
26/05/2011
crie uma variável numérica - vou chamar de contador - iniciada em 0 (zero) e tente algo assim:
select sum(peso) total from tabela where dia = :hoje
pegue o resultado, divida por 20 e verifique se é maior que o último valor medido.
resultado := qry.total div 20;
if (resultado > contador)
begin
contador := resultado;
ShowMessage('O total pesado ('+formatfloat(',#0.00', qry.total)+') alcançou um múltiplo de 20');
end;
select sum(peso) total from tabela where dia = :hoje
pegue o resultado, divida por 20 e verifique se é maior que o último valor medido.
resultado := qry.total div 20;
if (resultado > contador)
begin
contador := resultado;
ShowMessage('O total pesado ('+formatfloat(',#0.00', qry.total)+') alcançou um múltiplo de 20');
end;
GOSTEI 0
Reginaldo Calora
26/05/2011
Muito obrigado, deu certo.
GOSTEI 0