高手帮忙看看为啥取不出数据啊【初学者问题】
//定义两个变量
string userpassword,username
// 数据库连接参数
// Profile Homeworkdatabase
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=HomeWorkDataBase'"


//连接数据库
connect;
//检索用户名和密码记录
SELECT
login.username,
login.userpasssword
INTO
:username,
:userpassword
FROM login
WHERE login.username = :sle_1.text ;



//判断用户输入的用户名是否正确
if sle_1.text="" or sle_2.text="" then
messagebox("错误！","用户名或密码不能为空！",exclamation!,ok!,2)
else
if username=sle_1.text and userpassword=sle_2.text then
open(index)
close(login)
else
messagebox("错误！","用户名或密码错误，请重新输入！",exclamation!,ok!,2)
st_5.text=username
end if
end if

功能是从一个Login表里面取出来用户名和密码 与两个输入框text值进行对比，还设置了一个lable用来显示取出数据后的用户名可是一直为空，有一条警告如下：

Syntax error or violation near 'login' in [login].username,login....

初学实在找不出来错误了

[解决办法]
顶贴！！！！