Menambahkan Data Record Database
Setelah kita bisa membuat database pada clipper dan juga mengaktifkan database pada clipper, sekarang mari kita coba menambah data record database.Kurang lebih tampilannya seperti ini
Langsung saja anda ketikan kode seperti yang ada di bawah ini :
IF ! FILE("barang.DBF")
dbcreate("barang.dbf",{{"KD_brg","C",5,0},;
{"nama_brg","C",20,0},;
{"satuan","C",10,0},;
{"merk","C",15,0},;
{"harga","n",7,0},;
{"stok","N",2,0}})
use barang
index on kd_brg to barang
ENDIF
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 Sudah Ada')
loop
else
APPEN BLANK
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 'ISI Lagi [Y/T] :' get pil pict '@!' valid pil$'Y/T'
read
if pil='T'
exit
endif