**dian_sastro
**2005
SET TALK OFF
SET SAFETY OFF 
clear
CREATE TABLE cari FREE (kelomp c(10),nama c(20), ket c(50))
INSERT INTO cari (kelomp,nama,ket) VALUES ('mamalia','sapi','sapi tidak mengembik')
INSERT INTO cari (kelomp,nama,ket) VALUES ('mamalia','sapi bali','sapi bali jg tidak mengembik')
INSERT INTO cari (kelomp,nama,ket) VALUES ('mamalia','kambing','kambing mengembik')
INSERT INTO cari (kelomp,nama,ket) VALUES ('insect','lalat','lalat kok mengaum ?')

LOCAL cSatu,cDua,cTiga
cSatu 	="kelomp ='mamalia'"
cDua	="nama like '%sapi%' "
cTiga	="ket like '%embik%' "
cEmpat  ="kelomp ='insect'"

**contoh 1 
SELECT * from cari WHERE ;
    &cSatu ;
    AND ;
    &cDua ;
    OR ;
    &cTiga ;
    INTO CURSOR abc
BROWSE

**contoh 2 cuma cari "sapi"
SELECT * from cari WHERE ;
    &cDua ;
    INTO CURSOR abc
BROWSE

**contoh 3 cari kelomp insect aja
SELECT * from cari WHERE ;
    &cEmpat ;
    INTO CURSOR abc
BROWSE

IF USED('cari')
	USE IN cari
ENDIF