Okey langsung saja, tentunya supaya nyaman di pandang dan juga tidak membingungkan, tampilan angka yang biasanya berupa field nilai uang di DbGrid tentu saja adalah pakai separator ribuan (ex: 1.000.000) akan lebih nyaman dan enak dilihat daipada (ex: 1000000).
Pada contoh kali ini saya menggunakan akan coba buat 2 cara yaitu secara Runtime danDesigntime, dan keduanya ini cuman melibatkan komponen Query saja untuk pemformatan..
Yang pertama secara runtime (saat program dijalankan), yaitu dengan cara menambahkan code dibawah ini setelah melakukan Open Query
Sebagai contoh, Code bisa ditaruh di Event Form OnActive atau OnShow
1
2
3
4
5
6
| procedure TForm1.FormActivate(Sender: TObject);beginTFloatField(ZQuery1.fieldbyname('total')).DisplayFormat := '#,#0.00;(#,#0.00);#,#0.00 ';TFloatField(ZQuery1.fieldbyname('dp')).DisplayFormat := '#,#0.00;(#,#0.00);#,#0.00 ';TFloatField(ZQuery1.fieldbyname('kurang')).DisplayFormat := '#,#0.00;(#,#0.00);#,#0.00 ';end; |
*Nb : FormatFloat = ( FORMAT POSITIF; FORMAT NEGATIF; FORMAT BILA NOL )
Perlu dicatat ini pengetahuan yang saya dapat dari Master Buyut Joko Rivai, bahwa ketiga format yang terdapat dalam code diatas menunjukan pemformatan :
- Jika Positif : 1.000.000,00
- Jika Ngeatif : (1.000.000,00)
- dan Jika Nol : 0,00
*Format negatif ada kurungnya sesuai format yang dibuat diatas, bisa juga dibuat “-#,#0.00” agar ada tanda negatifnya.
Sedangan secara designtime bisa dilakukan dengan cara menambahkan field pada Query :
double click pada komponen kemudian tambahkan field yang dibutuhkan, sorot pada filed yg dingin diformat, dan masukan masukan value : #,#0.00;(#,#0.00);#,#0.00
Maka hasilnya bisa dilihat saat design langsung, dan dua cara diatas mengahsilkan format angka seperti tampak pada gambar dibawah ini :
Semoga dapat menambah pengetahuan
0 komentar:
Posting Komentar