level 1
深渊独行者1
楼主
USE 用户信息表
IF EMPTY(THISFORM.TEXT1.VALUE).OR.empty(THISFORM.TEXT2.VALUE)
MESSAGEBOX("用户名或密码不能为空,请重新输入",48,"系统提示")
thisform.text2.SetFocus
ELSE
locate for alltrim(用户信息表.用户账号)==alltrim(thisform.text1.value)
IF FOUND() AND alltrim(用户信息表.用户密码)==alltrim(thisform.text2.value)
do form 订单处理系统.SCX
ELSE
MESSAGEBOX("用户或密码不存在",46,"系统提示")
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text2.SetFocus
ENDIF
ENDIF
2014年06月16日 15点06分
1
IF EMPTY(THISFORM.TEXT1.VALUE).OR.empty(THISFORM.TEXT2.VALUE)
MESSAGEBOX("用户名或密码不能为空,请重新输入",48,"系统提示")
thisform.text2.SetFocus
ELSE
locate for alltrim(用户信息表.用户账号)==alltrim(thisform.text1.value)
IF FOUND() AND alltrim(用户信息表.用户密码)==alltrim(thisform.text2.value)
do form 订单处理系统.SCX
ELSE
MESSAGEBOX("用户或密码不存在",46,"系统提示")
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text2.SetFocus
ENDIF
ENDIF