Membuat Form Cari Data Pada Visual Foxpro

Membuat Form Cari Data Pada Visual Foxpro

 Membuat form cari data pada visual voxpro  sangatlah penting,karena jika terdapat ribuan data maka kita dapat menemukan data tersebut dengan mudah!

Contoh form cari data seperti gambar berikut:

Cara Membuatnya,ikuti langkahnya sebgai berukut:

*Yang pertama

Buatlah 3 Label kemudian ubahlah pada bagian captionnya

Label 1  =CARI DATA

Label2   =NUMBER SEND/Nomor kirim

Label3   =NAME SENDER/Nama pengirim

*Yang kedua

Buatlah dua textboxt

*Yang ketiga

Buatlah Dbgrid,untuk memasukkan database anda.

*Yang keempat

Buatlah Command dan ganti captionnya menjadi EXIT.

*Yang kelima

Kemudian masukkan listingnya di textbox1 dengan cara klik dua kali textbox1nya,kamudian procedure-Nya di LostFocus dan pastekan listing di bawah ini:

set exac off

set order to tag No_kirim

seek alltrim(thisform.Text1.value)

thisform.grid1.setfocus

Kemudian caranya sama seperti textboxt 1 dan procedurenya sama di LostFocus dan pastekan kode di bawah ini.:

set exac off

set order to tag Nm_pgrm

seek alltrim(thisform.TNAMA.value)

thisform.grid1.setfocus

A.Fungsi textbox satu jika kita menulis nomornya maka datanya akan muncul

B.Dan fungsi textboxt2 jika kita menulis namanya maka datanya akan muncul

*Yang keenam (terakhir)

Pastekan listing di bawah ini untux tombol exit/command1:

TOMBOL=4

PESAN=MESSAGEBOX ("ARE YOU SURE,WANT TO EXIT?",TOMBOL,"PESAN")

IF PESAN!=7

THISFORM.RELEASE

ENDIF

Selamat mencoba J