admin 管理员组文章数量: 1184232
2024年3月27日发(作者：快手空格代码)
维普资讯
《工业控制计算机｝２００６年１９卷第７期 ３７
基于ｉＦＩＸ中ＶＢＡ的数据库加密和应用
Ａｐｐｌｉｃａｔｉｏｎ ａｎｄ Ｅｎｃｒｙｐｔｉｏｎ ｏｆ Ｄａｔａｂａｓｅ Ｂａｓｅｄ ｏｎ ＶＢＡ ｉｎ ｉＦＩＸ
孟昭晋 （河海大学电气工程学院，江苏南京２１００９８）
摘要
通过基于ｉＦＩＸ的ＶＢＡ编程，制作窗体，利用ＯＤＢＣ和ＡＤＯ技术读写Ａｃｃｅｓｓ数据库，实现类似ｉＦＩＸ中电子签名功能，
并对Ａｃｃｅｓｓ数据库进行加密。该应用实例方便有效并且现场运行稳定。
关键词：ｉＦＩＸ，ＶＢＡ，ＡＤＯ，Ａｃｃｅｓｓ ２０００，应用和加密
Ａｂｓｔｒａｃｔ
Ｉｎ ｔｈｉｓ ｐａｐｅｒ．ｐｒｏｇｒａｍｍｅｄ ｂｙ ＶＢＡ ｂａｓｅｄ ｏｎ ｉＦＩＸ．ｆｏｒｍ ｗａｓ ｄｏｎｅ，ＯＤＢＣ ａｎｄ ＡＤＯ ｔｅｃｈｎｏｌｏｇｉｅｓ ｗｅｒｅ ｕｓｅｄ ｔｏ ｗｒｉｔｅ ａｎｄ
ｒｅａｄ Ａｃｃｅｓｓ ｄａｔａｂａｓｅ．ｉｎ ｏｒｄｅｒ ｔｏ ｃａｒｒｙ ｏｕｔ ｓｉｍｉｌａｒ ｆｕｎｃｔｉｏｎ ｏｆ ｅｌｅｃｔｒｏｎｉｃ ｓｉｇｎａｔｕｒｅ ｉｎ ｉＦＩＸ．ａｌｓｏ，ｅｎｃｒｙｐｔ ｔｈｅ ｄａｔａｂａｓｅ．Ｔｈｅ ０ｐ—
ｅｒａｔｉｎｇ ｒｅｓｕｌｔｓ ｓｈｏｗ ｔｈａｔ ｉｔ ｃａｎ ｒｕｎ ｓｔｅａｄｉｌｙ．
Ｋｅｙｗｏｒｄｓ：ｉＦＩＸ．ＶＢＡ．ＡＤＯ，Ａｃｃｅｓｓ ２０００．Ａｐｐｌｉｃａｔｉｏｎ ａｎｄ Ｅｎｃｒｙｐｔｉｏｎ
ｉＦＩＸ是美国Ｉｎｔｅｌｌｕｔｉｏｎ公司开发的大型工控组态软件，是当
部分关键代码如下：
今世界工业控制领域最为流行的上位机监控软件之一。ｉＦＩＸ采
Ｐｒｉｖａｔｅ ＤＬＯｂｉ
Ａ工×）连接（）ＤＢｃ教扭：枨
用嵌入式ＶＢＡ（Ｖｉｓｕａｌ Ｂａｓｉｃ ｆｏｒ Ａｐｐｌｉｃａｔｉｏｎ）标准语言，简单
Ｄｉｍ ＯｂｊｅｃｔｓＤａｔａＳｏｕｒｃｅ Ａｓ Ｏｂｊｅｃｔ
易学，便于更好的开发ｉＦＩＸ的附加功能。本文基于ｉＦＩＸ工作平
Ｄｉｍ Ｄｃｎ Ａｓ Ｎｅｗ ＡＤＯＤＢ．Ｃｏｎｎｅｃ．
＜
ｊ ： 譬 圯
＼一
台进行开发，采用ＶＢＡ编程实现实时存取数值修改记录到Ａｃ—
１ｉｏｎ
、
ｑ 埘ＮＵＩ１１ 个
ｃｅｓｓ关系数据库，并根据企业管理要求对Ａｃｃｅｓｓ数据库进行
Ｄｉｍ ｒｓ Ａｓ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ
毅 ‘ 竹之ｌ１ 舶数宁
加密。
Ｄｉｍ ｃｎ Ａｓ Ｎｅｗ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ
Ｄｉｍ ｒｓ１ Ａｓ Ｎｅｗ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ
ｊ输入 １．
１ 基于ＶＢＡ的数据库加密和应用实例
一
／ ＿ｌ＿～
Ｄｉｍ Ｎｅｗ ｖａｌｕｅ Ａｓ Ｄｏｕｂｌｅ
首先在ＶＢＡ编程环境中
Ｄｉｍ ｓＴａｇ Ａｓ Ｓｔｒｉｎｇ
？ ｉ￣ｉｉ＇ ＞
、
一
、、 ／
插入一个窗体ｆｒｍＭｏｄｉｆｙ，然
Ｄｉｍ ｓＤｅｃ Ａｓ Ｓｔｒｉｎｇ
、 ．
，一
后在此窗体上添加５个文本
１ ｔ３蔓＾、 ＿琦＼
她
ｓＤｅｃ＝”聚合釜一（０１一Ａ０５０３Ａ）转速
、尊 箩
框ｔｘｔＮｕｍ、ｔｘｔＮａｍｅ、ｔｘｔＰｗｄ、
ｓＴａｇ＝ Ｆｉｘ３２．Ｆｉｘ．ＸＣ
＿
Ａ１０１ Ｆ－ＣＶ”
ｔｘｔＬｏｗ、ｔｘｔＨｉｇ，“清除”、“关
Ｉｆ ｌｘｔＮｕｍ．Ｔｅｘｔ＝ Ｔｈｅｎ
：
０％徽≥～
闭”、“确定”３个按钮以及“上
ＭｓｇＢｏｘ（”请输入数值！”）
、一 ’
－
０
限”、“下限”、“工号”、“密码”４
Ｅｌｓｅ
ｔ
个Ｌａｂｌｅ。如图１所示。
Ｎｅｗ
◇ ．
＿
ｖａｌｕｅ＝ＣＤｂｌ（ｔｘｔＮｕｍ．Ｔｅｘｔ）
进
当操作员对某一工艺参
Ｅｎｄ Ｉｆ
／
慑 ｌ迅蠢趣 、、
、、 一 一’
数进行修改时，点击画面中需
Ｉｆ ＯｂｊｅｃｔｓＤａｔａＳｏｕｒｇｅ．ＣｌａｓｓＮａｍｅ＝
要修改的数据链接，弹出该窗
“ＣＯｐｃＤａｔａｌｔｅｍ“Ｔｈｅｎ
阿ｉ ｆ 息溃，￣ｃｃｅｓｓ数 Ｊ Ｉ
ｉ
体，在窗体的Ｃａｐｔｉｏｎ中显示
Ｉｆ ｂｉｎＡＩｐｈａ＝Ｆａｌｓｅ Ｔｈｅｎ
ｆ帮柙 —ｚ不 Ｉ
该数据链接的中文描述，在
Ｉｆ（Ｖａ（ｔｘｔＮｕｍ．Ｔｅｘｔ）＞ＨｉｇｈＬｉｍｉｔ）Ｏｒ＿
￣ｔＮｕｍ中输入需修改的数
（Ｖａｌ（￣ｔＮｕｍ．Ｔｅｘｔ）＜ＬｏｗＬｉｍｉｔ）Ｔｈｅｎ
值，然后在ｔｘｔＮａｍｅ和ｔｘｔＰｗｄ 图１文本框界面
ｂｌｎＥｒｒｏｒ＝Ｔｒｕｅ
图２程序流程图
Ｅｌｓｅ ＯｂｉｅｃｔｓＤａｔａＳＯｕｒｃｅ．Ｖａｌｕｅ＝ｔｘｔＮｕｍ．Ｔｅｘｔ
中输入工号和密码后点击“确定”按钮，程序通过与表Ｌｏｇｏｎ进
Ｅｎｄ Ｉｆ
行比较判断，工号、密码、权限完全正确则完成修改。同时将操作
ｔｘｔＮｕｍ．ＳｅｔＦｏｃｕｓ
员工号，操作日期和时间以及被操作数据链接及其描述，修改后
Ｓｅｔ ＯｂｊｅｃｔｓＤａｔａＳｏｕｒｃｅ＝Ｓｙｓｔｅｍ．Ｆｉｎｄ—Ｏｂｊｅｃｔ（ＤＬＯｂｊ）
的数据等信息保存到数据库中表Ｈｉｓｔ。因此实现如上功能必须
Ｓｅｔ ｒｓ＝Ｎｅｗ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ
用到数据库，这里我们采用Ａｃｃｅｓｓ数据库。首先打开控制面板
Ｓｅｔ ｒｓｌ＝Ｎｅｗ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ
中的管理工具，配置０ＤＢＣ数据源，然后在ＶＢＡ环境下编程，
Ｄｃｎ．ＣｕｒｓｏｒＬｏｃａｔｉｏｎ＝ａｄＵｓｅＣｌｉｅｎｔ
选择工具菜单的引用选项引用Ｍｉｃｒｏｓｏｆｔ ＡｃｔｉｖｅＸ Ｄａｔａ ２．８ Ｌｉ—
Ｄｃｎ．Ｏｐｅｎ Ｐｒｏｖｉｄｅｒ＝ＭＳＤＡＳＱ Ｌｌ １；ＰｅｒｓｉｓＬ Ｓｅｃｕｒｉｔｙ Ｉｎｆｏ＝ｔｒｕｅ；Ｄａｔａ
ｂｒａｒｙ，利用ＡＤＯ技术连接所需的已进行系统级加密的ＯＤＢＣ
Ｓｏｕｒｃｅ＝
一
Ｌｏｇｉｎ １０２９
数据源，其中数据服务提供者使用ＭＳＤＡＳＱＬ以便于连接远程
ｒｓ．ＣｕｒｓｏｒＴｙｐｅ＝ａｄＯｐｅｎＫｅｙｓｅｔ
ｒｓ．ＬｏｃｋＴｙｐｅ＝ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ
数据库服务器。考虑到程序运行的鲁棒性以及实际要求，给
ｒｓ．Ｏｐｅｎ”ｓｅｌｅｃｔ ｆｒ０ｍ Ｌｏｇｉｎ ，
一
ｔｘｔＮｕｍ中的输入值设定上下限，并在数值输入处设置按钮清除
Ｄｃｎ．．ａｄＣｍｄＴａｂｌｅ
ｔｘｔＮｕｍ中全部数据。程序流程图如图２。
ＣＲ．ＣｕｒｓｏｒＬｏｃａｔｉｏｎ＝ａｄＵｓｅＣｌｉｅｎｔ
维普资讯
３８
ｃｎ・Ｏｐｅｎ Ｐ ｏｖｉｄｅｒ＝ＭＳＤＡＳＱＬ・１；Ｐｅｒｓｉｓｔ
Ｓｅｃｕｒｉｔｙ Ｉｎｆｏ＝ｔｒｕｅ；Ｄａｔａ
—
基于ｉＦＩＸ中ＶＢＡ的数据库加密和应用
幽 篷蘩 蕤 爨 黉罄蓉鏊
Ｓｏｕｒｃｅ＝
一
麴 熬躺瓣 趱 瀚鞭壤 舞 鞠 翳糍 圈
Ｒｅｃｏｒｄ”．．”密码” ｒｊ ｒ 虻加９ ＾Ｉ ｒ ￣００８－３－０２ ０５ ５ｌ辅 喜鲞Ｃ 卜柏湖＾） 嚏
ｒｓ１．ＣｕｒｓｏｒＴｙｐｅ＝ａｄＯｐｅｎＫｅｙｓｅｔ
ｒｓ１．Ｏｐｅｎ ｓｅｌｅｃｔ ｆｒＯｍ Ｈｉｓ（＇，ｃｎ…
ｒｓ．ＭｏｖｅＦｉｒｓｌ
Ｉｆ ｒｓ１
．
ｒｓ１．ＬｏｃｋＴｙｐｅ＝ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ
ＤＯ
ｌ
ａｄＣｍｄＴａｂｌｅ
ｌ ｒｌ ｎｉ Ｉ ｒｍ 虻工ｃ ＬＪ朋 ｓ嘲Ｏ ＩＪ” Ｌ ２ ａ鲤 ２０∞ｏ０６ －３｝，－‘精０２∞ ２ ∞０：黯鸵转： 位篇ｔ科ｌ３惦 粟 爱Ｉ《 嚣台薹釜。Ｉ￡Ｏａ 卜Ｉ－柚｜ ９０３＾）！雌转赣蘧嚣 ，；
叫
ｌ
ｌ
ｒｉ ｒ ｌｃＪ０ 工ｒ上 ２。ｏ６４－０２． ：口５：笛辅 聚台基ＩＯ卜柚９０３＾） ，遁
２。０６。，啪
２ｏ口６－ ∞
曲０时嚣
斯 ∞
２。０６－ 拍
ＥＯＦ＝Ｆａｌｓｅ Ｔｈｅｎ ｒｓｌ ＭｏｖｅＬａｓｔ ｌ ｒ蚋 ｒｒｉ 成ｍ 虻—Ｊ＾柚 ０５９ｎ姒３ＬＪＩ ｒ ２掷。０６巾－，啪鞠 ∞ 耵：翳麓《锄口 爱 聚台盒萋釜ｃＯａｌ卜－如＾０ｓ９０３＾，） ＃｝疆遥 ｛ｌ
ｒ ∞耵０５鹌８
ｒｉ ｍｌｃ＿ｌ０９姒Ｘ ｒ
… 蕊！理疋＾ｏＳ。３Ｌ”
ｒｉ越ｍ虻帕獬＾Ｉ ｒ
ｒｉ ｍ珏＾ Ｉ ｒ
缸翳ｔ３ｌ００
扯辅：
∞：耵 ３唾５
∞：聪：虢约口
粟台釜ＩＯ卜＾嘲＾，转健
搴崔 嘲鼬嫌薅
聚台鳖ＣＯｌ－柏铀＾，醐Ｉ
聚台鲞ｃ Ｂｌ＿脚＾）转蘧
ｌ
ｌ
ｌ 素台璧ｃＯ卜＾０ｓ０３＾，耢馐
．
柑 ｒｉ ｍｌ 螂ｓＯ３＾Ｉ ｒ ２瞄。 ∞：耵：恐ｔ耵 蔫台釜Ｃ０１－ｔ４６０３￣）鹎ｌ埋
ｒｓ１．
Ｔ
ｕ ｐａａｔ
ｅ
．
ｅｘｔＢｏｘｌ Ｖａｌｕｅ＝Ｎｕｌ
… ！
Ｉ
～ …
喜
…
銎
…
…～ ……。～……
１０在其中输入需要
加醐黝嘧
艏…
ｇ ｉ！ Ｒｅ ｃ ｏ ｒ ｄ ￣
…
、 产项目中成功
Ｅ；
￣
Ａ
ｃｃ
嚣委
苎 ： 曼
。
墨 曼
Ｌｏ～
～～ 一
员的方法
易竺曼 量要兰 享
。
曼． ： ［１］麦克．
。
ｖｌｓｕａＩ
参考文献
，
ＶＢＡ访问太复杂，而一些力！ 件则会造 ＶＢＡ访 …蕃 子
Ｂａｓｉｃ开发指￣
２０
：
０
Ａ
０
～Ｄ
…… 一…“一’…～
Ｏ 【Ｍ］．张光霞，孙月琴，刘钊，等．
ＭＩ
Ｄ
Ｎ；Ｕｓｅ ＩＤ＝ＳＹＳＴＥＭ； ［１］ＷｏｎｄｅｎⅣａｒｅ公司
．
ａｔａ Ｓｏｕｒｃｅ＝ＳＪ＿ＳＥＲＶＥＲ”）： ＷｏｎｄｅｎⅣａｒｅ公司
Ｆａｃｌ
１ ９９９
ｏｒｙＳｕｉｔｅ ＮｅｔＤＤＥ ｕｓｅｒ Ｇｕｉｄｅ【
～
Ｒ］．美国：
，
数据提供者Ｐ ０ｖ‘
ＳＱＬＣ
ｄ。 为ＭｓＤ ＲＡ进行连接 ［２］刘友华
，
ｏｎｎｅｃｔ（Ｃｏ ｅｃｔｉｏｎｌｄ，”Ｐｒｏｖｉｄｅｒ＝ＭＳＤＡＯＲＡ．１；Ｐａｓｓｗｏｒｄ＝ＡＤ。 学出版
王贤平．．ＮＥＴ环境下数据库应用系统开发技术【
’ 。 ～
Ｍ］
．北京：
‘
科
，
２００４
Ｍ
数据提供者
Ｉ
Ｎ；Ｕ
ｓｅ
ｒ
ＩＤ ＝ＳＹＳＴＥＭ Ｄ ａ
—
……
．
ｏｖｉｄｅ 为ＯｒａＯＬ
．
ｓ
Ｅ
。
Ｄ
“
Ｂ・
。。
Ｏ
＝ｓ
ｒａｃ
！
ｌｅ进行连接
Ｖ ！”）： ［３］ｗｅ
发中心技柔文，
ｉ—Ｍｅｎｇ Ｌｅ．
（
数据访问技术的演变【
２０ ４—０４：０ ） ‘
ＥＢ／Ｏ Ｌ］
一。
．微软ＭＳ
ＤＮ数据开
～
ｉ
版权声明：本文标题：基于iFIX中VBA的数据库加密和应用 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711536125a598830.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论