在数据库中建一个表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个别语法可能不对。只是随手写。
那个data可以连到这个表,不过OK了,
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个别语法可能不对。只是随手写。