登录界面的设计
来源:互联网 发布:初中生学编程考试 编辑:程序博客网 时间:2024/05/21 10:22
代码如下
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
0 0
- 登录界面的设计
- 登录界面的设计
- 登录界面的设计
- 05登录界面的布局设计
- Java设计登录界面
- 设计一个登录界面
- 不错的设计创意:给WEB程序员的登录界面!
- 设计从“登录界面”开始
- 登录界面记住密码设计
- 登录界面验证设计示例
- 因果图设计QQ登录界面的测试用例
- 99个精美的免费登录注册界面PSD设计
- 设计用户登录界面的程序,逻辑问题
- 采用CSS3设计的登录界面,动态效果(动画)
- Android入门实例一 登录界面的设计与实现
- 如何设计登录界面“记住我”的功能?
- 设计包含多种控件的用户登录界面(1)
- 巧妙设计一个mobile or pc 的登录界面
- aidl.exe'' finished with non-zero exit value 1和3问题解决
- EJB总结
- 230二进制
- Charles破解
- 登录界面的设计
- atexit()函数
- 面试题3
- 华为C语言编程规范--变量、结构
- 分类算法 之 支持向量机--原理+案例+代码
- 深入浅出Mybatis系列(四)---配置详解之typeAliases别名(mybatis源码篇)
- EventBus学习入门
- 一位数乘一位数
- 选择法排序