cString=ALLTRIM(THISFORM.TEXT1.VALUE)
IF EMPTY(cString)
SELECT * FROM 职工
ELSE
cText="%"
FOR nCnt=1 TO LEN(cString)
IF ISLEADBYTE(SUBSTR(cString,nCnt))
cText=cText+SUBSTR(cString,nCnt,2)+"%"
nCnt=nCnt+1
ELSE
cText=cText+SUBSTR(cString,nCnt,1)+"%"
ENDIF
ENDFOR
SELECT * FROM 职工 WHERE 姓名 LIKE (cText)
ENDIF