A=THISFORM.TExt1.VALUE
B=THISFORM.TExt2.VALUE
C=THISFORM.TExt3.VALUE
D=THISFORM.TExt4.VALUE
E=THISFORM.TExt5.VALUE
llYesNo = .T.
IF EMPTY(A)
A=MESSAGEBOX("操作员代码"+CHR(13)+"是否填入?",4+32,"请问")
IF A=6
llYesNo = .T.
THISFORM.Text1.SETFOCUS()
ELSE
llYesNo= .F.
ENDIF
ENDIF
IF EMPTY(B) AND llYesNo = .F.
A=MESSAGEBOX("操作员姓名"+CHR(13)+"是否填入?",4+32,"请问")
IF A=6
llYesNo= .T.
THISFORM.Text2.SETFOCUS()
ELSE
llYesNo= .F.
ENDIF
ENDIF
IF EMPTY(C) AND llYesNo = .F.
A=MESSAGEBOX("口令"+CHR(13)+"是否填入?",4+32,"请问")
IF A=6
llYesNo= .T.
THISFORM.Text3.SETFOCUS()
ELSE
llYesNo= .F.
ENDIF
ENDIF
IF EMPTY(D) AND llYesNo = .F.
A=MESSAGEBOX("电话"+CHR(13)+"是否填入?",4+32,"请问")
IF A=6
llYesNo= .T.
THISFORM.Text4.SETFOCUS()
ELSE
llYesNo= .F.
ENDIF
ENDIF
IF EMPTY(E) AND llYesNo = .F.
A=MESSAGEBOX("单位"+CHR(13)+"是否填入?",4+32,"请问")
IF A=6
llYesNo= .T.
THISFORM.Text5.SETFOCUS()
ELSE
llYesNo= .F.
ENDIF
ENDIF