Report memakai Radio Button di Delphi 7.0

Langkah-langkahnya adalah :

1. Buatlah Form seperti 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('datanya tidak 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('datanya tidak 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;

SELAMAT MENCOBA

>>>>>YULIE<<<<<<<