制作登录窗口
2016-06-22 18:07
260 查看
姓名:孟圣均专业:电气工程及其自动化二班 学号:15050342021
制作登录窗口
一、实验目的
1、 掌握可视化数据管理器的使用方法;
2、 掌握数据控件及绑定控件的使用方法;
3、 掌握代码操作数据库的方法。
二、 实验内容
1、 建立登录窗口
a. 首先放置两个label,左对齐,在label右侧放置两个text box左对齐,并且与label上对齐,在下侧最后放置两个command。
b. 属性设置
所有控件的TabIndex属性:txtUserID-0
txtPassword-1
cmdLogin-2
cmdCancel-3
2、 程序内容
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
Else
MsgBox "密码错误"
End If
End If
ppp:
Cn.Close
Else
MsgBox "亲,您的输入次数超过允许的最大次数", vbCritical, "登录"
End If
End Sub
Private Sub txtUserID_Change()
End Sub
4、可以读取并改写数据表的第三方程序\ActiveX—OLE\工程\引用\Microsoft ActiveX Data Objects 2.5 Library
5、运行并检查问题
输入用户名,点击Tab键,分别输入正确和错误的密码,点击登录看程序运行情况。
一、 遇到的困难。
在设置LABEL窗口时,无法找到设置对齐的按钮。
制作登录窗口
一、实验目的
1、 掌握可视化数据管理器的使用方法;
2、 掌握数据控件及绑定控件的使用方法;
3、 掌握代码操作数据库的方法。
二、 实验内容
1、 建立登录窗口
a. 首先放置两个label,左对齐,在label右侧放置两个text box左对齐,并且与label上对齐,在下侧最后放置两个command。
b. 属性设置
对象 | 属性 | 属性值 |
Form1 | Caption | FrmLogin |
Alignment | Center | |
Label1 | Caption | 用户(U) |
Label2 | Caption | 密码(P) |
Textbox | Text | txtUserID |
Textbox | Text | txtPassword |
Passwordchar | * | |
Command1 | Caption | 登录 |
名称 | cmdLogin | |
Default | True | |
Command2 | Caption | 取消 |
名称 | cmdCancel | |
Cancel | True |
txtPassword-1
cmdLogin-2
cmdCancel-3
2、 程序内容
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
Else
MsgBox "密码错误"
End If
End If
ppp:
Cn.Close
Else
MsgBox "亲,您的输入次数超过允许的最大次数", vbCritical, "登录"
End If
End Sub
Private Sub txtUserID_Change()
End Sub
4、可以读取并改写数据表的第三方程序\ActiveX—OLE\工程\引用\Microsoft ActiveX Data Objects 2.5 Library
5、运行并检查问题
输入用户名,点击Tab键,分别输入正确和错误的密码,点击登录看程序运行情况。
一、 遇到的困难。
在设置LABEL窗口时,无法找到设置对齐的按钮。
相关文章推荐
- java 自定义annotation
- MySQL数据库,将一列数据组合成一行,并以逗号分割,GROUP_CONCAT
- Android cannot resolve constructor intent原因与解决办法
- FlexSlider插件的详情设置参数
- Maven添加工程版本信息及时间戳
- 备注:Shiro权限管理的过滤器解释:
- Yii 一些小的问题
- Linux静态库和共享库
- #ubuntu#ubuntu 下安装配置(更新)java1.8环境 jsk8
- WIN7 32位 安装RVDS3.1 问题
- Unity3D中C#调用iOS的静态库(*.a)
- 菜单栏的制作
- 计蒜客 特殊质数
- Go_NO1_Go语言的初步认识
- cmd文件复制,删除
- java加密解密--openSSL 用法
- Android Studio中 finished with non-zero exit value 2
- javascript函数的throttle和debounce
- 二维数组的鞍
- zookeeper使用和原理探究(一)