integer li_state
string pass_id,pass_password
string passid,password
int rc
passid=trim(sle_1.text)
password=trim(sle_2.text)

SELECT "id","password"
INTO :pass_id,:pass_password
FROM "admin"
where id=:passid
;
if pass_password=password then
openwithparm(w_main,passid)
close(w_pass)
else
li_state=MessageBox("错误的管理员身份!",&
"输入的管理员ID或密码错误,是否重新输入?",StopSign!,YesNo!,1)
if li_state=1 then
open(w_pass)
sle_1.text=""
sle_2.text=""
else
close(w_pass)
end if
end if

数据库连得上，可是总是用户名或密码错误！！

SELECT id,password
INTO :pass_id,:pass_password
FROM admin
where id=:passid
;

SELECT admin.password
INTO :pass_password
FROM admin
where id=:passid
;
只需要查密码是否正确就可以了.

谢谢各位的帮忙，我的问题已经解决了
因为后来我发现每次ID都是对的但是密码不对，
我就试着把一部分改成下面的形式：
pass_password=trim(pass_password) //就是这一句在起作用
if pass_password=password then
openwithparm(w_main,passid)
close(w_pass)

一般的密码都不会认前面和后面的空格的