Arsip: cara format Rp. dan disimpan kedalam database mysql

 
user image
more 12 years ago

ricky_seldjatem

salam para master delphi, bagaimana cara format tampilan rupiah dalam edit box menjadi Rp.###,###,###tetapi ketika disimpan didalam database menjadi#########,databse yg saya pakai mysql 5. terima kasih
user image
more 12 years ago

boediman

masalah ini sudah pernah dibahas sebelumnya. coba anda cari dulu...
user image
more 12 years ago

ricky_seldjatem

saya sudah coba buat coding seperti ini, tapi ketika diklik tombol simpan, hasil messagenya " project1.exe raised exception class eConverterror with message rp.200 (edit1=100 + edit2=100) is not valid floating point, kira2 kesalahannya dimana ya mohon bantuannya. maklum newbie terima kasih; procedure TForm1.Edit2Change(Sender: TObject); var Sjml:string[30]; Tsem:Integer; gaji,t_jabatan,Sjumlah : double; begin val(edit1.Text,gaji,Tsem); val(edit2.Text,t_jabatan,Tsem); Sjumlah:=gaji+t_jabatan; str(Sjumlah:30:0,Sjml); edit3.Text:=Sjml; sjumlah:=strtofloat(edit3.Text); edit3.Text := formatfloat('Rp.##,###,###',sjumlah); end; procedure TForm1.SimpanClick(Sender: TObject); begin ZQuery1.SQL.Clear; ZQuery1.SQL.Add('insert into coba (nilai1,nilai2,nilai3) values (:nilai1,:nilai2,:nilai3)'); ZQuery1.ParamByName('nilai1').AsFloat:=strtofloat(edit1.Text); ZQuery1.ParamByName('nilai2').AsFloat:=strtofloat(edit2.Text); ZQuery1.ParamByName('nilai3').AsFloat:=strtofloat(edit3.Text); ZQuery1.ExecSQL; end; procedure TForm1.Edit1Change(Sender: TObject); var Sjml:string[30]; Tsem:Integer; gaji,t_jabatan,Sjumlah : double; begin val(edit1.Text,gaji,Tsem); val(edit2.Text,t_jabatan,Tsem); Sjumlah:=gaji+t_jabatan; str(Sjumlah:30:0,Sjml); edit3.Text:=Sjml; sjumlah:=strtofloat(edit3.Text); edit3.Text := formatfloat('Rp.##,###,###',sjumlah); end;
user image
more 12 years ago

boediman

coba ini : http://pascal-id.org/dpr/News-article-sid-152.pas semoga membantu dan bermanfaat...
user image
more 9 years ago

siraya

misi cuma mau tanya untuk masalah diatas linknya nggak ada solusinya mungkin bisa diupdate dengan link baru thanks
user image
more 9 years ago

siraya

dah ketemu solusinya mybad sorry
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com