MODUL DELPHI

MODUL VIII MEMBUAT LAPORAN DENGAN QUICKREPORT

MAKSUD DAN TUJUAN

Agar mahasiwa mahasiwa bisa bisa membua membuatt progra program m Delphi Delphi koneksi koneksi ke MySQL, MySQL, dan membuat laporan dengan menggunakan Quick Report.

TEORI Pada bahasa bahasa pemrog pemrogram raman an Delphi Delphi semua semua versi versi tersed tersedia ia vasil vasilita itass untuk untuk menyunting menyunting laporan. Adapun komponen komponen yang didgunakan adalah QReport. QReport. QReport QReport tertapata pada komponen pallet

Komponen yang terdapat pada group QReport, yang sering digunakan adalah : QuctRep : suatu lembaran untuk meletak semua isi yang akan dicetak QRLabel : untuk menuliskan teks (biasanya untuk judul, keterangan dan sebagainya) QRDBtext : untuk mengubungkan isi detail laporan, biasanya dihubungkan field hasih dari perintah Query. QRExpr : untuk menuliskan rumus, aatau ekspresi kond insi QRShape : untuk membuat kotak atau garis. PRAKTIK

Sebel Sebelum um mebu mebuat at lapor laporan an yang yang sebe sebena narn rnya ya,, bias biasan anya ya untu untuk k mela melakuk kukan an pencetakan dibutuh suatu Form dialog. Dialog ini tujuanya adalah agar user mudah memilih laporan mana yang akan dicetak. Langkah untuk membuat dialog seperti rancangan Form di bawah :

Komponen Form Label

BitBtn

Properi Name Name Caption Name

Set Nilai Form1 Label1 MENCETAK LAPORAN TDaftar

Database Server MySQL …………………………………………………………

36

BitBtn BitBtn

Caption Name Caption Name Caption

Daftar TGaji Gaji TClose Close

Untuk laporan gaji pegawai akan di cetak/ditampilkan pada From2, dengan rancagan sebagai brikut :

Komponen Form Zconnection

Zquery

QuickRep

QRLabel QRLabel QRLabel

Properi Name Name Database Hostname user Password Protocol Port Connected Name Connection SQL (Tstring)

Set Nilai Form2 ZConnection1 pegawai localhost amir amirk mysql 3306 True Zquery1 ZConnection1 SELECT a.no, a.nama, b.gaji, c.bagian FROM pribadi as a, kerja as b, bagian as c WHERE a.no=b.no AND b.kode_bag=c.kode_bag

True Active True RequestLive Name QuickRep1 Bands HasColumnHeader True HasDetail True HasSummary True HasTitle True DataSet ZQuery1 Name QRLabel1 Caption LAPORAN GAJI PEGAWAI Name QRLabel2 Caption NIP Name QRLabel3 Caption NAMA


37

QRLabel QRLabel QRDBText

QRDBText

QRDBText

QRExpr

QRExpr

Name Caption Name Caption Name DataSet DataField Name DataSet DataField Name DataSet DataField Name Expression

QRLabel4 BAGIAN GAJI QRLabel5 TOTAL QRDBText1 ZQuery1 no QRDBText2 ZQuery1 nama QRDBText3 ZQuery1 bagian QRExpr1

Name Expression

QRExpr2

FORMATNUMERIC('#,###,###.##', ZQuery1.gaji) FORMATNUMERIC('####,###,###', SUM(ZQuery1.gaji))

QRExp1 adalah untuk mencatak keluaran dengan menggunakan fungsi, misal untuk mencetak angka 1000000 menjadi 1,000,000. Cara memasukan rumus pada komponen QRExp1 dengan langkah-langkah sebagai berikut : Klik pada komponen QRExpr1 • Object Inspector pilih tab Property • • •

Klik Property Expression atau Maka akan tampil dialog Expression Wizard

Memilih fungsi dengan klik tombol Function 1. Pilih fungsi FORMAT NUMERIC( F,N ) 2. F : adalah bentuk keluaran format angka misal ’###.###.###’ 3. N : nilai yang akan diformta


38

• •

Klik Continue Salnjutnya nilai yang akan diformat, dalam hal ini adalah mengambil field gaji, dalam dialog Insert database field in expression pada Select dataset pilih ZQuery1 , dan Available fields pilih gaji.


39

Lakukan cara yang sama pada QRExpr2, untuk menjumlahkan gaji, yang diletakan pada Band HasSummary . Dengan rumus Expression FORMATNUMERIC('####,###,###',SUM(ZQuery1.gaji))

Program kejadian jika tombel Gaji di klik procedure TForm1.TGajiClick(Sender: TObject); begin Form2.QuickRep1.Preview; end;

Jalankan dengan F9


40

LATIHAN DAN TUGAS

1. Tambahakan dalam project ini 1 Form lagi yaitu Form3 untuk membuat laporan dafatar pegawai, dengan mengabil data pada tabel PRIBADI. 2. Dengan rancangan sebagai berikut :

Untuk agama kode 1 = Islam, 2=Kristen 3=Katholik, 4=Hindu, 5=Budha dan jenis kelamin ’L’ = Laki-Laki dan ’P’= Perempuan menggunakan QRExpr Sehingga jika dijalankan hasilnya sebagai berkut :


41


42

MODUL DELPHI

Recommend Documents