saya sedang membuat program penggajian dan saya ingin tampilan total gaji pada label caption ada tertulis Rp.###.###.

dan kemudian dapat disimpan didatabase mysql, sy sudah mencoba membuatnya tapi kemudian ketika diinsert nilai total gaji dalam database menjadi 0, ini saya sertakan listing programnya, mungkin ada yg kurang. atas bantuan para master delphi. terima kasih.

procedure TFGajiTambahPegawai.Edit18Change(Sender: TObject); var Sjml:string[30]; Tsem:Integer; gaji,t_jabatan,makan,transport,kesehatan,t_lain,komunikasi,bonus,lain_lain,potongan,Sjumlah : double; begin val(edit6.Text,gaji,Tsem); val(edit7.Text,t_jabatan,Tsem); val(edit8.Text,makan,Tsem); val(edit15.Text,transport,Tsem); val(edit9.Text,bonus,Tsem); val(edit10.Text,komunikasi,Tsem); val(edit21.Text,kesehatan,Tsem); val(edit22.Text,t_lain,Tsem); val(edit11.Text,lain_lain,Tsem); val(edit18.Text,potongan,Tsem); Sjumlah:=gaji+t_jabatan+makan+transport+kesehatan+t_lain+komunikasi+bonus+lain_lain-potongan; str(Sjumlah:30:0,Sjml); Label26.Caption:=Sjml; label26.Caption := formatCurr('Rp.##,###,###',sjumlah); end;

mas ricky. kalo nyimpan di db, pake tipe nilai sebenarnya (mysql: double, mssql: currency). masalah nampilin ke program, itu sudah ada otomatisnya. sptnya mas ricky perlu beli buku delphi.

CurrencyString := 'Rp. '; sjumlah := currency; atau klo mau pake formatCurr boleh coba label26.Caption := 'Rp. ' + FormatCurr('#,##', sjumlah); oh iya, aku anggota baru nich. Mohon bimbingannya ya ??

tuh kan pemula nich maksudnya ...... var sjumlah : currency; begin CurrencyString := 'Rp. '; .....dst :wink:

Buat apa sich Repot2x ampe kudu nyimpen Currency ke DB jadi gak Flexible kalo menurut saya ....