关于记录的模糊搜索

*模糊搜索的建立

*建立一个产品信息表，设置产品序号字段

*设置搜索输入文本框Text2

*设置提示信息文本框Text3

*设置搜索命令按钮，代码如下：

 

PUBLIC J,I,E,X&&声明全局变量
J=0
I=1
*字符串处理
M=ThisForm.Text2.text&&取字符串
E=ALLTRIM(M)&&删除左右空格
X=LEN(E)&&测试字符串长度
F=LEFT(产品信息.产品序号,X)
*查找记录
If X>0
LOCATE FOR LEFT(产品信息.产品序号,X)=E&&找到符合条件的第一条记录
if FOUND()=.T.&&找到记录
A=recno()&&获得当前记录数
Endif
*查找所有符合条件的记录
DO WHILE .not.eof()&&继续查找直到尾记录
if FOUND()=.T.
J=J+1&&记录总数
Endif
CONTINUE
ENDDO
Endif
*后续处理
If X>0 And J=1
Q="找到记录在第"+LTRIM(STR(I))+"条。"&&STR()转化为字符串，LTRIM()删除字符串左边的空格
GO A
Endif
If X>0 And J>1
Q="共计找到"+LTRIM(STR(J))+"条记录。"&&STR()转化为字符串，LTRIM()删除字符串左边的空格
ThisForm.Command3.Enabled=.T.
GO A
Endif
If X>0 And J=0
Q="没有找到记录。"
GO 1&&返回到第一条记录
Endif
If X=0
Q="请输入产品序号！"
GO 1&&返回到第一条记录
Endif
ThisForm.Text3.value=Q
Thisform.refresh&&刷新当前窗体
ThisForm.Text2.SetFocus&&文本框Text1获得焦点