Pencarian
data sering juga disebut table look-up atau storage and retrieval information
adalah suatu proses untuk mengumpulkan sejumlah informasi di dalam pengingat
komputer dan kemudian mencari kembali informasi yang diperlukan secepat
mungkin.Untuk mencari data di Delphi langkah yang paling mudah adalah
dengan menggunakan fasilitas combobox, misal kita akan mencari data barang berdasarkan
grup jenis barang sehingga data akan terfilter sesuai dengan jenis barang. Atau
bisa saja pencaraian langsung berdasarkan nama barang. Berikut ini contoh
aplikasi pencarian data studi kasus stock barang.
Langkahnya adalah sebagai berikut:
1.
Pastikan Aplikasi dan Database sudah Terkoneksi,
Lihat Tutorial Koneksi Database di Sini
2.
Data Sudah di input ke database
3.
Design Form Pencarian Seperti Berikut
Keterangan
Tabel Barang ini outputnya adalah join dari dua tabel yaitu tabel
master barang dan tabel tipe barang
4.
Selanjutnya Buat Coding untuk Meload Tipe Barang
dan di masukan ke combobox
Komponen
|
Form
|
Event
|
On Active
|
Coding
Begin
//LOAD TIPE BARANG
DI COMBO CARI TIPE BARANG
cmb_caritipe_barang.Items.Clear;
cmb_caritipe_barang.Items.Add('ALL');
close;
sql.Clear;
SQL.Add(' select tipe from tipebarang
order by idtipe ');
open;
if not IsEmpty then
begin
First;
while not Eof do
begin
cmb_caritipe_barang.Items.Add(Fields[0].AsString);
next;
end;
cmb_caritipe_barang.ItemIndex:=0;
end;
end;
|
|
5.
Selanjutnya Buat Coding di ComboBox dengan Event
OnChange seperti berikut
Komponen ComboBox
Event On Change
Coding
Begin
// Filter data By Jenis Barang
with Fmasterbarang do
begin
with qbarang do
begin
close;
SQL.Clear;
SQL.Add('selecta.idbarang,a.namabarang,b.tipe,a.gol,a.unit,a.lot,a.kategori,a.jmlbarang,
a.hargajualrp,a.hargabelirp,a.hargajualusd,');
SQL.Add('a.hargabeliusd,a.user,a.update from tbarang a inner join tipebarang b on a.tipe=b.idtipe ');
if cmb_caritipe_barang.ItemIndex <> 0 then
sql.Add(' where b.tipe="'+tipe+'"');
Open;
end;
end;
end;
6. Kemudian Buat Coding di EditText dengan Event On Change seperti berikut
Komponen
|
EditText
|
Event
|
On Change
|
Coding
// Filter data By Nama Barang
Begin
with qbarang do
begin
close;
sql.Clear;
sql.Append('select * from tbarang
where namabarang like' +QuotedStr(edit_nama_barang.Text + '%'));
open;
end;
end;
|
|
7.
Selanjutnya Ujicoba Hasil Coding Tersebut,
hasilnya seperti berikut
Selamat Mencoba,
Selanjutnya anda tinggal Membuat Form Cetak ntuk Menampilkan Laporan, gunakan
QuickReport
Selamat Mencoba
Padepokan IT Course
IT Training Center & Solution
No comments:
Post a Comment