Selasa, 09 Oktober 2012

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<<<<<<<




Tidak ada komentar:

Poskan Komentar