Tabloda Sıfırları silme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ozcank
Üye
Mesajlar: 937
Kayıt: 28 Nis 2005 05:29

Tabloda Sıfırları silme

Mesaj gönderen ozcank »

Arkadaşlar Tabloda 'STHAR_SATISK' da '0.00010000' bu şekilde görünüyor aslında '10' ben DBGrid1 aldığım zaman şu şekilde görünüyor '0,0001' bunu nasıl düzeltebilirim ? '10' olarak görmek istiyorum.

bu kodları denedim ama bir türlü olmadı

Kod: Tümünü seç

TFloatField(IskontoRap.FieldByName('sthar_satisk').EditMask:= '#####';

Kod: Tümünü seç

DBGrid1.Fields[8].EditMask:= '00.000';

Kod: Tümünü seç

TCurrencyField(DBGrid1.Columns[8].Field).EditMask := '!99999;1;_';

Kod: Tümünü seç

DBGrid1.Fields[8].EditMask := '!00/00/0000;1;_' ;

Kod: Tümünü seç

TCurrencyField(DBGrid1.Columns[8].Field).DisplayFormat := '##';
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Re: Tabloda Sıfırları silme

Mesaj gönderen mrmarman »

ozcank yazdı:Arkadaşlar Tabloda 'STHAR_SATISK' da '0.00010000' bu şekilde görünüyor aslında '10' ben DBGrid1 aldığım zaman şu şekilde görünüyor '0,0001' bunu nasıl düzeltebilirim ? '10' olarak görmek istiyorum.
- Tabloda gösterirken STHAR_SATISK değerini 100000 (100bin) ile çarpmayı denersen sonuç alırsın. SQL içerisinde sonucu etkilmez ancak daha sonra Delphi içerisinden herhangi bir hesapta kullanıyorsan gerçek değeri olan (0,0001) değil de (10) olarak değerlendirileceğinden dikkatli olmalısın.
Resim
Resim ....Resim
ozcank
Üye
Mesajlar: 937
Kayıt: 28 Nis 2005 05:29

Re: Tabloda Sıfırları silme

Mesaj gönderen ozcank »

Hocam çok teşekkür ederim şu şekilde yaptım istediğim gibi oldu.

Kod: Tümünü seç

'sum(CASE WHEN A.STHAR_SATISK =STHAR_SATISK THEN  (A.STHAR_SATISK*100000) ELSE 0 END) AS Iskonto1O, '+
'sum(CASE WHEN A.STHAR_SATISK =STHAR_SATISK THEN  (A.STHAR_BF * A.STHAR_GCMIK * A.STHAR_SATISK)/100*100000  ELSE 0 END) AS Iskonto1, '+
Cevapla