Question

PB与MySQL的连接

String userid
String userkey,id,pass
userid= Trim (sle_zhanghao.text)
userkey= Trim (sle_mima.text)
if sle_zhanghao.text = "" or sle_mima.text = "" then
MessageBox('错误','用户名或密码不能为空')
else
select user,key
into :id,:pass
from users
where users.user= :userid ;
if userkey=pass then
open(chaxunmokuai_w)
else
messagebox("错误！","用户名或密码错误 "+userid)
end if
end if
用户登录的代码,不管数据库就有没有数据都是弹出用户名或密码错误,我试验过可以对数据库插入数据

Answer 1

你看一下示例代码
If Len(sle_dlyh.Text) = 0 Then
MessageBox('系统提示','请输入用户名！')
SetFocus(sle_dlyh)
ElseIf Len(sle_dlkl.Text) = 0 Then
MessageBox('系统提示','请输入口令！')
SetFocus(sle_dlkl)
Else
String password_tmp //查询用户及相应的密码
String name_tmp
name_tmp = Trim(sle_dlyh.Text)
// 检索用户密码
Select Password Into :password_tmp From admin where username = :name_tmp;
// 验证用户密码
If Trim(sle_dlkl.Text) <> Trim(password_tmp) Then
MessageBox('系统提示','用户名或密码错误，请重新输入！')
SetFocus(sle_dlyh)
Else
Parent.Visible = False //隐藏登录窗体，打开主窗体
Open(w_main)
End If
End If

Answer 2

代码本身没有问题，你可以在 select 完 ，加上 messagebox("",id+pass)
看看是否有读到数据或者数据是否正常