admin 管理员组文章数量: 1184232
2024年4月17日发(作者：oozy是什么意思)
ＤＡＴＡＢＡＳＥ ＡＮＤ ＩＮＦＯＲＭＡＴ１０Ｎ ＭＡＮＡＧＥＭＥＮＴ 数据库与信息管理
通过Ｄｅｌｐｈｉ实现压缩和修复Ａｃｃｅｓｓ数据库文件
吴艳艳，唐源，李霞
（柳州市工人医院，广西柳州５４５００５）
摘要：通过Ｄｅｌｐｈｉ设计了一个程序来压缩和修复Ａｃｃｅｓｓ数据库文件，便于操作员管理，并用实例来加以说明。
关键词：Ｄｅｌｐｈｉ语言；Ａｃｃｅｓｓ数据库；压缩
Ａ Ｍｅｔｈｏｄ ｔｏ Ｒｅａｌｉｚｅ ｔｈｅ Ｃｏｍｐｒｅｓｓｉｏｎ ａｎｄ Ｒｅｐａｉｒ Ａｃｃｅｓｓ Ｄａｔａｂａｓｅ
Ｆｉｌｅｓ Ｔｈｒｏｕｇｈ Ｄｅｌｐｈｉ
ＷＵ Ｙａｎｙａｎ，ＴＡＮＧ Ｙｕａｎ，ＬＩ Ｘｉａ
（Ｌｉｕｚｈｏｕ Ｗｏｒｋｅｒ’Ｓ Ｈｏｓｐｉｔａｌ，Ｇｕａｎｇｘｉ Ｌｉｕｚｈｏｕ ５４５００５，Ｃｈｉｎａ）
Ａｂｓｔｒａｃｔ：Ｔｈｉｓ ｐａｐｅｒ ｉｓ ｍａｉｎｌｙ ａｂｏｕｔ ｔｈｅ Ｄｅｌｐｈｉ ｄｅｓｉｇｎ ｏｆ ａ ｐｒｏｃｅｄｕｒｅ ｔｏ ｃｏｍｐａｃｔ ａｎｄ ｒｅｐａｉｒ ｄａｔａｂａｓｅ ｆｏｒＡｃｃｅｓｓ，ｏｐｅｒａｔｏｒ
ｍａｎａｇｅｍｅｎｔ，ａｎｄ ｕｓｅ ｅｘａｍｐｌｅｓ ｔｏ ｅｘｐｌａｉｎ．
Ｋｅｙ ｗｏｒｄｓ：Ｄｅｌｐｈｉ ｌａｎｇｕａｇｅ；Ａｃｃｅｓｓ ｄａｔａｂａｓｅ；Ｃｏｍｐｒｅｓｓｉｏｎ
Ａｃｃｅｓｓ数据库是经常使用的数据库，但是在使用ＭＳ Ａｃ—
ｃｅｓｓ
要使用ＯｌｅＶａｒｉａｎｔ，或者Ｖａｒｉａｎｔ。这里通过ＯｌｅＶａｒｉａｎｔ对象来
数据库的过程中，发现随着时间的推移，以及数据的反复
实现Ａｃｃｅｓｓ数据库的压缩和修复。
添加与删除．由于Ａｃｃｅｓｓ会给数据库自动保留一份副本集，
２实现代码
下面参照以上的设计思路写的是一个压缩数据库的函数
ｃｏｍｐｒｅｓｓＤＢ．要让这段代码顺利编译，需要首先引用一下ｃｏ．
整个数据库软件就会变得越来越臃肿，这样造成了数据库占
用的空间越来越大。如果在Ａｃｃｅｓｓ环境中，Ａｃｃｅｓｓ的ＤＢＭＳ
提供了修复和压缩数据库的功能，可以通过点选菜单（工具一
ｍＯｂｊ单元。
２．１主要代码及注释
ｆｕｎｃｔｉｏｎ ｃｏｍｐｒｅｓｓＤＢ（ｄｂＮａｍｅ：ｓ￣ｉｎｇ）：Ｂｏｏｌｅａｎ；
Ｖａｒ
数据库实用工具一压缩和修复数据库）如图１所示，来将Ａｃ．
ｃｅｓｓ数据库压缩。但是在使用开发基于Ａｃｃｅｓｓ的数据库应用
的过程中，最终用户的机器上不一定都有ＤＢＭＳ，况且用户也
不一定会使用这个功能，所以我们最好能够在程序里面加入
压缩功能．这样用户使用的时候就会很方便了。那么通过Ｄｅ１．
ｐｈｉ能不能压缩和修复Ａｃｃｅｓｓ数据库呢？答案是肯定的。利用
下面的这个函数，成功地实现了这个功能。
ＤａｏＶａｔ＂ＯＬＥＶａｒｉａｎｔ；
ｂｅｇｉｎ
ｉｆ ＤＭ．ｃｏｎ１．Ｃｏｎｎｅｃｔｅｄ ｔｈｅｎ ＤＭ．ｃｏｎ１．Ｃｏｎｎｅｃｔｅｄ：＝ｆａｌｓｅ；，／如
／／果数据模块中的，／数据库连接打开，请先关闭
ｔｒｙ
ｔｒｙ
ＤａｏＶａｒ：＝ＣｒｅａｔｅＯｌｅＯｂｊｅｃｔ（＂ＤＡＯ．ＤＢＥｎｇｉｎｅ．３６ ）；
ｉｆ ＦｉｌｅＥｘｉｓｔｓ（ ｔｅｍｐ．ｍｄｂ ）ｔｈｅｎ ＤｅｌｅｔｅＦｉｌｅ（＂ｔｅｍｐ．
ｍｄｂ ）；，／删除临，，时数据库文件”ｔｅｍｐ．ｍｄｂ”
ＤａｏＶａｒ．ＣｏｍｐａｃｔＤａｔａｂａｓｅ（ｄｂＮａｍｅ，＂ｔｅｍｐ．ｍｄｂ ）；
图１压缩和修复数据库
，／压缩”ｄｂＮａｍｅ”到”ｔｅｍｐ．ｍｄｂ”
ｉｆ ＤｅｌｅｔｅＦｉｌｅ（ｄｂＮａｍｅ）ｔｈｅｎ，，删除文件”ｄｂＮａｍｅ”
ＲｅｎａｍｅＦｉｌｅ（ ｔｅｍｐ．ｍｄｂ ，ｄｂＮａｍｅ）；／／将”ｔｅｍｐ．
／／ｍｄｂ”改名为”ｄｂＮａｍｅ”
ＳｈｏｗＭｅｓｓａｇｅ（ 压缩成功 ）；
Ｒｅｓｕｌｔ：＝ｔｒｕｅ；
ｅｘｃ印ｔ
Ｒｅｓｕｌｔ：＝ｆａｌｓｅ；
ｅｎｄ；
ｉｎａｌｆｌｙ
１程序设计思路
ＯｌｅＶａｒｉａｎｔ是与Ｗｉｎｄｏｗｓ系统的是Ｏｌｅ软件进行软件调
用、数据交换用的。ＯｌｅＶａｒｉａｎｔ用于传递各种各样的数据，如
字符串、整数等等，ＯｌｅＶａｒｉａｎｔ的类型定义包括一个数据类型
字段，指明数据的类型，ＯｌｅＶａｒｉａｎｔ可以使Ｓｔｉｒｎｇ、Ｉｎｔｅｇｅｒ、
ｌｆｏａｔ等，也可以使ａｒｒａｙ ｏｆ ＯｌｅＶａｒｉａｎｔ；另外还有一个联合，用
于放数据。最常见的例子是，在Ｄｅｌｐｈｉ里调用ＭＳ Ｏｆｉｃｅ里面 ｆ
的软件，如ｗｏｒｄ、Ｅｘｅｃｅｌ等。这里面的数据类型基本上都需
ＤＭ．ｃｏｎ１．Ｃｏｎｎｅｃｔｅｄ：＝ｔｒｕｅ；／／为了其他操作能够正常执
／／彳亍，还要打开数据库连接
收稿日期：２０１４—０１—２２
电脑编程技巧与维护
ｅｎｄ；
ｅｎｄ；
意的答案的。在压缩的过程中，一定不要打开数据库，否则
会出错的。
２．２调用方法
另外，修复压缩数据库时，若出现“类字符串无效”。原
因是：用户计算机中没有或者未注册“ＤＡＯ３６０．ＤＬＬ”文件。
ｃｏｍｐｒｅｓｓＤＢ（＇ｄｂ１．ｍｄｂ ）；，／数据库与执行程序在同一路径下
２＿３程序运行效果
解决办法：若￥（ｓｙｓｔｅｍ）目录中没有上述文件，则复制该文件
到￥（ｓｙｓｔｅｍ）目录下；若￥（ｓｙｓｔｅｍ）目录有上述文件，那么在
￥（ｓｙｓｔｅｍ）目录下执行下列命令：ｒｅｇｓｖｒ３２ ｄａｏ３６０．ｄｌｌ注：
￥（ｓｙｓｔｅｍ）目录，即为用户计算机中操作系统的系统目录。
如： “Ｃ：＼ＷｉｎｄｏｗｓＬＳｙｓｔｅｍ”。
程序编译后，执行程序运行效果如图２所示。
参考文献
【１］ＭａｒｃｏＣａｎｔｕ．Ｄｅｌｐｈｉ５从入门到精通．王辉，李澎东，等，
图２程序运行效果图
译．北京：电子工业出版社．
【２】杨志刚，何志成，魏志强，王忠华．Ｄｅｌｐｈｉ５．０程序设计．
中国铁道出版社．
３结语
Ｄｅｌｐｈｉ实现Ａｃｃｅｓｓ数据库压缩可能有多重方法，这里使
用的ＤＡＯ对象，另外网上说还有一个第三方的数据库驱动．
可以直接压缩，有兴趣的可以Ｇｏｏｇｌｅ一下，一定可以找到满
．
［３］刘韬，王保东，宋征．Ｄｅｌｐｈｉ５自学捷径．北京大学出版
社．
址．ｓ Ｓ止．．Ｓ屯 ．址 Ｓｔ．址．Ｓ ．Ｓ ．Ｓ ．Ｓ屯 ．址 舢 址 ｓ ．址业．址—ｓ止．址 ．址．Ｓ
．
Ｓ止．Ｓ ．址．Ｓ屯 Ｓ也 ．址．址 Ｌ—址
（上接第５９页）
入登出和密码修改两个部分。已分配了账号密码的用户．可
以修改自己的登录密码，流程图如图３所示。
这部分工作由院纪检监察部门人员进行管理．主要完成
监督审核。当中层领导干部按照院纪委的当年下发相关表格．
对当年的信息情况进行如实填报并提交上传。院纪委对提交
的相关信息进行审查，没问题通过，若有问题返回继续修改。
当事人对最终提交的个人廉政信息负责．若发现有隐匿个人
信息变动，被查处的要追究其相应的责任，根据相关规定给
出意见建议或是进行相关处理。廉政信息上报审核流程图４
所示，其他模块的流程设计这里不再详细介绍。
３结语
否
对现阶段信息管理系统的现状和发展方向进行分析的基
础上，结合高校领导干部廉洁从政制度，根据铜仁学院干部
廉政信息公开的实际业务流程，对领导干部廉政信息管理系
统进行需求分析，确定廉政信息管理系统的总体功能框架结
构，最后对一些关键模块的功能进行了深入论述分析。
参考文献
图３修改系统密码流程
２－３．２廉政信息上报审核
［１】廖海洋．基于Ｊ２ＥＥ的政务信息管理系统的设计与实现
［Ｄ】．重庆大学硕士论文，２００８．
［２】江朝勇，陈吴呖，谢赞福．基于Ｂ／Ｓ的党风廉政信息管理
系统的设计与实现．广州技术师范学院学报，２００８．
［３】刘兰娟，竹宇光．信息系统分析与设计．北京：电子工业
出版社．２００７．
『４１欧阳荣彬，王倩宜，刘云峰，李丽．ａｊａｘ与新型管理信息
系统．中山大学学报（自然科学版），２００９，３（４８）．
［５】吴光成，时云峰．基于ＲＢＡＣ的权限管理系统的实现．电
子测试．２００８．
［６】刘克松，叶敦范，王典洪．基于角色的访问控制模型的分
析与应用．现代计算机，２０１０。ｆ１８１）．
图４廉政信息上报审核流程
与
版权声明：本文标题：通过Delphi实现压缩和修复Access数据库文件 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1713323449a629492.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论