if empty(allt(thisform.text5.value))
messagebox("你没有录入姓名",0+64+0,"提示")
else
xm2=allt(thisform.text5.value)
py1=topy(xm2)
if len(xm2)<3
xm4=xm2
endi
if len(xm2)=4
xm4=substr(xm2,1,2)
xm5=substr(xm2,3,2)
endi
if len(xm2)=6
xm6=substr(xm2,5,2)
xm4=substr(xm2,1,2)
xm5=substr(xm2,3,2)
endi
if thisform.Check1.value=1 .and. thisform.Check2.value=0
do case
   case len(xm2)=2
 select * from 第二批删除人员20091116 where OCCURS(xm4,个人姓名)>0 into table aaaaaa   
   case len(xm2)=4
 select * from 第二批删除人员20091116 where OCCURS(xm4,个人姓名)>0 and OCCURS(xm5,个人姓名)>0 into table aaaaaa  
   case len(xm2)=6
 select * from 第二批删除人员20091116 where OCCURS(xm4,个人姓名)>0 and OCCURS(xm5,个人姓名)>0 and OCCURS(xm6,个人姓名)>0 into table aaaaaa
endc
endi
if thisform.Check1.value=0 and thisform.Check2.value=1
 select * from 第二批删除人员20091116 where OCCURS(py1,py)>0 into table aaaaaa  
endi
if thisform.Check2.value=1 and thisform.Check1.value=1
do case
   case len(xm2)=2
 select * from 第二批删除人员20091116 where OCCURS(xm4,个人姓名)>0 and OCCURS(py1,py)>0 into table aaaaaa
   case len(xm2)=4
 select * from 第二批删除人员20091116 where OCCURS(xm4,个人姓名)>0 and OCCURS(xm5,个人姓名)>0 or OCCURS(py1,py)>0 into table aaaaaa   
   case len(xm2)=6
 select * from 第二批删除人员20091116 where OCCURS(xm4,个人姓名)>0 and OCCURS(xm5,个人姓名)>0 and OCCURS(xm6,个人姓名)>0 or OCCURS(py1,py)>0 into table aaaaaa     
endc
endi
endi
thisform.grid1.recordsource="aaaaaa"

thisform.sxsx
SELECT cx2
SCAN ALL
This.Nodes.Add(,,"ch"+ALLTRIM(cx2.个人编号),ALLTRIM(cx2.个人姓名)+" "+ALLTRIM(cx2.身份证),1)
sele jfls1
SCAN for jfls1.grbh=cx2.个人编号
This.NODES.ADD("CH"+ALLTR(jfls1.jfsq),4,,ALLTR(jfls1.grjfjs)+" "+ALLTR(jfls1.grjfbs)+" "+ALLTR(jfls1.grjfbs),2)
ENDSCAN
ENDSCAN

这个 是我自己写的  大家不要笑我啊 !!!
thisform.Check1.value=1是模糊查询
thisform.Check2.value=1是拼音查询
全选的时候 就不出来了  大家帮我看看
能把我的代码简化就好了  谢谢!!~~~


我要完成的效果是:
有个 数据表 记录有16万多条
表的结构是:个人编号,个人姓名,身份证,....
在一个表单中 输入姓名 张三  表中的姓名字段
叫 张三一,张一三,张山什么的和 张什么山的都能出来.
大家有时间 帮我做下  给我思路也行  我做完代码 在传上来...........

xm1=allt(thisform.text5.value)
if empty(xm1)
  messagebox("你没有录入姓名",0+64+0,"提示")
else
  py1=topy(xm1)
  xm2='%'
  for i=1 to lenc(xm1)
    xm2=xm2+substrc(xm1,i,1)+'%'
  endfor
  py2='%'
  for i=1 to len(py1)
    py2=py2+substr(py1,i,1)+'%'
  endfor
  do case
    case thisform.Check1.value=1 .and. thisform.Check2.value=0
      select * from 第二批删除人员20091116 where 个人姓名 like xm2 into table aaaaaa
    case thisform.Check1.value=0 and thisform.Check2.value=1
      select * from 第二批删除人员20091116 where py like py2 into table aaaaaa
    case thisform.Check2.value=1 and thisform.Check1.value=1
      select * from 第二批删除人员20091116 where 个人姓名 like xm2 or py like py2 into table aaaaaa
    case thisform.Check2.value=0 and thisform.Check1.value=0
      messagebox("请您选择查询方式",0+64+0,"提示")
  endcase
endi
thisform.grid1.recordsource="aaaaaa"