text1不能用来绑定,不然只要选择用户就自动填入密码了。

解决方案 »

  1.   

    可以再建一个table用来放ID 和password
    那个data可以连到这个表,不过OK了,
      

  2.   

    没有必要绑定,建一个table存放用户名和密码,查找表中和用户名匹配的项,比较密码和pas_txt.txt, 匹配则允许登陆,
      

  3.   

    在数据库中建一个表user里面设UserID,Password,Grade分别代表用户名,密码和用户级别。data指向这张表,dbcomob数据源为data,datafield为UserID。text1不和data帮定。点击登陆时rs.open "select * from user where user.UserID='" & dbcomob.text & "'"
    if rs.count<=0 then 
    msgbox "没有这个用户"
    else if rs!Password<>text1 then 
    msgbox "密码不正确"
    else
    msgbox "您已经登陆用户级别为" &  "rs!Grade"
    usergrade=rs!Grade    'usergrade为用户级别的public变量用来限制用户行为
    end if
    没有VB个别语法可能不对。只是随手写。