Wednesday, 13 January 2016T1/13/2016 09:15:00 pm

MEMBUAT LAPORAN BULANAN DENGAN QUICK REPORT PADA DELPHI

Salam blogger..........pada postingan kali ini saya akan share cara membuat laporan bulanan dari database dengan menggunakan quick report pada delphi, kali ini database yang saya gunakan adalah ms. access. pada dasarnya quick report merupakan komponen yang ada pada delphi yang berfungsi untuk membuat laporan sederhana dari database, biasa nya komponen ini di instal terpisah dari delphi, jika belum menginstal quick report, sobat dapat mengunduh komponen quick report disini.

Untuk membuat laporan bulanan pada delphi pertama - tama buat sebuah project nya terlebih dahulu, selanjutnya design tampilan form nya seperti pada contoh gambar dibawah ini. 

 adapun komponen - komponen yang di perlukan adalah sebagai berikut ;
  • 2 label
  • 1 buah combobox
  • 1 buah date time picker
  • 1 buah ADOconnection
  • 1 buah adoquery
  • 1 buah datasource
  • 1 buah dbgrid
  • 1 buah quick report
jika sudah didesign selanjutnya tambahkan source kode progam di bawah ini kedalam project yang anda buat sebelumnya.

implementation
uses dateutils;

{$R *.dfm}

procedure TFlapbelum.BitBtn1Click(Sender: TObject);
var
Sintak:String;
begin
if CBFilter.ItemIndex=0 then
Begin
    Sintak:='SELECT * FROM tbbelum WHERE month(tgl1) ='+FormatDateTime('MM',DTAwal.Date)+' and year(tgl1)='+FormatDateTime('yyyy',DTawal.Date)+'';
      end
else
  Begin
    Sintak:='SELECT * FROM tbbelum WHERE year(tgl1) ='+FormatDateTime('yyyy',DTAwal.Date)+'';
    end;
adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(Sintak);
  adoquery1.Open;
  qrlabel11.Caption:=FormatDateTime('MMMM yyyy',DTAwal.Date);
  if  adoquery1.RecordCount > 0 then
qrlapbelum.Preview
  else
Application.MessageBox('Tidak Ada Data bulan ini','Info', mb_Ok + Mb_ICONINFORMATION);

end;

procedure TFlapbelum.BitBtn2Click(Sender: TObject);
begin
cbfilter.TextHint:='SILAHKAN PILIH FILTER';
close;
end;

procedure TFlapbelum.CBfilterChange(Sender: TObject);
begin
if CBFilter.ItemIndex=0 then
  Begin
  DTAwal.Format:='MMMMyyyy';
  end
else
  Begin
  DTAwal.Format:='yyyy';
  end;
  bitbtn1.Enabled:=true;
  dtawal.Enabled:=true;
end;

procedure TFlapbelum.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adoconnection1.Connected:=false;
adoquery1.Active:=false;
cbfilter.TextHint:='SILAHKAN PILIH FILTER';
end;

procedure TFlapbelum.FormCreate(Sender: TObject);
begin
adoconnection1.Connected:=true;
adoquery1.Active:=true;
bitbtn1.Enabled:=false;
dtawal.Enabled:=false;
cbfilter.TextHint:='SILAHKAN PILIH FILTER';
DTAwal.Date:=StartOfTheMonth(now);
end;

procedure TFlapbelum.FormShow(Sender: TObject);
begin
cbfilter.TextHint:='SILAHKAN PILIH FILTER';
DTAwal.Date:=StartOfTheMonth(now);
bitbtn1.Enabled:=false;
dtawal.Enabled:=false;
end;

end. 

untuk design quick report nya dapat anda liat pada contoh program yang sudah saya buat. jika di run / F9 maka hasilnya akan terlihat seperti pada gambar dibawah ini.

demikian postingan yang dapat saya share kali ini, semoga dapat bermanfaat buat sobat semua. jika ini melihat contoh program dan source code nya sobat dapat mengunduh programnya pada link dibawah ini:
note : klik skip ad / lewati untuk melanjutkan proses download
selnjutnya ekstrack file yang sudah di download tersebut ke local disk D di pc / laptop sobat.
Previous
Next Post »
4 Komentar untuk "MEMBUAT LAPORAN BULANAN DENGAN QUICK REPORT PADA DELPHI"

mau tanya bang, di dalam coding ada : crlabel1.Caption


itu crlabel 1 componen apa ya?

qrlabel itu ..komponen label bawaan quick report.

mau belajar pemograman delphi sebenarnya tapi masih butuh pengetahuan dasar tentang delphi

harus belajar kang....belajar delphi itu menyenangkan....apalagi klo sudah mahir buat aplikasi dari delphi bisa jadi usaha...

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status