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