起因
之前曾经和小伙伴讨论过关于机房收费系统的安全性的问题,如果忘了密码怎么办?
于是脑洞就来了,就联想到了QQ的密保功能!于是就开始干了
思路
密保用来找回密码,所以需要在数据库user_info中添加两个字段用来放置密保问题及密保答案!
找回密码按钮当然是放在登录窗体。
用户在设置完密保后还可以在主程序里面找到一个修改密保的入口!所以我就在菜单上添加了一个安全的菜单!
窗体的设计与修改密码的窗体大同小异!
实现
1、窗体
2、代码
其他的实现没有那么复杂!接下来看一下验证码的实现!
Private Sub drawvc()
Dim i, vc, px, py As Long
Dim r, g, b As Byte
Randomize
vc = CLng(8999 * Rnd + 1000)
vcc