使用VB语言制作登陆界面
来源:互联网 发布:照片变油画软件 编辑:程序博客网 时间:2024/05/22 13:15
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
- 使用VB语言制作登陆界面
- vb制作登陆界面(程序部分)
- 使用战火引擎制作游戏登陆界面
- 登陆界面制作........
- RelativeLayout布局制作登陆界面
- Java语言制作界面
- VB中设置登陆界面的代码
- 制作自己的XP开机登陆界面
- pb 制作登陆界面连接数据库
- 安卓学习之登陆界面制作
- 账号登陆界面制作(Axure)
- pb 制作登陆界面连接数据库
- QQ登陆界面Resource Hacker制作
- HTML练习制作邮箱登陆界面
- 使用PHP制作 简易员工管理系统之二(管理员登陆界面以及验证)
- 使用PHP制作 简易员工管理系统之三(管理员登陆界面以及数据库验证)
- 使用java awt 制作登陆,注册界面(结合数据库MY SQL )使用mac系统的eclipse
- WindowsForm登陆窗体的制作(Vb.net+Access)
- 简单数据的本地持久化
- JAVA 标识符和关键字
- 【UGUI进阶】RectTransform剖析
- 电信数据挖掘中ID过少问题解决总结
- eclipse 启动项目org.xml.sax.SAXParseException; lineNumber: 18; columnNumber: 1; 文件提前结束
- 使用VB语言制作登陆界面
- 得到子指定元素方法和得到指定子元素集合方法mvvm得到焦点
- Shell脚本基础学习(五)----case命令
- 最大值 最小值 平均值
- 鞍点的寻找
- 基于物理着色(一)
- 【项目管理和构建】十分钟教程,eclipse配置maven + 创建maven项目(三)
- MVVM实现TreeView
- Python编程规范