Tutorial VB6 : Membuat Fitur Pencarian dengan menggunakan Event Keypress
Hai Sobat Sourcecode program…. bertemu kembali di blog yang sederhana ini…kali ini saya akan berbagi cara mengenai menjalankan pencarian data dengan cara On Keypress.
Logikanya begini, Dikala kita tekan tombol Enter di Textbox, Seandainya datanya ketemu, tampilkan data – datanya di textbox berikutnya dan munculkan message bahwa barang dengan kode tersebut telah ada, Proses Input datapun di hentikan. Seandainya datanya tak ada, akan dilanjutkan proses input data. So ? dapat dijadiin selaku validasi form di program kita. Lihat gambar berikut :
Kodingnya kira-kira begini.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Private Sub Text1_Keypress(Keyascii As Integer) call bukaDB IF keyascii = 13 then RSBarang.open "SELECT * From Barang",conn if Not RSBarang.eof then with RSBarang Text2 = RSBarang!namabrg Text3 = RSBarang!HargaBeli Text4 = RSBarang!HargaJual Text5 = RSBarang!JumlahBrg msgbox "Data Telah Ada, Coba Kode Yang lain",vbInformation,"Informasi" call bersih end with else Text2.setfocus end if End sub |
Disitu ada tertulis kata “Call Bersih” keguaan dari call bersih itu ialah bagi menghapus data yang terdapat di textboxt.
Jadi, Buatlah sub baru, yakni sub bersih. codingnya kira kira seperti ini.
|
1 2 3 4 5 6 7 8 |
Private sub bersih() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" text1.setfocus End sub |
Lumayan demikian share panduan kali ini, yaitu mengenai Membangun Fitur Pencarian dengan menggunakan Event Keypress di VB6, semoga bermanfaat.
