select u_pwd into :u_pwd from use_admin where u_id=:id
using sqlca;if sqlca.sqlcode=0 then
open(w_head)
close(parent)else
messagebox("消息","用户名或密码错误！")
return -1end if你这里只是从数据库里面取出密码，如果能够正确执行sql语句，就open(w_head)，并没有和输入的密码做比较，所以只要表中id存在，就会打开窗口。可以修改如下：select u_pwd into :u_pwd from u...
