|
Close all
@10,10 say 'Nama Daging :' get ayam
read
use itek
locate for ano = ayam
if .not. found()
@15,10 say 'Tiada Rekod '
wait ''
clear
loop
endif
Dengan cara demikian, data yang diperlu akan dicari satu persatu
didalam rekod database
Seek Atau Find
Close all
set exclusive on
use itek
use itek index iteks
reindex
@10,10 say 'Nama Daging ' get itekk
find itekk
if .not. found()
@ 15,10 say 'Tiada Rekod '
wait ''
clear
loop
endif
@10,10 say 'Nama Daging '+ ano
wait ''
clear
loop
set exclusive off
Anda boleh mengantikan find dengan seek untuk mencari data
dari database>
.