Menampilkan Tipe Data Currency dalam Grid dgn tanda titik / koma

Cara Menampilkan Tipe Data Currency dalam Grid dgn tanda titik / koma dalam Pemprogram Delphi,  dengan menggunakan Perintah Merubah sistem properties di data datamodul1.  Berikut Contoh code Programnya :

mengisi angka pembayaran pada DB grid dengan titik atau koma bisa dilakukan dengan 2 cara yaitu :


cara pertama :

// letakan pada data module
 ============== Begin Code ==============

function SetFieldDisplayFormat(const ADataset: TDataset; const AFieldName: string): Boolean;
  var AField: TField;
  begin
  AField:= ADataset.FindField(AFieldName);

  Result:= (AField <> nil) and (AField is TNumericField);
  if Result then
  TNumericField(AField).DisplayFormat:= '###,##0.00';
  end;
============== End Code ===============


Cara kedua :

-> buka Form Data module
-> buka Ado table yang berisi nilai uang
   contoh : total harga, harga barang , dll
-> lalu buka object treeVIew
-> klik tanda (+)
-> klik tanda (+) -> Fields -> pilih nama fieldnya
-> lihat properties
-> cari tulisan displayFormat
-> lalu isi dengan '###,##0.00
-> lalu SAVE ALL Project
-> silahkan RUn project
-> Perhatikan pada DBGRID Format telah berubah menjadi Format Uang.
   Contoh : 1.000.000,00

 

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^