工控论坛 › 上位机编程 › VB+access设计系统登录窗口

198366809 发表于 2021-3-13 19:32:27

VB+access设计系统登录窗口

年底单位忙起来了，各种总结、考核资料，是不是所有单位都是这样，年底了各种稀奇古怪的工作突然冒出来了，甚至有的工作年底了才出方案，这是什么逻辑？不管那些了，反正因为工作原因，最近学习进度有些滞后，头条更新也少了，请大家见谅。我一直想结合工作实际做个什么东西出来，想一想每个单位都涉及人员管理，那么就从这个人员管理系统开始吧，今天就来试一试使用access数据库做个账户密码登录窗口吧。一、思路通过VB窗体建立一个包括输入用户名和密码的登录界面，将输入的用户名和密码与数据内的用户名和密码比对，如果一致则进入系统主界面，如果不一致则提醒用户账号或密码错误。二、操作说明如图新建一个窗体，并在窗体上新建两个label控件，两个text控件，两个command控件。新建一个2003版本的access数据库，设计一张名为user1的表格，表格中包括username和password字段。将数据库文件Database1.mdb放置在VB工程所在的目录。
https://p1-tt.byteimg.com/origin/pgc-image/099417efa7f7495fbd654f0afeecd30c?from=pc

https://p6-tt.byteimg.com/origin/pgc-image/ee818308a476413684511407d9f1ebf8?from=pc


三、输入代码https://p1-tt.byteimg.com/origin/pgc-image/005efa9affee4ccab7891ead861078ec?from=pc

Dim cnn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sqlstr As StringPrivate Sub Command1_Click()cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\jinr\学习VB编程第83天\Database1.mdb;Persist Security Info=False"cnn.Opensqlstr = "select * from users1 where username='" & Trim(Text1.Text) & "'"On Error GoTo catchrs.CursorLocation = adUseClientrs.Open sqlstr, cnn, adOpenStatic, adLockBatchOptimisticIf Text2.Text = rs.Fields("password") ThenUnload Form1Form2.ShowElsecatch:MsgBox "用户名或者密码不正确！"End Ifcnn.CloseEnd SubPrivate Sub Command2_Click()Me.HideEnd Sub

Cityhunter飞 发表于 2021-3-14 04:26:49

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

随遇而安 发表于 2021-3-14 10:03:43

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

lisan0214 发表于 2025-11-21 15:03:55

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

谷志华 发表于 2025-11-21 15:08:33

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

xj086 发表于 2025-11-21 15:10:11

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

淡定yong 发表于 2025-11-21 15:11:38

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

761795832 发表于 2025-11-21 15:12:52

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

木木 发表于 2025-11-21 15:13:53

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

老蘑菇QAQ 发表于 2025-11-21 15:19:59

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

查看完整版本: VB+access设计系统登录窗口