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

Kata-kata Bijak

“Saya memiliki tiga harta. Jaga dan peliharalah: cinta yang dalam, kesederhanaan, ketidakberanian memenangkan dunia. Dengan cinta yang dalam, seseorang akan jadi pemberani. Dengan kesederhanaan, seseorang akan menjadi dermawan. Dengan ketidakberanian memenangkan dunia, seseorang akan menjadi pemimpin dunia” (Lao-tzu, Filsuf China)

“Anda harus melakukan sesuatu yang Anda pikir tak akan bisa Anda lakukan” (Eleanor Roosevelt, mantan Ibu Negara AS)

“Keyakinan merupakan suatu pengetahuan di dalam hati, jauh tak terjangkau oleh bukti” (Kahlil Gibran, Pujangga)

“Orang yang terlalu sibuk sangat jarang bisa mengubah pendapatnya” (Friedrich Nitezche (1844-1900), filsuf Jerman)

“Rasa bahagia dan tak bahagia bukan berasal dari apa yang Anda miliki, bukan pula berasal dari siapa diri Anda, atau apa yang Anda kerjakan. Bahagia dan tak bahagia berasal dari pikiran Anda” Dale Carnegie (1888–1955), Pakar Motivasi-Penulis AS

“Sakit dalam perjuangan itu hanya sementara. Bisa jadi Anda rasakan dalam semenit, sejam, sehari, atau setahun. Namun jika menyerah, rasa sakit itu akan terasa selamanya”
(Lance Armstrong, Mantan Atlet Balap Sepeda AS)

“Suatu pekerjaan yang paling tak kunjung bisa diselesaikan adalah pekerjaan yang tak kunjung pernah dimulai” (JRR Tolkien, penulis Novel The Lord of the Rings)

Sedikit orang kaya yang memiliki harta. Kebanyakan harta yang memiliki mereka –Robert G. Ingersoll

Hidup manusia penuh dengan bahaya, tetapi justru di situlah letak daya tariknya –Edgar Alnsel Mowrer

Orang termiskin yang aku ketahui adalah orang yang tidak mempunyai apa-apa kecuali uang. John D.Rockefeller

Realitas selalu lebih konservatif daripada ideologi — Raymond Aron

Banyak kegagalan dalam hidup ini dikarenakan orang-orang tidak menyadari betapa dekatnya mereka dengan keberhasilan saat mereka menyerah. – Thomas Alva Edison

Jadilah diri anda sendiri. Siapa lagi yang bisa melakukannya lebih baik ketimbang diri anda sendiri? – Frank Giblin, Ii

Kebanggaan kita yang terbesar adalah bukan tidak pernah gagal, tetapi bangkit kembali setiap kali kita jatuh. – Confusius

Kesempatan anda untuk sukses di setiap kondisi selalu dapat diukur oleh seberapa besar kepercayaan anda pada diri sendiri. – Robert Collier

Contoh IF THEN GOTO di Pascal

USES WINCRT;
LABEL 1;
VAR
   NAMA,Y,I,P,K:STRING;
   V,S,T:REAL;
BEGIN

CLRSCR;
 WRITELN('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');
 WRITELN('            PEMROGRAMAN KECEPATAN           ');
 WRITELN(' SILAHKAN MASUKAN NAMA PENGGUNA ::::');READLN(NAMA);
 1:
 CLRSCR;
 WRITELN(' SELAMAT DATANG "',NAMA,'" DI PROGRAM KECEPATAN');
 WRITELN('');WRITELN(' SILAHKAN PILIH MENU YANG ANDA INGINKAN ');
 WRITELN('');WRITELN(' A. PENJELASAN');
 WRITELN('');WRITELN(' B. PEHITUNGAN KECEPATAN');
 WRITELN('');WRITELN(' C. KENDARAAN');
 WRITELN('');WRITELN(' D. KESIMPILAN & SARAN');
 WRITELN('');WRITE(' MASUKAN PILIHAN ANDA A/B/C ATAU D :::: ');READLN(P);CLRSCR;
 IF P='A' THEN
 BEGIN
 WRITELN('');WRITELN(' PENJELASAN');
 WRITELN('');WRITELN(' KECEPATAN ADALAH ILMU LANJUTAN DARI GERAK DIMANA');
 WRITELN('');WRITELN(' KECEPATAN DIDEFINISIKAN SEBAGAI PERPINDAHAN SUATU OBJECT DARI');
 WRITELN('');WRITELN(' TEMPAT SATU KE TEMPAT YANG LAIN DENGAN WAKTU DAN JARAK YANG BERBEDA');
 WRITELN('');WRITELN('UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);
 IF I='B' THEN GOTO 1;CLRSCR;
 END;
 IF P='B' THEN
 BEGIN
 WRITELN('');WRITELN (' KECEPATAN TERDIRI DARI ELEMEN-ELEMEN DIANTARANYA ADALAH ');
 WRITELN('');WRITELN (' V ADALAHA KECEPATAN MENGGUNAKAN SATUAN KM/JAM');
 WRITELN('');WRITELN (' S ADALAH JARAK MENGGUNAKAN SATUAN KM');
 WRITELN('');WRITELN(' T ADALAH WAKTU MENGGUNAKAN SATUAN JAM');
 WRITELN('');WRITE(' APAKAH ANDA SUDAH SIAP UNTUK MENGHITUNG TEKAN ENTER APABILA SUDAH'); READLN;
 CLRSCR;
 WRITELN('');WRITELN('');WRITE(' MASUKAN JARAK YANG ',NAMA,' TEMPUH :::(KM)  ');READLN(S);
 WRITELN('');WRITELN('');WRITE(' MASUKAN WAKTU YANG ',NAMA,' TEMPUH :::(JAM) ');READLN(T);
 WRITELN('');
 V:=S/T;
 WRITELN(' KECEPATAN RATA-RATA ',NAMA,' ADALAH ::: ',V:3:2,' KM/JAM');
 IF V <= 80 THEN
 WRITELN (' ANDA MENGENDARAI DENGAN KECEPATAN YANG AMAN ');
 IF V >= 80 THEN
 WRITELN (' ANDA MENGENDARAI TERLALU KENCANG, KURANGI KECEPATAN ANDA');
 WRITELN('');
 WRITELN(' UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);
 IF I='B' THEN GOTO 1;CLRSCR;
 END;
 IF P='C' THEN
 BEGIN
  WRITELN('');WRITELN(NAMA,' PILIH KENDARAAN ');
  WRITELN('');WRITELN(' PILIH JENIS KENDARAAN ');
  WRITELN('');WRITELN(' A. MOTOR');
  WRITELN('');WRITELN(' B. MOBIL');
  WRITELN('');WRITE('MASUKAN PILIHAN ',NAMA,' A/B ');READLN(K);
  IF K='A' THEN
  BEGIN
  CLRSCR;
  WRITELN(NAMA,' MEMILIH MOTOR');
  WRITELN('');WRITELN(' MOTOR ADA 2 JENIS YA ITU MESIN 4T DAN 2T DIMANA');
  WRITELN('');WRITELN(' 4T ADALAH MESIN TANPA BAHAN BAKAR TAMBAHAN ');
  WRITELN('');WRITELN(' 2T ADALAH MESIN MENGGUNAKAN BAHAN TAMBAHAN SEPERTI OI SAMPING');
  WRITELN('');WRITELN(' MOTOR 4T APABILA DALAM PERJALANAN MAKIN PANAS TEMPARATUR MESIN MAKA');
  WRITELN('');WRITELN(' KECEPATAN MESIN MAKIN BERTAMBAH KENCANG SEDANGKAN 2T TIDAK TAHAN');
  WRITELN('');WRITELN(' TERHADAP TEMPERATUR TINGGI PERAWATAN PADA 4T LEBIH MUARH DAN MUDAH');
  WRITELN('');WRITELN(' DIDAPAT DIBANDING 2T');
  WRITELN(' UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);
 IF I='B' THEN GOTO 1;CLRSCR;
  END;
  IF K='B' THEN
  BEGIN
  CLRSCR;
  WRITELN(NAMA,' MEMILIH MOBIL');
  WRITELN('');WRITELN(' MOBIL ADALAH JENIS KENDARAAN BERKECEPATAN TINGGI');
  WRITELN('');WRITELN(' KARENA CC-NYA LEBIH BESAR DARI PADA SEPEDA MOTOR');
  WRITELN('');WRITELN(' SEHINNGA PENNGUNAAN HARUS LEBIH HATI-HATI');
  WRITELN(' UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);
  WRITELN(' UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);
 IF I='B' THEN GOTO 1;CLRSCR;
 IF I='B' THEN GOTO 1;CLRSCR;
  END;
  END;
  IF P='D' THEN
  BEGIN
  WRITELN('');WRITELN(' SARAN DAN KESIMPULAN');
  WRITELN('');WRITELN(' DALAM BERKENDARAAN DIJALAN RAYA APABILA KITA HENDAH BERKECEPATAN RENDAH');
  WRITELN('');WRITELN(' DIBAWAH 60 KM/JAM SEBAIKNYA KITA MEGGUNAKAN JALUR SEBELAH KIRI DAN JA-');
  WRITELN('');WRITELN(' LUR SEBELAH KANAN APABILA KECEPATAN DIATAS 60 KM/JAM KEATAS UNTUK ME-');
  WRITELN('');WRITELN(' NGETAHUI KECEPATAN BERKENDARAAN YANG BAIK ANDA BISA MENGGUNAKAN PROGRAM');
  WRITELN('');WRITELN(' INI DENGAN MASUK KE PERHITUNGAN KECEPATAN DIJAMIN ANDA SELAMAT SAMPAI ');
  WRITELN('');WRITELN('  TUJUAN DAN KELUARGA TERCINTA ANDA');
  WRITELN(' MENUNGGU ANDA ');
  WRITELN ('SELAMAT MENCOBA ');
  WRITELN('');WRITELN(' UNTUK KEMBALI TEKAN B LALU ENTER ');READLN(I);

 IF I='B' THEN GOTO 1;CLRSCR;
  END;
 END.