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

想学好编程，学好外语很重要 [enadd 2006年12月25日]

	您现在的位置：编程笔记网 >> 应用开发 >> vb >> VB加密 >> 文章正文

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

【字体：小大】

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

作者：未知文章来源：- 点击数：更新时间：2006-8-9

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

大家都知道，数据库的安全性是很重要的，它直接影响到数据

库的广泛应用。用户可以采用任意一种方法来保护数据库应用程

序，也可以将几种方法结合起来使用。利用Access 数据库自身提供的

加密功能及其他保护方法是很容易的，我就不多说了。在Access 数据

库中，嵌入了一种很强的数据库操作语言——Visual Basic 语言，所以

可以采用Visual Basic 编写程序，来实现一些复杂的功能。下面将介绍

如何在Visual Basic 程序中实现加密功能，以确保数据的安全性。

对于一些公司来说，职员的工资管理是一个不大不小的问题。

有时，领导需要了解一段时间内每个职员的收入如何，以便掌握各

项奖金的发放情况。为此，我设计了一个“工资管理”数据库，可以

按时间进行查询，并根据所选的工资类别进行统计。为了防止其他

人查看此数据库，我采用“独占”方式给数据库设置了密码。这种方

法也有一定的局限性，如果用户恰巧提供了正确的数据库密码，该

方法就不能控制用户对数据库进行操作。

为了进一步防止职员查看工资的统计结果（即有些奖金并不是

公开的，除领导以外的其他人不应该知道工资数目），我又创建了

一个密码表，设置好密码，记住并将其隐藏起来（先选中“密码表”，

再单击“窗口”菜单中的“隐藏”命令，即可把此表隐藏起来）。然后，

在“职工工资对话框”窗体中，添加“密码”文本框，并在“预览”及

“打印”的事件过程中加入下列语句：

DoCmd.ApplyFilter , "密码= Forms!

职工工资对话框!PassText"

If Not IsNull([密码]) Then

/*其他代码*/

Else

MsgBox "请输入正确的密码！"

PassText.SetFocus

End If

/*其他代码*/

这样，就实现了双重加密功能。即使用户能进入数据库，如果第

二次没有提供正确的密码，他也不能预览和打印一定时间范围的统

计结果。这就进一步限制了用户的非授权访问。

为了提高数据库的安全性，每隔一段时间都应更改密码。为此，

在“职工工资对话框”窗体中，我又添加了一个“更改密码”子窗体，

在此窗体中加入下列代码，即可随时更改密码：

Private Sub确定_Click()

On Error GoTo Err_确定_Click

DoCmd.ApplyFilter , "密码

= Forms!更改密码!Text1"

If IsNull([密码]) Then

MsgBox ("密码不正确，

请再输入一次")

Text1.SetFocus

GoTo Exit_确定_Click:

End If

If Text3.Value < > Text2.Value Then

Text3.SetFocus

MsgBox ("请输入正确的确认密码")

Else:

密码= Text3.Value

DoCmd.Close

End If

Exit_确定_Click:

Exit Sub

Err_确定_Click:

MsgBox Err.Description

Resume Exit_确定_Click

End Sub

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

设计好程序，并将有关代码隐藏起来（与隐藏“表”的方法相同），

以防其他人修改或偷看。这里介绍的方法只是在程序中实现加密功能

的一个小技巧，在其他数据库管理中，也可采用此方法进行加密。也

许存在更为简洁的方法，有待大家在编程过程中发掘出来并互相交流。

[1]

文章录入：enadd 责任编辑：enadd

上一篇文章：用RND()函数加密

下一篇文章：簡易的矩陣加密編碼法(cipher)

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				用VB编写DirectX7.0游戏（下… 用VB编写DirectX7.0游戏（上… 使用OLE DB和ADO调用返回记录… 使用VB调用Oracle程序包内的… VB中用ADO对象动态创建数据库… fffff 如何用MSComm Control传Bina… MultiLink的WinSock Server程… 用VB制作浏览器用VB编写网络寻呼机

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| 管理登录 \|


	Copyright ©2000 - 2005 Enadd.com 备案序号:辽ICP备06005595号 QQ:1656107 站长：enadd