初学有一段代码请大家指点
SQLCA.DBMS = "O90 Oracle9i (9.0.1)"
SQLCA.LogPass = "mangager"
SQLCA.ServerName = "oracle"
SQLCA.LogId = "system"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
connect using sqlca;
string usr, password
SELECT usr.usr,
usr.password
INTO :usr ,
:password
FROM usr
WHERE usr.usr = :sle_1.text ;
if sle_1.text="" or sle_2.text="" then
messagebox("错误!","用户名或密码不能为空!",exclamation!,ok!,2)
else
if usr=sle_1.text and password=sle_2.text then
messagebox("通过验证!","用户名和密码正确,欢迎您使用本系统!",Information!,ok!,2)
open(rushuk)
else
messagebox("错误!","用户名或密码错误,请重新输入!",exclamation!,ok!,2)
end if
end if
这段代码不能正常连接数据库的,用户名密码表,怎么输入账户密码都不对,我的数据库表是USR请大家指教一下