没有人会吗?????????????????
ls_user=user.text
Select pass
Into : ls_password
From password
where name=:ls_user;
If user.text="" or password.text="" then messagebox("","用户名或密码不能为空!") return End if
if password.text=ls_password then open(w_main) close(w_password) else messagebox("","用户名或密码错误!") end if是和 sql2000 连接的数据库,和PowerBuilder自带的数据库就没有问题
If user.text="" or password.text="" then messagebox("","用户名或密码不能为空!") return
End ifls_user=user.text
if trim(password.text)=trim(ls_password) then open(w_main) close(w_password) else messagebox("","用户名或密码错误!") end if