Fórum Atribuir Valor do Campo num SQL com Valor do CurrencyEdit #263341
24/12/2004
0
Exemplo:
DM.SQL_Vendas.CommandText := ´INSERT INTO Vendas (Numero,Valor) values (:vNumero,:vValor)´;
DM.SQL_Vendas.ParamByName(´vNumero´).AsString := StrToInt(CampoNumero.Text) ;
DM.SQL_Vendas.ParamByName(´vValor´).??????? := ????????(CurrencyEdit.Text);
Um abraço a todos
Mario
Aldus
Curtir tópico
+ 0Posts
24/12/2004
Vinicius2k
Utilize [b:e1c2b894f8]AsCurrency[/b:e1c2b894f8].
AsFloat também é válido... depende da precisão pretendida e do tipo da coluna no Banco de Dados.
Espero ter ajudado.
T+
Gostei + 0
24/12/2004
Aldus
Feliz Natal
Mario
Gostei + 0
24/12/2004
Vinicius2k
Bom ! É o melhor tipo para este caso.
Utilize AsCurrency. O tipo Currency é o mais indicado para trabalhar-se com valores monetários. Dá uma margem de erro infinitamente pequena em cálculos pois armazena apenas os 4 últimos digitos para a notação decimal.
É exatamente ele que vc precisa.
AsFloat gera uma notação decimal muito grande. Em valores monetários esta precisão é desnecessária e pode ocasionar falhas de arredondamento. É ideal se associado com colunas Float ou Double no Banco de Dados.
Muito obrigado ! Igualmente, para vc e sua família.
T+
Gostei + 0
24/12/2004
Aldus
Como transformar os campos para fazer uma operação matemática com campos do currencyedit:
Tipo: CurrencyEdit3.Text := CurrencyEdit1.Text * CurrencyEdit2.Text;
Obrigado mesmo.
Até
Gostei + 0
24/12/2004
Vinicius2k
Seu CurrencyEdit é o componente da RXLib ou JediVCL?
Se sim, leia e atribua valores à propriedade [b:71b5542dc7]Value[/b:71b5542dc7] em substituição à propriedade [b:71b5542dc7]Text[/b:71b5542dc7].
Exemplo:
CurrencyEdit3.Value := CurrencyEdit1.Value * CurrencyEdit2.Value;
Se for um outro componente vc precisará verificar se ele tem uma propriedade que armazene um valor ao invés de texto. Se ele não tiver, vc precisará fazer conversões do tipo :
CurrencyEdit3.Text := FloatToStr(StrToFloat(CurrencyEdit1.Text) * StrToFloat(CurrencyEdit2.Text));
T+
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)