用户名与密码
来源:互联网 发布:手机sql注入工具 编辑:程序博客网 时间:2024/06/06 02:53
Option Explicit
Const MaxLoginTimes As Integer = 3
Private Sub cmdLogin_Click()
Static loginTimes As Integer
loginTimes = loginTimes + 1
If loginTimes < MaxLoginTimes Then
On Error GoTo ppp
Dim Cn As Connection
Dim Rs As Recordset
Dim strSQL As String
Set Cn = New Connection
Set Rs = New Recordset
Cn.ConnectionString = " provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Users\jf\Desktop\TestExample.mdb"
Cn.Open
Rs.ActiveConnection = Cn
strSQL = "select UserPassword from UserInformation where UserID= '" & Me.txtUserID.Text & "'"
Rs.Open (strSQL)
If Rs.EOF = True Then
MsgBox txtUserID.Text & "不存在"
Me.txtUserID.SetFocus
Me.txtUserID.SelStart = 0
Me.txtUserID.SelLength = Len(Me.txtUserID.Text)
Else
If Rs.Fields("UserPassword").Value = Me.txtPassword.Text Then
MsgBox "登录成功"
Unload Me
'frmNew.show
Else
MsgBox "密码错误"
End If
End If
ppp:
Cn.Close
Else
MsgBox "亲,您的输入次数超过允许的最大次数", vbCritical, "登录"
End If
End Sub
Const MaxLoginTimes As Integer = 3
Private Sub cmdLogin_Click()
Static loginTimes As Integer
loginTimes = loginTimes + 1
If loginTimes < MaxLoginTimes Then
On Error GoTo ppp
Dim Cn As Connection
Dim Rs As Recordset
Dim strSQL As String
Set Cn = New Connection
Set Rs = New Recordset
Cn.ConnectionString = " provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Users\jf\Desktop\TestExample.mdb"
Cn.Open
Rs.ActiveConnection = Cn
strSQL = "select UserPassword from UserInformation where UserID= '" & Me.txtUserID.Text & "'"
Rs.Open (strSQL)
If Rs.EOF = True Then
MsgBox txtUserID.Text & "不存在"
Me.txtUserID.SetFocus
Me.txtUserID.SelStart = 0
Me.txtUserID.SelLength = Len(Me.txtUserID.Text)
Else
If Rs.Fields("UserPassword").Value = Me.txtPassword.Text Then
MsgBox "登录成功"
Unload Me
'frmNew.show
Else
MsgBox "密码错误"
End If
End If
ppp:
Cn.Close
Else
MsgBox "亲,您的输入次数超过允许的最大次数", vbCritical, "登录"
End If
End Sub
0 0
- 用户名与密码
- SVN修改用户名与密码
- SVN修改用户名与密码
- SVN修改用户名与密码
- SVN修改用户名与密码
- Postgresql默认用户名与密码
- SVN修改用户名与密码
- SVN修改用户名与密码
- SVN修改用户名与密码
- SVN修改用户名与密码
- SVN修改用户名与密码
- Postgresql默认用户名与密码
- C#保存用户名与密码
- SVN修改用户名与密码
- git存储用户名与密码
- Cookie记住用户名与密码
- Activiti-Explorer 用户名与密码
- 用户名与密码 实验报告
- 在studio中遇见 解决Gradle DSL method not found: ‘android()’
- 文章标题
- 关于一些电商的问题汇集学习
- iOS信号量-dispatch_semaphore
- [Network Analysis] 复杂网络分析总结
- 用户名与密码
- js 从一个select选择数据添加到另一个select(包括移除)
- 等差数列
- 剑指Offer----面试题四之相关题目
- 测试
- LeenCode--Remove Element
- 笔试题60. LeetCode OJ (47)
- 信号与系统相关网站
- Androidstudio安装GsonFormat快速生成实体类插件