Mengedit Data Record Database
Bagaimana mengubah atau mengedit record data yang sudah ditambahkan pada database? Untuk mengedit data record
database yang pernah anda masukkan lewat program menambah data, digunakan
perintah-perintah atau fungsi pencarian baik secara linier, jika database tidak
diindex, seperti LOCATE FOR, ataupun dengan pencarian secara biner, jika
database diindex, seperti SEEK, FIND atau fungsi DbSeek(). Untuk
menyimpan kembali ke database, digunakan perintah REPLACE.
Listing Program :
use barang index barang
LABEL()
pil=space(1)
DO WHILE .T.
mkd_brg=SPACE(5)
@9,34 get MKD_BRG
read
If MKD_BRG=SPAC(5)
EXIT
endif
seek (mkd_brg)
if ! found()
Alert('Perhatian Kode Barang Tersebut Tidak Ada')
loop
else
REPL KD_BRG WITH MKD_BRG
@10,34 GET NAMA_BRG
@11,34 GET SATUAN
@12,34 get MERK
@13,34 GET HARGA
@14,34 GET STOK
read
endif
@16,25 say 'Ubah Data Lagi [Y/T] :' get pil pict '@!' valid pil$'Y/T'
read
if pil='T'
exit
endif
enddo
close database
Func LABEL()
clea
set colo to w+/bg
@5,15 clea to 20,60
@5,15 to 20,60 DOUB
@7,33 say "ISI DATA BARANG"
@09,18 SAY"KODE BARANG : "
@10,18 SAY"NAMA BARANG : "
@11,18 SAY"SATUAN : "
@12,18 SAY"MERK : "
@13,18 SAY"HARGA : "
@14,18 SAY"STOK : "
return
