Kaskus

Tech

noooeeeeAvatar border
TS
noooeeee
Help,, Butuh Pencerahan Program Delphi..
Assalamualaikum..langusung ajah yah gan..
gini saya kan buat program di delphi menggunakan zeos,, emm ini lagi buat mesin pencarinya,, ada dbgird sama edit text nya, ceritanya,, kalo judul buku di ketikkan maka akan muncul data di edit dan db gridnya itu terpilih,,
scriptnya itu kayak gini yang aku buat.. :


procedure Tfrm_databuku.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
ZQuery2.SQL.Clear;
ZQuery2.Connection:=ZConnection1;
ZQuery2.Close;
ZQuery2.SQL.Text:='SELECT * FROM tb_barang where judul LIKE "'%+Edit1.Text%+'"';

Edit2.Text:= ZQuery2.FieldValues['kd_buku'];
Edit3.Text:= ZQuery2.FieldValues['judul'];
Edit4.Text:= ZQuery2.FieldValues['pengarang'];
Edit5.Text:= ZQuery2.FieldValues['penerbit'];
Edit6.Text:= ZQuery2.FieldValues['kategori'];
Edit7.Text:= ZQuery2.FieldValues['stok'];
Edit8.Text:= ZQuery2.FieldValues['tahun'];
Edit9.Text:= ZQuery2.FieldValues['hargabeli'];
Edit10.Text:= ZQuery2.FieldValues['hargajual'];
ZQuery2.Open;
end;

end;

tapi katanya itu pas di run kd_buku field not found,,, tolong pencerahannya yang mastah mastah sekalian.. emoticon-Wink thanks before
0
710
3
GuestAvatar border
Komentar yang asik ya
Urutan
Terbaru
Terlama
GuestAvatar border
Komentar yang asik ya
Komunitas Pilihan