ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Duvida sobre mostrar resultado no DBEdit

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
julianobernardo
Novato
Novato


Registrado: Terça-Feira, 5 de Novembro de 2013
Mensagens: 6

MensagemEnviada: Qui Dez 19, 2013 2:24 pm    Assunto: Duvida sobre mostrar resultado no DBEdit Responder com Citação

Boa tarde pessoal, estou desenvolvendo um sistema de loja simples, mas, nao estou conseguindo jogar o resultado da venda no dbedit. Alguém poderia me dar um help?

Código
var
quantidade,valor:real
total:currency;
begin
quantidade :=strtofloat(DBEdit6.Text);
valor :=strtofloat(DBEdit7.Text);
total :=strtofloat(DBEdit1.Text);
total :=(quantidade*valor);

------------------------------------------------------------------------------

Agr não sei jogar esse calculo no DBEdit1.Text.

Fico no aguardo
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
faccruz
Colaborador
Colaborador


Registrado: Terça-Feira, 20 de Julho de 2010
Mensagens: 1563

MensagemEnviada: Qui Dez 19, 2013 2:25 pm    Assunto: Re: Duvida sobre mostrar resultado no DBEdit Responder com Citação

julianobernardo escreveu:
Boa tarde pessoal, estou desenvolvendo um sistema de loja simples, mas, nao estou conseguindo jogar o resultado da venda no dbedit. Alguém poderia me dar um help?

Código
var
quantidade,valor:real
total:currency;
begin
quantidade :=strtofloat(DBEdit6.Text);
valor :=strtofloat(DBEdit7.Text);
total :=strtofloat(DBEdit1.Text);
total :=(quantidade*valor);

------------------------------------------------------------------------------

Agr não sei jogar esse calculo no DBEdit1.Text.

Fico no aguardo



Alguma mensagem de erro?


Código:
DBEdit1.Text := FloatToStr(Total);

_________________
Facc System - Sistemas para Computador
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
marcosbaixista
Profissional
Profissional


Registrado: Quinta-Feira, 18 de Março de 2010
Mensagens: 594
Localização: Maringá/PR

MensagemEnviada: Qui Dez 19, 2013 2:35 pm    Assunto: Responder com Citação

Atribua o valor desejado ao campo do banco de dados e não diretamente ao DBEdit.

Por exemplo:

Se o DBEdit estiver ligado ao campo "TOTAL" da query ou table por exemplo, você faria mais ou menos assim.

Código:

   Banco.Query.FieldByName('TOTAL').asCurrency:= Total;

_________________
O ser humano busca e defende aquilo que ama.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
julianobernardo
Novato
Novato


Registrado: Terça-Feira, 5 de Novembro de 2013
Mensagens: 6

MensagemEnviada: Qui Dez 19, 2013 2:35 pm    Assunto: Re: Duvida sobre mostrar resultado no DBEdit Responder com Citação

Então ele dá um erro quando eu clico em calcular o campo dá o seguinte erro EConvertError with message "is not a valid floating point value"
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
qmartins
Novato
Novato


Registrado: Quinta-Feira, 20 de Agosto de 2009
Mensagens: 53
Localização: redencao

MensagemEnviada: Qui Dez 19, 2013 3:13 pm    Assunto: Responder com Citação

Faca como o amigo marcosbaixista falow, atribua o valor direto no campo do banco de dados e nao no dbedit, esse erro deve ta acontecendo prq as variaveis estao em branco ou seja nao estao capturando o valor dos edits por isso isira os valores direto no banco que vai dar certo.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
informacaoweed
Aprendiz
Aprendiz


Registrado: Terça-Feira, 1 de Outubro de 2013
Mensagens: 268
Localização: Porto Alegre / RS

MensagemEnviada: Sex Dez 20, 2013 8:39 am    Assunto: Re: Duvida sobre mostrar resultado no DBEdit Responder com Citação

Experimente estas mudanças
julianobernardo escreveu:

begin
quantidade :=strtofloatDEF(DBEdit6.Text,0);
valor :=strtofloatDEF(DBEdit7.Text,0);
// total :=strtofloat(DBEdit1.Text); - apague esta linha, ela é desnecessária.
total :=(quantidade*valor);

//Depois disso eé só jogar do DBEdit.Text:
DBEdit1.Text := FloatToStr(total);

------------------------------------------------------------------------------

Agr não sei jogar esse calculo no DBEdit1.Text.

Fico no aguardo

_________________
Aguarde... nossa Evolução está sendo processada.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
rique_neves
Mestre
Mestre


Registrado: Sexta-Feira, 17 de Fevereiro de 2012
Mensagens: 873

MensagemEnviada: Sex Dez 20, 2013 9:31 am    Assunto: Re: Duvida sobre mostrar resultado no DBEdit Responder com Citação

tente assim

Código:
var quantidade :Integer;
   valor, total : Double;
begin
    quantidade := StrToInt(DBEdit6.Text);
    precovenda := StrToFloat(DBEdit1.Text);
    total := quantidade*valor;
   


para que o valor receba o valor formatado

Código:
DBEdit1.Text := ''+ format('%4.2n',[total]);


até a próxima
_________________
Atrás de todo problema a uma oportunidade brilhantemente disfarçada!
Compartilhar Imagens .: http://s124.photobucket.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Sex Dez 20, 2013 10:02 am    Assunto: Responder com Citação

Bom dia,

julianobernardo, também acho que seria melhor acessar todos os valores pelos Fields em vez de acessar pela propriedade Text dos DBEdits, pois dessa forma não é necessário fazer conversões para Float e depois para String de novo.
E de preferência acessar os Fields através do(s) DataSet(s). Nesse caso todo código postado seria substituido por algo semelhante ao que segue:

Código:
DataModule1.DataSet1.FieldByName('Total').AsCurrency :=
                DataModule1.DataSet1.FieldByName('Valor').AsCurrency *
                DataModule1.DataSet1.FieldByName('Quantidade').AsFloat;


mas também é possível acessar os Fields através dos DBEdits (apesar que não é muito recomendado):

Código:
DBEdit1.Field.AsCurrency := DBEdit7.Field.AsCurrency * DBEdit6.Field.AsFloat;


Espero que ajude.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
anselmo.muller
Experiente
Experiente


Registrado: Sábado, 1 de Março de 2003
Mensagens: 460
Localização: Fortaleza-CE

MensagemEnviada: Sex Dez 20, 2013 5:12 pm    Assunto: Responder com Citação

Se for so para mostrar o valor total na tela ao cliente, voce pode jogar esse valor a um edit.text sem problemas ou ate num label.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB