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

在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
可堆叠的创意 开源硬件Microduino开发团队专访 致任天堂的公开信:我想在iPhone上玩超级玛丽 为什么OpenStack被视为新的Linux? Netflix开源Pig可视化框架:Lipstick Tangle:一个开源的数据交互式JS库 云储存服务Dropbox用户达1.75亿 旨在同步而非保存 Windows Server 2012 R2里十个极好的新功能 走向台前的地图服务 彰显LBS应用的创新力量 调查显示:1/5的企业采用SDN技术 Chrome 28正式登陆Windows及Mac 成首个使用Blink内核的浏览器版本 不只是Chrome,Firefox也开始支持Web Audio API 验证HTML的5个原因和5个资源 微软WPC 2013:Office 365融合BI,Cloud OS加速,Intune折扣,SQL高版本数据库等 移动开发者走向全能开发者的五大技能 360和西部数码战略合作 一键开启为国内30万家网站提供免费安全服务 中兴携手英特尔发布基于X86的Geek手机 应用生态建设仍需努力 微软将WP周期延长至36个月 明年推企业功能包 Gartner:全球PC出货量二季度下滑11% 联想成全球最大PC厂商 用来简化开发任务的20个JavaScript类库 煎饼,娇妻,Belief:黄太吉的移动互联网营销 AWS大降价:最高打两折 推荐十款超赞的Google Chrome扩展插件 在团队中进行单元测试/TDD的12条经验 小米游戏中心6月数据报告:页游转手游怎么搞? 司机请专心:安全是车载APP要解决的大问题 Windows 8之父Steven Sinofsky:跨平台开发会为什么越来越难? 一些达成共识的JavaScript编码风格约定 语义技术——微软、谷歌和Facebook的必争之地 初创公司PlumGrid:前思科工程师的“逆袭之战” Firefox OS智能手机继续扩张 德国市场今日开售 如果让莎士比亚、海明威编写JavaScript代码 如果大家有问题告诉我(anjie@zj.soim.com)一起讨论吗 想跟我交朋友anjie@zj.soim.com tc++3.0如何编写读鼠标程序(急) 都进来看看,程序员的下场... 各位高手,小弟问一个傻问题:怎么在播放一个AVI的时候用自定风格的滑块控制? 我上次在CSDN 上看到有人发贴子说自己写操作系统,我现在有个朋友也在写,想和他联系,但是我现在找不到那个贴子了, 有谁记得那个人的名字或贴子的位置请说.谢谢. 求助:打开网上邻居很慢为什么? 问一个蠢问题:控件何时获得焦点 请问一下哪里再收购软件呢? 请问一下在哪里可以找到收购软件的公司呢? 想作一个DOS程序,实现多台电脑间通过网卡传输文件. 辞职信 application.initialize完成了什么 高手来帮忙啊~ 看看java的魅力 如何通过自制程序的编辑框向现有一般应用程序编辑框传送内容? 窗口执行顺序问题,请多帮助,谢谢 如何自动取得server的日期和时间 怎样让文件指针指到文件末尾,必须skipline一行一行跳吗? 我想在菜单前添加图标,使用Bitmap属性但是为何只能载入*.bmp文件而不能使用*.ico文件,我只有*.ico的图标,请问该如何解决。 有新建一个文本文件并给其命名的函数吗,怎么用 我还真不懂呀? 这个COLTYPE是怎么用的呀?你说它怎么得到表中字段的类型呀? 有关存储器(ram,rom)的编址问题。以及32位或更多位芯片的问题。 一些汇编问题。想来问bcb的兄弟{bcb里好象有不少汇编高手} 救命:在安装了sco openserver之后,系统不能启动,先前安装的win98和win2k也不能。 请问如何进行URL译码??? 请问怎样截取一个string中的一段? 请问delphi做的exe最小可以到多少?怎么做? 我想请问一下WINGATE的具体怎样在WIN2000服务器版中进行设置。 ASP的同志们,能不能留一下QQ号码? 请问何处有破解ACCESS2000的程序或源代码呢? 请问要在TEdit.text组件文本串中找出当前光标在第几个字符上怎么办?谢谢! 请问关于dbImage控件的使用方法? 关于HDC及双缓冲的问题? xxxbird(*说你行,你就行,不行也行*),来领“我遇到几个怪问题。。。。。。”中的分 为什么ASP没法向SQL Server中写入数据?代码什么地方错了 大家帮忙找一下,找到我给50分 exe 捆绑机怎么做? 大家谈谈JSP的设计模式怎末了?我有个题目,设计好的大大有奖! 浏览器下的那个进度条是怎么弄出来的? C中的typedef struct和C++中的 struct有何区别? C中的typedef struct和C++中的 struct有 什么区别?谢谢 lastlove(本栏位广告招商中,欢迎投放!),jjdelphi(我真的不懂),jinesc(杂牌军)-(人民军队为人民) 开利息了 一个网页的原代码可以保存到字符串里吗? 有没有各种C++编译器都支持的字符串类型或字符串类? <@> 关于 ProcessMessages 一个想不如大家想,请各位帮忙想个主页的名字吧。 女友23岁,她会选择前途还是爱情?-----一个VB程序员的痛苦 如何实现应用程序与动态库通信??? ----myxfang----偶来贷款了!!!--- myxfang(大富翁银行~业务员~~),都给你了,我可把赌注都压到你身上了 一个圆的半径增加3厘米,直径增加________厘米,周长增加________厘米 如右下图,已知三角形ABC面积是12平方厘米,求阴影部分的面积还有,我是小学生,麻烦写能看得懂的, 如图所示(单位:厘米),图形中阴影部分的面积是多少平方厘米?正方形的宽是2厘米请在2013年12月15日20:30之前尽快回答 2.一个圆的半径增加2厘米,它的周长增加()厘米,面积增加()平方厘米.3.大小两个圆的半径比是2:3,面积差是30平方厘米,求两个圆的面积各是多少?4.已知一个圆的面积是62.8平方厘米,求跟它 如图,三角形abc面积是70平方厘米,BD=CD=6厘米,角C=45°.阴影部分面积多少? 阴影部分图形的面积是40平方厘米,大圆面积比小圆面积大多少平方厘米?(说明理由) 一个圆的半径扩大到原来的三倍他的直径扩大到原来的【 】倍周长扩大到原来的【 】倍面积扩大到原来的【 】 一个圆的半径扩大3倍,周长扩大几倍,面积扩大几倍 回答马上采纳 图中三角形ABC的面积是36平方厘米,AC长8厘米,DE长3厘米.求阴影部分的面积(ADFC不是正方形) 一个圆的半径扩大a倍,直径扩大( )倍,周长扩大( )倍,面积扩大( )倍.A.2 B.a C.2a D.pài(3.14) E.2pài(3.14) F.a的平方 我想问的是为什么最后选F 一个圆的半径扩大几倍,直径就扩大几倍,周长就扩大几倍,面积就扩大几倍这类题目该怎么做?明天我就要期末考了,有没有什么公式? 图中ABC的面积是36平方厘米,AC长8厘米,DE长3厘米,求阴影部分的面积(ADFC不是正方形) 一个圆的半径是a厘米,它的直径是几,周长是几,面积是几十万火急 图中梯形的上底是18厘米,高是15厘米,阴影部分面积是54平方厘米,求梯形的面积 如图,扇形AOB的圆心角为60°,半径为6cm,C,D分别是的三等分点,则阴影部分的面积是 . 等腰梯形的周长是48厘米,面积是96平方厘米,高8厘米,则腰长( )厘米? 2、如图,梯形ABCD的上底长5厘米,下底长8厘米,已知三角形ABE的面积是24平方厘米,求梯形的面积.阴影部分是棕色的。 图中扇形半径都是4cm,阴影部分面积是多少? 一个半圆的半径为8厘米,它的周长是( )厘米,面积是( )平方厘米. 如图,梯形ABCD的上底长5厘米,下底长8厘米,已知三角形ABE的面积是24平方厘米,求阴影部分的面积.写出全过程. 图中的扇形半径都是4厘米,求阴影部分面积? 已知一个半圆的直径是8厘米,求它的周长是多少? 如下图,在一个梯形内有两个三角形分别是4平方厘米和6平方厘米,梯形下底的长是上底的2倍,求阴影部分面积?不能上传图就是在那个梯形中任取一点连接四个角上面那个三角形是4平方厘米下 一个圆心角为45度半径为2的扇形和一个等腰直角三角形组成的图形,那么图中的阴影部分面积是多少 一张直径为8厘米的圆形,剪去一半,剩下的半圆周长( ),面积( ) 在如图所示的长方形abcd中,△abd的面积比△bcd的面积大10平方厘米,ab=8厘米,cd=3厘米,求阴影部分的面积急! 圆P与扇形OAB的半径OA、OB分别交于C、D,与弧AB相交于点E,已知OA=15,角AOB=60度,求图中阴影部分的面积圆P在扇形里面,求扇形减去圆形的面积,圆P于弧AB相交 直径是8厘米,求半径,周长,面积π取3.1 已知阴影部分的面积为24平方厘米,求梯形的面积. 如图,这个扇形的圆心角是90度,面积是31.4平方分米,求阴影部分的面积 一个等腰梯形的周长是48厘米,面积是96平方米,告示8厘米,则腰是多少厘米? 六上数学题求阴影部分的面积(空白部分面积为80平方厘米),高是8厘米 如图,这个扇形的圆心角是90度,面积是31.4dm²,求阴影部分的面积 半圆的半径是8厘米,求半圆周长和面积急用 已知梯形上底6厘米,下底8厘米,阴影面积24平方厘米,求梯形面积(需要提供计算方式) 如图,已知扇形OAB的圆心角为90度,分别以OA.OB为直径在扇形内作半圆,P和Q分别表示两个阴影部分的面积,那么P和Q的大小关系是( )A. P=Q B.P>Q C.P画不了图啊,我再试试! 一个圆,半径是5厘米,求出面积和周长怎么算?“ 下面图中三角形ABC的高是6cm,面积是36平方厘米,求阴影部分的面积,······ 如图:ABCD是正方形,扇形半径是60毫米,求阴影部分面积.我知道答案是3600π/4 - 60 x 30 = 900π - 1800为什么这么做啊?扇形里的正方形面积如何求出来的啊? 一个圆的半径扩大3倍,它的周长扩大( )倍,面积扩大( )倍写分析 两条对角线把梯形ABCD分割成四个三角形,如图所示,已知两个三角形的面积,求另两个三角形的面积各是多少已知三角形BOC等于12 三角形AOB等于6 如图,四边形ABCD是菱形,角A=60度,AB=2,扇形BEF的半径为2,圆心角为60度,则图中阴影部分的面积是——三分之二π-根号三 为什么? 一个圆的半径是2厘米,那么它的面积和周长相等这道题对还是错 如下图,BCEF是平行四边形,三角形ABC是直角三角形,BC长8厘米,AC长7厘米,阴影部分的面积比三角形ADG的面积大12平方厘米,求GC的长. 如图,是4个正方形组成的图形,求阴影部分的面积. 一个圆的半径是2厘米,它的周长和面积相等.对还是错. 如下图:四边形BCEF是平行四边形,ABC是直角三角形,BC长8厘米,AC长7厘米,阴影部分的面积比ADH的面积大12平方厘米.求HC的长? 两个正方形组成的1和图形,求图中的阴影面积 当一个圆的半径是几厘米时,他的周长和面积的数值相等 如图,四边形BCEF是平行四边形,三角形ABC是直角三角形,BC长9cm,AC长8cm,阴影部分的面积比三角形ADH的面积大9平方厘米,求HC的长是多少 6张大小不同的正方形纸片拼成的图形,已知最小的正方形面积是1,则图中阴影部分的正方形的面积是多少? 一个圆的半径是5厘米,它的周长=( ),面积=( ) 如右图,已知直角三角形ABC的面积是12平方厘米,求阴影部分的面积 一道图形数学题:下面阴影部分是35cm2,求圆环面积; 一个圆的直径是5厘米半径是()厘米周长是()厘米面积是()厘米 如图,已知三角形abc面积是12平方厘米,求阴影部分面积? 请教理科高材生 以下图形怎样求阴影部分面积(小学四年级数学题)图中涂黑的部分原来是没有东西的,是我后来涂黑的,为了方便教小孩。原来的条件是(一个边长为18的正方形减去中间 一个圆的半径由2厘米增加到了3厘米,那么,它的周长增加了()厘米,面积增加了()% 已知图中三角形ABC的面积为1998平方厘米,是平行四边形DEFC面积的3倍,那么图中阴影部分的面积是多少? 求下面图形的阴影部分面积.(单位:厘米) (图上半径是8cm)半径是8cm,求阴影面积,实在不会做,
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn