To Desenvolvendo um sistema para Restaurante! Controle De Mesas, a pessoa escreve qual mesa ela quer Fechar o pedido > O código e um filtro onde só vai aparecer a Mesa que ela Escolheu, Os valores somados aparecem em um Edit!
Conclusão
Quero que quando a pessoa fazer o Filtro No BD! Apareça no Edit Somente os Valores que ela Filtrou no Banco!
Tem como solucionar isso!
procedure TForm13.FormShow(Sender: TObject);
var
somar:Currency;
begin
Label3.Caption:= inttostr(Form13.IBTable1.RecordCount);
Inherited;
Somar:=0;
With Ibtable1 do
begin
Ibtable1.DisableControls;
Ibtable1.First;
while not Ibtable1.eof do
begin
Pergunta
valSistemasDelphi
A parte de somar consegui resolver...
To Desenvolvendo um sistema para Restaurante! Controle De Mesas, a pessoa escreve qual mesa ela quer Fechar o pedido > O código e um filtro onde só vai aparecer a Mesa que ela Escolheu, Os valores somados aparecem em um Edit!
Conclusão
Quero que quando a pessoa fazer o Filtro No BD! Apareça no Edit Somente os Valores que ela Filtrou no Banco!
Tem como solucionar isso!
procedure TForm13.FormShow(Sender: TObject);
var
somar:Currency;
begin
Label3.Caption:= inttostr(Form13.IBTable1.RecordCount);
Inherited;
Somar:=0;
With Ibtable1 do
begin
Ibtable1.DisableControls;
Ibtable1.First;
while not Ibtable1.eof do
begin
Somar:=(Somar + Ibtable1.FieldByName('Valor').AsCurrency);
Ibtable1.Next;
end;
Ibtable1.EnableControls;
Edit2.Text:=FormatFloat('#,#R$#0.00' ,Somar);
Código que estou usando e está somando tudo e esse!!!!
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.