首页 登录验证密码设计

登录验证密码设计

举报
开通vip

登录验证密码设计登录验证密码设计 Option Compare Database   Public Function getrs(ByVal strquery As String) As ADODB.Recordset   Dim rs As New ADODB.Recordset  Dim conn As New ADODB.Connection  On Error GoTo getrs_error  Set conn = CurrentProject.Connection  rs.Open strquery, conn, a...

登录验证密码设计
登录验证密码 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 Option Compare Database   Public Function getrs(ByVal strquery As String) As ADODB.Recordset   Dim rs As New ADODB.Recordset  Dim conn As New ADODB.Connection  On Error GoTo getrs_error  Set conn = CurrentProject.Connection  rs.Open strquery, conn, adOpenKeyset, adLockOptimistic  Set getrs = rs  getrs_exit:   Set rs = Nothing   Set conn = Nothing Exit Function getrs_error:  MsgBox (Err.Description) Resume getrs_exit End Function                Private Sub Form_Load() 文本  Me.1.SetFocus 文本Me.1 = "" 文本 Me.3 = ""   End Sub        命令Private Sub 5_Click() On Error GoTo err_command9_click   Dim rs As New ADODB.Recordset Dim str As String  Dim n As Integer 注 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 册用户注表 册注表册用户名文本  str = "select count(.ID)from where .='" & Me.1 注表册用户密户文本  str = str & "'and .='" & Me.3 & "'"  Set rs = getrs(str)   n = rs(0) 文本文本 If Trim(Me.1) = "" Or IsNull(Me.1) Then 户户入用户名,称 MsgBox ("") 文本文本ElseIf Trim(Me.3) = "" Or IsNull(Me.3) Then 户户入用户密户,MsgBox ("")  ElseIf n <> 1 Then 用户名密户不正,确 MsgBox ("")   Else  Me.Visible = False 主窗体 DoCmd.OpenForm ""  End If   exit_command9_click:  Exit Sub  err_command9_click: MsgBox (Err.Description)  Resume exit_command9_click  End Sub    命令  Private Sub 6_Click()  DoCmd.Quit      End Sub
本文档为【登录验证密码设计】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_358746
暂无简介~
格式:doc
大小:13KB
软件:Word
页数:0
分类:互联网
上传时间:2018-06-05
浏览量:22