科学是实事求是的学问,来不得半点虚假。
DBMNG数据库管理与应用
当前位置:首页 > Access > 技术手册
详解Access数据库管理密码方法

  在Access数据库中,嵌入了一种很强的数据库操作语言——VisualBasic语言,所以可以采用VisualBasic编写程序,来实现一些复杂的功能。下面将介绍如何在VisualBasic程序中实现加密功能,以确保数据的安全性,从中我们也能够看出Access数据库对密码的管理。


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


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


  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


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


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


  关于Access数据库中的安全问题可能已经有好多文章都介绍过了,上文中的方法也是切实有效的,能够很好的保证Access数据库的安全,希望对大家能够有所帮助。


本站文章内容,部分来自于互联网,若侵犯了您的权益,请致邮件chuanghui423#sohu.com(请将#换为@)联系,我们会尽快核实后删除。
关于我们 - 版权声明 - 服务条款 - RSS订阅 - 工作机会 - 友情链接 - 联系我们 - 在线留言
Copyright © 2006-2018 DBMNG.COM All Rights Reserved. Powered by DEVSOARTECH   豫ICP备11002312号-2

豫公网安备 41010502002439号