不需要用户名和密码,就可以达到限制用户非法使用您开发的软件。在这里分享一个方案。
一、原理:
第1步事先在表中记录用户的操作环境参数,可以在用户的电脑上去获得(一般来说是自已的同事,因为他要用你的软件,当然会让你操作他的电脑),比如:
'获得机器名用:
Environ("COMPUTERNAME")
'获得用户名:
Environ("USERNAME")
第2步:用autoexec宏来执行启动窗体,在运行启运窗体前通过函数来判断用户是否合法
Function CheckComputer()
'如果计算机名等于ZHANGZHI
If Environ("COMPUTERNAME") = "ZHANGZHI" Then
DoCmd.OpenForm "frmStart" 'frmStart是启动窗体
Else
MsgBox "非法使用本软件,即将退出!", vbCritical, "提示"
DoCmd.Quit '退出
End If
End Function
二、视频讲解
在《Access每天三分钟 第三季》第2课的结尾部分,有相关讲解,点击:https://m.qlchat.com/wechat/page/topic-intro?topicId=2000004658621584