Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
julianobernardo Novato
Registrado: Terça-Feira, 5 de Novembro de 2013 Mensagens: 6
|
Enviada: Qui Dez 19, 2013 2:24 pm Assunto: Duvida sobre mostrar resultado no DBEdit |
|
|
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 |
|
|
faccruz Colaborador
Registrado: Terça-Feira, 20 de Julho de 2010 Mensagens: 1563
|
Enviada: Qui Dez 19, 2013 2:25 pm Assunto: Re: Duvida sobre mostrar resultado no DBEdit |
|
|
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 |
|
|
marcosbaixista Profissional
Registrado: Quinta-Feira, 18 de Março de 2010 Mensagens: 594 Localização: Maringá/PR
|
Enviada: Qui Dez 19, 2013 2:35 pm Assunto: |
|
|
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 |
|
|
julianobernardo Novato
Registrado: Terça-Feira, 5 de Novembro de 2013 Mensagens: 6
|
Enviada: Qui Dez 19, 2013 2:35 pm Assunto: Re: Duvida sobre mostrar resultado no DBEdit |
|
|
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 |
|
|
qmartins Novato
Registrado: Quinta-Feira, 20 de Agosto de 2009 Mensagens: 53 Localização: redencao
|
Enviada: Qui Dez 19, 2013 3:13 pm Assunto: |
|
|
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 |
|
|
informacaoweed Aprendiz
Registrado: Terça-Feira, 1 de Outubro de 2013 Mensagens: 268 Localização: Porto Alegre / RS
|
Enviada: Sex Dez 20, 2013 8:39 am Assunto: Re: Duvida sobre mostrar resultado no DBEdit |
|
|
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 |
|
|
rique_neves Mestre
Registrado: Sexta-Feira, 17 de Fevereiro de 2012 Mensagens: 873
|
Enviada: Sex Dez 20, 2013 9:31 am Assunto: Re: Duvida sobre mostrar resultado no DBEdit |
|
|
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 |
|
|
imex Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011 Mensagens: 11666
|
Enviada: Sex Dez 20, 2013 10:02 am Assunto: |
|
|
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 |
|
|
anselmo.muller Experiente
Registrado: Sábado, 1 de Março de 2003 Mensagens: 460 Localização: Fortaleza-CE
|
Enviada: Sex Dez 20, 2013 5:12 pm Assunto: |
|
|
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 |
|
|
|