Pencarian Data
Postingan : | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 |
Kali ini kita akan mencoba membuat Pencarian data siswa pada data yang telah kita Entrykan pada form siswa. Kita langsung gan...
- Buka Aplikasi yang sebelumnya kita buat.
- Double clik pada w_siswa. lalu tambahkan komponen Create GroupBox Control dan letakkan diatas dw_2 seperti gambar dibawah ini. berinama GroupBox tersebut dengan Cari Data.
Jika sudah coba agan jalankan. masuk kemenu -> input -> siswa. agan ketikaan data yang akan dicari dengan mengisinya dengan no_pendaftaran.
Ok gan semoga bermanfaat.....
Kali ini kita akan mencoba membuat Pencarian data siswa pada data yang telah kita Entrykan pada form siswa. Kita langsung gan...
- Buka Aplikasi yang sebelumnya kita buat.
- Double clik pada w_siswa. lalu tambahkan komponen Create GroupBox Control dan letakkan diatas dw_2 seperti gambar dibawah ini. berinama GroupBox tersebut dengan Cari Data.
- Tambahkan pula komponen Create SingleLineEdit Control dan letakkan dalam GroupBox yang tadi kita buat.
- Tambahkan pula komponen Create PictureButton Control dan letakkan didalam GroupBox
- Atur tampilan seperti gambar dibawah ini. Untuk mencari gambar pada PictureButton, agan bisa mencarinya pada Properties PictureName.
Tahap selanjutnya adalah pemberian sintak pada PicutrButton. Apabila kita mengklik SingleLineEdit, maka nama pada propertiesnya adalah Sle_1. maka sintaknya adalah sebagai berikut :
dw_2.retrieve()
dw_1.retrieve(sle_1.text)
if dw_1.getrow() = 0 then
messagebox("Pesan","Data tidak ada",information!)
dw_1.retrieve(gs_siswa)
else
gs_siswa=dw_1.getitemstring(dw_1.getrow(),"no_pendaftaran")
long ll_i
dw_2.retrieve(gs_siswa)
ll_i=dw_2.find("no_pendaftaran='"+gs_siswa+"'",1,dw_2.rowcount())
if ll_i>0 then
dw_2.scrolltorow(ll_i)
dw_2.selectrow(ll_i,true)
end if
if dw_1.getrow() = 0 then
messagebox("Pesan","Data tidak ada",information!)
end if
end if
Silahkan agan coba dengan mencari data yang belum terdaftar dan klik cari. maka akan muncul pesasn bahwa data yang dicari tidak ada....
Ok gan semoga bermanfaat.....
salam sukses....
0 comments:
Post a Comment