Arsip: Menampilkan data currency pada ListView

 
user image
more 14 years ago

percyl

halo..salam kenal..saya pemula..mo nanya sesuatu... saya sedang berlatih menggunakan komponen ListView bagaimana menampilkan data uang ke listview supaya ditampilkan dalam bentuk currency (ada pemisah ribuaanya, misal : 10.000) lebih bagus ada "Rp."-nya..saya memakai firebird dgn tipe data integer coz di firebird gak ada tipe data currency...berikut procedure yg saya buat untuk menampilkan data dari firebird : procedure TForm1.RefreshData; begin lvMahasiswa.Items.Clear; DM.CommitTrans; with DM.qry1 do begin Close; SQL.Text := 'select * from mahasiswa order by ID'; Open; while Not Eof do begin with lvMahasiswa.Items.Add do begin Caption := fieldbyName('ID').AsString; SubItems.Add(fieldByName('NAMA').AsString); SubItems.Add(fieldByName('ALAMAT').AsString); SubItems.Add(fieldbyname('TGLLAHIR').AsString); SubItems.Add(fieldByName('TINGGIBADAN').AsString); SubItems.Add(fieldByName('GAJI').AsString); end; Next; end; end; program berhasil di eksekusi..tetapi data pada tabel GAJI tetap , misal 10000 (bukan seperti yg saya inginkan yaitu 10.000)...mohon bantuannya...terimakasih sebelumnya
user image
more 14 years ago

n3o_cybertech


SubItems.Add(FormatFloat(',#',fieldByName('GAJI').AsInteger));
user image
more 14 years ago

saysansay

Om @percyl Coba Gunakan FormatCurr

procedure TForm1.RefreshData;
begin
  lvMahasiswa.Items.Clear;
  DM.CommitTrans;
  with DM.qry1 do
  begin
     Close;
     SQL.Text := 'select * from mahasiswa order by ID';
     Open;
     while Not Eof do
     begin
     with lvMahasiswa.Items.Add do
     begin
	Caption := fieldbyName('ID').AsString;
	SubItems.Add(fieldByName('NAMA').AsString);
	SubItems.Add(fieldByName('ALAMAT').AsString);
	SubItems.Add(fieldbyname('TGLLAHIR').AsString);
	SubItems.Add(fieldByName('TINGGIBADAN').AsString);
SubItems.Add(FormatCurr('#,##0;-#,##0',fieldByName('GAJI').AsString);
    end;
  Next;
end;
end;
end;	
Note FormatCurr Disesuaikan dengan kebutuhan ok
user image
more 14 years ago

mas_kofa

bisa juga pake ini

SubItems.Add(Format('Rp. %.0n', );
user image
more 14 years ago

n3o_cybertech

dah tuh mantabz ada 3 pilihan yg berbeda2 tinggal mo pke yg mana :mrgreen:
user image
more 14 years ago

percyl

wah..terimakasih buat mas...mas..sungguh membantu sekali... tapi kira2 sama gak ya kalo pake komponen AdvStringGrid milik TMS ? sekali lagi terimakasih...
user image
more 14 years ago

mas_kofa

beda....stringgrid lebih gampang tinggal sebutin cells aja...........
user image
more 14 years ago

percyl

makasih mas kofa...ntar ak coba dulu...tp ntar kalo dah mentok aku sharing ke sini kode programnya...
user image
more 14 years ago

n3o_cybertech

@percyl: makasih mas kofa...ntar ak coba dulu...tp ntar kalo dah mentok aku sharing ke sini kode programnya...
mantabz... :wink:
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com