REPORT Per tanggal di Delphi 7.0

Langkah-langkahnya adalah :

1. Buatlah Form serperti di atas

2.Koneksikan ke dalam database dan isi adoquery

3. Membuat laporan dengan menggunakan Rave

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;

@YULIE

Selamat Mencoba….