年底单位忙起来了，各种总结、考核资料，是不是所有单位都是这样，年底了各种稀奇古怪的工作突然冒出来了，甚至有的工作年底了才出方案，这是什么逻辑？不管那些了，反正因为工作原因，最近学习进度有些滞后，头条更新也少了，请大家见谅。我一直想结合工作实际做个什么东西出来，想一想每个单位都涉及人员管理，那么就从这个人员管理系统开始吧，今天就来试一试使用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
四、运行效果详见视频
