Memuat Form Menu Utama Di Visual Foxpro

Memuat Form Menu Utama Di Visual Foxpro

Memuat Form Menu Utama Di Visual Foxpro Sepert Gambar Dibawah Ini:

Kan form di atas memiliki 5 tombol/command yaitu

a.INPUT DATA(Masuukan data)

b.SEE(Lihat)

c.SEARCH DATA(Cari data)

d.PRINT(Cetak)

e.EXIT(Keluar)

Selanjutnya jika kita menekan tombol INPUT DATA maka tampilannya seperti gambar di bawah ini:

  Pertanyaannya,caranya gimana?

Caranya sangatlah mudah,pada tombol/command INPUT DATA klik dua kali dan copykan listing dibawah ini:

Do form form1

*Penjelasan:Mengapa listingnya Do form form1,karena do form itu adalah perintah untuk menghubungkan ke form lainnya,sedangkan Form1 adalah form yang dituju,sehinnga jika kita menekan tombol INPUT DATA maka form1lah yang akan muncul

Gampangkan, SELAMAT MENCOBA AND GOOD LUCK J

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