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

众所周知，数据库的安全性非常重要，直接影响到数据库的广泛应用。用户可以使用任何方法来保护数据库应用程序，也可以将几种方法结合使用。Access数据库本身提供的加密功能和其他保护方式很容易使用，就不多说了。在Access数据库中嵌入了一种强大的数据库操作语言VisualBasic语言，所以我们可以用Visual Basic编写程序来实现一些复杂的功能。下面介绍如何在VisualBasic程序中实现加密，以确保数据的安全性。

对于一些公司来说，员工的薪酬管理是一个不大不小的问题。有时候，领导需要了解每个员工在一段时间内的收入如何，以便掌握各种奖金的分配情况。所以我设计了一个“工资管理”的数据库，可以按时间查询，也可以按选择的工资类别统计。为了防止其他人查看这个数据库，我以“独占”的方式为数据库设置了密码。这种方法也有一些局限性。如果用户碰巧提供了正确的数据库密码，它就无法控制用户操作数据库。

为了进一步防止员工查看工资统计数据(也就是有些奖金是不公开的，除了领导之外任何人都不应该知道工资数额)，我又创建了一个密码表，设置密码，记住并隐藏(可以先选中密码表，然后点击“窗口”菜单中的“隐藏”命令来隐藏这个表)。然后，在“员工工资对话框”窗体中，添加“密码”文本框，并在“预览”和“打印”的事件过程中添加以下语句:

DoCmd。ApplyFilter，"密码=表单！
员工薪资对话框！PassText "
如果不是IsNull([密码])，则

/*其他代码*/
Else
MsgBox "请输入正确的密码！"
passtext . setfocus
end if
/*其他代码*/

这样就实现了双重加密功能。即使用户可以访问数据库，如果第二次没有提供正确的密码，也无法预览和打印某个时间范围内的统计结果。这进一步限制了用户的未授权访问。
为了提高数据库的安全性，应该每隔一段时间更改一次密码。为此，在员工工资对话框的窗体中，我添加了一个修改密码的子窗体。您可以随时通过将以下代码添加到此表单来更改您的密码:

private ok _ Click()
On Err GoTo Err _ ok _ Click
DoCmd。ApplyFilter，"密码
=表单！改密码！1 "
if为null([password])Then
MsgBox("密码不正确，
请重新输入")
text 1 . set focus
goto exit _ ok _ Click:
End if
if text 3 . value < > text 2 . value Then
text 3 . set focus . MsgBox("请输入正确的确认密码")
Else:
password = text 3 . value[]

更改密码后，您应该记住此密码以备将来使用。
设计程序，隐藏相关代码(与隐藏“表格”的方式相同)，防止他人修改或窥视。这里介绍的方法只是在程序中实现加密功能的一个小技巧，也可以用于其他数据库管理中的加密。也许有更简洁的方法，需要在编程过程中去发现和互相交流。