Dbgrid com numeros tipo moeda.

Delphi

12/05/2005

Pessoal como faço para que minha dbgrid apareça em formato moeda um campo numeric??? ou sera que não e possivel???

Obrigado..


Japa

Japa

Curtidas 0

Respostas

Oscar Candido

Oscar Candido

12/05/2005

Amigo, pesquise aqui no forum sobre o assunto, não vai ser difícil achar!!
Espero ter ajudado!!
Um Abraço!!!
:lol:


GOSTEI 0
Rjun

Rjun

12/05/2005

Você deve estar usando uma query para exibir os campos. Então, na query exiba os campos da mesma e altere a propriedade currency para true.


GOSTEI 0
Japa

Japa

12/05/2005

Ixi amizade não vai dar.... e que uso 4 querys para minha aplicação inteira.. Deixo todas as Query no DataModule e assim vou usando elas quando necessito.. Sera que eu preciso mudar minha aplicação inteira??? :cry:


GOSTEI 0
Rjun

Rjun

12/05/2005

Onde você pos o código da query ? Nela mesmo, na propriedade SQL ou pos no meio do código ?

Se o código estiver na própria query, basta você adicionar os campos, clicando com o botão direito na query. Ai você configura os campos como você quiser.


GOSTEI 0
Japa

Japa

12/05/2005

Ixi as instruções sql faço no codigo mesmo :cry:

Sera que da para fazer com que pelo codigo mesmo faça essa transformação para moeda???

Obrigado


GOSTEI 0
Rjun

Rjun

12/05/2005

Tenta fazer isso :

Query.FieldByName(Nomedocampo).currency := true;


GOSTEI 0
Japa

Japa

12/05/2005

Ixi nem deu certo :cry:

Alguem mais pode me ajudar???

Obrigado


GOSTEI 0
Marco Salles

Marco Salles

12/05/2005

Outra opção, entre tantas outras......

Coloque o código abaixo em algum lugar

Exemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
(Query1.FieldByName(´NomeDoCampo´) as TfloatField).DisplayFormat:=´#,, ´+CurrencyString;
end;


:arrow: esta instrução altera a formatação da coluna da grade


GOSTEI 0
Japa

Japa

12/05/2005

Ixi deu esse erro aqui amizade :cry:
Invalid class typecast



GOSTEI 0
Marco Salles

Marco Salles

12/05/2005

Aonde voce colocou este código????


GOSTEI 0
Japa

Japa

12/05/2005

Bem enbaixo da consulta SQL:
with DModulePrincipal.QrAuxiliar do begin Close; SQL.Clear; SQL.Add(´select * from orcamento´); Open; end; (DModulePrincipal.QrAuxiliar.FieldByName(´orc_preco_venda´) as TFloatField).DisplayFormat:=´#,, ´+CurrencyString;


Sera que não posso fazer assim amizade???

Obrigado


GOSTEI 0
Marco Salles

Marco Salles

12/05/2005

Invalid class typecast


Qual o Banco que usa amigo???


GOSTEI 0
Japa

Japa

12/05/2005

Consegui amizade e brigadão para todos que deram a força.. :wink:

Fiz desse jeito
TNumericField(Fields[3]).DisplayFormat := ´R$ #,0.00´;


Vlws fuiizzz


GOSTEI 0
Japa

Japa

12/05/2005

Opa esqueci de falar precisa do uses DB galera... fuizzz :wink:


GOSTEI 0
Marco Salles

Marco Salles

12/05/2005

Citação japa
TNumericField(Fields[3]).DisplayFormat := ´R$ #,0.00´;


Nun seria isto japa para o seu caso Japa???

TNumericField(DModulePrincipal.QrAuxiliar.Fields[3]).DisplayFormat := ´R$ ,0.00´; 


e outra . so para tirar a minha sisma , qual o banco que voce usa???


GOSTEI 0
Japa

Japa

12/05/2005

ahh sim amizade e que ta dentro de um with..

E o banco que estou usando e interbase...


GOSTEI 0
POSTAR