标题:登录窗口确定键代码问题
取消只看楼主
power715
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2013-6-27
 问题点数:0 回复次数:2 
登录窗口确定键代码问题
本人是新手,刚创建一程序,登录窗口代码如下
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




问题是点击确定键登录时提示    请你输入正确的用户名和密码进入
不知是哪儿的问题,请教各位,谢谢!


搜索更多相关主题的帖子: 提示信息 用户名 return where 
2013-07-11 13:48
power715
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2013-6-27
得分:0 
没有人烟吗?
2013-07-11 14:48
power715
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2013-6-27
得分:0 
回复 3楼 周永
非常感谢!!呵呵,一个低级错误。3Q
2013-07-26 10:13



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-417105-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.241361 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved