Membuat Laporan Pertanggal Dengan QuickReport Delphi

Seringkali Dalam Membuat Aplikasi ada Permintaan Untuk Mencetak Laporan Berdasarkan Parameter Tertentu atau Berdasarkan Tanggal Tertentu. Dan Memang Itu sangat Penting. Untuk Itu, Disini, Admin Ingin Berbagi sedikit pengetahuan tentang bagaimana melakukan pencetakan Laporan Data Pertanggal.

Study Kasus Untuk Masalah ini kita akan mencetak Data dalam Tabel Nasabah 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.

Step 1 : Desain Form Sobat Seperti dibawah ini (lebih bagus lebih baik)

Step 2 : Pastikan Sudah Tidak ada Masalah dengan koneksi ke database
Step 3 : Tambahkan Code ini pada Button Cetak

 // Bersihkan Query Lap Nasabah
 QLapNasabah.SQL.Clear;
 // Ambil Data di Tabel Nasabah Berdasarkan TanggalRegister Antara DatetimePicker1 dan DatetimePicker2
 QLapNasabah.SQL.Add('SELECT * from nasabah WHERE(((TanggalRegister) BETWEEN '''+FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date)+''' AND '''+FormatDateTime('yyyy-mm-dd',DateTimePicker2.DATE)+'''))ORDER BY Nomor asc');
 // Aktifkan Query Lap Nasabah
 QLapNasabah.Active:=True;
 // Tampilkan Laporan
 NasabahReport.Preview;

 // Bersihkan Query Lap Nasabah
 QLapNasabah.SQL.Clear;
 // Ambil Semua Data yang ada di Tabel nasabah
 QLapNasabah.SQL.Add('select * from nasabah');
 // Aktifkan Query Lap Nasabah
 QLapNasabah.Active:=True;