关于登录的问题???
if alltrim(thisform.edit1.text)==''&&删除字符串前后的空格messagebox('用户名不能为空。',64,'提示')
thisform.edit1.Setfocus&&获得焦点
return
endif
set exact on
select longin_1
locate for 用户名=alltrim(thisform.edit1.text)
if (alltrim(用户名)==alltrim(thisform.edit1.text)).and.(alltrim(密码)==alltrim(thisform.edit2.text))
messagebox("欢迎使用本系统!",48)
thisform.release
do maimmenu.mpr
else
if thisform.inputon<2
messagebox("你不是本系统的合法用户!禁止进入本系统!",48)
thisform.release
close all
endif
endif
这段代码执行的结果是,无论你输入的对或是不对,都执行下面的操作。怎么回事???