|
set talk off
do while .t.
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
@10,10 say 'Nama Daging :'+ano
wait ''
clear
loop
endif
enddo
Dengan cara demikian, data yang diperlu akan dicari satu persatu
didalam rekod database
Seek Atau Find
set talk off
clear
do while .t.
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
enddo
Anda boleh mengantikan find dengan seek untuk mencari data
dari database.Dalam bentuk index,teknik command Order boleh juga digunakan.
.