Arsip: Seputar displayformat pada database

Lihat aja salah satu contoh yang pernah aku buat

procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select nip,nama,tanggallhr,kodegol,gajipokok,tunjfungsi,jmlanak,'+
' round(gajipokok jmlanak 2/100)as tunjanak,(gajipokok + tunjfungsi + tunjanak)as gajibersih'+
' from pegawai');
prepared;
open;

//menampilkan tanggal dengan nama hari,tanggal,bulan,tahun,jam,menit,detik
Tdatefield(fieldbyname('tanggallhr')).DisplayFormat:='dddd-dd-MM-yyyy-hh-mm-ss';

//currency dg tanda titik dan koma dua nol dibelakang(thousand sparaton)
Tdatefield(fieldbyname('gajipokok')).DisplayFormat:='#,##0.00';

//currency dg tanda titik tanpa koma dan dua nol dibelakang
Tdatefield(fieldbyname('tunjfungsi')).DisplayFormat:='#,##0';

//currency dg tanda titik dan koma dua nol dibelakang dan dg Rp didepan
Tdatefield(fieldbyname('tunjanak')).DisplayFormat:='Rp#,##0.00';/>
//Karakter password soalnya gaji bersihnya rahasia xixixixi
Tdatefield(fieldbyname('gajibersih')).DisplayFormat:=' **';

end;
end;
end.

semoga bermanfaat,
sorry kalo kodenya buruk karna aku memakai teknik nickqin standar cording, yang merupakan teknik pengkodean warisan nenek moyang xixixixi
alias ngawur tapa aturan :) soalnya nenek moyang ku dulu blom pernah ada yang buat program.