Membuat Laporan Pertanggal Dengan QuickReport pada Delphi 2010

By: QMPC Network on 02.57

Seringkali dalam membuat aplikasi ada permintaan untuk mencetak laporan berdasarkan parameter tertentu atau berdasarkan tanggal tertentu. Dan memang itu sangat penting. Untuk itu, Disini, penulis ingin berbagi sedikit pengetahuan tentang bagaimana melakukan pencetakan laporan data yang difilter berdasarkan tanggal.

Study kasus untuk masalah ini kita akan mencetak data dalam tabel Penjualan yang databasenya sudah ada didalam buku saya yang berjudul "Delphi dan Firebird Membuat Aplikasi Minimarket Client-Server: Support Barcode Scanner". Berdasarkan parameter tanggal yang dipilih dari dua buah DateTimePicker. Date Time Picker pertama merupakan tanggal awal data yang akan dicetak sedangkan Date Time Picker kedua merupakan tanggal akhir data yang akan dicetak. Intinya data yang akan di cetak antara tanggal di Date Time Picker 1 dan Date Time Picker 2.

Langkah 1 :
Desain form pembaca seperti dibawah ini (lebih bagus lebih baik) :D

Langkah 2 :

Pastikan database sudah terhubung dan sudah tidak ada masalah dengan koneksi ke database.

Langkah 3 :
Tambahkan source code berikut ini pada button cetak :

IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('SELECT * from  TB_PENJUALAN_D WHERE(((TGLJUAL) BETWEEN '''+FormatDateTime('yyyy-mm-dd',sDateEdit1.Date)+''' AND '''+FormatDateTime('yyyy-mm-dd',sDateEdit2.DATE)+'''))');
IBQuery1.Open;
QuickRep1.Preview;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select * from TB_PENJUALAN_D');
IBQuery1.Open;

Langkah 4 :
Kemudian klik run atau F9 dan hasilnya seperti berikut ini :

Langkah 5 :

Selamat mencoba :D