Membuat Validasi pada Form Microsoft Visual FoxPro (Form Validation)

Artikel saya buat berdasarkan dari beberapa pertanyaan pembaca yang senada (terakhir adalah "Sila" esa@cylla.com - Wednesday, May 21, 2008 2:42 PM), bagaimana teknik untuk membuat validasi terhadap form dalam Microsoft Visual Foxpro.
Contoh kasus: User tidak akan dapat melakukan penyimpanan data apabila ada kotak input yang tidak diisi dengan ketentuan yang benar.

Untuk kasus yang seperti ini berarti kita harus mempersiapkan sebuah procedure / method yang khusus melakukan pengujian / validasi terhadap setiap object input yang telah didisain.
Contoh:
(1) buatlah dua buah objek text box untuk menyimpan data NIP (text1) dan NAMA (text2)
(2) kemudian buatlah method baru dengan nama valid_input.
(3) masukkan kode dibawah ini pada method valid_input tersebut :

LOCAL a
a=thisform.text1.Value
IF EMPTY(a)
=MESSAGEBOX("MAAF ! NIP harus diisi..!",16,"Larangan")
thisform.text1.SetFocus()
RETURN .F.
ENDIF
a=thisform.text2.Value
IF EMPTY(a)
=MESSAGEBOX("MAAF ! NAMA Harus Diisi..!",16,"Larangan")
thisform.text2.SetFocus()
RETURN .f.
ENDIF
RETURN .t.

(4) selanjutnya tambahkan objek command button / tombol untuk menyimpan data (command1)
(5) masukkan kode berikut ini untuk memanggil method valid_input pada method command1.click()


IF ! thisform.valid_input()
RETURN 0
ENDIF
* prosedur save

Maka pada saat user menekan tombol SAVE / command1 tersebut secara otomatis program akan terlebih dahulu melakukan pengujian input pada method valid_input.
apabila method valid_input mengembalikan nilai false / .f. maka secara otomatis program akan memindahkan cursor pada objek focus yang terakhir (return 0) sedangkan didalam method valid_input kita telah mengarahkan cursor terlebih dahulu pada objek tersebut (setfocus).

- Jika anda belum jelas silahkan mendownload contohnya pada Free On-Line Storage (6 gb) saya di link ini.
- Jika anda juga tertarik untuk memiliki tempat penyimpan on-line gratis di internet anda dapat membaca artikelnya pada blog saya ini juga.

gimana ? puas ? tolong komentarnya ya... thank's