Monday, 16 April 2018T4/16/2018 07:58:00 pm

Menampilkan Gambar pada Laporan Fast Report Delphi

Salam blogger……. Pada kesempatan kali ini saya akan memberikan sedikit tips cara menampilkan / memuat gambar pada laporan delphi dengan menggunakan komponen fast report. Gambar yang akan saya tampilkan di fast report ini di ambil dari path / lokasi tempat gambar atau picture yang dimuat . dengan kata lain kita dapat mengganti gambar yang akan kita muat di fast report sessuai dengan keinginan / gambar yang kita tentukan atau kita pilih. Dalam membangun sebuah aplikasi pada Delphi, komponen fast report sendiri digunakan untuk menampilkan laporan – laporan dari database yang bisa di cetak / ditampilkan, misalnya laporan penjualan, laporan data karyawan, laporan barang dan laporan lainnya.

Dalam sebuah laporan dari aplikasi Delphi yang menggunakan komponen fast report ada kalanya laporan tersebut harus memuat sebuah gambar/picture, baik itu gambar yang dimuat hanya sekedar logo/lambang dari suatu perusahaan ataupun gambar/picture yang merupakan bagian dari suatu data yang dibuat menjadi sebuah laporan. Nah kali ini saya akan memberikan sedikit cara untuk memuat gambar yang dapat kita tentukan berdasarkan inputan yang kita pilih. Adapun langkah – langkah pembuatanya adalah sebagai berikut :
  1. Buatlah sebuah project baru di Delphi sobat.
  2. Selanjutnya tambahkan sebuah edit text.
  3. Lalu tambahkan juga 2 buah button, ganti caption nya masing – masing menjadi browse dan preview.
  4. Tambahkan 1 buah komponen openpicturedialog1
  5. Tambahkan juga komponen image1
  6. Selanjutnya tambahkan komponen frxreport1, klik 2x lalu tambahakan picture object pada fastreport tersebut.
  7. Selanjutnya klik 2x pada button browse dan masukan source code berikut :
procedure TForm1.Button1Click(Sender: TObject);
    begin
    if OpenpictureDialog1.Execute then
    begin
    edit1.Text:= OpenpictureDialog1.FileName;
  Image1.Visible:=True;
  Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
end;
end;
       8. lalu Klik 2x pada button preview dan masukan source code berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
if not(edit1.Text <>'')  then
begin
Application.MessageBox('Foto Belum Diisi Belum Di Isi, Cek Kembali !','Peringatan',
mb_Ok + Mb_IconExclamation);
exit;
end;
TfrxPictureView(frxreport1.FindObject('Picture1')).Picture.loadfromfile(edit1.Text);
frxreport1.ShowReport();
end;
Jika sudah sekarang coba sobat jalankan program nya dengan cara menekan F9/RUN, lalu klik button browse dan pilih gambar yang akan di tampilkan , setelah itu klik button preview dan lihat hasilnya. program yang saya buat contohnya seperti pada gambar di bawah ini.
Demikian sedikit trik tentang cara memuat gambar/picture di fast report Delphi yang dapat saya bagikan kepada sobat kali ini. Semoga dapat bermanfaat dan berguna bagi sobat semua. Untuk tutorial pembelajaran tentang Delphi akan saya share pada artikel selanjutnya. Jika dan yang ditanyakan dapat mengisi kolom komentar yang sudah disediakan.
Previous
Next Post »
0 Komentar untuk "Menampilkan Gambar pada Laporan Fast Report Delphi"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar
 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status