十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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()
这种情况下,效率极不好!你能理解什么意思就行了!否则将你的程序改完了!