谁能把我的程序错误说的更清楚一点!!!
clos alluse database_1.dbc
use longin_1
if len(alltrim(thisform.edit1.text))=0 &&删除字符串前后的空格 len字符串长度函数
messagebox('用户名不能为空。',64,'提示')
thisform.edit1.Setfocus &&获得焦点
return
else
select longin_1
locate for alltrim( 用户名)==alltrim(thisform.edit1.text)
if found()
if alltrim(密码)==alltrim(thisform.edit2.text)
messagebox("欢迎使用本系统!",48)
thisform.release
do maimmenu.mpr
else
messagebox("你不是本系统的合法用户!禁止进入本系统!",48)
quit
endif
ELSE
MESSAGEBOX('没有此用户!')
thisform.edit1.Setfocus
endif
endif
这段程序运行的时候无论你输入的对还是不对,都可以进入系统。
大家无论如何也要帮帮我,我己经搞了几天了一个小程序也搞不好。