登录窗口确定键代码问题
本人是新手,刚创建一程序,登录窗口代码如下string is_name,is_password
is_name=trim(sle_1.text)
is_password=trim(sle_2.text)
if is_name='' then //用户为空
messagebox('提示信息','用户名不能为空!')
return;
end if
if is_password='' then //密码为空
messagebox('提示信息','密码不能为空!')
return;
end if
//查找用户名和密码
select myuser.name,myuserpass
into : gs_name,: gs_pass
from myuser
where myuser.name=:is_name and pass=:is_password;
if trim(gs_name)<>trim(is_name) and trim(gs_pass)<>trim(is_password) then
messagebox('提示信息','请你输入正确的用户名和密码进入!')
sle_2.setfocus()
sle_2.selecttext(1,len(sle_2.text)) //选择该文本框内容,以便用户继续输入
return
else
open(w_main)
close(w_login)
end if
声明的两个变量如下
string gs_userid,gs_name,gs_pass
SQL Server中的myuser表如下
id name pass
001 111 111
问题是点击确定键登录时提示 请你输入正确的用户名和密码进入
不知是哪儿的问题,请教各位,谢谢!