说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
在Access数据库中实现密码管理的另一种方式 -VB资料

作者:王小娟
   大 家 都 知 道, 数 据 库 的 安 全 性 是 很 重 要 的, 它 直 接 影 响 到 数 据 库 的 广 泛 应 用。 用 户 可 以 采 用 任 意 一 种 方 法 来 保 护 数 据 库 应 用 程 序, 也 可 以 将 几 种 方 法 结 合 起 来 使 用。 利 用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
Hadoop Summit 2013见闻:创业与Hadoop 2.0不可阻挡 Facebook的清洁能源改革——革命尚未成功,仍需努力 YARN或将成为Hadoop新发力点 主流编程语言属性一览(多图) 粉碎硬件复杂论:开发者不懂硬件运行的方式怎么可以?! 在线等待,文件转换的问题 安装问题 急!!在线等待 : 我的realone + divx5 不能播放avi格式的电影,求助 请问有关数据库编程的有什么好书? 有下载sqlserver6.5的地方吗? MFC小问题,大侠一定能解决,帮帮忙! 在线等待一个关于定时的问题 我要将一个 a.exe 文件的进程杀掉,怎么做? 这是什么错误?? 请求2012年人教版七年级英语上册英语磁带全部内容 我想要四级英语单词的 手机下载地址 求人教版七年级上 下册英语磁带的mp3(包括单词课 哦冬夜的灯光这篇课文、写了什么事件,从而表现了什么 心中的蓝天 文中划线句运用了什么修辞手法,其表达效 谁能把新要求大学英语词汇星火式巧记·速记·精炼六级 英语听力用磁带的好还是MP3的好?我想练习英语听力 胡杨古道飞天梦; 第8段划线句运用了什么的修辞手法 天上的星星 ⑴大人们快活了,对我们就亲近;他们烦恼 斯诺登抨击美国国家安全局为“最坏犯罪罗姆尼指责奥巴马对医改法案描述“不诚哈瓦那国际博览会着重推介古巴首个经济英一小猫电话\"报警\"致警方破门而哈佛教授质疑美国饮食指南推出新版本饮在床上发现女方越来越力不从心了,应该我们都成为了性健康的爱无能。10速来了,还是前驱车,哪家车厂这么书豪中压哨+末节关键盖帽 都这样了为纳智捷ECO HYPER全新亮相 再寻仙卷网游之龙战八荒赝品篡隋异界之逆天神鼎青铜峡旅游小榄镇旅游循化旅游荆坪古村旅游蛟河旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘