Pemrograman Delphi . Pembuatan Laporan Transaksi PerTanggal dan PerPeriode dengan Menggunakan Rave (Tanggal + datetimePicker)

Posted on January 27, 2011 by ahmadrizal

Langkah-langkahnya adalah :

1. Buatlah Form serperti di atas

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=”https://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 :


procedure TForm9.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 0 then
Jenis :='PT'
else
Jenis :='PP';
end;

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


procedure TForm9.CetakClick(Sender: TObject);
begin
if jenis='PT' then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from penjualan, pelanggan where penjualan.id_pembeli = pelanggan.id_pembeli and tgl_faktur = #' + formatdatetime('mm/dd/yyyy',datetimepicker1.date) + '#');
adoquery1.Open;
if not adoquery1.eof then
begin
adoquery1.Active :=true;
RvProject1.Execute;
rvproject1.ExecuteReport('Transaksi.rav');
end
else
Application.Messagebox('yee datanya kagak ada...','Cek Input',mb_iconstop);
end;

if jenis='PP' then
begin
adoquery1.SQL.Clear;
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) + '#');
adoquery1.Open;
if not adoquery1.eof then
begin
adoquery1.Active :=true;
RvProject1.Execute;
rvproject1.ExecuteReport('Transaksi.rav');
end
else
Application.Messagebox('yee datanya kagak ada...','Cek Input',mb_iconstop);
end;
if jenis='' then
Application.Messagebox('maaf Pilih Dulu Jenis Laporannya...','Cek Input',mb_iconstop);
end;

Selamat Mencoba…. moga sukses

Filed under: Delphi |

17 Responses

Mukhlis, on March 8, 2011 at 12:33 pm said:

Mau nanya Pak !
Bentuk tampilan dari laporan PerTanggal dan PerPeriodenya bagaimana ya Pak ? masalahnya pada bahasan sebelumnya yang kita buat tampilan laporannya berupa faktur penjualan.

terima kasih

Reply
- ahmadrizal, on March 9, 2011 at 2:08 am said:
  
  Bentuk laporan yang dibuat tentunya berdasarkan kebutuhan dan tidak ada batasan berapa jumlah laporan yang akan dihasilkan ….
  
  contohnya:
  seorang pimpinan membutuhkan laporan tentang transaksi penjualan pada tanggal tertentu yang isinya nama pembeli, nama barang, jumlah barang, harga per barang dan jumlah harga… berarti ya kita bisa mendesain dalam bentuk tabel yang isinya didalamnya sesuai dengan permintaan…
  
  atau
  
  laporan hanya berisi nama pembeli yang belanja pada tanggal tertentu atau ingin mengetahui siapa pelanggan yang membeli paling banyak pada tanggal tertentu….
  
  Reply
hanung, on March 21, 2011 at 8:42 am said:

pak mau tanya….,
klau membuat laporan pertanggal,bulan nya menggunakan quick report apakah sama pak…?bisa di contohkan pak.

Reply
hanung, on March 28, 2011 at 3:19 am said:

pak, mhon jwabannya…dari pertnaan sya diatas. saya tunggu pak. trimas kasih.

Reply
rullah, on April 26, 2011 at 3:10 pm said:

akhirnya saya bisa menyelesaikan juga tugas saya…

makasih mas ahmad rizal tutorialnya….

luv u full…. emmmuaaaccchhhhhaahahahahahaha 😀

Reply
igor, on May 5, 2011 at 5:33 am said:

Mantap mas brooo
Ada file ngak mas….:)

Reply
yogi, on May 9, 2011 at 7:48 am said:

bagaimana caranya mencari data berdasarkan tanggal, bulan dan tahun menggunakan datetimepicker, tq atas bantuannya….

Reply
- ahmadrizal, on May 10, 2011 at 1:41 am said:
  
  maksudnya…???
  
  Reply
Horier, on June 12, 2011 at 6:10 pm said:

terima kasih pak atas semua ilmu dan tutorial delphi-nya..sangat membantu sekali buat saya karena ada tugas pembuatan aplikasi rental DVD, artikelnya sangat bagus karena dimulai dari dasar hingga report

terima kasih saya ucapkan banyak, bila saya ada keluhan soal coding mungkin gag bapak bisa bantu ^^ .. terima kasih pokoknya

Reply
- ahmadrizal, on June 13, 2011 at 2:35 am said:
  
  kembali kasih…
  kalau memang saya bisa bantu… pasti saya bantu… comment aja… masalahnya… entar kita carikan solusinya…
  
  Reply
nuri, on October 22, 2011 at 5:43 pm said:

maaf pak mau tanya saya udah coba buat laporan pertanggal nya, tapi setelah di run muncul debug : invalid use of keyword..
itu kesalahannya dimana ya??

Reply
andi, on October 25, 2011 at 6:40 am said:

thx for posting bapak,, semoga trus sukses,,

Reply
doky asde, on January 13, 2012 at 4:48 pm said:

trims tutorialnya pak, sangat membantu saya dalam pembuatan tugas laporan pertanggal.. 🙂

Reply
Guruh wiraajiputro, on January 14, 2012 at 11:26 am said:

pak knp ya saya nyoba bwt selalu
[Error] Ulaporanpendaftaran.pas(41): Undeclared identifier: ‘jenis’
itu knp?

Reply
Dwie, on June 8, 2012 at 2:33 am said:

bikin laporan perfaktur,pertanggal,perbulan&pertahun pke dbase access gmn y pak?tlong bntuan’a sangat y pak.

Reply
adhielondenk, on July 3, 2012 at 12:13 pm said:

NewBie
Mau Nanya Pak…

Gimana Sintax’y itu Pak Kalo saya Pake DateTimePicker.. terus sy mau koneksikan ke database pak… sy punya listing kaya gini pak :

AdoQuery1.FieldByName( ‘ Tanggal Lahir ‘ ).AsString:=FormatDateTime( ‘dd/mm/yyyy’,DateTimePicker1.Date );

Ketika sy run sy pilih tombol simpan muncul pesan

” Project1.exe Raised exception class EDatabaseError with Message ‘ AdoQuery1 : Dataset not in edit or insert mode’

Itu Penjelasannya Bagamana Pak… Apa yang seharusnya listing’y Pak… Makasih Sebelumnya Udh Membaca pak

Reply
Jundi Robbani, on August 21, 2013 at 2:42 pm said:

Thanks banget om… sangat membantu… saya lagi searching td bagaimana cara menampilkan data yg difilter pake tanggal soalnya sebelumnya ga muncul”…menggunakan db access… Alhamdulillah ketemu… ternyata hrs ditambah # …

Reply