public xt,lh,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
THISFORM.TEXT1.VALUE=""
ELSE
thisform.labeL1.Caption="该员工没有权限"
thisform.labeL1.BackColor=RGB(255,0,0)
endif
USE
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT1.SETFOCUS
SELECT 箱号单
LOCAL xianghao
xianghao=thisform.text1.value
SCAN
IF 箱号=thisform.text1.value
THISFORM.LABEL1.CAPTION="箱号输入正确,请你输入料号"
thisform.labeL1.backcolor=RGB(0,255,64)
thisform.text8.value=allt(箱号)
xianghao=thisform.text8.value
else
thisform.label1.caption="箱号输入有误"
thisform.labeL1.BackColor=RGB(255,0,0)
endIF
ENDSCAN
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT1.SETFOCUS
问题点:TEXT1 多次输入也能成功 但是下面的标签栏提示表单刚刚打开的时候 请输选择类型,以及选项组按钮 也有提示 观澜园区 请输入工号,但是工号输入之后text2和text8同时出来了 ,我的本意是输入工号正确之后下面绿色提示工号正确 请输入箱号 然后我再输入箱号 在TEXT8 里面显示箱号 并有绿色提示 箱号输入正确
不知道我的错误在哪里 输入工号之后直接显示操作员姓名和当前箱号了?求教各位大仙
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
THISFORM.TEXT1.VALUE=""
ELSE
thisform.labeL1.Caption="该员工没有权限"
thisform.labeL1.BackColor=RGB(255,0,0)
endif
USE
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT1.SETFOCUS
SELECT 箱号单
LOCAL xianghao
xianghao=thisform.text1.value
SCAN
IF 箱号=thisform.text1.value
THISFORM.LABEL1.CAPTION="箱号输入正确,请你输入料号"
thisform.labeL1.backcolor=RGB(0,255,64)
thisform.text8.value=allt(箱号)
xianghao=thisform.text8.value
else
thisform.label1.caption="箱号输入有误"
thisform.labeL1.BackColor=RGB(255,0,0)
endIF
ENDSCAN
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT1.SETFOCUS
问题点:TEXT1 多次输入也能成功 但是下面的标签栏提示表单刚刚打开的时候 请输选择类型,以及选项组按钮 也有提示 观澜园区 请输入工号,但是工号输入之后text2和text8同时出来了 ,我的本意是输入工号正确之后下面绿色提示工号正确 请输入箱号 然后我再输入箱号 在TEXT8 里面显示箱号 并有绿色提示 箱号输入正确
不知道我的错误在哪里 输入工号之后直接显示操作员姓名和当前箱号了?求教各位大仙