Pemrograman Visual Borland Delphi 5 0 Quick Report

Pemrograman Visual Borland Delphi 5. 0 Quick Report 10/30/2020 1

Apa itu Quick Report? Quick report adalah fasilitas pada Delphi yang digunakan untuk membuat laporan. Contoh : mencetak daftar pegawai dengan lebih cepat dan mudah… Komponen-komponen Quick Report dikelompokkkan dalam tab QReport 10/30/2020 2

Membuat Laporan Sederhana Komponen: 2 Bit. Btn 1 Table 1 Quick. Rep 3 QRBand 5 QRLabel 4 QRDBText 10/30/2020 3

Table 1 Database. Name Table. Name Active DBDEMOS Bio. Life. db True Quick. Rep Data. Set Table 1 QRBand 1 Band. Type rb. Title QRLabel 1 Caption Laporan Data biolife QRBand 2 Band. Type Color Frame-> Draw. Button, Draw. Top rb. Column. Header cl. Silver Caption Color Kategori, nama Umum, Nama Spesies, Panjang (ln) cl. Silver QRBand 3 Band. Type rb. Detail QRDBtext Data. Set Data. Field Table 1 Category, Commond_Name, S pecies_Name, Length_ln ##0. 00. 4 ta. Right. Justify QRLabel 1 -4 10/30/2020 Length_ln->mask Alignment True

Listing Program procedure TForm 1. Bit. Btn 2 Click(Sender: TObject); begin Quick. Rep 1. Preview; end; procedure TForm 1. Bit. Btn 1 Click(Sender: TObject); begin Quick. Rep 1. Print; end; 10/30/2020 5

Menampilkan Informasi System Informasi sistem berupa tanggal, jam, judul laporan, nomor halaman dapat disertakan dalam laporan. Komponen yang dipakai QRSys. Data Program diatas tambahakan bebrapa komponen - QRBand -> bandtype=Page. Footer - TQRSys. Data sebelah kiri band. -> data=qrs. Page. Number Text=halaman - TQRSys. Data sebelah kanan band Data=qrs. Page. Number Text=Halaman 10/30/2020 6

Table 1 Database. Name Table. Name Index. Field. Names Active DBDEMOS Customer. db Company True Quick. Rep Data. Set Table 1 QRBand 1 Band. Type rb. Title QRLabel 1 Caption Laporan Data biolife QRBand 2 Band. Type Color Frame-> Draw. Button, Draw. Top rb. Column. Header cl. Silver Caption Color Nama, Contact, Alamat, Kota, Telepon, Fax. cl. Silver QRGroup Expression Copy(Company, 1, 1) QRBand 3 Band. Type rb. Detail QRDBtext 1 -7 Data. Set Data. Field Table 1 7 Company, Contact, Addr 1, Addr 2, City, Phone, Fax QRLabel 6 10/30/2020 True