Pencarian Tanggal Delphi

Pencarian tanggal menggunakan Delphi…

Kita ingin mencari suatu data berdasarkan tanggal, Misalkan : saya ingin mencari penjualan Kulkas dari tanggal 1/1/2009 – 31/1/2009 (untuk membuat laporan mingguan, bulanan, tahunan juga bisa)

Komponen yang harus disiapkan:

- Edit (1)

- Button (1)

- Datetimepicker (2)

- DbGrid (1)

*Prosedur Button

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(‘ select * from nama_table where nama_fieldslike :sp and tanggal between :tgl1 and :tgl2 ‘);
ADOQuery1.Prepared;
ADOQuery1.Parameters[0].Value := ‘%’+edit1.Text+’%';
ADOQuery1.Parameters [1].Value:= datetostr (datetimepicker1.Date);
ADOQuery1.Parameters [2].Value:= datetostr (datetimepicker2.Date);
ADOQuery1.Open;
dbgrid1.DataSource:=  adoquery ;

sumber dari : http://monanglumbangaol.wordpress.com/2009/09/16/pencarian-tanggal-delphi/