VB中设置登录界面的代码
来源:互联网 发布:openwrt配置网络转发 编辑:程序博客网 时间:2024/06/11 14:31
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
- VB中设置登录界面的代码
- VB中设置登陆界面的代码
- 登录界面的密码设置
- 用户登录界面的设置
- 用户登录界面的设置
- 简单的登录界面代码!
- Fedora中设置修改登录界面图片
- vb.net 登录界面 源代码
- VB登录界面设计代码
- VB登录界面的两种实现方式
- 关于登录界面的背景图片设置问题
- 两个IOS的登录界面小代码
- 登录+注册界面的实现(代码)
- 某乎的登录界面代码--JS
- 代码实现android的一个登录界面
- A06_RelativeLayout_logIn_登录界面设置
- android代码中打开系统设置界面
- android代码中打开系统设置界面
- Hello CSDN
- 浏览器的腻子脚本
- Android使用SurfaceView进行涂鸦的开发实例
- 第12周项目2—Time类中的运算符重载
- C++ 面向对象 —— 实用程序片段
- VB中设置登录界面的代码
- 我的第一篇博客
- 微信开发模板
- SQL语句映射文件(1)resultMap
- 深入理解run loop
- JavaScript中setTimeout的用法
- Oracle避免全表扫描方式
- debug.keystore文件不存在解决办法
- nfs 安装教程 centos6