Validasi data dengan Foxpro, Membuat program Validasi kodebrg

Pada postingan kemarin kita baru sampai pada program Foxprox , yaitu sampai membuka programnya lewat dos, sekarang kita tinggal membuat program Validasi kodebrg.

Silahkan sobat berikan perintahnya berikut ini :

Set defa to c:\
Use kodebrg
Inde on kodebrg to kodebrg
Modi comm Valkdbrg

Keterangan
Set defa to c:\ = Membuat masuk kedalam drive C
Use kodebrg = membuka file database kode barang
Inde on kodebrg to kodebrg = membuat file index kode barang , dan mengurutkan kode barang dan diberikan nama index yaitu kodebrg
Modi comm Valkdbrg = Membuat file program Validasi kdbrg.

Setelah kita berikan perintah tersebut maka akan tampil , tampilan programnya yang harus kita isi, seperti gambar berikut ini :


Pada kolom Valkdbrg.prg seperti pada gambar diatas, akan kita isi dengan perintah – perintah berikut ini.:

set talk off
set status off
set date ital
set cent on
set safe off
set exclu off
set dele on
set colo to w+/n
clea
sele A
use penjualan
sele B
USE barang inde kdbrg
store 0 to n,s,o,L
set colo to r+*
@ 3,60 say 'Sedang Validasi '
brs=11
col=9
SELE A
do while .NOT. EOF()
sele A
set colo to gr+/n,gr+/n
cari=kdbrg
sele B
seek cari
s=s+1
@ 09,20 say ' Data yg di cari : '+str(s,6,0)
if found()
o=o+1
@ 10,20 say ' Data yg ketemu : '+str(o,6,0)
sele A
REPL harga WITH B->harga
UNLOCK
else
L=L+1
@ 11,20 say ' Data di Gagal : '+str(L,6,0)
endif
sele a
skip
endd
set colo to bg+
@ 20,20 say ' Validasi Selesai......!!!'
set colo to w+*
@ 21,20 say ' Press any key .....please !'
read
close all
set colo to
set status on
set talk on
return

Penjelasan singkat mengenai program diatas.
Sele A masuk kepada database penjualan , sedangkan sele B masuk kepada database barang. program akan mencari kode barang yang sama antara kode barang yang ada di dalam database barang dengan penjualan , jika ditemukan , maka program akan mencopy harga yang ada didalam database barang masuk kedalam database penjualan, jika kodebarang yang dicari pada data penjualan ternyata tidak ditemukan didalam database barang , maka program akan menghitung jumlah yang tidak ketemu atau tidak tervalidasi.

Setelah selesai program dibuat silahkan tekan ctrl+w untuk menyimpan data.
Kemudian setelah selesai kita buat prgramnya

Silahkan ketikan do valkdbrg lalu enter pada menu seperti contoh dibawah ini ,


Maka program akan menampilkan pencarian seperti pada gambar berikut ini.


Selamat mencoba.