在Access数据库中实现密码管理的另一种方式

----对于一些公司来说，职员的工资管理是一个不大不小的问 题。有时，领导需要了解一段时间内每个职员的收入如何，以便掌 握各项奖金的发放情况。为此，我设计了一个"工资管理"数据库， 可以按时间进行查询，并根据所选的工资类别进行统计。为了防 止其他人查看此数据库，我采用"独占"方式给数据库设置了密码。 这种方法也有一定的局限性，如果用户恰巧提供了正确的数据库 密码，该方法就不能控制用户对数据库进行操作。

----为了进一步防止职员查看工资的统计结果（即有些奖金并不是公开的，除领导以外的其他人不应该知道工资数目），我又创建了一个密码表，设置好密码，记住并将其隐藏起来（先选中"密 码表"，再单击"窗口"菜单中的"隐藏"命令，即可把此表隐藏起来）。然后，在"职工工资对话框"窗体中，添加"密码"文本框，并在"预"及"打印"的事件过程中加入下列语句：

DoCmd.ApplyFilter,"密码=Forms!
职工工资对话框!PassText"
IfNotIsNull([密码])Then
/*其他代码*/
Else
MsgBox"请输入正确的密码！"
PassText.SetFocus
EndIf
/*其他代码*/

----这样，就实现了双重加密功能。即使用户能进入数据库，如 果第二次没有提供正确的密码，他也不能预览和打印一定时间范 围的统计结果。这就进一步限制了用户的非授权访问。

----为了提高数据库的安全性，每隔一段时间都应更改密码。为 此，在"职工工资对话框"窗体中，我又添加了一个"更改密码"子 窗体，在此窗体中加入下列代码，即可随时更改密码：

PrivateSub确定_Click()
OnErrorGoToErr_确定_Click
DoCmd.ApplyFilter,"密码
=Forms!更改密码!Text1"
IfIsNull([密码])Then
MsgBox("密码不正确，
请再输入一次")
Text1.SetFocus
GoToExit_确定_Click:
EndIf
IfT 3.Value<>Text2.ValueThen
Text3.SetFocus
MsgBox("请输入正确的确认密码")
Else:
密码=Text3.Value
DoCmd.Close
EndIf
Exit_确定_Click:
ExitSub
Err_确定_Click:
MsgBoxErr.Description
ResumeExit_确定_Click
EndSub

----更改密码后，应记住此密码，以备以后使用。

----设计好程序，并将有关代码隐藏起来（与隐藏"表"的方法相 同），以防其他人修改或偷看。这里介绍的方法只是在程序中实现 加密功能的一个小技巧，在其他数据库管理中，也可采用此方法 进行加密。也许存在更为简洁的方法，有待大家在编程过程中发 掘出来并互相交流。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18