Menampilkan Data per Record
Hmmm... setelah kita membuat, menggunakan, menambah record, mengedit record, dan menghapus record pada database clipper, sekarang bagaimana cara menampilkan record-record yang sudah kita tambahkan sebelumnya?
Langsung saja kita ke TKP
Koding program dari tampilan di atas adalah :
# INCLUDE "INKEY.CH"
use barang index barang
LABEL()
tunjuk()
tampil()
do while.t.
X:=inkey(0)
do Case
case X=K_LEFT
SKIP -1
case X=K_RIGHT
SKIP
tampil()
case x=K_HOME
go top
tampil()
case X=K_END
go bottom
tampil()
Case X=K_ESC
kunci= .F.
exit
otherwise
return .f.
endcase
enddo
func tampil()
@9,34 say KD_BRG PICT '@!'
@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
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 '[HOME]AWAL [<-]PREV [->]NEXT [END]AKHIR'
set colo to Gr+/bg
@18,19 say 'HOME'
@18,30 say '<-'
@18,44 SAY '->'
@18,53 SAY 'END'
Return
