在Access数据库中实现密码管理[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 $#@60; $#@62; Text2.Va 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

更改密码后,应记着此密码,以备今后利用.

计划好程序,并将有关代码躲藏起来（与躲藏"表"的办法相同）,以防其他人改正或偷看.这里介绍的办法只是在程序中实现加密功效的一个小本领,在其他数据库管理中,也可采取此办法举行加密.大概存在更为简便的办法,有待大家在编程历程中发掘出来并彼此交流.