Validasi textbox pada Foxpro

Posted by Devz Andrean | Posted in |

“…coba saya minta tolong kamu masukkan kode barang yang sama..,”

Apa yang terjadi ?? program yang dijalankan mengalami bug/error karena didalam tabel database-nya kode barang telah di berikan primary key, itu artinya jika kode barang tidak diberikan primary key kode barang masih bisa tersimpan dengan isi data yang sama (terjadi duplikasi data).

Untuk menghindari hal seperti itu, kita perlu memvalidasi kode barang. Validasi adalah suatu proses pengecekan, ditujukan agar data yang salah atau data yang sama tidak tersimpan kedalam tabel kita. Biasanya data yang di validasi adalah data yang bersifat unique.

Sebagai contoh buka kembali form barang yang telah dibuat. Kita akan menambahkan validasi pada kode barang agar kode barang tidak di isi dengan kode yang sudah ada.

1. Klik 2x pada textbox kode barang
2. Pada procedure pilih valid, kemudian ketikkan listing berikut :

SELECT 1
IF EMPTY(this.value)
Messagebox(“Kode barang tidak boleh kosong”,16,”Perhatian”)
Return
ELSE
SET ORDER to tag kodebrg
WITH thisform
SEEK (trim(.txtkode.value))
IF FOUND()
MESSAGEBOX("Kode barang sudah terdaftar.",48,"Informasi")
.cmdinput.caption="Input"
.kondisiawal
return
ENDIF
ENDWITH

Comments (0)

Posting Komentar