登陆页面的制作
来源:互联网 发布:mysql delete语句 编辑:程序博客网 时间:2024/04/28 18:01
一思路
登陆—Form-frmlogin
Start up Position=2
账号—Lable TextBox—txtUserID
密码—Lable TextBox—txtPassword
登陆,取消—CommangButton
Cmdlogin-default:ture-ENTER
Cmd Cancel-Cancel:ture-Esc
字体:大小:小一
所有控件的Tablnde*属性,0,1,2,3
Txt user ID
Txt password-1
Comd login-2
Cmd cancel-3
二程序
Option Explicit
Const MaxLoginTimes As Integer = 3
Private Sub comdlogin_click()
Static loginTimes As Integer
loginTimes = loginTimes + 1
On Error GoTo App
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;Date.soure= c:\User\if\Desktop\Text Example.mdb"
cn.open
rs.open (strsql)
If rs.
一思路
登陆—Form-frmlogin
Start up Position=2
账号—Lable TextBox—txtUserID
密码—Lable TextBox—txtPassword
登陆,取消—CommangButton
Cmdlogin-default:ture-ENTER
Cmd Cancel-Cancel:ture-Esc
字体:大小:小一
所有控件的Tablnde*属性,0,1,2,3
Txt user ID
Txt password-1
Comd login-2
Cmd cancel-3
二程序
Option Explicit
Const MaxLoginTimes As Integer = 3
Private Sub comdlogin_click()
Static loginTimes As Integer
loginTimes = loginTimes + 1
On Error GoTo App
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;Date.soure= c:\User\if\Desktop\Text Example.mdb"
cn.open
rs.open (strsql)
If rs.EOF = ture Then
MsgBox txtUserID.Text&"不存在"
Me.txt UserID.SetFocus
Me.txt UserID.setstart = 0
Me.txtUserID.SelLength = Len(Me.txtUserID.Text)
Else
If Rs.Field("Userpassword").Value=Me.txtpassword.Text.Then
Msg box: 登陆成功
Unload Me
frm New Show
Else
MsgBox "密码错误"
End If
End If
ppp:
Else
MsgBox "您的输入次数超过允许的最大错误次数"
End Sub
三实验结论
在connection联通的条件下,可以和数据表进行数据的双向运输Recordset
从而我们学习了一种新的语言(sql)
- 登陆页面的制作
- iOS开发中登陆页面的制作
- 使用 uilabel等 制作的登陆页面 及页面跳转
- 运用struts2制作登陆页面的验证(一)
- 登陆窗体的制作
- jquery制作登陆loading加载页面效果
- 自动化登陆百度页面的登陆页面
- 登陆页面的识别码
- MiniTwitterSimulate的登陆页面
- 登陆页面的设计
- 简单的登陆页面
- WindowsForm登陆窗体的制作
- 百度页面的制作
- 第二本第三章制作网易邮箱登陆页面
- 根据PSD登陆页面设计稿切图制作HTML网页全过程
- 根据PSD登陆页面设计稿切图制作HTML网页全过程
- 登陆页面,自己看的!
- 自定义SharePoint的登陆页面
- Log4j配置详解
- 1 10
- PB12.5带图标菜单自定义对象
- TextView.setTextColor方法不能用R.Color.XXX设置颜色
- 友盟推送:测试模式推送完成,但却收不到推送信息
- 登陆页面的制作
- 分布式服务--dubbo学习一
- Java之环境
- vb制作登陆界面(程序部分)
- 关于Android 添加系统级(java)服务和调用的编写实现说明
- 设置登录窗口
- Java之父、子实例的内存控制
- 剔除集合中多余的相同的值
- iOS使用NSMutableAttributedString 实现富文本(不同颜色字体、下划线等)