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 

formulas matematicas [ Resolvido ]

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


Registrado: Quarta-Feira, 16 de Fevereiro de 2011
Mensagens: 50

MensagemEnviada: Qua Fev 16, 2011 11:36 am    Assunto: formulas matematicas [ Resolvido ] Responder com Citação

Olá, sou iniciante em delphi, e estou com a seguinte dúvida. Tenho um form que tem os seguintes campos:
Saldo anterior
Entrada
Saída
Saldo

Nestes campos, o usuário digitara o saldo anterior, a entrada e a saída
quando pressionado um botão o campo saldo é preenchido automaticamente.

formula: saldo= (entrada + saldo anterior) - saida

Queria saber como fazer a programação no botão. Very Happy


Editado pela última vez por rodrigob em Qua Fev 16, 2011 4:41 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
alexbandeira
Mestre
Mestre


Registrado: Terça-Feira, 27 de Julho de 2004
Mensagens: 812
Localização: Paulista - PE

MensagemEnviada: Qua Fev 16, 2011 12:03 pm    Assunto: Responder com Citação

Cara tenta assim:

EdtSaldo.Text:=FormatCurr('R$ #,##0.00',(StrToCurr(edtEntrada.Text)+
StrToCurr(edtsaldoAnterior.Text))-
StrToCurr(edtsaida.Text));

Mas vou te dar uma dica, busca automaticamente o saldo anterior da tabela, desta forma o usuário ñ precisa nem digitar nem procurar se ele não souber decorado. Vai facilitar a vida do usuário.

Espero tyer ajudado.
_________________
Conhecemos um grande homem pelas pequenas atitudes.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
rodrigob
Novato
Novato


Registrado: Quarta-Feira, 16 de Fevereiro de 2011
Mensagens: 50

MensagemEnviada: Qua Fev 16, 2011 1:55 pm    Assunto: Responder com Citação

alexbandeira escreveu:
Cara tenta assim:

EdtSaldo.Text:=FormatCurr('R$ #,##0.00',(StrToCurr(edtEntrada.Text)+
StrToCurr(edtsaldoAnterior.Text))-
StrToCurr(edtsaida.Text));

Mas vou te dar uma dica, busca automaticamente o saldo anterior da tabela, desta forma o usuário ñ precisa nem digitar nem procurar se ele não souber decorado. Vai facilitar a vida do usuário.

Espero tyer ajudado.



Muito Obrigado pela ajuda, funcionou perfeitamente, é uma ótima idéia sua buscar o saldo anterior automaticamente, mas como poderia fazer isso. Desculpe pela ignorância, é que estou iniciando na programação!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
alexbandeira
Mestre
Mestre


Registrado: Terça-Feira, 27 de Julho de 2004
Mensagens: 812
Localização: Paulista - PE

MensagemEnviada: Qua Fev 16, 2011 3:46 pm    Assunto: Responder com Citação

Tudo bem,

Suponho q estejas armazenando isso em uma tbl, não? Se não é bom pençar nisto.

Com o vl armazenado é só busca-lo no referido campo da tbl.

edtsaldoAnterior.Text:=dm.tblCampoSaldoAnterior.Value;
ou
edtsaldoAnterior.Text:=FormatCurr('#00.00',dm.tblCampoSaldoAnterior.Value);

Não se esqueça de editar o titulo p/ "titulo + [Resolvido]", hem!
_________________
Conhecemos um grande homem pelas pequenas atitudes.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
rodrigob
Novato
Novato


Registrado: Quarta-Feira, 16 de Fevereiro de 2011
Mensagens: 50

MensagemEnviada: Qui Fev 17, 2011 8:50 am    Assunto: Responder com Citação

alexbandeira escreveu:
Tudo bem,

Suponho q estejas armazenando isso em uma tbl, não? Se não é bom pençar nisto.

Com o vl armazenado é só busca-lo no referido campo da tbl.

edtsaldoAnterior.Text:=dm.tblCampoSaldoAnterior.Value;
ou
edtsaldoAnterior.Text:=FormatCurr('#00.00',dm.tblCampoSaldoAnterior.Value);

Não se esqueça de editar o titulo p/ "titulo + [Resolvido]", hem!


Cara não deu muito certo, coloquei no evento Change do edit:
edt_Anterior.Text:=dm.produtos.Value;

só que na hora de compilar da o seguinte erro:
Undeclared identifier: 'value'
----------------------------

Minha intenção é cadastrar produtos, cada produto se difere por um tipo (perecivel, não perecivel e bebidas) validade do produto, marca, gênero ( arroz, feijão etc.), mês de referencia.

Ex. Quando cadastrar um determinado produto de gênero ex. Lentilha no mês de referencia fevereiro,automaticamente o sistema ira buscar no banco a lentilha de mesma marca do mês de janeiro e jogar para o campo saldo atual o saldo de lentilhas do mês de Janeiro.
Será que é possível tal operação?
Estou usando o access conectado pelo objeto ADOCONNECTION
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
NinjaGamePlayer
Membro Junior
Membro Junior


Registrado: Sexta-Feira, 30 de Janeiro de 2009
Mensagens: 352

MensagemEnviada: Qui Fev 17, 2011 9:54 pm    Assunto: Responder com Citação

Parece que a propriedade Value não existe no dm.produtos:
edt_Anterior.Text:=dm.produtos.Value;

Verifique
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
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