采用“独占”的方式给数据库设置密码
2010-03-18 15:17:17 来源:WEB开发网大家都知道,数据库的安全性是很重要的,它直接影响到数据库的广泛应用。用户可以采用任意一种方法来保护数据库应用程序,也可以将几种方法结合起来使用。利用Access数据库自身提供的加密功能及其他保护方法是很容易的,本文中将不再赘述。在Access数据库中,嵌入了一种很强的数据库操作语言——VisualBasic语言,所以可以采用VisualBasic编写程序,来实现一些复杂的功能。
对于一些公司来说,职员的工资管理是一个不大不小的问题。有时,领导需要了解一段时间内每个职员的收入如何,以便掌握各项奖金的发放情况。为此,笔者设计了一个“工资管理”数据库,可以按时间进行查询,并根据所选的工资类别进行统计。为了防止其他人查看此数据库,笔者采用了“独占”方式给数据库设置了密码。这种方法也有一定的局限性,如果用户恰巧提供了正确的数据库密码,该方法就不能控制用户对数据库进行操作。
----为了进一步防止职员查看工资的统计结果(即有些奖金并不是公开的,除领导以外的其他人不应该知道工资数目),笔者又创建了一个密码表,设置好密码,记住并将其隐藏起来(先选中“密码表”,再单击“窗口”菜单中的“隐藏”命令,即可把此表隐藏起来)。然后,在“职工工资对话框”窗体中,添加“密码”文本框,并在“预览”及“打印”的事件过程中加入下列语句:
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
IfText3.Value<>Text2.ValueThen
Text3.SetFocus
MsgBox("请输入正确的确认密码")
Else:
密码=Text3.Value
DoCmd.Close
EndIf
Exit_确定_Click:
ExitSub
Err_确定_Click:
MsgBoxErr.Description
ResumeExit_确定_Click
EndSub
更改密码后,应记住此密码,以备以后使用。
设计好程序,并将有关代码隐藏起来(与隐藏“表”的方法相同),以防其他人修改或偷看。这里介绍的方法只是在程序中实现加密功能的一个小技巧,在其他数据库管理中,大家也可以采用此方法进行加密。