VB 6.0 + Access制作登陆界面&超详细讲解&(适合新手)

VB6.0 + Access制作登陆界面&超详细讲解&

（适合新手）

前段时间，我也为用VB 6.0制作登陆界面而痛苦，为此，我没少上百度，没少查资料，终于，现在大功告成了，现在我也来分享一下我的个人经验！（在说步骤之前，我要着重强调，要完成本实例，首先得进行的步骤是“工程”——>“引用”——> Microsoft ActiveX Data Objects 2.X Library ,即ADO(建议用2.6往上)）

步骤一：建立数据库

要想用Access中存放的帐号数据来登陆，肯定要先有存放帐号密码的数据库吧，这里假设我们用到的数据库为 Test ，其中有一张表，叫做 test_info ，表中有两个字段，分别是

userID 和 password ，分别存放登陆帐号和密码。

步骤二：新建窗体

①在VB中，本就有现成的登陆窗体，我们可以直接选择，当然，也可以创建一个空白的窗体，我们自己添加内容（即“控件”），然后Caption 属性设置为“登陆”或者“login”，当然，也可以自己随意添加，主要用来让窗口显示我们希望的标题。

②建立登陆界面，肯定是想登陆成功后进入另一个界面，因此，我们需要再添加一个窗体，用来验证登陆是否成功，在这里，我们将这个窗体的Name(名称) 属性设为默认的 Form2

步骤三：设置窗体

首先向新建的窗体分别添加两个 Label 控件、两个 TextBox 控件和两个CommandButton，各控件属性如下表：

控件属性属性值

Label1

Caption 用户名AutoSize True

Label2

Caption 密码

AutoSize True Text1 Text NULL

Text2 PasswordChar * Text NULL

Command1 Caption 确定

Command2 Caption 取消

如果想让按下回车就默认选择“确定”按钮，只需将 Command1 的Default 属性更改为 True 即可，设置好后的窗体如下图

步骤四:填写代码（最重要的一步）

说到代码，我想就是大家最关切的问题了，那我就具体来说说这个代码吧，首先双击窗体，打开代码编辑界面，输入如下代码：

Private Sub Form_Load() ‘此段代码的主要作用是当窗体打开时就连接数据库

Dim conn As New ADODB.Connection

Dim connectionstring As String

Connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "E:\Test.mdb;Persist Security Info=False" ‘将Data Source 处的路径改为你本机数据库所在路径即可

conn.Open connectionstring

End Sub

接着双击“确定”，同样的，输入如下代码：

Private Sub Command1_Click()

Dim sql As String

Dim conn As New ADODB.Connection

Dim rs_login As New ADODB.Recordset

If Trim(Text1.Text) = "" Then ‘检测用户名正确与否

MsgBox "用户名不能为空，请重新输入！", vbOkOnly + vbExclamation, "错误"

Text1.SetFocus

Else

sql = "select * from Test where test_info = '" & Text1.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

If rs_login.EOF = True Then

MsgBox "用户名不存在，请重新输入！",vbOkOnly + vbExclamation , "错误"

Text1 = ""

Text1.SetFocus

Else ‘检测密码正确与否

If Trim(rs_login.Fields(1)) = Trim(Text2) Then

rs_login.Close

Unload Me

Form2.Show

Else

MsgBox "密码错误，请重新输入！", vbOKOnly + vbExclamation, "错误"

Text2.SetFocus

End If

End If

End If

End Sub

最后双击“取消”按钮，输入如下代码：

Private Sub Command2_Click()

MsgBox "您已成功退出！", vbOkOnly + vbExclamation, "提示"

Unload Me

End Sub

如果想加入三次输入错误就退出的功能，这个倒网上找个小代码加入Command_Click()就行了，思路是定义一个变量，赋初值为 0 ，错误一次，这个变量增加 1 ，如果这个变量等于 3 了，就 Unload Me。

步骤五：启动（F5）

有了上面的步骤，接下来就是检验成果的阶段了，当然，我知道，跟着我的步骤来，难免还是会出现登陆不上的错误，而到了这个时候，就是考验你的耐心与细心的时候了，多多查证，多方对比，相信发现问题不难。最后，祝你好运！