Inputbox密码打开窗体/输入密码打开窗体
时 间:2012-11-17 22:18:53
作 者:网行者 ID:12122 城市:江门
摘 要:Inputbox密码打开窗体
正 文:
借用江羽的函数:
http://www.accessoft.com/article-show.asp?id=2743
Option Compare Database
Public Declare Function findwindow Lib "user32" Alias "FindWindowA" (ByVal lpclassname As String, ByVal lpwindowname As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long
Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
Public Const EM_SETPASSWORDCHAR = &HCC
Public lTimeID As Long
'timeSetEvent的回调函数
Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal dw1 As Long, ByVal dw2 As Long)
'捕捉inputbox
hwd = findwindow("#32770", "密码输入")
If hwd <> 0 Then
hwd = FindWindowEx(hwd, 0, "edit", vbNullString)
SendMessage hwd, EM_SETPASSWORDCHAR, 42, 0
timeKillEvent lTimeID
End If
End Sub
'我的自定义函数
Public Function passwordOpenForm(myFrm As String)
Dim myInput As String
Dim M_ad As Boolean
lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)
myInput = InputBox("请输入管理密码:", "密码输入")
If IsNull(myInput) or DCount("工号", "usysuser", "密码 = '" & myInput & "'") = 0 Then
MsgBox "未输入密码或密码错误!", vbOKOnly + vbCritical, "系统提示"
DoCmd.Close acForm, myFrm
Else
M_ad = DLookup("管理员", "usysuser", "密码 = '" & myInput & "'")
If M_ad Then
MsgBox "欢迎你,系统管理员!", vbOKOnly + vbInformation, "系统提示"
Else
MsgBox "您不是管理员!", vbOKOnly + vbCritical, "系统提示"
DoCmd.Close acForm, myFrm
End If
End If
End Function
窗体加载事件中调用:
Private Sub Form_Load()
On Error GoTo Err_Form_Load
passwordOpenForm ("frmSetPermissions")
Exit_Form_Load:
Exit Sub
Err_Form_Load:
MsgBox Err.Description
Resume Exit_Form_Load
End Sub
附 件:
帐户号:000001,密码:000001
演 示:
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)