在Access数据库里面完成口令管理

__baby莉莉

__baby莉莉

2016-02-19 19:52

关注图老师设计创意栏目可以让大家能更好的了解电脑,知道有关于电脑的更多有趣教程,今天给大家分享在Access数据库里面完成口令管理教程,希望对大家能有一点小小的帮助。

  大家都知道,数据库的安全性是很重要的,它直接影响到数据库的广泛应用。用户可以采用任意一种方法来保护数据库应用程序,也可以将几种方法结合起来使用。利用Access数据库自身提供的加密功能及其他保护方法是很容易的,我就不多说了。在Access数据库中,嵌入了一种很强的数据库操作语言——Visual Basic语言,所以可以采用Visual Basic编写程序,来实现一些复杂的功能。下面将介绍如何在Visual Basic程序中实现加密功能,以确保数据的安全性。 

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

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

DoCmd.ApplyFilter , "密码 = Forms!

职工工资对话框!PassText"

If Not IsNull([密码]) Then

/*其他代码*/

Else

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

PassText.SetFocus

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

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:

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

Exit Sub

Err_确定_Click:

MsgBox Err.Description

Resume Exit_确定_Click

End Sub

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

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

展开更多 50%)
分享

猜你喜欢

在Access数据库里面完成口令管理

编程语言 网络编程
在Access数据库里面完成口令管理

在Access里面完成口令管理地另一种方式

编程语言 网络编程
在Access里面完成口令管理地另一种方式

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

将数据库里面的内容生成EXCEL

ASP
将数据库里面的内容生成EXCEL

在Access数据库中实现密码管理

编程语言 网络编程
在Access数据库中实现密码管理

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

在VB中压缩ACCESS数据库

vb
在VB中压缩ACCESS数据库

在Access数据库中如何使用SQL

编程语言 网络编程
在Access数据库中如何使用SQL

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

談情沈默的伤感分组名称_你我之恋何时相逢

談情沈默的伤感分组名称_你我之恋何时相逢

ACCESS改为SQL需要注意哪几个地方

ACCESS改为SQL需要注意哪几个地方
下拉加载更多内容 ↓