VB+access设计系统登录窗口

198366809

年底单位忙起来了，各种总结、考核资料，是不是所有单位都是这样，年底了各种稀奇古怪的工作突然冒出来了，甚至有的工作年底了才出方案，这是什么逻辑？不管那些了，反正因为工作原因，最近学习进度有些滞后，头条更新也少了，请大家见谅。我一直想结合工作实际做个什么东西出来，想一想每个单位都涉及人员管理，那么就从这个人员管理系统开始吧，今天就来试一试使用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 = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\jinr\学习VB编程第83天\Database1.mdbersist 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

Cityhunter飞

在遇到你之前我对人世间是否有技术大佬保有怀疑，现在我是彻底被你征服了

随遇而安

加油，加油，不要沉下去，我是最热贴

lisan0214

已转发给朋友，一起感受这份快乐～

谷志华

不请自来，就想夸一句：太顶了！

xj086

赞同 + 10086，完全说出了我的想法！

淡定yong

蹲一波同款，有没有姐妹 / 兄弟推荐？

761795832

学到了学到了，这波分享太实用啦！

木木

我先占个楼，等下再慢慢看～

老蘑菇QAQ

蹲个后续，楼主记得更新呀，在线等挺急的～