vb mysql登录界面_vb+access数据库做一个用户登录界面(包括用户名,密码,还要有权限)...

ba61073b883c003cad734688ae62736d.png

以下是模块 ::

Public con As New Connection '定义数据连接,公共变量

Public coon, coom As String

Public str As Currency

Sub main()

ChDir App.Path '转换相对路径

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xx.mdb;Persist Security Info=False"

'定义数据库连接,xx为数据库名

con.CursorLocation = adUseClient '以客户端的方式打开

con.Open  ' 打开连接

frm_学校上报表.Show'这个是登陆窗体名

End Sub

以 下为登陆窗体代码:

Dim rec As New Recordset

Dim rs As New Recordset

Private Sub Command1_Click()

If (Text1.Text = "") Or (Text2.Text = "") Then

MsgBox "用户名和密码不能为空!", vbOKOnly, "错误"

Exit Sub

End If

coon = Text1.Text

coom = Text2.Text

sql = "select * from dl where gly='" + coon + "' and mm='" + coom + "'"  gly是登陆表里的用户名字段..mm为表里的密码字段..

Set rs = con.Execute(sql)

If rs.EOF Then

MsgBox "用户名和密码错误!", vbOKOnly, "错误"

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

Exit Sub

Else

Unload Me

frmmain.Show

End If

End Sub

你参考一下吧

也可以在加个权限字段...用判断..if 。。。then....不为超级管理员的不让进入系统..重要部分

--------------------------签名档----------------------

http://www.huaianyingyuan.com  http://www.0517kk.com

http://www.8meinv.com   http://www.huaianyingyuan.com/bbs/

http://fengxiong.tbwtb.com  http://qudou.tbwtb.com

http://dianshiju.haqvod.com

http://quban.tbwtb.com    http://www.haqvod.com

http://dsj.haqvod.com

http://www.tbwtb.com    http://jianfei.tbwtb.com

http://www.huaianseo.com http://zuixin.haqvod.com

◆◆

评论读取中....

请登录后再发表评论!

◆◆

修改失败,请稍后尝试

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
©️2020 CSDN 皮肤主题: 深蓝海洋 设计师:CSDN官方博客 返回首页