3个表中用户名和密码及权限都放到一个表如User中吧 方便些。用户名用下拉框，选择姓名后直接弹出权限（Lable）.在下拉框SelectedIndexChanged事件中写即可。
创新互联建站专注于温江网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供温江营销型网站建设，温江网站制作、温江网页设计、温江网站官网定制、成都微信小程序服务，打造温江网络公司原创品牌,更为您提供温江网站排名全网营销落地服务。
需要连接数据库，你可以用access做个小型数据库
每次系统登录的时候，根据用户名去数据库查询密码
哈哈简单哪
第一步：登陆网页代码
第二步：登陆以后判断是否登陆成功
有两种方法：1.获取网页代码，判断网页字符有无”登陆成功”字样
源代码：
2.就是判断网页是否跳转到了某一页
源代码：
两种方法结合起来用，可以判断网页是否无法连接
你每次取出的是表中的首条记录，当然只能用首条记录登陆了！
Dim name, password As String
name = TextBox1.Text
Dim com As New OleDb.OleDbCommand("select * from denglu where name='" name "'", conn)
Dim dr As OleDb.OleDbDataReader
conn.Open()
dr = com.ExecuteReader
dr.Read()
password = dr.GetString(1)
If TextBox3.Text = password Then
mesbox("成功!")
Else
msgbox("失败")
End If
dr.Close()
conn.Close()
这种情况下，效率极不好！你能理解什么意思就行了！否则将你的程序改完了！
