年底单位忙起来了，各种总结、考核资料，是不是所有单位都是这样，年底了各种稀奇古怪的工作突然冒出来了，甚至有的工作年底了才出方案，这是什么逻辑？不管那些了，反正因为工作原因，最近学习进度有些滞后，头条更新也少了，请大家见谅。我一直想结合工作实际做个什么东西出来，想一想每个单位都涉及人员管理，那么就从这个人员管理系统开始吧，今天就来试一试使用access数据库做个账户密码登录窗口吧。

一、思路

通过VB窗体建立一个包括输入用户名和密码的登录界面，将输入的用户名和密码与数据内的用户名和密码比对，如果一致则进入系统主界面，如果不一致则提醒用户账号或密码错误。

二、操作说明

如图新建一个窗体，并在窗体上新建两个label控件，两个text控件，两个command控件。新建一个2003版本的access数据库，设计一张名为user1的表格，表格中包括username和password字段。将数据库文件Database1.mdb放置在VB工程所在的目录。

三、输入代码

Dim cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim sqlstr As String

Private Sub Command1_Click()

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\jinr\学习VB编程第83天\Database1.mdb;Persist Security Info=False"

cnn.Open

sqlstr = "select * from users1 where username='" & Trim(Text1.Text) & "'"

On Error GoTo catch

rs.CursorLocation = adUseClient

rs.Open sqlstr, cnn, adOpenStatic, adLockBatchOptimistic

If Text2.Text = rs.Fields("password") Then

Unload Form1

Form2.Show

Else

catch:

MsgBox "用户名或者密码不正确！"

End If

cnn.Close

End Sub

Private Sub Command2_Click()

Me.Hide

End Sub

四、运行效果详见视频