Pembuatan Laporan Transaksi Pertanggal dan Perperiode Menggunakan Date TimePicker

Langkah-langkahnya adalah :
1. Buatlah Form serperti disamping
2.Koneksikan ke dalam database dan isi adoquery
3. Membuat laporan dengan menggunakan Rave
Untuk nomor 1, 2 dan 3 diatas silahkan baca kembali modul berikut : <a href=”http://ahmadrizal.wordpress.com/2011/01/25/pemrograman-delphi-9-pembuatan-laporan-trasaksi-pembelian-barang-dengan-menggunakan-rave-masterdetail/”> Pembuatan Report dengan Rave </a>
4. Kembali kedalam Form Laporan di Delphi lalu Double klik pada RadioGroup untuk jenis report dan ketikkan listing berikut :

1	procedure TForm9.RadioGroup1Click(Sender: TObject);

2

begin

3	if RadioGroup1.ItemIndex = 0 then

4	Jenis :='PT'

5

else

6	Jenis :='PP';

7

end;

5. Kembali ke Form, double Klik Tombol Cetak dan ketikkan koding berikut :

01	procedure TForm9.CetakClick(Sender: TObject);

02

begin

03	if jenis='PT' then

04

begin

05	adoquery1.SQL.Clear;

06	adoquery1.SQL.add('select * from penjualan, pelanggan where penjualan.id_pembeli = pelanggan.id_pembeli and tgl_faktur = #' + formatdatetime('mm/dd/yyyy',datetimepicker1.date) + '#');

07	adoquery1.Open;

08	if not adoquery1.eof then

09

begin

10	adoquery1.Active :=true;

11	RvProject1.Execute;

12	rvproject1.ExecuteReport('Transaksi.rav');

13

end

14

else

15	Application.Messagebox('yee datanya kagak ada...','Cek Input',mb_iconstop);

16

end;

17

18	if jenis='PP' then

19

begin

20	adoquery1.SQL.Clear;

21	adoquery1.SQL.add('select * from penjualan, pelanggan where penjualan.id_pembeli = pelanggan.id_pembeli and tgl_faktur >= #' + formatdatetime('mm/dd/yyyy',datetimepicker1.date) + '# and tgl_faktur <= #' + formatdatetime('mm/dd/yyyy',datetimepicker2.date) + '#');

22	adoquery1.Open;

23	if not adoquery1.eof then

24

begin

25	adoquery1.Active :=true;

26	RvProject1.Execute;

27	rvproject1.ExecuteReport('Transaksi.rav');

28

end

29

else

30	Application.Messagebox('yee datanya kagak ada...','Cek Input',mb_iconstop);

31

end;

32	if jenis='' then

33	Application.Messagebox('maaf Pilih Dulu Jenis Laporannya...','Cek Input',mb_iconstop);

34

end;