设计一个包装软件  以 TEXT1 为数据输入框 首先输入员工号赋予其权限，权限赋予完毕之后输入箱号，然后根据提示一步一步往下输入 ，我用了locate for 语句，运行结果是这样的  ，
text1 数据还没有输入员工号 点击查询就直接 在text2在显示了名字
错在哪？


public xt,bzlx,SWR
xt=allt(thisform.text3.value)
thisform.text3.readonly=.t.
thisform.text3.lostfocus
bzlx=
SWR=
SELECT 员工表
LOCAL  czy,xx1
czy=thisform.text1.valuE
locate for allt(工号)=allt(czy)
if found ()
thisform.labeL1.caption="员工号正确,请输入箱号"
thisform.labeL1.backcolor=RGB(0,255,64)
thisform.text2.value=allt(姓名)
czy=thisform.text2.value
ELSE
thisform.labeL1.Caption="该员工没有权限"
thisform.labeL1.BackColor=RGB(255,0,0)
endif
select 箱号单
LOCAL  xh
xh=thisform.text1.value
locate FOR  ALLT(箱号)=allt(xh)
if found()
thisform.label1.caption="箱号正确,请输入料号"
thisform.label1.backcolor=rgb(0,255,64)
thisform.text8.value=ALLT(箱号)
thisform.text8.readonly=.t.
THISFORM.TEXT10.VALUE=240
THISFORM.TEXT10.readonly=.t.
ELSE
thisform.label1.caption="箱号错误"
thisform.labeL1.BackColor=RGB(255,0,0)
ENDIF
SELECT 料号
LOCAL liaohao
liaohao=thisform.text1.value
locate for allt(料号)=allt(liaohao)
if found()
thisform.label1.caption="料号正确,请"
thisform.label1.backcolor=rgb(0,255,64)
thisform.text6.value=ALLT(料号)
thisform.text6.readonly=.t.
else
thisform.label1.caption="料号错误，请确认"
thisform.labeL1.BackColor=RGB(255,0,0)
endif

SELECT 员工表
LOCAL  czy,xx1
czy=thisform.text1.valuE
locate for allt(工号)=allt(czy)
if found ()
thisform.labeL1.caption="员工号正确,请选择园区"
thisform.labeL1.backcolor=RGB(0,255,64)
thisform.text2.value=allt(姓名)
czy=thisform.text2.value
ELSE
thisform.labeL1.Caption="该员工没有权限"
thisform.labeL1.BackColor=RGB(255,0,0)
endif
select 箱号单
LOCAL  xh
xh=thisform.text1.value
locate FOR  ALLT(箱号)=allt(xh)
if found()
thisform.label1.caption="箱号正确,请输入料号"
thisform.label1.backcolor=rgb(0,255,64)
thisform.text8.value=ALLT(箱号)
thisform.text8.readonly=.t.
THISFORM.TEXT10.VALUE=240
THISFORM.TEXT10.readonly=.t.
ELSE
thisform.label1.caption="箱号错误"
thisform.labeL1.BackColor=RGB(255,0,0)
ENDIF
SELECT 料号
LOCAL liaohao
liaohao=thisform.text1.value
locate for allt(料号)=allt(liaohao)
if found()
thisform.label1.caption="料号正确,请"
thisform.label1.backcolor=rgb(0,255,64)
thisform.text6.value=ALLT(料号)
thisform.text6.readonly=.t.
else
thisform.label1.caption="料号错误，请确认"
thisform.labeL1.BackColor=RGB(255,0,0)
endif

请跟这段错在哪里
还没有输入工号，运行程序的时候 text1空格状态点击查询就是这个结果
我需要根据提示一步一步输入数据

[此贴子已经被作者于2020-1-5 06:46编辑过]

第一步没有输入工号，直接点击查询也能在text2中显示姓名，这一步怎么处理！
我的意思是说要先输入工号。上面才显示名字。

第一步没有输入工号，直接点击查询也能在text2中显示姓名，这一步怎么处理！
我的意思是说要先输入工号。上面才显示名字。也就是处理失去焦点问题不知道怎么处理

输入工号显示姓名之后，我输入箱号提示该员工无权限，

上面兄弟如我QQ：156564356

text2，也就是操作员的value要先付空值对吧？

还有一个问题。就是数据输入框给上面的操作员框的值赋完之后怎么又返回数据输入框。是不是要把czy给清空？Release   czy  再重新对xh（xiannghao）作相关操作？然后以此类推。？

其实这题的问题实质是把已经扫描好的产品装入相关的箱号。看我在扫描相关数据的时候，有时会找到其他的对象。我回来看显示屏的时候就有提示比如说扫操作员的时候，我就扫到了箱号。结果上面提示。使员工无权限。等等等等，类似的情况就是这样。另外还有一个问题，就是这张表单的左边空格柱还有一张表格用来显示产品的条码和产品的订单号，某些产品在上一工序没完成就不能扫入包装或者最前面一道工序都没有烧的，更加不能扫入包装。

这个附件的代码是
public xt,czy,jz,bzlx,yq,cplh,bzfs,dqxh,bzlx1,SOPcode , SWR,lab
lab=thisform.label1.caption
jz=thisform.text4.value
cplh=thisform.text6.value
qdxh=thisform.text8.value   
thisform.text8.value=""
thisform.text5.value="正常工单"
xt=allt(thisform.text3.value)
thisform.text3.readonly=.t.
bzlx=
SWR=
SELECT 员工新表1
LOCAL srsj
THISFORM.TEXT1.SETFOCUS
czy=""
locate for 工号==Allt(thisform.text1.value)
if found()
thisform.labeL1.Caption="员工号输入正确，请输入箱号"
thisform.text2.value=姓名
thisform.label1.backcolor=rgb(0,255,64)
return
Else
czy=""
thisform.labeL1.Caption="该员工没有权限"
thisform.labeL1.BackColor=RGB(255,0,0)
return
endif
select 箱号库
dqxh=""
locate FOR  ALLT(箱号)=allt(s)
if found()
dqxh= 箱号
thisform.label1.caption="箱号正确,请输入料号"
thisform.label1.backcolor=rgb(0,255,64)
thisform.text8.value=ALLT(箱号)
thisform.text8.readonly=.t.
THISFORM.TEXT10.VALUE=240
THISFORM.TEXT10.readonly=.t.
ELSE
dqxh=""
thisform.label1.caption="箱号错误"
thisform.text8.value=""
thisform.labeL1.BackColor=RGB(255,0,0)
ENDIF
当输入箱号的时候 总是在员工表 else 那里转悠 为什么？ 附件二