Menghapus Data Record Database
Sedikit berbeda dengan program menambah data record dan juga mengedit data record, untuk membuat program menghapus data ada sua model penghapusan yaitu menghapus data dengan cara
menandai, yaitu dengan perintah DELETE dan menghilangkan data record
dari database, yaitu dengan perintah PACK.
# INCLUDE "INKEY.CH"
use barang index barang
LABEL()
tunjuk()
LAYAR=SAVESCREEN(0,0,24,79)
MKD_BRG=SPACE(5)
do while.t.
X:=inkey(0)
do Case
case X=K_F1
CARIDATA()
case X=K_DEL
HA_PUS()
Case X=K_ESC
kunci= .F.
exit
enddo
func CARIDATA()
RESTSCREEN(0,0,24,79,LAYAR)
DO WHILE.T.
@9,34 GET MKD_BRG PICT '@!'
READ
IF MKD_BRG=SPACE(5)
EXIT
ENDIF
SEEK (MKD_BRG)
IF ! FOUND()
ALERT('MAAF KODE BARANG TIDAK DITEMUKAN ......!')
LOOP
ENDIF
@10,34 say NM_BRG PICT '@!'
@11,34 say SATUAN PICT '@!'
@12,34 say MERK PICT '@!'
@13,34 say HARGA PICT '9,999,999'
@14,34 say STOK PICT '9,999'
retu
ENDDO
func HA_PUS()
SETCOLOR('B/W,W+*/B')
pilih:=alert('Konfirmasi',{'Hapus','Batal'})
do case
case pilih=1
dele for KD_BRG=MKD_BRG
pack
case pilih=2
return
endcase
return
Func LABEL()
clea
set colo to w+/bg
@5,15 clea to 20,65
@5,15 to 20,65 DOUB
@7,33 say " DATA BARANG"
@9,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
Func Tunjuk()
set colo to w+/bg
@18,18 clea to 16,59
@18,18 say ' [F1]CARI [DEL]HAPUS [ESC]KELUAR'
set colo to Gr+/bg
@18,23 say 'F1'
@18,35 SAY 'DEL'
@18,49 SAY 'ESC'
Return