vb与mysql实现登录界面_如何利用VB和ACCESS做一个登录系统?

这个过程稍微有点麻烦,还是来回答一下吧

问题的关键在于,如何实现VB与Access之间的链接,这里通过SQL语句来实现

当然了,SQL语句也有很多包括检索(select)、排序检索(order by)、过滤(where)、插入(insert)等等......

这个先不管,先来看看数据库

数据库一看感觉很像excel,我们先新建一个表

有三列,字段名分别是“ID”、“账户”、“密码”,在这里呢字段名可以是字母也可以是汉字(我是为了方便才用的汉字,不要学我)

然后可以在下边添加信息(我这里已经添加了一条了),也可以在表名那右键进入“设计视图”去更改字段的更多信息。这些不是重点,不进行详述。

这样一个简易的数据库就搭建好了,但要注意几点:①保存的时候要另存为保存成“.mdb”文件!原因好像是VB只兼容老版本的数据库格式。②数据库文件和vb的工程要保存在同一个文件夹里

数据库搭建好后,回到VB,首先新建一个工程,接着,按顺序完成以下步骤:

①在“工程”-“引用”勾选“Mircrosoft ActiveX Data Object 2.5 Library”选项。

②在下图位置右键新建一个模块,双击模块进入代码输入窗口

③在代码窗输入以下代码(有地方需改动)

Public gsConStr As String

Public gcnCon As ADODB.Connection

Public dataPath As String

Public curDire As String

Public curFile As String

Public Const MainPassword As String = "000000"

Public sql As String

Public rstemp As ADODB.Recordset

Sub main()

Set gcnCon = New ADODB.Connection

dataPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "我的2020.mdb" '修改相应的数据库名称

gsConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataPath & ";Persist Security Info=False"

gcnCon.ConnectionString = gsConStr

gcnCon.CursorLocation = adUseClient

gcnCon.Open

FrmDenglu.Show '修改相应的登陆窗体名称

End Sub

④在“工程”-“属性”修改启动对象为“Sub Main”

⑤在登陆窗体上放上相应的控件(两文本框一按钮)

⑥进入代码编辑窗,输入以下代码(有地方需改动)

Option Explicit

Dim islogin As Boolean

Private Sub Command1_Click()

Dim x%

sql = "select * from admin where 账户='" & Text1.Text & "' and 密码='" & Text2.Text & "'" 'SQL语句

Set rstemp = gcnCon.Execute(sql) '执行SQL语句

If Not rstemp.EOF Then '查找是否存在该账户及密码,如果存在

islogin = True

Unload Me

FrmMain.Show '修改成相应主窗体,即登陆后想要见到的下一个窗体

Else '如找不到所输入账户和密码

x = MsgBox("用户名或密码错误!", 5, "提示")

If x = 4 Then

Text2.SetFocus

Else

End

End If

End If

rstemp.Close

End Sub

⑦保存,运行启动,查看代码是否有问题

上面讲解的是一般系统登陆的方法,像题主所说的区分管理员和一般用户的方法有很多种,下面给两个解决方案:

①在数据库用户表中新建一个字段,用来存储登陆账户的身份信息,在登陆时拾取人员的身份信息,进行判断之后进入相应窗体。

②在数据库中,管理员和一般用户各一个表,在登陆界面多加两个组合的Option控件,让用户自行选择以什么身份进行登录,进行判断之后进入相应窗体。

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