Wednesday, 18 January 2017T1/18/2017 11:00:00 pm

CARA MUDAH FILTER DATA DI DBGRID DATABASE PADA DELPHI

Salam blogger….pada postingan saya kali ini saya akan share cara membuat filter data dari dbgrid database pada Delphi, sudah menjadi hal umum jika filter data merupakan hal yang sangat di perlukan pada aplikasi yang berbasis database, filter data ini sangat diperlukan jika kita hanya ingin menampilkan data berdasarkan tanggal hari ini ataupun berdasarkan tanggal, bulan dan tahun tertentu saja. Permasalahan hal semacam ini akan sangat merepotkan jika data yang ada di database jumlah nya mencapai ribuan bahkan jutaan record, sehingga kita perlu melakukan filter data untuk dapat mengatasi hal tersebut.

Dalam permasalahan di atas, kita dapat menerapkan filter data dengan memanfaatkan fungsi sql query dari database yang digunakan, baik itu dari database access, mysql, postgresql, sql lite, paradox dan sebagainya. Pada artikel kali ini saya akan membuat contoh proses filter data dengan menggunakan adoquery dengan database access, jika database lain yang sobat gunakan tinggal disesuaikan saja.
Untuk penerapannya, dibawah ini saya akan bagikan contoh sql untuk melakukan filter data menggunakan adoquery. Dengan menggunakan komponen combobox dan date timepicker. Sql untuk menampilkan data berdasarkan tanggal tertentu, bulan tertentu, dan tahun tertentu :
procedure TFlapsurat.BitBtn1Click(Sender: TObject);
var
Sintak:String;
begin
if CBFilter.ItemIndex=0 then
Begin
Sintak:='SELECT * FROM tbsurat WHERE tgl1 like'+quotedstr(edit1.Text);
end
else
if CBFilter.ItemIndex=1 then
Begin
Sintak:='SELECT * FROM tbsurat WHERE month(tgl1) ='+FormatDateTime('MM',DTAwal.Date)+' and year(tgl1)='+FormatDateTime('yyyy',DTawal.Date)+''+' order by tgl1 Asc';
end
else
Begin
Sintak:='SELECT * FROM tbsurat WHERE year(tgl1)  ='+FormatDateTime('yyyy',DTAwal.Date)+''+' order by tgl1 Asc';
end;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(Sintak);
adoquery1.Open;
bitbtn3.Enabled:=true;
if  adoquery1.RecordCount > 0 then
adoquery1.Open
else
Application.MessageBox('Tidak ada data di tanggal dan bulan yang dipilih','Info', mb_Ok + Mb_ICONINFORMATION);
end;

Adapun penjelasan dari source code diatas adalah :
warna merah : sql untuk filter data yang menampilkan data dari tanggal tertentu.
warna biru : sql untuk filter data yang menampilkan data dari bulan dan tahun tertentu.
Warna hijau : sql untuk filter data yang menampilkan data dari tahun tertentu.

Demikian postingan saya kali ini yang dapat saya share tentang bagaiman cara membuat filter data di dbgrid database pada Delphi. Semoga artikel saya kali ini dapat membantu dan menambah wawasan sobat semua, semoga bermanfaat dan selamat mencoba. untuk artikel yang berkaitan dengan artikel ini sobat bisa baca (baca juga : Filter data berdasarkan periode 2 tanggal di delphi ).
Previous
Next Post »
0 Komentar untuk "CARA MUDAH FILTER DATA DI DBGRID DATABASE PADA DELPHI"

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