登录总是失败,求救!
这是在做一个登录窗口时,cb_login的脚本,但是一直登录不上,数据库里已经有数据了,而且连接成功,数据库为sqlserver
string password,username
//判断用户名是否为空
if sle_1.text="" or sle_2.text="" then
messagebox("错误","用户名或密码不能为空!",exclamation!,ok!)
else
//检索用户名和密码记录
select 用户名,密码
into :username, :password
from t_operater
where t_operate.用户名=sle_1.text;
// 判断用户名、密码
if username=sle_1.text and password=sle_2.text then
open(w_main)
close(w_login)
else
messagebox("错误","用户名或密码错误,请重新输入",exclamation!,ok!)
end if
end if