|
年底单位忙起来了，各种总结、考核资料，是不是所有单位都是这样，年底了各种稀奇古怪的工作突然冒出来了，甚至有的工作年底了才出方案，这是什么逻辑？不管那些了，反正因为工作原因，最近学习进度有些滞后，头条更新也少了，请大家见谅。我一直想结合工作实际做个什么东西出来，想一想每个单位都涉及人员管理，那么就从这个人员管理系统开始吧，今天就来试一试使用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
| 
/1 
|手机版|免责声明|本站介绍|工控课堂
( 沪ICP备20008691号-1 )
发表于 2021-3-13 19:32:27
提升卡
置顶卡
照妖镜
发表于 2021-3-14 04:26:49