Untuk memfilter data kita bisa
menggunakan beberapa komponen seperti edit, combobox, ataupun tanggal. Sehingga
data yang akan kita cari sesuai dengan yang diinginkan. Pada tutorial kali ini
saya akan membahas bagaimana mencari data di delphi berdasarkan tanggal studi
kasus transaksi barang. Berikut langkah-langkahnya :
1.
Pastikan telah membuat tabel barang di MySQl
2.
Telah Membuat Data Module, dan telah
dikoneksikan ke database
3.
Selanjutnya Desain Form Seperti Berikut
DESAIN FORM KOMPONEN YG DIBUTUHKAN Datetime Picker, Button, DBGrid, ZQuery, Dan Data Source |
4.
Selanjutnya atur Properti masing-masing komponen
seperti terlihat pada gambar diatas terutama tanggal atur formatnya supaya
menampilkan format tanggal, bulan dan tahun (dd-MMM-yyyy) edit di Properties –
Format
5.
Selanjunta Buat Coding di Tombol Cari sbb
procedure
TForm1.btcariClick(Sender: TObject);
begin
With qrtransaksi_barang do
begin
close;
sql.Clear;
sql.Add('Select * from tbarang where tgl_transaksi =
"'+FormatDateTime('YYYY-MM-DD',tgl.Date)+'"');
open;
end
end;
end.
6.
Selanjutnya Jalankan Program dan Hasilnya
Seperti berikut
Selamat Mencoba
No comments:
Post a Comment