Thursday, 4 May 2017T5/04/2017 10:34:00 pm

Filter Data Berdasarkan Periode Tanggal di Delphi

Salam blogger……pada kesempatan kali ini saya akan share cara menampilkan data di dbgrid yang di filter dari periode tanggal tertentu di Delphi. Fungsi dari filter data ini adalah untuk memudahkan kita melakukan pencarian data pada program yang kita buat. Di Delphi filter data ini sangat di perlukan apabila kita membuat sebuah project aplikasi yang berbasis database. Dengan filter data ini dapat memudahkan kita dalam melakukan pencarian data, misalnya jika kita hanya ingin menampilkan data dari tanggal tertentu saja. Bisa di bayangkan jika dalam suatu aplikasi data yang dibuat sudah mencapai ribuan atau bahkan jutaan banyak nya, tentu saja sangat menyulitkan untuk mencari data tersebut satu persatu. Alangkah baiknya jika kita mencari data tersebut dengan filter data, sehingga dapat memudahkan kita dalam melakukan pencarian dan dapat melakukannya dengan cepat dan efisien.

Untuk membuat filter data ini, disini saya akan menggunakan fungsi query, disini saya akan mencontohkan fungsi query dari sebuah database ms. Access, untuk database lainnya sobat tinggal menyesuaikan saja karena pada dasarnya sql yang digunakan hampir sama dalam membuat filter data berdasarkan tanggal. 

Pada tutorial kali ini saya akan membuat program filter data berdasarkan dua periode tanggal dengan menggunakan Delphi XE 8, jika sobat menggunakan Delphi versi lainnya pun tidak menjadi masalah karena pada dasarnya komponen yang saya pakai sudah tersedia disemua versi Delphi. Adapun metode yang saya gunakan pada program kali ini adalah mencari data berdasarkan dua periode tanggal, jadi data yang akan kita filter berdasarkan tanggal A sampai dengan tanggal B, contohnya kita ingin mencari data yang ada pada tanggal 01/05/2017 sampai dengan tanggal 30/05/2017, maka data yang akan ditampilkan hanya tanggal yang berada pada periode tanggal 01 sd 30 di bulan tersebut saja.

Untuk mempersingkat waktu saya akan langsung saja memberikan cara pembuatan program filter data pada periode tanggal tertentu di Delphi.

Adapun langkah – langkah nya adalah sebagai berikut :

1. Buatlah sebuah folder tempat kita menyimpan project nya, disini saya mencontohkan membuat folder dengan nama “FilterTanggal” selaanjutnya simpan di Drive D:\

2. Selanjutnya buat sebuah database dari ms. Access 2003 dengan nama database “dbpenjualan”, lalu buat sebuah tabel dengan nama “tbjual” lalu isi data nya beberapa record. (Contoh seperti pada gambar dibawah ini). Lalu tempatkan database tersebut kedalam folder yang sudah kita buat sebelumnya.

3. Sekarang kita akan membuat project baru di Delphi, saya rasa untuk membuat nya sobat sudah memahaminya.

4. Selanjutnya pada form 1 atur properties nya : Caption = Laporan , Position = poDesktopCenter

5. Lalu tambahkan komponen berikut ini pada form1 tersebut :

  • Groupbox1 > align = alTop
  • Groupbox2 > align= alClient

6. Selanjutnya pada groupbox1 > caption = Filter data penjualan berdasarkan tanggal, lalu tambahkan komponen berikut didalam groupbox1 :

  • Datetimepicker1 > format = dd/mm/yyyy
  • Datetimepicker2 > format = dd/mm/yyyy
  • BitBtn1 > Caption = PREVIEW
  • BitBtn2 > Caption = CLEAR
  • Label1 > Caption = Dari Tanggal
  • Label2 > Caption = s/d

7. Selanjutnya pada Groupbox2 > Caption = Tabel data penjualan , lalu tambahkan komponen berikut didalam groupbox2 :

  • ADOconnection1 > login prompt = False, Connection String = Microsoft Jet 4.0 OLE DB Provider , lalu pilih next lalu arahkan ke path database dbpenjualan yang ada di folder yang sudah kita buat sebelumnya.
  • ADOQuery1 > Connection = ADOConnection1 , SQL = select * from tbjual
  • DataSource1 > Dataset = ADOQuery1
  • DBGrid1 > Align = alClient , Datasource = datasource1 , Readonly = true
Sampai pada tahap ini design tampilan pada form nya sudah selesai kita buat, jika langkah diatas sudah dilakukan dengan benar, maka tampilan form nya akan seperti pada gambar dibawah ini.
Untuk langkah selanjutnya kita akan tinggal menambahkan coding program untuk dapat menjalankan program nya sesuai dengan perintah filter data yang kita kehendaki.

Langkah – langkah nya adalah sebagi berikut :

1. Klik 2x pada Bitbtn1 lalu masukan coding program berikut

Query1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM tbjual WHERE TglTransaksi BETWEEN (:tgl1) AND (:tgl2) ORDER BY TglTransaksi ASC');
ADOQuery1.Parameters.ParamByName('tgl1').Value:=FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date);
ADOQuery1.Parameters.ParamByName('tgl2').Value:=FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date);
ADOQuery1.Open;
if  adoquery1.RecordCount > 0 then
adoquery1.Open
  else
  Application.MessageBox('Tidak Ada Data Penjualan di tanggal yang di filter','Info', mb_Ok + Mb_ICONINFORMATION);
end;

2. Klik 2x pada Bitbtn2 lalu masukan coding program berikut :

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
adoquery1.close;
end;

3. Selanjutnya pada form1 di object inspector plih events OnClose, lalu masukan coding program berikut:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adoconnection1.Close;
end;

Sampai disini program yang kita buat sudah selesai, sekarang sobat tinggal menjalankan program nya yaitu dengan cara menekan F9/RUN. lalu pilih tanggal yang akan di tampilkan dari tanggal 01/04/2017 sampai dengan tanggal 03/04/2017, lalu klik tombol preview. Dan lihat hasilnya. untuk program yang saya buat tampilannya ketika dijalankan dapat dilihat pada gambar dibawah ini.
Demikian artikel saya kali ini tentang cara menampilkan filter data berdasarkan dua periode tanggal di Delphi yang dapat saya share kali ini, semoga dapat bermanfaat, jika sobat ingin mencoba aplikasi yang saya buat, sobat dapat download aplikasinya pada link yang sudah saya sediakan, atau sobat juga dapat membaca artikel saya sebelumnya yang berkaitan dengan artikel ini, (baca juga: Filter data di dbgrid delphi ). terima kasih sudah berkunjung di blog saya dan selamat mencoba, untuk contoh program delphi dan tutorial lainnya akan saya muat pada artikel selanjutnya.
Previous
Next Post »
4 Komentar untuk "Filter Data Berdasarkan Periode Tanggal di Delphi"

wah mantep ini keren bang tutornya jarang di bahas tetapi sangat ciamik ketika abang membahasnya joss ijin praktek gan

minta script tulisan boleh berkomentar seperti di blogk bang uduy boleh kagak ?

silahkan dicoba kang...semoga berhasil

tulisan yang mana kang....capture aja nanti tulisan yang diminta kirim ke g+ ...saya aga gagal paham ini ....hahahahahaha

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